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Introducing the MTI" line of computers. We believe in offering you 
the best in complete, low cost computing. 



MTI MOD III PLUS 140. A personal ' 
computer that has been designed 
and priced for your business, your 
department. ..yourself. MTI 
Computers offer you many 
"upgrade" features as standard. 
All MTI Computers include a 
65-key keyboard complete with a 
12-key datapad, a large 12" 
monitor and anti-glare screen, 
RS-232 printer interface, cooling 
unit and more. The memory is 48K 
and has a Z80 Drocessor and two 



double density disk drives. 

LOW PRICE. MTI computers are 
priced from $1999. 

MOD III PLUS 140 Computer 
consists of 48K bytes of memory 
and a double density, dual disk 
drive system. The system is fully 
compatible with the Radio Shack" 
DOS and peripherals. Get 178,000 
bytes of memory storage per disk. 

OPTIONS: 

- • LETTER QUALITY 
PRINTER 
• WINCHESTER CP/M 2.2 



OTHER MODELS AVAILABLE: 
MOD III PLUS 240. Same as the 
MOD III 140 but has double 
storage capacity and dual headed 
40-track drives. 

MOD III PLUS 280. Has 1 .5 mega- 
bytes storage and 2 dual headed> 
80-track double density disk 
drives. 

MOD MI/WINCHESTER. Our largest 
computer system. 8.2 megabytes 
of storage. Includes a 7.5 mega- 



80-track dual head disk head. 



CP/M 64K 

The Mod III Plus C/140 system is an 
exciting new personal and small I 
business computer that is both 
CP/M & TRS-DOS compatible. 

1 FEATURES: 
80x24 Display for CP/M 
64K Bytes RAM Memory 
Microsoft BASIC language in ROM 
Internal Z80 ROM Diagnostic 
Z80 processor, 2MHz 



Cooling system 
Parallel printer interface include 
Anti-glare screen 
yi 2 internal 40tk Disk Drives 
^•"Compatible with TRS-80" Modl'l 
III— RS-232 serial interface 
option. 

Compatible with CP/M applica- 
tions software such as Wordstai 
Datastarand Mailmerge. 



$ 2699 



• 90 Day Warranty 

• One Year Extended j 
Warranty Available 

• Local Dealer Service) 
»*TRS-80 Compatible I 




MTI: 
INLO 



PRICES FROM s 1 



OVER 100 AUTHORIZED DEALERS 
CALL 714-979-9923 for the dealer nearest you 






CP/M is a registered trademark ot Digital Rtfij 
TRS-80" is a registered trademark ot Tan^y 
MTI is a registered trademark ot Microcomc 



:h, Inc. 

>r Technology. Inc 



MICROCOMPUTER TECHNOLOGY INC. 

3304 W. MACARTHUR, SANTA ANA. CA 92704 
(714) 979-9923 • TWX 910-595-1902 MTISNA 
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We're Expanding Your 

TRS-80* Model III 

With Reliable Hard-Line Thinking 

Let's cut through all the "compu-babble" about hard-disk systems with some hard-line 
thinking. 

You want a hard-disk system for your TRS-80* Model III for some fairly basic reasons: 

• More storage capacity than your present 
system 

• Faster retrieval and storage of information 
•Accurate processing with reliable hardware and 

software 
PERCOM DATA was pioneering critical, reliable data separation functions for micro 
systems long before many of today's companies even began. PERCOM DATA'S solid 
industry reputation is your promise of hard-disk performance, from a drive with speci- 
fications equal to or superior to your own system. 

PERCOM DATA 5V* inch PHD'*™ are your easy, hard-line answer. These units are 
available in 5, 10, 15 and 30 megabyte models. The First Drive unit has a micro- 
processor-based drive controller, permitting you to add up to 3 more hard-disk PHD's. 
And PHD series prices begin at under $2500. 

So, if you're ready to expand your TRS-80 Model III, do it with PERCOM DATA'S PHD. 
Our hard-line thinking of more than half a decade means you get a reliable, high-quality 
PERCOM DATA peripheral, backed by the PERCOM DATA Performance Promise. 

Take a hard-line of your own today! Call one of our Sales Consultants for more 
information and specifications or for the name of your close-by PERCOM DATA Dealer. 

PERCOM DATA'S Hard-Line Hotline is 1-800-527-1222 



PERSCM DATA 



C O 



ORATION 



Expanding Your Peripheral Vision 



DRIVES 



NETWORKS 



SOFTWARE 



11220 Pagemill Road Dallas. Texas 75243 (214) 340-7081 
1-800-527-1222 



TRS^O is a reg.ster»d trademark of Tandy Radro Shack Corporation 



Features 



72. Voice-Controlled Typewriter 

The physically handicapped can 
produce printed text with this 
sound-controlled program. 
Mike Rigsby 

80. The Color Computer Goes Forth 

With this new package, Color Com- 
puter owners can explore program- 
ming in a new language— Forth. 
Scott L. Norman 

150. Tracking Lobster 

Your TRS-80 can't bait a hook, but it 
can help you trap a lobster using 
maps and graphs. 
William F. Kaczor 




210. Pascal-80 

Pascal-80 provides a serious version 
of the Pascal language to TRS-80 
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users. You might find its structured 
programming rewarding. 
John B. Harrell, III 

216. TRS-80 Tongues 

Can't decide which language to 

use? Here's a simple temperature 

conversion program in six: Basic, 

Fortran, Cobol. Pascal, APL, and 

Forth 

Robert Nicholas and Philip Martel 



Articles 



88. The Calculating (.enius— Part II 

Charles Babbage's Analytical 
Engine was the modern computer's 
ancestor, but it was never built. 
Rick Cook 

94. Flaky 

A graphics program to show off the 
power of your Color Computer. 
Sidney C. Garrison 

101. Bit Smitten 

This month learn how to gain access 
to string data for use in programs re- 
quiring random selection of words. 
Jay Chidsey 

104. Up Your Mini I 

Double-density disk storage— a 
close look at all you will ever need to 
upgrade your Model I. 
Bruce Powel Douglass 

118. GRAPHTRAX Tricks 

I — | Make your MX-80 look like a magi- 
cian. 
Mark Schneider 

125. Forms Cleanup 

Eliminate drawbacks in this printer- 
driver by dropping the O. 
Jim Barbarello 

130. Inside Scripsit— Part III 

U=y How to write a spooler for Radio 
Shack's word-processing program. 
Craig A Lindley 

146. A Matter of Compatibility 

G5 Make your program submissions to 
80 Micro compatible with other 
systems with this short routine. 
Your readers will appreciate it. 
Art Huston 

166. $30 System l>esk 

Now that you've bought a computer, 



build a place to put it. 
Santord J. Asman 

173. Hardware Hacker— Part III 

Add a disk-drive controller to your 

system. 

Philip M. Van Praag 

194. The Looking for Z$ Blues 

}-=fe| God bless the 80 that's got its own 
search function. 
J. E. Hieber 

200. CCCQ 

A Ham puts his Color Computer to 
dit-dah use. 
Michael Chuck 

228. Liberated CPU 

Free your micro with this spooler. 
Tom Shield 

236. Diskmap 

y=y Worry no more about disk file place- 
ment 
John B Harrell. Ill 

252. Astro-Scrambler 

Transplant your rainy day high 
school gym class into space and 
play dodge ball with asteroids. 
Randy Long 

256. Unrolling Craps 

If you're a gambling fool, be less 
foolish by calculating the odds 
before you roll those bones. 
Dan Robinson 

262. Search Them Strings 

I 5 I This utility helps you find strings in 
your Basic programs. 
John R. Gunter 

266. Certify Your Cassettes 

Eliminate bad saves and wasted 

time. 

Kenneth J. Bigelow 

276. Another Sort of Sort 

After the bubble bursts, learn about 
position and chain sorts. 
Karl L. Townsend 

280. Autokey 

Modify Uni-Key for your Model III. 
Don Rigg 

298. Memory Map — Level II 

A general guide to the regions of 

ROM. 

Mark D. Goodwin 
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The left bracket, [, replaces the up arrow 
used by Radio Shack to indicate exponen- 
tiation on our printouts. When entering 
programs published in 80 Micro, you 
should make this change. 

80 formats its program listings to run 
64 characters wide, the way they look on 
your video screen. This accounts for the 
occasional wrap-around you will notice in 
our program listings. Don't let it throw 
you, particularly when entering assembly 
listings. 



Article submissions from our readers 
are welcomed and encouraged. Inquiries 
should be addressed to: Submissions 
Editor, 80 Pine Street, Peterborough, NH 
03458. Include an SASE for a copy of our 
writers' guidelines. Payment for accepted 
articles is made at a rate of approximately 
$50 per printed page; all rights are pur- 
chased. Authors of reviews should con- 
tact the Review Editor, 80 Pine Street, 
Peterborough, NH 03458. 



419. Fun House 

The 12 Days of Christmas. Dreidel, a 
Hanukkah game Peglegs 
Richard Ramella 



458. Copernica Mathematics 

Analysis of variance. 
Bruce Powel Douglass 





433. Feedback Loop 

Lazy Writer. Copying single density 
to double density. Printer III prob- 
lems. Disk drive buyer information. 
Disk drive problems. EDTASM prob- 
lems. Color Computer information. 
Buying a Model III keyboard. Model I 
monitor ripple. Playing Naval Wars 
on the PMC. Best chess game avail- 
able for 80. Power surge protection. 
Terry Kepner 



442. MONEY DOS 

How to play on the options market. 
J. M. Keynes 

451. Index to Ad\ertisers 



Notes from Beneath the Keyboard 

A conversation with Vernon Hester, 
including a Hester machine-lan- 
guage routine to make programs 
compatible with all DOSes. 
Paul Wiener 



464. Keload 80 

How to use Color Load 80. A new 
DOS for the Models I and III. Anniver- 
sary Load 80. 
Art Huston 

468. Calendar 

470. New Products 

Vendor-One program authors' soft- 
ware. Mitsubishi 5.25-inch floppy 
drive. Color Computer macro assem- 
bler/editor. Farm Weather Center. 
VisiCalc consolidation system. 
Name That Song. Australian Win- 
chester drives. Graphic character 
generator for Models I and III. Two- 
mode joystick. Camp management 
program. Reading Skills Lab. Per- 
sonal Computer Owner's Directory 
CompuGifts for Christmas. 
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Circle 31 on Reader Service card - 



312. Cybernetics— Part III 

How to interface an actuator to your 

computer. 

Stephen Davids 

320. Model III Machine- 1 .anguagc 
Modifications 

When Model I software isn't Basic, 
you need to know some tricks before 
you convert the programs. 
Richard Koch 

333. Queue Up! 

A smart businessman knows analyz- 
ing waiting lines is not as arcane as 
it sounds. 
David E. Clapp 

341. Maze XIX 

y^ij] Have you ever wondered how a 
mouse feels in a maze? Here's your 
chance to find out. 
Gary Teter 

343. Open Cartridge Surgery 

Out with the bad ribbon, in with the 
cheap one. 
Bill Grout 

344. NEWDOS80 Files 

An explanation of their functions. 
Randy M. Resnick 

354. Color Diskdutnp 

Model I users had it, now Color Com- 
puter owners can have it. too. So ex- 
amine those files. 
Ken Knecht 

356. Forms Maker 

With USR routines and this Basic 
utility, you can create business 
forms on your Model II. 
Charles R. Perelman 

360. Screen Strings 

Make your screen routines efficient. 
Don Davidson 

366. Boolean Logic Operators 

How they work for Fortran and 

Basic. 

John Crew 

370. Scroll Your Listings 

yg Use this program to list programs on 
the screen one line at a time. 
Mark C. Paxton 

376. API. Primer— Part I 

What's the difference between mo- 
nadic and dyadic functions? Stay 



tuned for a description of system 

commands, variable names, and 

more. 

Margaret M. Grothman 

384. POKF Graphics 

y^ Speed up your Basic displays with a 
little help from some dummies. 
James Schaefer 

388. Fasy Picture Fditor 

Simple commands for art or game 
graphics on the Color Computer. 
Ron Ginger 



Departments 



8. Remarks 

With its business health depending 
increasingly on its computer sales, 
some rough water could be awaiting 
the Tandy flagship. 
Wayne Green 

16. Proof Notes 

A look at the year ahead. 

18. Input 

The amazing magazine mystery. 
Model I interface. Wayne's view of 
America rapped. Tips for Extended 
Basic. Rammer fix. More advan- 
tages of storing Assembly subrou- 
tines in Basic remark statements. 
PMC EPS-80 defended. 

34. Debug 

September MONEY DOS fix. Errors 
in Screenplay program. Model I mod 
for "Save Our Ship." A word on golf 
handicaps. 

38. Aid 

Goodwill Industries wants comput- 
ers. Business students need pro- 
grams. Green screen kluge. Quick 
Printer I for sale. More buffer for his 
music. Needs address of Indianapo- 
lis firm. VisiCalc templates. For 
Stringy Floppy owners only. Modem 
for 1200 downloads. TRS-232 news- 
letter. Color monitor question. Super 
Scripsit- 

40. Reviews 

Sea Dragon. TRS-80 Assembly Lan- 
guage Wolfbug. Elementary Basic 
and Pascal with Sherlock Holmes 
Lisp/UOLISP. Quest. LSI Soft-view 
CRT. FED File Editor. Bounceoids 



The Disk Doctor. LCA-47. Lowercase 
Adapter for CoCo. Hypergate Cen 
turian. Data O Base Calendar. Drive 
Control Unit. 




63. Review Digest 

Understanding Computer Science 
by Roger Walker. Postman. Basics 
for Business by Douglas Hergert. 
Master Control. Big Things from Lit- 
tle Computers: A Layperson's Guide 
to Personal Computers by Dale Pe- 
terson. Pro-80 Extended Basic. Mi- 
cropilot. The Tiny Compiler. Stellar 
Escort. RAM Slam. 

64. Soft Bits 

Examining the bits in binary num- 
bers. 
Roger Fuller 

68. Camer's Cafe 

A call to gamers everywhere to beat 
the high scores of Winthrop and 
Mad Max. 
Rodney Gambicus 

3%. News 

Computers in the schools: boon or 
bane? Video games can weaken a 
heart. Landmark lawsuit settled. 
Poet Laureate of the Network Na- 
tion. 
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THE 
SWITCH 

SWITCH T0 57 8"D0UBLE DENSITY 

IHDmibler 5/8 



FEATURES 



5- and 8-inch* disk drives 

Single- & double-density 

Any size and density in any mix 

Read Model I, II* and III disks 

5- or 8-inch* system disk 

Single & double sided disk drives 

DOS+ 3.3.9 included, with Disk 

BASIC. 

6 month warrant v 

Up to 3.75 megabytes online 

Easy installation - plug-in & run 

Analog phase lock loop data 

separation 

Precision write precompensation 

Regulated power supply 

Guaranteed operation at 4MHz 

All contacts gold plated 

Solder masked & silk screened 

Runs under DOS+ 3.3.9, TRSDOS 

2.3, NEWDOS 2.1, NEWDOS/80 

1.0. LDOS, NEWDOS/80 2.0, 

and ULTRADOS 

Reads 40- and 35-track disks on 
80-track drives 

FD1791 controller + your FD1771 

Fits Model I expansion interfaces 

Fits LNW expansion interfaces 

Track configurations to 80-tracks 

5 inch disk storage increased to: 

161,280 bytes - 35-track SS/DD 

322.560 bytes - 35-track DS/DD 

184,320 bytes - 40-track SS/DD 

368,640 bytes - 40-track DS/DD 

368,640 bytes - 80-track SS/DD 

737,280 bytes - 80-track DS/DD 

8 inch disk storage increased to: 



591,360 bytes - 77-track SS/DD 
1,182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double-density 

COMPLETE - The LNDuubler 5/8, 
switches your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density, 5- or 8-inch operation, 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track, single-sided 5-inch drives 
will store up to 184,320 bytes 
(formatted storage) - that's an 80 
increase in storage capacity for only 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double-density 



board you can buy. The LNDuubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL - The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running'. 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 
$ 



219.95 



DEALERS You too can 

make The Switch. 




IjNJfyRESEARCH CORPORA TION 



2620 WALNUT Tustin, CA. 92680 (714)544-5744 (714)641-8850 

h e operation require, special cable. 8" double density reqtlirw 8 66MHl CPU speed up modd.cal.on or LNW-80 «Mrfa computer. THS-8U Is » trademark ol Tandy Corporation. 



REMARKS 



by Wayne Green 



With the virtual demise of CB, a 
serious loss of consumer interest 
in hi-fi, and the overall slowdown in the 
buying of electronic gadgets, Radio 
Shack stores have found that they are 
more and more dependent on their 
computer products. It is not much of an 
exaggeration to put this bluntly: as go 
computer sales, so goes Radio Shack. 

So how go the computer sales? 

Starting with the Color Computer, 
Radio Shack's low-end system aimed 
at the home computer market, it's bad 
news. When the Shack was up against 
small firms selling high-priced pro- 
ducts, their 6,400 stores gave them an 
unbeatable edge. Even today, with less 
than 5,000 bona fide computer stores, 
even if a rival firm managed to get 100 
percent penetration of this distribution 
system, they would still not quite 
match the Shack. 

But home computers are not de- 
pendent on computer stores. The low- 
end computer systems are being sold 
through toy stores, discount stores, de- 
partment stores, electronic stores, and 
so on. The Shack has been overwhelm- 
ingly outnumbered in sales out- 
lets — and in sales. Atari, Texas Instru- 
ments, and Commodore are all beating 
the hell out of the Shack in the home 
market. 

This volume of sales has, in turn, al- 
lowed the firms to undercut the Shack 
in price. This further is hurting the 
Shack. 

Shack is trying, belatedly, to develop 
some sales through RCA outlets for 
the CoCo, but the neglect of this sys- 
tem in many ways, as I've griped about 
before, may now have dealt them out 
of the fast-growing home-computer 
market as a major participant. 

The Shack brought out CoCo in 
August 1980 and then virtually aban- 
doned it. Either unable or reluctant to 
get enough of the right people on the 
Shack staff to handle the multiplying 
problems of changing from the Model 
I to the Model III, plus endless ag- 
gravation with the Model II, the CoCo 
and the pocket computers were an- 
nounced, put into the catalogs, and left 
to fend for themselves. 

So here we are two years later — a 
lifetime in the microcomputer in- 
dustry — with a pitiful lack of serious 
support for the system. It seems that the 
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s the Shack 

in real 

trouble? 



Shack people are at war with their sup- 
porters and potential suppliers. On the 
one hand, perhaps from a desire to 
make every possible dollar of profit, 
they try to do as much as possible in- 
house. But even when they see that this 
is pushing them further and further 
behind, they don't change their policies. 
Having worked with the Shack for 
many years, 1 get the idea that once a 
policy is made it is put into concrete and 
no amount of disasters is going to 
change policy. 

I'm sure there are at least fifty soft- 
ware firms out there that would love to 
work with the Shack to develop the 
needed software for CoCo. I know that 
our Instant Software people have at 
least 500 programs that could be con- 
verted to run on the system, and which 
they have tried to talk with the Shack 
about. I've talked with many hardware 
accessory people who have similarly 
been frustrated in trying to talk with the 
Shack. 

It is getting clearer that home com- 



puters will eventually take over the 
video game market, allowing people to 
play all of the games . . . and also run 
home programs, educational programs, 
and so on. On that basis, is there any- 
thing that the Shack can do to cope with 
this growing market, and get back into 
competition? 

Yes... and no. Yes, of course the 
Shack can do it — but no, not without 
breaking some serious concrete deci- 
sions. They've erected their own Great 
Wall between continued growth and 
gradual decline. 

As the messenger I expect that I will 
be skinned alive, as I have in the past. 
They sure don't like messengers. 

The Software 

By making the CoCo incompatible 
with all their other Shack computers, 
they set themselves up with a major 
problem — no software. The Shack's 
normal approach is to hire some pro- 
grammers and get the software written. 
But here there is a little problem. Even 
the massive Shack resources aren't 
enough to hire very many program- 
mers. These days, programmers with 
any creativity and experience can sit at 
home anywhere they want and make all 
the money they need. Who needs to 
move to Fort Worth, where for about 
half the year you either have an air con- 
ditioner handy or you melt? I lived there 
one summer, so I know! 

Most of the better programmers are 
writing programs and getting them dis- 
tributed through software houses and 
are not even remotely interested in 
sweat-shop, regimented nine-to-five 
jobs . . . jobs where one can be fired as 
soon as a temporary problem has been 
surmounted. 

The Shack has done the best it could 
to find programming talent to grind out 
software, and the results, as reviews of 
the Shack software make all too clear, 
are disappointing. It is getting time to 
face up to the failure of this system of 
trying to cut corners on costs, always 
trying to get a few pennies' more profits 
to drive up the quarterly stockholder 
reports. 

If the Shack would start dealing 
honestly and forthrightly with some of 
the software suppliers to the industry, I 
think they could get plenty of software 
to support the CoCo — and that certain- 
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CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289 7500 (COLLECT) 
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magnetics 
DISKETTES 



MTC's 

Premium Single-Sided, Soft-Sectored 
OUBLEDENS1TY, 5V4-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR FREE certified. Invest in GOLD! 



PARAGON MAGNETICS GOLD 



S24.95 



Scotch 

Soft-Sectored Diskettes 

5-1/4" iS/SDen (744-0) S2895 

5-1/4" 1S/DDen(744D-0) S31.95 

5-1/4" 2S/DDen (745-0) S39.95 

8" IS/SDen (740-0) S29.95 

8" 1S/DDen (741-0) $37.95 

8" 2S/DDen (743-0) $49.95 

Hard-Sectored Diskettes 

5- 1 /4" 1 S/D Den 1 0-sector (744- 1 0) $28.95 

5-1/4" iS/DDen 1f>sector (744D 10) $32.95 

5-1/4" 2S/DDen10-sector (745-10) $39.95 

5-1/4"lS/SDen16-sector(744-16) $28.95 

5-1/4" 1S/DDen16-sector(744D-16) $32.95 

5-1/4" 2S/DDen16-sector (745- 16) $39.95 

8" 1S/SDen 32 sector (740 32) $33.95 

8" 1S/DDen 32 sector (74 1-32) $39.95 

8" 2S/DDen32sector (743-32) $49.95 

Supplies 

5-1/4" Head cleaning kit $29.95 

8" Head cleaning kit $29.95 

Authorized Distribute *aMLfl 

Information Processing Products Ofwl 



VERBATIM 

Soft-Sectored Diskettes 

5-1/4" 1S/DDen(MD525-01) $26.95 

5-1/4" 2S/DDen(MD550-01) $39.95 

5-1/4" 2S/4Den(MD557-01) $51.50 

8" 1S/DDen(FD34-8000) $43.95 

Hard-Sectored Diskettes 

5-1/4' 1 S/DDen 10-sectot (MD525 10) $26.95 

5-1/4" 2S/DDen10-sector(MD550-10) $39.95 

5-1/4" 2S/4Den10-sector(MD557-10) $51.50 

'RINGS' & THINGS 

HUB RING KIT for 5' V disks $10.95 

HUB RING KIT for 8' disks $12.95 

REFILLS (50 Hub RinRs) $ 5.95 

5' 4 inch diskette case $3.50 

8-inch diskette case $3.95 

5 '/i -inch File Box for 

50 diskettes $24.95 

8-inch File Box for 

50 diskettes $29.95 



DISKETTE STORAGE SYSTEM 

Storing 50 to 60 diskettes, this 
durable, smoke-colored acrylic unit 
provides easy access through the 
use of index dividers and adjustable 
tabs. Unique lid design provides 
dust-free protection and doubles as a 
carrying handle. 

Reg. $24.95 NOW $17.95 

* With the purchase of ONE 

PARAGON GOLD 

SCOREPAC™ 

Isn't it time that you scored . . . 
A Great Gift Giving Idea!! 




♦/ 



SCOREPAC r " 

w'20 Paragon Gold Diskettes $46.95 



MODEL l/lll SOFTWARE ACCESSORIES 

APPARAT'S NEWDOS/80-V2 + MTC QUE CARD™ $ 129.95 

PRACTICAL PERIPHERALS MICROBUFFER™ $ 149.95 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 

SPECIFY MODEL I OR III 

Disk Version $79 95 

Tape Version $69 95 



APPLE is • ragiatarad Itadamark 

ot Appla Computar Inc 

TBS SO Is a trademark of ma 

Radio Shack Division ot Tandy 

Corporation DATALIFE Is a 

trademark ot VERBATIM PLAIN 

JANE. PARAGON MAGNETICS 

are trademarks ot MTC. 

1M2 by Mats Technologies 

Corporation 
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APPLE® OWNERS 

Your first mystery is here! 

THE CUSTOM APPLE' 

& OTHER MYSTERIES $24.95 

by Hofacker & Floegel 

Make your Apple® Computer perform 
tasks you never thought possible. In- 
terface to stepping motors, fans, drive 
motors, etc. Remotely control and 
automatically monitor virtually any 
machine previously controlled by 
mechanical means. If you want to 
lower your heating costs or are just 
wondering how to hook that "new" 
printer to your Apple® you need this 
book! Volume 1 of IJG's Apple Infor- 
mation Series contains more than 180 
pages of practical information and 
tested software. 

' PRICES IN EFFECT 

THRU 

December 31, 1982 

Prices, Specifications, 

and Offerings subject to 



"TRS-80™ DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 
TRS-80™DISK S19.9 5 

"OTHER MYSTERIES" 
VOLUME II 

by James Farvour 

MICROSOFT™ BASIC DECODED $26.9 5 

"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

THE CUSTOM TRS-80™ S28.95 

"OTHER MYSTERIES" 
VOLUME IV 

BASIC FASTER 
AND BETTER 

BASIC FASTER & BETTER $26.95 

BFBLIB subroutines diskette $19.95 

BFBDEM demonstration diskette $19.95 
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REMARKS 



ly is an important first step. They 
should have done this two years ago. 

Another cherished policy of the 
Shack that needs to be re-examined, as I 
mentioned a few months ago, is the one 
about their stores carrying only the fast- 
est selling products. In the case for soft- 
ware, this may be a self-defeating 
policy. 

In the consumer-products market, 
perception of the product is paramount . 
The computer that is backed up by a 
display of a barrage of software is going 
to be more impressive than the one with 
a dozen or two programs. Sure, over 90 
percent of book sales are made by a 
couple of dozen titles, but you never see 
a serious book store that does not have 
thousands of books. 

The consumer this Christmas is going 
to have to choose among the Atari-400, 
the TI 99/4A, the Commodore VIC-20, 
the Commodore Max, the Timex-1000, 
and the TRS-80 Color Computer. The 
Shack realizes that they are going to 
have to cut prices from the present $400 
range down to at least $300. This still is 
going to be a difficult sale for them 
against the $189 VIC-20 or the 
Atari-400 at $299 plus $60 in software 
coupons. The TI, with their $100 
rebate, is in the $200 range. 

It's far too late to do anything for this 
Christmas season, but the Shack could 
get started on a plan that would, by 
Christmas 1983, put them into a leader- 
ship position. This would call for some 
serious changes of policy and for a good 
deal of long-range planning. 



If you look through 80 Micro, you 
see how much can be developed in the 
way of supporting industry for a 
system. Well, with cooperation (a con- 
cept I don't think is in the Shack dic- 
tionary), this industry would jump at 
the chance to support the CoCo. What 
would be the impact on consumer sales 
if the Shack had a home-computer sys- 
tem with a massive amount of software 
supporting it? What would be the result 
if it was also supported by the enormous 
accessory and peripherals industry that 
has sprung up around the TRS-80 
system? 

You can bet that Atari, TI, and Com- 
modore would be scurrying fast to try to 
keep up. The Shack would have the 
edge in this case because a whole in- 
dustry has already sprung up to support 
the TRS-80 by virtue of 80 Micro, while 
there is relatively little support for the 
other home computer systems, since no 
media such as this magazine exist to 
bring on growth. The Shack would be 
starting with a good lead in this case. 

The next step, if I were working on 
the project, would be to separate the toy 
department of the Radio Shack stores 
from the home computer department. I 
would set up a separate home computer 
boutique in every Tandy-owned store 
where I would feature the CoCo, its ac- 
cessories and software, plus the Model 
III and pocket computers. I would 
relegate the Model II to the Tandy 
Computer Centers. Go with strength. 

It is at least worth a try in a few stores 
to see what impact this sort of 



marketing might have. The Shack still 
has a long way to go to convince the 
middle-income (-class) customers that 
Radio Shack stores are not primarily 
dealers in schlock for the unwary lower- 
income people. By separating the home 
computers from their flashlights, inef- 
fectual radar detectors, lo-fi audio 
systems, and so on, it might be possible 
to build some middle-income consumer 
confidence in the computer products. 

I think it would work. 

Once they've worked out a successful 
home-computer boutique formula for 
their own stores, they can start putting 
these into independent Radio Shack 
stores, thus adding another 2,000 or so 
outlets for the product. 

That still isn't going to match the 
marketing might of Atari and the 
others, but with a successful home- 
computer boutique formula, they 
would be ready to set these up in any 
discount store or department store in- 
terested in a profit center. They would 
have the whole miniature store instead 
of some shelves of products, as a unit 
ready to franchise. 

The computer and its associated pro- 
ducts would all be packaged to simplify 
selling by untrained sales personnel. 
You want a music keyboard? Here it is. 
You want the unit to talk? No problem, 
here's the box for that. You want it to 
access data over the telephone? Here's a 
box with a modem. You want it to plot 
in four colors? Here's your plotter. You 
want it to help with surveying? Here's a 
software package for that. You want to 



PRICE BREAKTHROUGH 

100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY - FULL WARRANTY 



MODIII48K 
2 Drives RS232 

s 1795 





MOD II 64K 
1 Drive 



$2499 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

(817) 825-4027 

NOCONA ELECTRONICS • P.O.Box 593 • Nocona, TX 76255 



^232 
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A Few Words About 

The NEW A IDS- 1 

by SofTrends, Inc. 

1. TRUSTWORTHY. A bad diskette or an undependable machine can ruin your 
whole day. The NEW AIDS-MI checks itself. If something's wrong, it tells you, in- 
stead of turning on you like a mad dog. 

2. GENEROUS. The NEW AIDS-HI doesn't use BASIC. But it does use the 
memory BASIC uses. And to make the most out of that extra memory, it selec- 
tively compresses bytes into tiny bits. It all adds up to more usable data records. 
Up to 3 times as many.' 

3. THOUGHTFUL. The NEW AIDS-HI never treats you harshly. If one keystroke 
will do, it won't ask for two. The NEW AIDS-HI remembers things like report for- 
mats, search strategies and file names. So you don't have to. It even reminds you, 
gently, to save your important data. 

4. INTELLIGENT. The NEW AIDS-HI is smart. It doesn't waste your time with 
questions about record sizes, field counts and other technical mumble-jumble. A 
new system can be created, or an old one modified, in a couple of minutes. Even 
if your name isn't Albert Einstein. 

5. KIND. The NEW AIDS-III is always ready to help. It says so, on every screen 
display. HINTS™ (Help INdexed To Screen) tells you on which page in the NEW 
AIDS-III manual to look for more information. The manual is easy to understand 
and easy on the eyes. 

6. QUIET. If you hit the wrong key, you won't hear any annoying buzzes, clicks 
or chirps. Instead, FLAWS™ (FLash-Annunciated Warning System) will create a 
striking visual effect. But only for an instant. And without affecting any of the 
text on the screen. Guaranteed to catch the eye of the fastest touch-typist. 

7. ALERT. |f the NEW AIDS-III is left alone, it lets you know it missed you. It wor- 
ries about your important data. After several minutes of no activity, the NEW 
AIDS-III creates a striking visual display to get your attention. Touch any key to 
let it know you're still there, and it stops. For a little while, anyway. 

8. LEAN. There's no fat in the NEW AIDS-III. That's because it uses SofTrends' 
proprietary PMX™ system architecture. Small, lightening-fast, reliable. Lean? 
Yes. Mean? Definitely not. 

9. FAST. Searches and sorts hundreds of records in seconds. Screens are 
displayed in the blink of an eye. Disk access rates approach one-thousand char- 
acters per second. No waiting for "garbage collection". The NEW AIDS-III lives 
fast. Up to 10 times as fast.* 

10. REASONABLE. At only $79.95, the NEW AIDS-III is very reasonable. Down 
right inexpensive, if you value your time. Join the thousands of AIDS owners 
around the world. Order yours today and put the NEW AIDS-III data management 
system to work for you. 

* As compared to MTC AIDS-III, Version 1.0 

Specify Model I or Model III $79.95 

*» CALL REGARDING UPGRADE POLICY «» 

CALCS-IV (ADVANCED CALCULATION SUBSYSTEM) has the 
following features: 

• All the capabilities of CALCS-III. 
» SAVE REPORT FORMATS on disk for EDITING, as required. 

• More than TWICE the COMPUTATIONAL POWER of CALCS-III. 

• Non-interpretive report execution for FASTER EXECUTION. 

• Reports can be run by a NOVICE. 
ONLY $20 when purchased with AIDS-lll/Version 2.0! 

Specify Model I or Model III $39.95 



NEW AIDS SUBSYSTEMS 

by. SofTrends, Inc. 

VISAPLEX™ 

Interfaces AIDS-III and VisiCalc'. Use AIDS-III 
for data entry, sorting and selection Then load 
the data into VisiCalc-'. perform computa- 
tions, summations, etc Like what you see? 
Change the data back into AIDS-III format for 
future processing. Remarkably easy to use. 
Comprehensive documentation complete with 
examples. 

Specify Model I or Model III $39.95 



ADEPT 



TM 



This module is ideal for entering large batches 
of data into AIDS-III. Features include pre- 
defined field values, definition and expansion 
of abbreviations, transposition of entries. 
range checking, entry of data from previous 
record, expanded validation and more! Type as 
fast as you can ... no problem! Use with 
VISAPLEX'"(above) to provide a comprehen- 
sive data entry facility for VisiCalc". Complete 
documentation with examples. 
Specify Model I or Model III $29.95 



If you own Apparat's 

NEWDOS/80-Version 2.0 

you need 

BREVI-T™ 

by SofTrends, Inc. 

If you have trouble remembering command for- 
mats, want to simplify use of DOS. do a lot of 
program development or just want to be more 
effective with your TRS-80'". then BREVI-T is 
for you Abbreviations can be defined for both 
DOS and BASIC. These are automatically ex 
panded as part of the command line pro- 
cessor. Optionally, parameters may be defined 
as part of an abbreviation. For example. "F 1" 
might be used to FORMAT drive 1 Change the 
1 to a 2 and FORMAT drive 2. It's that simple 
Complete with easy-to-follow instructions, ex 
amples and a sample abbreviation file. 
Specify Model I or Model III $19-95 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup for your MODEL I 
MODEL III THE FLOPPY DOCTOR Version 
completely checks every sector of single o 
double density 35 . 40-. 77-. or 80-track disk 
drives Tests motor speed, head positioning 
controller functions, status bits and provides 
complete error logging THE MEMORY 
DIAGNOSTIC checks for proper write/read 
refresh, executabihty and exclusivity of all ad 
dress locations. Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS $24.95 
For MODEL III $29.95 
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do boat navigation? No problem. All of 
the accessories and software would be 
integrated and packaged. 

But what about training salesmen? 
That's one of the weakest aspects of the 
Shack stores right now. In fact, I sus- 
pect that this problem alone has kept 
most of the independent Shack stores 
from really participating in the bonanza 
so far. You didn't think I was going to 
ignore such a key problem, did you? 
The answer is simple, once you think of it. 

Video disks. Yep! With disk players 
dropping in price, I would run, not 
walk, to my nearest video production 
organization and put together powerful 
video programs that show what the Co- 
Co, Model III, and pocket computers 
can do. They would be indexed to show 
off all the accessories and software, and 
show the use of the systems for playing 
games, for business applications, 
education, scientific, control, and so 
on. With the video disk and a control 
CoCo in the salesroom, the customer 
would be able to delve into the possibili- 
ties of the systems with no trained sales 
help needed. 

In this way the best demonstrator of 
the Shack system in the world could do 
the selling to every prospect. Further, 
the buying process in itself would be 
fun. Further, there would be no end to 
the sales to every customer. He might 
buy the basic computer and a couple of 
programs the first time around, but 
he'd be back regularly to check out 
more and more applications . . . and 
fun. . .for his system. It is fun to buy 
things . . . and fun to use them and show 
them off to friends. Who has ever 
bought a car and not started looking for 
gadgets to buy for it? Who has bought a 
camera and not looked for more lenses, 
special films, and so on? 

If the Shack can show that a 200- 
square-foot home-computer boutique 
can make more profit than other uses of 
that space, you can bet that Sears, 
Lechmere, K-Mart, and other stores 
will be putting 'em in as fast as they can. 
And if they can't make big profits in a 
fast growing field — a go-go field — on 
home computers, then the Shack needs 
better management. 

I'm reminded of the basic problem 
that Heath faced when they brought out 
their computer in 1977. They had about 
50 stores around the country and they 
had decided to make do with this distri- 
bution. I tried hard to convince them 
that in the microcomputer field it was 



marketing and distribution, not the 
magnificence of the computer, that 
would determine the winners and the 
losers. I wanted them to open up their 
sales to computer stores, electronics 
stores, and so on, so they would have a 
better chance at making their system 
available in all of the marketing areas of 
the country. 

The Shack had a considerable advan- 
tage over everyone else in the micro 
business by virtue of their thousands of 
stores. This, plus their advertising bud- 
get, helped them get into first place in 
microcomputer sales . . . shooting them 
ahead of Heath. But today, particularly 
on the low end, the Shack is falling way 
behind in sales outlets and thus in sales. 
There is a good chance that if the Shack 
does not respond fast to this deteri- 
orating situation, they will just 
have to abandon the low end and the 
CoCo. This could play hell with the 
Tandy stock prices . . . and shake up 
management. 

Well, at least the Shack is going 
strong with their main entry, the Model 
III, right? Yeah? If that is so strong, 
why do the 80 Micro reader surveys 
show that 50 percent of the readers are 
thinking of buying something other 
than a TRS-80 for their next computer? 
This indicates some very deep-rooted 
and widespread disenchantment with 
the Shack, something that the Shack 
management seems to be trying its best 
to ignore. 

Indeed, we've seen the Apple come 
along and, with fewer outlets, pass the 
TRS-80 by in sales. And while TRS-80 
owners are generally happy with their 
systems, the Apple owners are almost 
evangelical about theirs. In this I sus- 
pect that the core, if you'll pardon the 
expression, lies in the way the firms sup- 
port their systems. Where Apple has 
been very supportive of the industry 
that has sprung up around their com- 
puter, we find the Shack seeming to be- 
grudge any sale not made by them and 
them alone. 

When the Shack puts on a computer 
show, there are no supporting hardware 
firms invited ... no software firms ex- 
hibiting. . .no magazines and books. 
When Apple organizes an Applefest, 
supporting firms are not only in- 
vited to display, they are encouraged in 
many ways. 

There are many good books on the 
TRS-80 that are not permitted in the 
Shack stores. There are thousands of 



good software programs ... a wealth of 
support hardware items. In each case, 
the Shack seems to be doing its best to 
keep news of these products from its 
customers, apparently wanting to do 
everything it can to be sure to get every 
nickel spent for anything related to the 
TRS-80 for themselves. 

No matter the intent of management, 
this is the view of many users (and 
Radio Shack managers), so if there is a 
misinterpretation of intent, there is a se- 
rious lack of communication. Indeed, 
many TRS-80 owners have a sour view 
of Radio Shack, seeing the firm as the 
epitome of the big company that is con- 
temptuous of its customers and the gen- 
eral public. It is difficult to interpret 
many of their actions in any other way. 

Whether Apple pulls further ahead 
and IBM passes the Shack by depends 
on decisions made in the Tandy Towers 
this year. It is already late in the game, 
but not too late. The Shack could pull it 
together and get powered up to regain a 
strong market share of the home-com- 
puter market by the end of 1983. They 
could stop the attrition of their sales in 
the small business computer market. 
But these things are going to take some 
soul-searching, perhaps painful, deci- 
sions. They are going to call for some 
major changes of approach and the 
breaking of hardened Shack policies. 

With such a high percentage of the 
Tandy sales being involved with the 
TRS-80, and with many of the other 
products being so weak in sales, there is 
a serious question about the survival of 
Tandy should the TRS-80 sales start to 
weaken. 

In early 1977 Mits was thoroughly in 
command of the microcomputer indus- 
try. They were as far or further ahead of 
the rest of the industry as Radio Shack 
was in 1980. Then, but two years later, 
Mits had been swallowed up by Pertec 
and virtually disappeared from the 
scene. Pertec could easily have re- 
mained the top firm in the industry if 
management had not made one disas- 
trous decision after another. 

Next, it was Imsai that was on top of 
the heap. . .then Processor Tech. Each 
pulled some market miscalculations and 
major blunders that sank them. The big 
question, then, is whether the Shack can 
cure its problems and get back to its 
number one position again, or whether 
it is going to continue to lose sales and 
market share on all fronts, a process 
that can only lead to disaster. ■ 
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Have a merry computer and a happy software. 



PRINTERS 

COMREX CR I PARA E 839 00 

COMREX CR 1 SERIAL 859 00 

C ITOH F 10 «0 CPS PARALLEL 1390 00 

C-IT0H f 10 40 CPS SERIAL 1390 00 

C ITOH 85'0 PROWRiTER PARALLEl 480 00 

C-iTOH 8510 PROWRITER SERIAL 590 00 

EPSON MX 80 III W/GRAFTRAX ♦ SCALL 

EPSON MX 80 II. F'T W/GRAF1RAX + JCALL 

EPSON MX 100 III W/GRAFTRAX + $CALL 

IDS PRISM 80 W/C0L0R 1599 00 

NEC 8023A 485 00 

NEC SPINWRITER 3530 P R0 1995 00 

NEC SPINWRITER 7710 S R0 2595 00 

NEC SP'NWRITER 7730 P R0 2595 00 



VERBATIM 

MD 525-01 '0 16 26 50 

DISKETTES STORAGE 

- ASTIC LIBRARY CASE 2 50 

8 PLASTIC LIBRARY CASE 3 50 

PLASTIC STORAGE BINDER W/ INSERTS 9 95 
PROTECTOR 5V. 21 95 

PROTECTOR 8 24 95 

TRS-80 HARDWARE 

PERCOM DATA SEPARATOR 27 00 

PERCOM DOUBLER u W DOS 3 4 159 00 



SPECIAL NO. 3 

NEWDOS'80 2 BOX 01 
P,.AS'IC LIBRARY CASE 



VERBATIM DISKS 
149 00 



MODEL III DISK DRIVE KITS 



CONlROLLiR KIT 'NCLUDES ALL BOARDS ASSEMBLE C 
MOUNTING BRACKETS SWITCHING POWER SUPPLY 
HANDLES 4 DRIVES 360 00 



STEC I'. tRNAL CONTROLLER 
.N INSTRUCTIONS 



KIT fl CONTROLLER K'T AND 2 TM100 3 
SINGLED-SIDED 80 TRACK DRIVES 875 00 
KIT §7 LONTROLLER Kl! AND ? 'M100 4 
DOUBLE SIDED 80 TRACK DRIVES '060 00 



KIT #3 CONTROLLER KIT AND 2 TM100 1 
SiNGl EH SIDED 40 TRACK DRiVES 720 00 
KIT M CONTROLLER KIT AND 2 TM100 2 
DOUBLE SIDED 40 TRACK DRIVES 850 00 



OKlDATA MlCROLINE 80 
OKIDATA MlCROLINE 82A 
OKlDATA MlCROLINE 83A 
OKIDATA MlCROLINE 84 
OKlGRAPH 82 
OKiGRAPfc 83 



389 00 
460 00 
700 00 
170 00 
49 95 
49 95 



EPSON ACCESSORIES 

MICROBUFFERt MBS8K 159 00 

MICROBUFFERJ MBP-16K 159 00 

MICROBUFFER IN-LINE 32K 299 00 

MICROBUFFER IN-LINE 64K 349 00 

GRAFTRAX PLUS 60 00 

MX 80 RIBBONS 8 95 

MX-80 PRINTHEAD 40 00 

MX 100 RIBBONS 24 00 

MX-100 PRINTHEAD 49 00 

EPSON SERVICE MANUAL ?0 00 

16KRAMSPECIAL13.95 

Set ol 8 NEC 4116 200ns Guaranleed one year 

MODEL I, III 
SOFTWARE 

PftOSOFT NEWSCRIPT .'LABELS MOD I III 119 00 
OMNITERM SMART TERMINAL MOD I hi 89 95 

MAXI-MANAGER MOD I III 89 95 

DOS PLUS 3 4 MOD I III 89 00 

LDOS 5 1 MOD I III 119 00 
MICROSOFT EDITOR ASSEMBLER 

* MOD l (DISK) 44 95 

MICROSOFT FORTRAN MOD i 80 00 

DISKETTES 

ALPHA DISKS 21 95 

Single sided certified Double Densilv 40 Tracks. 
twtn Hub Ring Box 0' '0 Guaranteed one yea' 



TANDON 80 TRK DISK ORIVE «/ P S 345 00 

TANOON 40 TRK DISK DRIVE WPS 289 00 

LNVV OOUBLER W/ DOSPlUS 3 3 138 00 

LNW DOUBLER 5/8 W/ DOSPlUS 3 4 171 00 

ISOLATORS 

iSO-1 3-SOCKET 53 95 

ISO 1 6 SOCKET 53 95 

MODEMS 

NOVATION CAT ACOUSTIC 135 00 

NOVATION CAT DIRECT CONNECT 156 00 

NOVATION AUTO-CAT AUTO ANSWER 219 00 

HAYES SMART MOOEM (300 BAUD) 227 00 

HAYES SMART MODEM (1200 BAUDl 540 00 

LEXICON LEX 11 109 00 

SIGNALMAN MODEM W/ RS-232C 85 00 



SUPPLIES 

AVERY TABULABLES 

1 000 37; > 15/16 
3 000 3V, x 15/16 
5 000 3'/, t IS/16 



FAN FOLD PAPER 

(Price* FOB. S.P.) 

9'/) i 11 1816 WHITE 3 000 Ct 

14 7/8 • 11 18ib WHITE 3.000 CI 



8 49 
14 95 
19 95 



29 00 
39 00 



SPECIALS 

SPECIAL N0.1 

TRS 80 DISK AND OTHER MYSTERIES BOX OF 
VERBATIM DISKS PLASTIC LiBRAHY CASE 

44 SO 



SPECIAL N0.4 

MICROSOFT BASIC COMPILER BOX OF VEP 
BATlM DISKS. PLASTIC LIBRARY CASE 

179 00 

SPECIAL N0.5 

MICROSOFT BASIC DECODED AND OTHER 
MYSTERIES. BOX OF VERBATIM DISKS. PLASTIC 
LIBRARY CASE 49 95 

DOUBLE DENSITY SPECIAL 

PERCOM DOUBLER II NEWOOS/80. BOX Of VER- 
BATIM DISKS, PLASTIC LIBRARY CASE 

279 00 

COMMUNICATION SPECIAL 
MOD I & II 

NOVATION MODEM OMNITERM TERMINAL 

SOFTWARE 

ACOUSTIC SPECIAL (CAT) 219 00 

DIRECT CONNECT SPECIAL |D CAT) 239 00 

SERIAL CABLE 25 00 

DISK LIBRARY SPECIAL 

RACET DISKCAT CATALOG'NG PROGRAM. FLIP 
SORT (M DISK CAPAClTYi. 50 STICK ON DiSK 
LABELS 59 95 

BOOKS 

THE CUSTOM TRS 80 24 95 

MICROSOFT BASIC FASTER & BETTER 24 95 
CUSTOM i/O MACHINE LANGUAGE 24 95 



TRS-80 GAMES 

A i games are d.sh versions Casselle versions 
may not be available 

TEMPLE OF APSHAI 31 35 

HELLFIRE WARRIOR 31 35 

STAR WARRIOR 31 35 

RESCUE AT RiGEL 23 36 

CRUSH. CRUMBLE AND CHOMP 23 36 

INVADERS FROM SPACE 17 95 

PINBALL 1/95 

MISSILE ATTACK IB 95 



STAR FIGHTER ?4 95 
2 CHESS ill 

ADVENTURE NO I ? & 3 34 95 

ADVENTURE NO 4 5 4 6 34 95 

ADVENTURE NO 7 8 4 9 34 95 

DUEL N OROiDS 17 95 
STARFLEET ORION 
INVASION ORION 
OLYMPIC DECATHLON 

MONTY plays MONOPOLY 3' 95 

SARGON ll 31 95 

BLACKJACK MASTfR ?7 95 

ROBOT ATTACK 17 95 

GALAXY INVASION 17 9S 

SUPER NOVA 1? 95 
TUESDAY MORNING QUARTERBACK 26 95 

LUNER LANDER IB 95 

THE MEAN CHECKER MACHINE 21 95 

SPACE ROCKS 18 95 

PIGSKIN 17 95 

20SSE0 IN SPACE 18 95 

ARCADE 80 21 95 

COMBAT 18 95 

SPACE INTRUDERS 17 95 

SILVER FLASH 1/ 95 

MORTON S FORK 26 95 
PROJECT OMEGA 

SCARFMAN 17 95 

Call our Modem line for 
weekly specials. 




To order or for information call 

(213)706-0333 

Modem order line: (213)883-8976 

We gjarantee everything we sen tor 30 days - no returns ate' 30 days Defective sottwa'e 
will be replaced 'ree out all other software returns are subject to 15% restocking fee and 
must oe accompanied Oy RMA slip No returns on game software jniess detective 
We accept VISA and MasterCard on all orders. COD orders, up to $300 
Shipping cha'ges $3 for all prepaid orders, actual shipping charges tor nor- prepaids J3 
for COD orders under 25tbs ($6 for over) plus a $4 surcharge, add 15% tor 'oreigr FPO 
and APO o-ders Calif add 6% sales tax. L A County add 6'/*% 
Prices quoted are 'or stock on hand and are subject to change without notice 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 

• 473 
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SCARFMAN ARMORED PATROL REARGUARD STRIKE FORCE 



This incredibly popular game craze 
now runs on your TRS-80' It's eat or 
De eaten. You run Scrartman around 
the maze, gobbling up everything in 
your path Try to eat it all before nasty 
monsters devour you Excellent high 
speed machine language action game 
from tne Cornsoft Group With sound 
Price A 




A realistic tank battle simulation 
Your view is a 3-D perspective ot an 
alien landscape Maneuver your T-36 
tank to locate and destroy enemy 
tanks and robots that lay hidden, 
ready to assault you. Clever graphics 
create the illusion of movement and 
dimension. From Adventure Inter- 
national With sound Price B 

BOUNCEOIDS | 

Huge boulders careen off the walls. I 
You're m the middle, in danger o f l 
being flattened. Keep your wits abojtl 
you as you blast these "bounceoios I 
trom the screen. Large ones break intol 
many small ones Clear a screen, ancl 
enter a fast-paced challenge stagel 
with a chance for big bonus points I 
From the Cornsoft Group Price A 

CATERPILLAR 

An arcade favorite 1 Stop these multi-l 
sectioned crawlers before they creep! 
down through the mushrooms Zapl 
one and it splits into two smaller bugs I 
each with its own sense of direction | 
There are moths and tumble bugs too 
It all adds up to lots of fun for kids and| 
adults alike. From Soft Sector Market- 
ing With sound Price code: A 

DEFENSE COMMAND 

The invaders are back' Alone, youl 
defend the all important nuclear fuel I 
canisters from the repeated attacks ofl 
thieving aliens, repeatedly An alien I 
passes your guard, snatches al 
canister and flys straight off. Quick.' I 
You have one last chance to blast hml 
from the sky 1 With sound and voice I 
Price. A ' 

CRAZY PAINTER 

You have to paint the floor white. We 
give you the paint and brush Sounds 
easy' Hah 1 You'll be confounded by 
stray dogs, snakes, sloshing buckets 
of turpentine even a ravenous "paint 
eater." A crazy, imaginative new 
game with ten selectable levels of skill 
for new or seasoned game players. 
Lot's of laughs. Price: A 

SUPER NOVA 

Asteroids float ominously around the 
screen. You must destroy the 
asteroids before they destroy you 1 (Big 
asteroids break into little ones). Your 
ship will respond to thrust, rotate 
hyperspace and fire. Watch out for 
that saucer with the laser' As 
reviewed in May 1981 Byte Magazine 
Price: A 



Deadly waves of enemy Cyborg craft 
attack your fleet from the rear. You are 
the Mothership's sole defender. You 
have unlimited firepower but the 
Cyborgs are swift nimble attackers. 
Your abilities are tested hard in this 
game or lightening fast action and 
lively sound from Adventure inter- 
rational. Price: B 



As the primary defender of a world of 
cities under deadly alien attack, your 
weaponry is the latest: rapid fire 
missiles, long range radar, and 
incendiary star shells.' Your torce 
field can absorb only a limited number 
of impacts. A complex game ot 
st r ategy skill and reflexes from 
Melbourne House Pf ce * 



"If you purchase Alpha's 
Joystick you get the ex 
quisite pleasure of enjoy- 
ing (action games) to the 
limit of arcade-style 
realism." 

< -80 Microcomputing 
80 Reviews. Jan 82 



POWER 



THE 

ALPHA 

JOYSTICK 

only $ 39.95 

Q 1982 JtD ALPHA Products 



* Features the famous Ann Joystick 

* Works w.m jii Model i m III systems 

t Compatible «ith any other accessories 
+■ Saves your keyboard irom abuse 
+ Experiment in BASIC UseA = INPiOi 
+ Complete ready to plug in and use 
+ Model I plugs into KB or E I 

♦ Model lit plugs mlo 50 um 1. bus 

Price includes Joystick ♦ Alpha interlace 

♦ Instructions + Oemo Program listing 
Please specify Model I or ill. 

14 DAY MONEY BACK GUARANTEE 



ftO * 
ft ft 



METEOR MISSION II 

As you look down on your view, 
astronauts cry out for rescue You 
must maneuver through the asteroids 
and meteors. (Can you get back to the 
space station?) Fire lasers to destroy 
the asteroids, but watch out, there 
could be an alien Flagship lurking 
Includes sound effects! Price A 




OUTHOUSE 

You are tne Tiignty protector of Mis 
smal (but important) wooden 
structure For reasons unknown a 
bizarre gang ot miscreants wist-, to 

vandciiize 'Oot and otneiwise destroy 
tne ill e halt moon house " You 
patioi craft has lasers and smart 

bombs to deal with this :e"or 
F'om SSM with sounct Price A 



Toll Free Order Line 
800-221-0916 

Orders Only, NY & Info call (212) 296-5976. Hours: 9-5 E.S.T. 



TAPE: For Model I + ///. 16K Level II 
DISK: For Model I + ///, 32K, 1 Disk 
All games are joystick compatable 
or may be played using the arrow 
keys. 



GAME PRICES 

A TAPE: $15.95 • DISK: $19.95 
B TAPE: $19.95 • DISK: $24.95 
C: TAPE. $24.95 • DISK: $24.95 
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PANIK 



Trapped at an enemy building site, 
your fate seems certain Your laser is 
empty and evil Msors are closing in 
You'll have to climb ladders and think 
one step ahead of the various 
monsters. A challenging game for 
agile minds From Fantastic Software 
with voice (Disk has larger vocabulary). 
Price: B 



SEA DRAGON 

Your submarine, the USS Sea 
Dragon, penetrates a mined enemy 
channel Armed with missiles and 
torpedos. you engage the enemy while 
navigating unknown waters Succeed 
or come to a salty end in this game 29 
screens ol horizontally scrolling sea- 
scrape and sound from Adventure 
international. Price. B 



As you can see, ail the best games from the top 
producers are joystick compatible. These 
games are fun without the joystick but we hope 
that you are one of the many thousands who 
enjoy the advantage of real joystick action. 

Now you can deduct up to 20% on the price of 
games: buy any 2 games deduct 10%, buy any 3 
games deduct 15%. buy any 4 games deduct 
20% from game prices. 

TOP TEN « 

1. SCAR FM AN Ail time favorite 

2. ARMORED PATROL Super 3D graphics 

3. PENETRATOR Rave reviews 

4. STELLAR ESCORT Fast and Challenging 

5. CRAZY PAINTER Unique game concept 

6. PANIK Remarkable Voices 

7. DEFENSE COMMAND rough struggle 

8. CATERPILLAR Good rendition 

9. ROBOT ATTACK With voice 

10. SEA DRAGON Amazing Seascape' 
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GALAXY INVASION LASER DEFENSE 




The sound of the klaxon is calling you' 
Invaders have been spotted warping 
toward Earth You shift right and left 
as you fire your lasers. A few break 
formation and fly straight at you' You 
place your finger on the fire button 
knowing that this shot must connect! 
With sound effects' Price. A 



In this game of ICBM's, high-energy 
lasers and particle beams, you control 
the US strategic defense satellite 
system From your viewpoint high 
above the globe, you intercept Soviet 
nuclear missiles in flight and attempt 
to destroy their scattered missile 
silos With sound from MED Systems 
Price; B 



10, 15, 20% 



STELLAR ESCORT 



The latest super action game from Big 
Five. As the Federation's top space 
fighter you've been chosen to escort 
what is possibly the most important 
shipment in Federation history The 
enemy will send many squadrons of 
their best fighters to intercept With 
scjnd Disk version has voices. 
Price A 

ROBOT ATTACK 

Talks without a voice synthesiser, 
through the cassette port With just a 
hand laser in . a remote space station, 
yoj encounter armed robots Some 
Tjrch towards you. more wait around 
corners Careful, the walls are 
electrified. Zap as many robots as you 
dare before escaping to a new section. 
More robots await you Price: A 

LUNAR LANDER 

As a vast panoramic moonscape 
scrolls by, select one of many landing 
sights The more perilous the spot, the 
more points scored -- if you land 
safely You control LEM mam engines 
and side thrusters One of the best 
uses of TRS-80 graphics we have ever 
seen From Adventure International 
F With sound Price. A 



CHICKEN 

Will the chicken cross the road 7 
That's up to you. Can you guide these 
helpless little chicks across the 
perilous 10 lane super highway to 
safety 7 Or will you bumble, littering 
the blacktop with a storm of chicken 
feathers 7 A humourous yet chal- 
lenging game of nerves from SSM with 
sound Price A 




PENETRATOR 

Soar swiftly over jagged landscape, 
swooping high and low to avoid 
obstacles and enemy missiles attacks 
With miles of wild terrain and tunnels 
to penetrate, you're well armed with 
bombs and multiple forward missile 
capability From Melbourne House. 
Features sound, trainer mode and 
customizing program. Price C 




ALPHA L^LT(QJ(CL 

79-04 Jamaica Ave., Woodhaven, NY 11421 



ADD $2 00 PER ORDER FOR SHIPPING AND HANDLING. 

WE ACCEPT VISA. MASTERCARD CHECKS. M O 

COD ADD S3 00 EXTRA 

NY RESIDENTS ADD SALES TAX. 

OVERSEAS. FPO. APO ADD 10% 

DEALER DISCOUNTS AVAILABLE ^ ]7 
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PROOF NOTES 

The editors look at the issues 



1982 hasn't even run its course, and 
we're already well into production 
for the first half of 1983. So far, it looks 
like we're going to have another inter- 
esting year. 

January will feature one of the most 
exciting programs we've ever run — 
Bruce Tonkin's The Creator. This pro- 
gram generator originally sold for $295, 
but mayhem and misfortune led Tonkin 
to decide to virtually give his brain child 
away. This could very well be the best 
software bargain you'll ever get, com- 
mercial or otherwise. 

February's highlight will be the re- 
sults of our Young Programmer's Con- 
test. We're getting buried under entries, 
and we'll be publishing the best ones. 
We've been agog at what kids are doing 
with computers, and are looking for- 
ward to displaying the fruits of their la- 
bors. February will also concentrate on 
home education. We've lined up a Color 
Computer College Bowl, a preschool 
math program, a spelling challenger, 
and a states-and-capitols drill. 

March is our hardware construction 
issue. We've had lots of requests for 
some meaty hardware projects, so we 
went out and found some gems. For 
starters, we've got a $5 CP/M kit for 
the Models I and III. We'll also show 
you how to build a credit-card reader 
that will act as a security lock for your 
micro. We're also working on a primer 
that will tell you how to build hardware 
projects even if you don't know which 
end of a soldering iron to hold. 

April will focus on micros in sports, 
and will also feature articles on com- 
puter languages other than Basic. May's 
cover topic will be graphics — simple 
techniques for fancy graphics, and in- 
corporating graphics into applications 
programs. June will provide programs 
and articles aimed at the professional. 
July's theme will be the Color Comput- 
er, and August will, of course, be our 
annual games issue. 

Also, you Model II owners will be 
happy to know that we're working on a 
scheme to convert some of our Model 
I/III programs to your machine. And, 
of course, we'll continue our increased 



Ready to go 

for another 

big year 



coverage of the Color Computer. 

We've got several new series and col- 
umns on tap. One will be an on-going 
tutorial on cryptography, while another 
will discuss integrating machine- 
language routines into your Basic pro- 
grams. In addition, many of our regular 
columns will be back for another year, 
including J. M. Keynes' "MONEY 
DOS," Richard Ramella's "Fun 
House," Philip Mills' "Medical Opin- 
ion," and Dennis Kitsz's "80 Appli- 
cations." 

The magazine isn't all we're working 
on, either. We're putting together a new 
series of low-budget handbooks on a 
variety of themes. The first will be an 
anthology of Scripsit mods. Other sub- 
jects include home management, 
astronomy, and education. We haven't 
set a publication date yet, but look for 
these handbooks soon. 

All in all, we think it's going to be an 
exciting year. Stick around and join 
the fun. 



***** 



You might have noticed some recent 
format changes in the magazine. We're 
going to an English Times typeface, 
which we think is more attractive and 
easier to read than Helios. For a while, 
though, you're going to see the two 
typefaces mixed, as we use up articles 
that were finished before the change. 
Bear with us if we look a bit motley. ■ 

—E.M. 
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NOW MODEL I AMD MODEL III ! 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95. 



ir.Q?' 



2 Printers' 



PRINTSWITCH 

Have 2 printers on line at all limes ana select printer 1 or 
2 ov means ot a conveniently located switch End the problem 
ol constantly plugging anfl unplugging printer cables PRINT 
SWITCH is a compact module mat plugs onto the pareHel printer 
port ol your TRS 80 and provides an edge connector lor each 
ot your two printers it works with any two types ot printers 
dot matrix, daisy wheel, plotters. TRS 80 converted seiectrics 
etc Assembled, tested, ready to use with connector and m 
structions For Model I win (please specityl ONLY $59 00 



O ^ 40^8- {p CABLES 
©0 34^-0 ra ra R3 

OS 34AV2H C> 

© tlD 3 4 PH. 4 ft (~£> 



©0 



40 P»\ 2 or 4 ft 
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SUPERIOR OUALITY REPLACEMENT 8. EXTENSION CABLES 

Highest quality cable aid high torce gold plated contacts 
ensure the utmost lit connection reliability 

O KEYBOARD T EXPANSION INTERFACE $21 

• DISK DRIVE CABLE FOR 1 OR ? DRIVES $32 

• DISK DRIVE CABLE FOR 3 OR 4 DRIVES $45 
O DISK DRIVE CABLE EXTENDER $22 

• PRINTER CABLE EXTENDER $24 

• 40 PIN BUS EXTENDER -2 tt $22 4 It $24 
Custom cable configurations are also available Call us 







X3 X2 



YOU ASKED FOR IT EXPANDABUS X1.X2 X3AN0X4 
CONNECT ALL "OUR 1RS-80 DEVICES SiMUlTANEOUSl Y 
on the 40 pin TRS 80 bus Any Device thai normally plugs 
into the keyboard edge connector «m also plug into the 
EXPANOABUS The X4 is shown with protective 
covers imcludedl The TRS 80 keyboard contains tne ous 
drivers (74LS367I tor uo to ?0 devices, more than you will 
everneea Using tne E'l n plugs either between KB and E/i 
or in tne Screen Printer port Professional quality goia 
plated contacts Computer grade 40 conductor nbbon cable 
X? $29 X3 $44 X4 $J9 X5 V* 

Custom contiqurations art also available ;ail us 




ANALOG 80 A WORLD Of NEW APPLICATIONS POSSIBLE 

- MULTIMETERS PLUGGED INTO YOUR TRS 80"' 
Measure temperature VoKaW 

Very easy to use lor e«ampk? let s -eaa mp u t cnannei »4 '0 
OUT 4 Si - .»_.•■•.-■■■. 

Pun Ma result m yatiacH* a vmi.,' 
Specifications input range 5V to MOV Eacn channel 
::ar be set to a Oitterent scale 

Resolution 20mVlon5V rangel Accuracy 8 Ms I b\) Port 
Aaaress |umpe- selectable Plugs mto keyboard bus or E'i 
i screen printer port l Assembled and tested 90 Oay war'anty 
"piete with power supply connector manual $139 



TIME0ATE80 REAL TIME CLOCK/CALENDAR MOOULE 

rears on 2 replaceable 
i Gives Mi 
' .EC .inn AU'PM ITELUGEW 

II rboard o< side v 

■ 

■ . '-n.no to any DOS 

lincrudmrj nEWOOSi 

Model i Fully assembled ana 
ete wilt instruction! i 
$95 00 Y QDtiu- ' ' ■■ 



f 



SPECIAL THIS MONTH!, 



relays undel 

your 
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DISK ORIVE EXTENDER CABLE, FREE YOUR MINI DRIVES 

End the oaisy-chain mess once and tor an Fits ai> mini 
drives Percom Aerocomp Shugart Micropolis. MTI. Vista 
Pertec Siemens BASF East lo install iust remove the drive 
cover plug In the EXTENDER CABLE and replace the cover 

Now you can change ana move your Drives without dts 
assembly Keep the cover on ana the dust out High reliability 
gWd plated contacts computer grade 34 conductw cable 
Tested and guaranteed 

Get one tor each drive ONL Y $8 95 




INTERFACER-80 me most powe''. ' 
• 8 influst'ia grade 'eiays single poie oouble wow isolated 

contact- 

accessible id drive enlernal soikI state relays 
•8 convergent LL. 

Simple OU' commanas i in basic i control ' 
■ 8 optically isolated inputs to' tt , Nertaang to 

switches photoo mws etc 

ol the 8 inputs 

Selectable port aod'ess Clean compact enclosed design 

Assembled, tested 90 oays warranty Price incudes power 

supply cable connector superb user s manual $159 



GREEN SCREEN 

WARNING 

IBM ana all the biggies die using green sceei "lonnors 

its advantages are now widely advertised We teei lhai eve'y 

'RS-80 user should e"|oy the benelils it provides But 

WARNING U Green Screens a'e not created equal Here is 

what we tounc 

•Several are |usl a tiai piece ot standard coiwefl Luc iti 'he 

green tint was not made tor this purpose and is tudged by 

many to be too Dark increasing the brightness control will 

■esuli m a lu/;y display 

•Some are simply a piece ot thin plastic turn taped onto a 

ca-aboa-a trame The color is satistaclwy Out the woDDiy tiim 

gives it a poor appearance 

•One optical hiter is m lact plain acrylic 

•False claim A lew pretend to reduce glare in 'act the" 

tlat and shiny surtaces (both turn and tucite type' ADD their 

own reflections lo the screen 

•A te* ijjghs One ac claims to -educe screen contrast 

Sorry gentleman but Us iust the opposite One ot tne Green 

Screen s mator benefits is lo increase the contrast between 

the teit and the background 

•Drawbacks Most are using adhesive strips to fasten their 

screen to the monitor This method makes it aw«waro tc 

remove lor necessary periodical cleaning An lei 

are flat Light pens win not worn rehaDiy because o' the rj.g 

gap between the screen and the lube 

Many companies navt been manulacturing video filters tor 

years We are not fhe first (some think they are' but we haw? 

done our homework and we think we manufacture the best 

Green Screen Here is why 

•It his right onto the picture tube like a 5km because it >s the 

only CURVED screen MOLDED exactly to the picture tube 

curvature II is Cut precisely to cover the enposed area ot the 

picture tube The til is such that the static electricity is 

sufficient to keep it in place 1 We also include some invisible 

reusable tape for a more secure laslening 

•The filter material that we use is iust ngnt not too Bark nw 

too light The result is a really eye pleasing display 

We are so sure that you win never take your Green screen oft 

that we otter an unconditional money back guaranty try our 

Green Screen tor 14 days It 'Oi any reason you are not 

delighted with it return it lor a prompt refund 

A last wwd We thin* that companies, like ours, who are 

selling mainly by mail should «iist their street address«have a 

phone number dor questions and oroersMccept CODs not 

every one likes to send checks to a PO bxwMiter the 

convenience ot charging their purchase to maior credit ca'Os 

How come we are the only green screen people doing it 7 

O'der your ALPHA GREEN SCREEN today $12 50 
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ADO S? Ml PER ORDf R fOfl SHIPPING AND HANDLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHFCKS MO 

COD AOOS? 00 EXTRA 

OUANTITT DISCOUNTS AVAILABLE 

N V RESIOENTS ADO SALES TAX 



7904 Jamaca Ave., Woodhaven, N.Y. 11421 S into and order (212) 296-5916 
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Magazine Mystery 

When 80 Micro was advertised, I de- 
cided to become a charter subscriber. 
On November 20, 1979, I sent off my 
check for $36 and eagerly waited for the 
first issue and the book of 80 programs. 
They never came! 

Then, the February 1980 issue 
came. I was elated. Then the March 
issue arrived. I wrote for and received 
the book of 80 programs but still no 
January issue. I wrote to Wayne 
Green and soon the January issue ar- 
rived, but no letter of acknowledge- 
ment. I got my magazine so I didn't 
care: my problem was solved. 

Wait! 

No April issue. I wrote the subscrip- 
tion service. No reply, no magazine. I 
moved to my current address. I sent in a 
change of address. 1 wrote to the sub- 
scription service. No reply, no maga- 
zine. No big deal: I bought the maga- 
zine at the local hobby shop. No June 
issue, so I wrote the subscription service 
again. No reply, no magazine. I re- 
ceived the April issue as a forwarding 
from my prior address by the post of- 
fice. Now I understood — it just took a 
little time to get things unraveled. 

Wait! 

No July issue, so I wrote the subscrip- 
tion service. No reply, no magazine. In 
August, I decided that this 50-mile trip 
to the hobby shop each month was be- 
coming a pain, so I decided to send 
money for a new subscription and mark 
off the other money to experience. Any- 
way, the postage for writing letters was 
soon going to exceed my original sub- 
scription payment. 

I subscribed again on August 4, 1980, 
at a cost of $18. I received the 
September issue in late September, and 
shortly thereafter, I received my Oc- 
tober issue. Two weeks later, I received 
the August issue. Of course, I had 
already purchased a copy from the hob- 
by shop. At last, my problems were 
solved. It was obviously my fault 
because I had moved. 

Wait! 

No November issue. I wrote the sub- 
scription service. No reply, no maga- 
zine. Since I had to go to the hobby 
shop to buy some things, I bought a 
magazine and wrote it off to experi- 
ence. Needless to say, I became ir- 
ritated. 
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No December issue. I find that my 
local Radio Shack dealer is now carry- 
ing 80 Micro so I buy my issue there. 
Now I only have to pay the retail price 
for the magazine and travel three 
miles. I gave my problem some deep 
thought and decided that 1 would just 
continue to purchase from the local 
store and forget subscription service. 
The retail price is high but it is still 
cheaper than the subscription service! 

Alas, my good fortune was limited. 
Due to the small demand for the maga- 
zine as an off-the-shelf item, the store 
was going to discontinue it. It seems 
that other TRS-80 users locally were 
having no problems with the subscrip- 
tion service. 

What do I do now? I can go back to 
driving 50 miles for my magazine or I 
can try the subscription route again. 

1 decided to try a subscription one 
more time. Of course, I'm becoming 
better educated on how to do business 
with mail order outfits, as I had also 
been stung in buying software by mail. 
Do not send money until after you re- 
ceive the product! 

I tore out one of the handy-dandy 
subscription postcards in the last issue 
of my store-bought magazine, filled it 
out, and marked it bill me. 

Success at last! 

I received the November 1981 issue. 
I received the December 1981 issue. 
Then I received another December is- 
sue. Then I got another December is- 
sue. This computer stuff was beginning 
to get to me. 

Not to worry! 

I figured it out! This was the third 
time I had subscribed, so now I was go- 
ing to get three copies each month. 
Wow! I gave away the extra copies and 
relaxed. I should have known better. 

The January 1982 issue came. Then 
the second and third issues came, just 
as I figured. 

Wait! 

I then got copy #4, and then #5. This 
is a madhouse situation! 



I received my bill for the subscrip- 
tion in the mail. I had them now. After 
spending 30 years as a detective in law 
enforcement, I knew I could solve any 
mystery. I would include a letter with 
my check . That way, if they cashed my 
check, I would know that they received 
my letter. 

I'm becoming quite crafty. 

Success! In February, the multiple 
issues stopped. In fact, everything 
stopped. No nothing! I should have 
known! 

Off to the computer store 50 miles 
away to buy the February issue. 

No March issue. Of course, I didn't 
expect one. Off to the computer store 
again. At least, I get my merchandise 
before I pay my money. 

What do I do now? 

Write another letter. Waste of time. 
Obviously, there is no actual person at 
the subscription service address — only 
a computer. That thought begins to 
bother me. Is it possible that there is no 
one at 80 Micro! 

My fellow employees are beginning 
to stare at me and ask about my health. 
They can't understand why I'm taking 
so long to complete my magazine fraud 
case, on which I have been working for 
over a year. I've been known to solve 
megabuck fraud cases in less time. 

Six-figure crimes take only three to 
six months. The old man is slipping, 
probably be going out on disability 
pension soon; mumbles to himself 
about magazines, computers, no hu- 
mans existing in New Hampshire. 

Off to the computer store for the 
April 1982 issue when I learn everyone 
in town already has received theirs. 
Soon I must find a reasonable story to 
tell my wife, as she is also looking at 
me strangely. She cannot understand 
why a grown man would drive to a 
store to buy a magazine when everyone 
knows that you can subscribe by mail. 
I just hope she doesn't find out that the 
store is 50 miles away and that I also 
subscribe to the same magazine. 

Before I've found an appropriate 
story to tell my wife, my April issue ar- 
rives in the mail. My wife asks why I re- 
ceived a copy in the mail when I had al- 
ready bought that month's issue. 

Today, I got the February issue. I 
can't believe this. I must be going in- 
sane. My wife is laughing hysterical- 
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ly. She thinks this is goofier than an 
Abbott and Costello movie. She asks 
a dumb question: Why do you have 
to buy that magazine when you al- 
ready subscribe to five others with no 
trouble? 

I ignore her, because 1 have a so- 
lution. 

I will write a mystery novel. With 
this plot, I will become world-famous. 
I have found the perfect mystery that 
no one can solve. 

With all the money I will earn, I can 
move to Peterborough, NH, and re- 
tire. If 1 look carefully, I can probably 
find an abode on Pine Street, and then 
I can walk down to 80 Micro each 
month and pick up my copy. 

Henry A. Hoover 

P.O. Box 479 

Elk Grove, CA 95624 

Just kidding around, Henry. Heh 
heh. — Eds. 



Model I Interface Worries Over 

I am writing in response to a letter in 
the June/ July issue of 80 Micro entitled 
"Expansion Interface Worries." Tandy 
won't help, but Personal Micro Com- 
puters (475 Ellis St., Mountain View, 
CA 94043) can. The expansion interface 
created for the PMC, called the "Ex- 
pander," can be used with the Model I. 
Tandy's expansion interface costs $497, 
but PMC's is only $415 and the case is 
neater. 



David Heyman 
Conway, PA 



Crusade Commentary 

I would like to respond to Steven 
Gross' letter in 80 Input (September 
1982, p. 26). Had Mr. Gross bought a 
Model I and been misled into buying a 
Line Printer VIII, he would understand 
our frustrations with Radio Shack. The 
LP VIII was designed for use with the 
Color Computer and its use with the 
Model I is severely limited — and it's not 
even "foreign" hardware. 

Martin W. Whitehouse 

339 N. Sellars Mills Road 

Burlington, NC 27215 

Auto- Writer Replaced 

Dan Robinson's broad review of 
word-processing products (September 
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1982) was a valuable and much-needed 
contribution. 

A new enhanced system (Data- 
Writer) has replaced the Auto- Writer 
program reviewed by Mr. Robinson. 
Mr. Robinson mentions Auto-Writer's 
selection, form letter, and report-gen- 
erating capabilities. Now with its own 
data-entry program, text editor, file 
manager, double-precision math pro- 
cedures, two-level sort, mailing-label 
program, and 4500-record capacity, 
Data-Writer has become a stand- 
alone data base manager, though it 
can also read files written with a word 
processor. 

Written for the Models I and III, 
Data-Writer is priced at $125. Further 
information is available from Software 
Options at 800-221-1624. 

J. R. White, President 

Software Options Inc. 

19 Rector St. 

New York, NY 10006 



No Losers 

I disagree with Wayne's statement 
that ". . .about 100 years ago, Europe 
found that America was a great place 
to dump all of its losers ..." ("80 Re- 
marks," September 1982). Not so; 
while many Europeans wished they 
could come to America, only the most 
resourceful and brightest made it. 
Winners, not losers, arrived. 

America's strength today is because 
of the industry of these people. 

Harry J. Cozen 

1285 West wind Circle 

Westlake Village, CA 91361 



Wayne's Wrong 

Wayne Green's "80 Remarks" col- 
umn (80 Micro, September 1982) at- 
tempts to undermine American tech- 
nology and intelligence. The Japanese 
have only one edge over the Ameri- 
cans: money. Labor is cheaper in Ja- 
pan and companies get grants from the 
Japanese government for research. Ja- 
pan doesn't have to support a large 
military, so funds can be diverted to 
business. 

There is no solid proof that the Jap- 
anese have an overall higher intelli- 
gence than Americans. Only one sur- 
vey has been done in that field yet, 
which hardly makes it a fact. The Japa- 



nese who were tested were given Japa- 
nese versions of the American IQ test. 
Because of the language and culture 
difference, the Japanese may have had 
an unfair advantage. 

Wayne also makes the observation 
that the Japanese are encouraged to 
take technical jobs through programs 
in high school while "most of our kids 
are spending their time on drugs, disco, 
and driving." That's a false statement 
(the Japanese people have a drug prob- 
lem, too) — there are still a large num- 
ber of competent and intelligent people 
who attend high school, college, and 
graduate school in this country. 

Wayne also thinks that CP/M is the 
"foot in the door" for the Japanese in- 
dustry. No matter how extensively 
CP/M is used as a system, an industry 
such as computers is marked by rapid 
change. CP/M will never be the final 
operating system, and neither will any- 
thing else. The Japanese were ready to 
enter the microcomputer market with 
or without CP/M by 1980 anyway. 

The success of the Japanese micro- 
computers will have to be seen. While 
they do produce silicon chips success- 
fully, this is no indication of their suc- 
cess with computers. They have little or 
no software support, their user-friend- 
liness is in doubt, and they enter the 
American market at a time when many 
people are saying, "Maybe we should 
buy American." 

If the Japanese have such an edge on 
the Americans, why do they feel it nec- 
essary to steal company secrets from 
American companies? No, Wayne, 
American technology is alive and well. 
America invented transistors; America 
invented integrated circuits, and 
America invented video tubes. The 
Japanese appear very skilled at recon- 
struction, but have not invented many 
new products. 

Wayne, what you wrote about the 
America of the past is utterly wrong. 
Americans are not hard workers any 
more than anyone else. If they are, it is 
not because of the minority Protestant 
work ethic or the "hard working spirit 
of the pioneers." Neither of these are 
significant enough to account for what 
you claim they do. The "losers" that 
came from Europe 100 years ago were 
not losers. They came to this country 
and found jobs, were productive, and 
contributed greatly. (Remember, Ein- 
stein was an immigrant.) 

The bosh about success in America 
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IF YOUR PRINTER 




ON THIS LIST. 
NEWSCRIPT SHOULD BE 
ON YOUR COMPUTER." 



NEWSCRIPT'S exclusive print processor 
gives you total printer control. 

NEWSCRIPT's exclusive print 
processor takes over where formatting 
leaves off with over 200 print processing 
and support features. NEWSCRIPT takes 
you beyond text formatting — beyond 
just printing text on paper. With NEW- 
SCRIPT's Print processor you take full 
advantage of your printer's hardware and 
software features, creating an unsurpas- 
sed printed image. Text editing (the part 
you sec), is only part of the job, printing is 
the other part — the part others will see. 

NEWSCRIPT controls over 80 popular 
printers. 

You don't even have to know how 
your printer works — only what it can do. 
NEWSCRIPT will do the rest with such 
major features as underlining, right jus- 
tified proportional printing, top and 
bottom titles, top. bottom left-right-center 
page numbering, chaining and embedded 
printing of any length file with disk span- 
ning, fully formatted merging of form 
letters with selective editing, boldface, 
sub/super scripts, character substitution 1 
translation, table of contents, indexing, 



hanging indents, paragraph numbering, 
line numbering, double width characters, 
italics, hard and soft hyphens, in-memory 
spooling, and many other features." 



Start getting the printed results 
only NEWSCRIPT can give you for 
$124.95. Requires TRS-80 Model I or III 
with 48K and 1 disk (minimum — 2 rec- 
ommended) 



NEWSCRIPT'S text editor has 
sophistication to match its print 
processing. 



Buffered key entry rates to 450 
characters per second — you never drop 
characters. Windowing to 240 characters, 
block move and copy within and between 
files, definable auto save, "HELP" and 
"WHOOPS" commands, repeat and query 
last command, search and replace within 
column and line limits as well as globally, 
and an automatic interface to the ELEC- 
TRIC WEBSTER spelling checker (sold 
separately). 

NEWSCRIPT'S 277 page manual 
contains an introductory tutorial with ex- 
planations of the beginner's most common 
needs, a "How to Section" to help when 
you're stuck, a fully alphabetized descrip- 
tion of the commands with literally hun- 
dreds of examples, a topical index with 
over 1.300 entries, and a handy quick- 
reference card (naturally!). 
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is available at computer stores, selected B. 
Dalton Book Sellers, and selected inde- 
pendent book dealers. II your dealer is mil 
of stock order direct. Include $3.00 
(domestic), $6.00 (Canada) for shipping 
and handling. Foreign residents add 
$15.00 plus purchase price, in U.S. funds. 

TO ORDER. CALL NOW, TOLL-FREE: 

(800) 824-7888, Operator 422 

Calif: (800) 852-7777. Oper. 422 

Alaska Hawaii: (800) 824-7919 

For technical information call: 

(213) 764-3131. or write us. ^9i 




Dept. C, Box 560, No. Hollywood. CA 91603 



NEWSCRIPT companion programs (sold separately): MAILING LABELS S29.95. DAISY WHEEL PROPORTIONAL $49.95 
(not required for Daisy Wheel II). PENCIL & SCRIPSIT FILE CONVERSION $24.95, ELECTRIC WEBSTER (spelling checker 
and automatic correction) $149.50, GEAP (TRS-80 graphics - requires Epson MX-80) $49.95. DOTWRITER (Hi-res graphtcs - 
requires Epson MX-80 100 with Graftrax) $69.95. GEAP DOTWRITER combination (requires Epson MX-80 100 with Graftrax) $99.95 

Dealers: NEWSCRIPT is distributed by UG. Inc. (714) 946-5805 
'Some features work only if your printer has the mechanical capability. 

NFWSCRIPT trademark TTS Corporation PB0S0FT registered U S Pat Office TRS-80 registered trademark TANDY Corp 
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not being related to intelligence is just 
that — bosh. 

Wayne also states (in reference to 
America) that "big business, with the 
blessing of big government, takes 
over every successful entrepreneur." 
That system is precisely what gives 
the Japanese their edge. The Japanese 
government funds the large Japanese 
companies in a situation where gov- 
ernment, business, and people 
benefit. 

Remember, Wayne, American 
society and the computer field are 
much alike. Both are diversified, and 
standards never succeed. The CP/M 
operating system might be valuable for 
a few more years. The computer field 
changes so fast, I plan to save my old 
Model I and sell it to the Smithsonian 
in 10 more years. 

Howard VI I man 

3533 Amberacres Drive 

Apt. #108 E 

Cincinnati, OH 45237 



They Did It Again 

I just received my September issue of 
80 Micro and was reading the editorial 
comments and reader letters. In your 
"80 Remarks" column you chide Tan- 
dy for their lies and deception. 

Well, they did it to you again. On 
page 24 of the September issue is a sec- 
tion entitled "A Pat on the Back For 
Radio Shack." The first letter de- 
scribes the superior performance of 
Radio Shack and Tandy Corp. What 
the letter does not state is that the au- 
thor, John Von Tobel, was, during the 
time in question, an employee of Radio 
Shack. As an employee, he of course 
would have received the royal red- 
carpet treatment. Considering that his 
most recent assignment with Radio 
Shack placed him in a regular Radio 
Shack store right next door to our local 
Computer Center and repair facility 
couldn't have hurt. 

Radio Shack has turned out some 
fine products (1 am the proud owner of 
a heavily modified early 1978 Model 1, 
that I would not trade for anything). 
However, when Radio Shack runs ads 
like they did when they turned over al- 
most their entire Computer Center 
staff here, the light at the end of the 
tunnel may well be an oncoming train. 
Those ads were seeking "Bright, 
career-oriented sales people — no com- 
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puter experience required." My ques- 
tion is, "If I were a businessman, 
would I trust the implementation of a 
computer system to such people?" 

Until Radio Shack lives up to their 
word, I fully expect other makers to 
nibble away at the twin Tandy towers 
until they topple. 

Donald Stephens 

1962 Pommel A ve. 

Las Vegas, NV 89119 



Extended Basic Tips 

Here are some tips for Extended Ba- 
sic Color Computer users. If you re- 
number an extremely large program 
accidentally, never press reset to regain 
the original state. That act leaves you 
with a demolished program, and no 
way to revive it. Having wrong GOTOs 
or GOSUBs is a much better fate than 
a program full of havoc. 

If you make a mistake in the edit 
mode, and want to change it back, you 
could edit it out, or you could press re- 
set and find that the line is in its origi- 
nal state no matter what you did to it. 
An easier way is to press 'a' while still 



in the edit mode. This works the same 
as the other two, but is easier to per- 
form. Remember, once you enter an 
edited line, you can't do anything 
about it. 

Carl Huben 

6929 Lee Crest Drive 

W. Bloomfield, MI 48033 

Rammer Fix 

I made a few modifications to Mike 
Keller's "Rammer" (p. 296, August 
1982). 

The program now allows you to fire 
missiles with the up arrow key and 
you're provided with a shield for your 
ship that protects it from debris or col- 
lision three times. The shield appears 
and falls away when the ship is struck. 

Line 20 checks to see if the Model III 
special characters are in effect and 
turns off the clock. Line 40 defines the 
missile trail (BT$) and the shield (CSS). 
In line 50 B$ is the missile and S is the 
number of shields available. Lines 270 
and 280 are the actual missile fire 
routines. 

Because I compressed the program 
(see Listing 1) and renumbered the 



Enemy Ships 



10 ' Rammer Aug82 pg.296 80Micro 

20 CLS:PRINT@0,CHR$(192) : IFPEEK ( 15360) =32PRINTCHR$ ( 21) :GOTO20ELSEC 

LS:CMD"T":GOSUB200 

30 CLfcAR200:DEKINTA-Z:R=195:P»0:KB=14400:LT=32:RT«64:HM=0:TR*226 

40 BT$=CHR$U) :CS$=CHR$(176)+CHR$(32)+CHR$(176)+CHR$(26)+CHR$(24)+ 

CHR$(24)+CHR$(24)+CHR$(149)+CHR$(195)+CHR$(170)+CHR$(26)+CHR$(24)+ 

CHR$(24)+CHR$(24)+CHR$(131)+CHR$(131)+CHR$(131) 

50 M=0:H=0:X=0:RP=15968:N=63:LE=15938:RE=15996:CL$=CHR$(30) :S=3:B$ 

=CHR$U53) 

60 ES$=CHR$(34) +CHR$(222)+CHRS(34) 
70 CD$«":* *:" 

80 DEFUSR=32755 

90 PRINT@960,CHR$(R) ;" - 3 Enemy Ships Hit: 

Missed: "; 
100 PRINT§HM,CL$; : PRINT01014 ,M; 

110 P=RND(N)-1: IFP>60THEN120 ELSEPRINT@P, ES$; :M-M+1 
120 POKERP,32 
130 X-USR(X) 

140 IFPEEK (KB) =RTANDRP<RETHENRP=RP+2 : POKERP+63 ,TR 
150 IFPEEK(KB) =8THENMP=RP:GOSUB270 

160 IFPEEK(KB) =LTANDRP>LETHENRP=RP-2:POKERP+65,TR 
170 IFPEEK(RP)=32ORPEEK(RP)=2THENPOKERP,R:GOTO100 

1B0 S=S-1:H=H+1 :M=M-1:N=N+5:PRINT@RP-15425,CS$; : PRINTG985 ,H; : PRINT 
£964, S; 

190 IFS<0GOTO230 ELSE100 
200 FORX=32755T032766 
210 READY :POKEX,Y:NEXTX: RETURN 

220 DATA17, 191, 63, 33, 127, 63, 1,128 ,3, 237, 184, 201 

230 CLS:FORE=1TO30:PRINTSTRING$(64,{160+E)) ; :NEXT:CLS: PRINTS395, "Y 
ou scored ";H;" hits out of a posible";M 
240 PRINTe530,"Your Kill Ratio is"; (H/M) *100; "%" 
250 PRINT: INPUT"Care to play again ";Al$ 
260 IFAl$="Y"ORAl$="y"THENRUNELSECLS:END 

2/0 IFPEEK(MP)=32ORPEEK(MP)=2PRINT§MP-15360,BS;:POKEMP+64,2:MP=MP- 
64: IFMP<15360RETURNELSE270 GOTO270 

280 POKEMP+64,2:PRINT@MP-15362,CD$; :H=H+1 :M=M-1 : PRINT@985 ,H; :RETUR 
N 
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Another GEAR expansion module for Epson Graftrax Owners 
AND NOW - TRUE PROPORTIONAL PRINT ON YOUR EPSONI 

GEHP DDT WRITER 



GEAP 
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COMPUTERS 
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FEATURES: GEAP CHARACTER FONTS • CREATE HI-RES DRAWINGS WITHOUT TRS-80 MODIFICATIONS 
OR PROGRAMMING KNOWLEDGE • CREATE OR MODIFY FONTS • PRINT TIME OPTIONS SUCH AS 
MAGNIFY, DOT SPACING CONTROL, REVERSE CHARACTERS, UNDERSCORING, TRUE PROPORTIONAL 
PRINT • SUBSCRIPT, INTERMIX FONTS AND HI-RES GRAPHICS ON THE SAME LINE • EXPANDED PRINT 
AND MORE! 
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This is whal we consider the most powerful word processing station available lor the 

TRS-80 Model l/lll , rr.no. 

6EAP 2.1 used to create low resolution graphics tor the screen or lor printout. GEAP 2 1 is 
also used to create the high resolution graphics, (together with Dot Writer), which you can 
integrate directly into your text 

Oat Writer 15 used to create high resolution graphics tor your Epson printer (with the aid 
ot GEAP 2 II Oot Writer also includes the OOTPRINT program wh.ch will punt ASCII tiles 
created by your word processor bul will give you the added power ot our commands. This 
added power includes TRUE (not simulated) PROPORTIONAL print and you can use this 
feature with normal Epson style print, most ot our special tonts. or tonts that you may 
create You can intermix tonts on aline, or intermix HIRES drawings with text, underscore 
words, or words and spaces and choose multiple underlimnp You can expand characters 
or words and intermix them as you desire The list ot powerful commands goes on and on 1 

NswScripl 7.0 is the word processor we recommend Its EOIT feature makes the creation of 
ASCII files ready for OOTPRINT, a snap NewScript is the best word processor available 
and it is fully integiated with GEAP and DOT WRITER Both GEAP and DOT WRITERcan be 
entered trom the NewScript Menu OOTPflINT allows reentry into NewScript after it 
completes a print operation 

Electric Weastar is the finishing touch also fully integrated with NewScript (or it can be 
easily integrated with your word processor) Electric Webster eliminates the spelling 
errors that plague us alt' 

Thepertect and complete word processing station GE AP2 1. Dot Writer 1 5. NewScript 7 
and Electric Webster More power than you could nave dreamed' 



Additional Products 

In addition to our own products we also carry the fallowing tine software 
NewScrlat 70 NewScript is the best and most powerful word processor available lor the 
i 9Q $124.96 

Electric Weatlar Cornucopia Softwares top-notch spelling checker A 50000 word 
dictionary that you can customize to your needs Error tree hyphenation and unique 
grammar checking are extras that make Electric Webster a must tor your work station' 
With correction feature only $ l4 'j 50 

Faster Also a fine product from ProSoft Faster optimizes BASIC code tZ&fl 

Trsskmn - A utility that reduces string compression time by as much as 95". B I ■ 

Quick Cwafrtss A real space saver tr om ProSoft software SI9.9B 

RPM • A real time disk motor speed analysis program Keep your disks running 
perfectly' K4.95 



GEAP The ULTIMATE in TRS-80 Graphics 6EAP Z.I has instant qraphic letters Create 
your own screen graphics easily by Magnifying Reversing Multiplying Rotating 
Merging and much more Then let GEAP CREATE a BASIC program to recreate you' 
graphic masterpiece 1 Numerous EXPANSION modules give BEAP limitless power EPSON 
/OKIDATA/ Radio Shack LPV/IV printer block graphics QUICKCURSOR with 2. speed 
controllable cursors, instant line, rectangle and circle NEWSCRIPT interactive 
expansion module Much more! There is NO other graphic utility on the market that is as 
POWERFUL VERSATILE and EASY TO USE as GEAP2.1 S'.J?:". 



OOT WRITER 1.5 - Tfe UNDISPUTED leade UTION g-aphic; Numero :« 

Special HiRes Type Fonts for your Epson MX 80' too CREATE YOUR OWN type font: 
RES graphics No hardware or modifications needed' ANO NOW TRUE PROPORTIONAL 
PRINT. UNDERLINING. EXPANDEO PRINT. ANO MUCH MORE M iq fW EwOfl Printer AND 
proportional print works with almost »J ot 01 i SPECIAL lyjtt I mis DOT WRITER 15 • 
GEAP 2.1. turns your TRS-80and EPSON mto a Hi-Res Graphic TYPESETTER' Requires 48K 
Disk and Epson MX 80/ 100 with Graftrax 80/PLUS GRAFTRAX available tor easy home 
installation 

GEAPZ.I- OOT WRITER 15 WJ5 

OOT WRITER 1 5 HUE 

Additional Disks with 7 10 tents each HO DO 



JF Consulting 

West Coast 
74355 Buttonwood 
Pilm Desert. Ca 92260 
modi/iii |7!4|340-5471 
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PRICES END 
JAN 83 



East Coast 

221 Hirschlield Or 

Williamsville. NY 14221 

'716)634-3026 



INPUT 



lines, it would probably be easier to 
type it in than to change the original. 

Dan Clemens, Proprietor 

Dan 's Computer Works 

Route 1 End Road 

Summerville, OR 97876 

How popular is "MONEY DOS"? 
These four letters came in on the same 
day. — Eds. 

Just a note to let you know how 
much I enjoy "MONEY DOS" by 
J.M. Keynes. His column is fascinating 
and profitable. 

Philip Raczka 

10076 Belmeadow Drive 

Twinsburg, OH 44087 

Since the first installment of 
"MONEY DOS" by J.M. Keynes I 
have been hooked by the clear, con- 
cise, readable text. I urge you to con- 
tinue to carry "MONEY DOS" in the 
future. 

Frank Westphal 

310 E. Philadelphia St. SP. 162 

Ontario, CA 91761 

I enjoy your magazine but if it got 
down to the real nitty-gritty, I'd have 
to say "Keep the magazine and send 
me MONEY DOS." 

Ace Nace 

7105 Turner Terrace 

Fort Worth, TX 76118 



I am interested in investment pro- 
grams and feel that "MONEY DOS" 
by J.M. Keynes has had several very in- 
teresting and informative topics during 
the last several months. Please add 
more business investment articles and 
programs in future issues. 

James H. Ferris 

3328 High Vista 

Dallas, TX 75234 



Bittersweet Coverage 

The editorial coverage on our Elec- 
tric Pencil System (EPS-80) was bitter- 
sweet. The subhead that stated the 
trouble with a ROM-based word pro- 
cessor was that it could not be 
changed, did not have any qualifiers. 
Three points should be made in this 
regard. 
• The Electric Pencil program is a 
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user-proven program that has with- 
stood the test of time. There are newer, 
better programs, but none as easy to 
learn. 

• Any ROM-based program can be re- 
placed by another ROM-based pro- 
gram. 

• Since the EPS-80 is also a microcom- 
puter (Z80-based) with Basic built in, 
there are other word processor pro- 
grams available to operate in this en- 
vironment. 

Our EPS-80 is an economical, easily 
learned, and highly flexible system for 
the person who needs word processing 
primarily and computing power sec- 
ondarily. 

The EPS-80 can be upgraded to a 
disk-based system when the user is 
ready for more compatibility. Also, 
commercially available (and user in- 
stallable) kits provide for CP/M soft- 
ware compatibility. 

R. R. Troxell 

Director, Product Management 

Personal Micro Computers Inc. 

475 Ellis St. 

Mt. View, CA 94043 



Medical Software Support 

Philip Mills' ("Medical Opinion," 
August 1982) article on the Medical 
Office System by Windham Software 
is a bit too glowing. I purchased the 
MOS, and while I agree that it is a step 
in the right direction I disagree that all 
is well. 

It's slow, and the procedure fee col- 
umn would not accept a charge over 
$999.99. When I called Windham to 
discuss this glitch, I was told that Dr. 
Hayes was not available. I called back 
and was told that he was gone for the 
day. I called again and was told that he 
was gone for the week. I then wrote a 
letter and now, two months later, am 
still waiting for a reply. 

This contradicts the statement that 
"support is excellent." 

Leon M. Morrison, M.D. 

#9 Medical Park 

Morehead City, NC 28557 

Dr. Mills Replies 

The Medical Office System was writ- 
ten by an internist and is more suitable 
for an internal medicine clinic. Dr. 
Morrison 's clinic is surgically oriented 
and would find it less satisfactory. 



Percom Disk Storage 

Quality Percom products arc available from the 
following authorized Percom retailers. If a retailer 
is not listed for your area, call Percom toll free at 
1-800-527-1222 for the address of a nearby 
retailer, or to order directly from Percom. 

ARKANSAS 

MICROCOMPUTER SYSTEMS INC Hoi Springs (SOI ) 623-5209 

ARIZONA 

S1MUTEK Tucson (602)323 9391 

CALIFORNIA 
ALPHA BYTE STORES Caiabasas (213) 883-8594 

BERKELEY MICRO COMPUTERS Berkeley (415)848 7122 

COMPUTER INFORMATION EXCHANGE 

San Luis Rey (714)757 4849 
HOBBYWORLD Northridge (213) 886 9200 

RAY SAND DONS COMPUTERS Whittier (213)695 3248 

DISTRICT OF COLUMBIA 
THE PROGRAM STORE Washington (2021 363-9797 

FLORIDA 
ENTRON.TNC Largo (813)586-5012 

HAWAII 
COMPUTER CENTER Honolulu 

IDAHO 
OFFICE MAGIC COMPUTERS Bone 

IDAHO MICROCOMPUTER Buhl 

KANSAS 
BESCO ELECTRONICS Shawnee 

SALES DATA Hutchinson 

DATA SERVICES. INC Wichita 

MASSACHUSETTS 



THE BIT BUCKET 



DAMASCUS C B 



ALTERNATE SOURCE 



THE COOF ROOM 



LEMBERGER CO 



West Newton 
MARYLAND 

Damascus 

MICHIGAN 

Lansing 
MINNESOTA 

Eden Prairie 
MISSOURI 

Vienna 



(808)488 2171 

(208)376 4613 
(208)543-6292 

(9131 268-7633 
(800) 835-0071 
(316) 838 9021 

(617) 964-3080 



(5171 482 K270 



(6121 934 1826 



(3141422-3353 



Cl'RTRONK'S 



THINK TANK 
TSE HARDSIDF 



NEBRASKA 

Lincoln 
NEW HAMPSHIRE 

r octsmou t n 

NEW JERSEY 

CHANNEL 1 RADIO SHACK Medtord 

DA ft D SALES BloomRcid 

NEW YORK 
H & E COMPirTRONICS Spring Valey 

PROGRAMS UNLIMrTED Jericho 

STONY CLOVE New York CHy 

DATASCAN COMPUTER SYSTEMS. INC 

FanTWngviUe 
NORTH CAROLINA 
HOLLIDAY MFG Greensboro 

OHIO 
FELDMAN ENTERPRISES Akron 

OKLAHOMA 
ONLINE COMPUTER CENTER Oklahoma City 

OREGON 
PIONEER ELECTRONICS Sandy 

PENNSYLVANIA 
COMPUTER ANALYSTS New Brighton 

TEXAS 
PERCOM COMPUTER CENTER Richardson 

COMPUTER TO GO Austin 

UTAH 
MICRO MNEMONICS Sunset 

VIRGINIA 
BURCO DISTRBUTORS Richmond 

WASHINGTON 
COMPUTER SERVICES Kcnncwick 

NORTHWEST COMPUTER SERVICE Bdvuc 

WEST VIRGINIA 
BURCO DISTRIBUTORS Huntington 

WISCONSIN 

BYTE SHOP MILWAUKEE Greenfield (41 

FOREIGN DEALERS 

AUSTRALIA 

DkC K SMETH ELECTRONICS P Box 321 North Rydt 

CANADA 



1603)431 1077 
(603) 673 5144 

(609)654 7454 
(201)751*444 

(914)425 1535 
1800)645 6038 
(212)675 1046 

(516) 698-6285 

(919) 274-6346 

(216) 724-5583 

(4051 751 2796 

(503)668-8666 

(4121 846 9323 

(2141 6900207 
(512)472-8926 

(801182S9317 

(804) 222 1481 

(509) 5829759 
(206) 454-4979 

(304) 453 6387 



NSW2113 



ALPHA ONE Edmonton 

VALERIOTE AND ASSOC Guerph Ontario 

DRV COMPUTERS, LTD. Surrey B. C. 

COTS MICROSYSTEMS. LTD Ottawa 

MICRO-COMP ENTERPRISES. INC Pickering 
MICRO MART Montreal 

MEXICO 
COMPUTADORAS Y ASESORAMIENTO 

RioPanvcol4 
DOMINICAN REPUBLIC 
RADIO SHACK Santo Domingo 



(4031 454-8409 
(4161 624-4899 
(6041576*535 
(6131741-7937 
1416)839-4561 
(5141 731 9486 



(809)565-9121 



So Far, So Good... 




Your Model III is a fine computer. 

So why settle for less than 

a fine disk storage system? 

A fast, reliable disk storage system — no other 
device is so vital to the satisfactory performance of 
your computer At Percom we build quality, high- 
performance disk drive systems. From gold-plated 
connector contacts to goldcad metal chassis 
structures. From proven design through 1 00% 
reliability testing. Percom disk systems are the 
standard by which others are judged — the industry's 
"gold standard." in a sense. And since Percom is the 
w largest independent manufacturer of disk systems 
for microcomputers, you get Percom quality 
at very competitive prices. Add-on drives for 
TRS-80* computers start as low as $399. 
Complete first-drive systems for the Model III 
start at only $599. Put a quality Percom mini-disk 
storage system in your Model III. And save 



#1 For Your Model III 

Percom TFD floppy drives for your TRS-80' Model III computer are 
available in single- and dual-head versions, providing 180,000 and 360,000 
bytes per drive, respectively, of formatted on-line storage capacity. 

The Percom Model III disk controller handles one to four drives so you 
can have from 180,000 to over 1.4 million bytes of on-line program and file 
storage. 

You get MSS' DOSPLUS' with first-drive systems, and your first drive 
may be either internal (add-in) or external (add-on). Percom TFD drive 
units also work with TRSDOS* and other compatible disk-operating 
systems. 

First-drive systems are pre-assembled and may be installed with 
common tools. ^2 

#1 For Your Model I, Too 

Percom TFD add-on drives for the TRS-80* Model I computer are 
available with the same features and the same quality control measures 
as TFD Model III drives. As for Model III drives, all Percom Model I drives 
are double-density rated. Install Percom's popular DOUBLER II in your 
Model I Expansion Interface and upgrade your Model I to provide the 
same storage capacity as the Model III. ..3 

Now! Low-cost Percom Winchester Disk Systems 
for Radio Shack computers. 

To order, or for the name of your authorized Percom retailer, 
call toll free 1-800-527-1222. 



The Drive People 
You get more out of 
Percom disk systems. 
Expect it! 





PERCOM DATA COMPANY, INC. 

11 220 Pagemill Road • Dallas. Texas 75243 

(214) 340-7081 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 

'TRS-80 is a trademark of Tandy Radio Shack Corporation which has no relationship to 

Percom Data Company. Inc. 

PERCOM, DOUBLER II and OS -80/ III are trademarks of Percom Data Company. Inc 

^trademark of Micro Systems Software, Inc 
^See List ol Advertisers on Page 457 



Yes I'd like to know more about 
the best for my Radio Shack 
computer Send me free literature 
about quality Percom products: 



DMdll 
DMdt II 



: Mdl III 
_;Mdl 16 



Send to 

PERCOM DATA COMPANY INC Dept 8-M 

11220 Pagem.il Road. Dallas. TX. 7S243 
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It should also be pointed out that 
the program is brand-new. If Wind- 
ham Software is responsive to physi- 
cian feedback, in a few years they will 
be marketing a very satisfactory pro- 
gram. I suspect that they are experi- 
encing the realities of software mar- 
keting and its growth pains, and have 
had to adjust to the time demands of 
selling software. 

Philip R. Mills, M.D. 

3000 Halls Ferry Road 

Vicksburg, MS 39180 



Windham Software Replies 

We disagree that the system is slow; 
for a micro system, response time is ex- 
tremely fast. It takes an average of two 
seconds to put any one of 3, 750 patient 
records on the screen. We do not kno w 
of any other micro system that can beat 



this timing. 

The problem with fees higher than 
$999.99 has been corrected. The sys- 
tem now accepts fees up to $9999.99. 
We sincerely hope that inflation will 
not force us to increase the maximum 
fee amount for the next few years. 

John R. Hayes, M.D. 

Windham Software Inc. 

29/31 Ivanhill St. 

Willimantic, CT 06226 



Hidden Routines 

Here is another footnote to Hugo 
Jackson's fine article "Memory Size?" 
(80 Micro, April 1982). Burt Fenner 
noted that space for Z80 Assembly- 
language programs can be reserved in 
Basic remark statements as an alterna- 
tive to storing them in string variables 



1 POKE 17400,30 

2 REM 123456789012345678901234567890* 

3 REM Above REMARK is 30-byte Z80 program buffer 

6 REM Address 17400 in statement 1 is beginning of statement 2 

in a Model III. Use 17144 for Model I. 

7 REM Value 30 POKEd in statement 1 is, coincidentally, the 

length of the Z80 program area reserved in the REMARK of 
statement 2. 

8 REM It the Z80 program contains no zero-codes, statement 1 is 

not needed. Reduce the FOR arguments in statement 35 by 
15, to 17391 and 17390+length, respectively. Also reduce 
the POKE value in statement 90 by 15, from 254 to 239. 

10 DATA 33,128, 63, 62,191, 6, 64,119, 35, 16,252,201 

20 REM Above is a 12-byte Z80 program that draws a white line 
near the bottom of the screen. 

35 FOR J%=17406 TO 17417: READ 1%: POKE J%,I%: NEXT J% 

37 REM Statement 35 POKEs the DATA values into the REMARK. 

40 J%=17385 

50 I%=PEEK(J%)+256*PEEK(J%+1) : K%=PEEK ( J%+2) +256*PEEK ( J%+3) 

60 PRINT J%,K%,I% 

70 FOR L%=J%+4 TO I%-1: PRINT L% ; PEEK ( L%) , : NEXT L% 

80 PRINT: PRINT: J%=I%: IF K%<2 GOTO 50 

85 REM Statements 40-80 display a byte-by-byte map of state- 
ments 1 and 2. Statement 90 executes the Z80 program 
placed in the REMARK. 

90 POKE 16526,254: POKE 16527,67: PRINT USR(0) 

95 REM Type the program and RUN it once to load the REMARK. 

Then delete every line except 1, 2 and 90. Add other 
lines if you wish, then CSAVE. The Z80 program will be 
recorded as statement 2, and will CLOAD. 

96 REM If the Z80 program contains zero-codes, it will not 

LIST properly after a CLOAD until statement 1 has been 
executed, either from the keyboard or in a RUN. 

97 REM Long Z80 programs can use a relative jump (JR) from the 

end of one REMark to the start of another. 

Program I. Mini; 2 



1 POKE 17400,30 

2 REM !END?>USING@w* 

90 POKE 16526,254: POKE 16527,67: PRINT USR(0) 

Program Listing 3 



(80 Input, August 1982, p. 16). Mr. 
Fenner pointed out that remarks are 
not visited by the Basic "garbage col- 
lector." Mr. Fenner also noted that 
once the Z80 codes have been POKEd 
into the remark statement, the POKE 
routine may be deleted along with any 
data statements. 

There is a third advantage that Mr. 
Fenner may have overlooked: The Ba- 
sic program, shortened by removal of 
data and POKE statements, with the 
Z80 program in its remark, can be 
CSAVEd and CLOADed, even edited 
and listed! The listing of the remark 
will appear strange, since the Z80 codes 
will often refer to control and special 
characters. 

There is a slight penalty if any zero 
codes occur in the Z80 routine: 
CLOAD will end the remark at the first 
zero code in the Z80 program. The 
next-line pointer that uses the first two 
bytes of the remark in memory must be 
corrected. If the Z80 routine uses less 
than 100 bytes, then the correction val- 
ue for the Model III is the length of the 
Z80 routine. Program Listing 2 illus- 
trates this method. 

Statement 2 reserves 30 bytes for 
Z80 codes (even though the example 
routine uses only 12 bytes). Statement 
1 restores the next-line pointer for 
statement 2 as if the Z80 routine in- 
cluded a zero code. Statement 35 
copies the data values into the remark, 
while statements 40-80 display a byte- 
by-byte map of statements 1 and 2. 
Statement 90 executes the example rou- 
tine, which simply draws a white bar 
near the bottom of the screen. 

After the program has been run at 
least once, it can be reduced as shown 
in Program Listing 3 and CSAVEd. 

A tip of my hat to Bun Fenner for 
this sly way to conceal a Z80 routine in 
a Basic program! 

David B. Dillon 

Baederwood Lane 

Derwood, MD 20855 



Eds. Speak Out 

POKEing machine language into re- 
mark statements is a great idea, but in 
our opinion, if it has a zero, POKE it 
into a string, or high memory. 

Listing 2 works for a Model III un- 
der cassette Basic. The author could 
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Convert your TRS-80* 
into a World Class Computer 



that 






REDUCES EYE FATIGUE 
AND DOESN'T FLICKER 





_— 




...with LSI's new Soft -View Replacement CRT. . . 



The black & white "TV Screen" CRT (picture tube) which came with your TRS-80*model II or III is an inexpensive 
rapid "P4" Phosphor CRT intended for TV use. The display is actually strobing 60 times a second. No amount of "green 



TM 



CRT display tube with a slower 



plastic" will stop this strobing or eliminate the eye fatigue it causes. But a new 
decaying, colored Phosphor will. 

• Available in slow-decay green (similar to new IBM* and APPLE IH'monitors) or medium decay "European 
Orange" (easy on the eyes, elegantly beautiful, and the standard for CRT displays in Europe) 

• Leaded glass stops X-ray emission 

• Optional Anti-Glare Frosted Glass available to reduce eye strain from glare 

• Easy installation - tube comes with pre-mounted hardware 

• 30 Day Money Back Guarani 

• Ideal for Word-Processing &• Programming, fast enough for Games & Graphics 

• Finest quality double-dark glass and phosphor fields make the letters seem to be coming out of black space 



Try This Test: 



A 



TM 



LSI's new CRT 



Turn the brightness control on 
your TRS-80*all the way up. Wave 
your hand up ana down m front 
of the screen. See how jerky it 
seems? Just like in front of a 
strobe light 1 That's because the 
screen actually is strobing at you. 
A slower phosphor CRT will 
reduce that troublesome strobe 
effect That's why most of the 
newer monitors, from IBM* to 
Apple III* are using the new 
slow phosphor CRT's. 



LSI SYSTEMS ^VjRT's: 

□ »GN42 Green Phosphor 579.95 

□ »GN42G Green Phosphor with anti-glare $89. 9b 

□ #OR34 Orange Phosphor S89.95 

□ #OR34G Orange Phosphor with anti glare S99 95 

ADD S7 FOR PACKAGING AND UPS SHIPPING 



HM-ita*- 



»%Langley-St.Clair 



Instrumentation 
^462 Systems. Inc. 

132 West 24th Street. New York. N Y. 1001 1 212 989-6876 



To Order Call 

1-800-221-7070 

Dealer Inquiries Invited 



* IBM*, APPLE* and TRS-80* are trademarks of IBM, APPLE Computer & TANDY Corp. 



The Official 




TRS80 Model I & 
$19.95 Tape 
$22.95 Disk 

_ Joystick compatible. Frogger is available 
from your local software dealer or order direct. 



All orders by VISA, Mastercard or 
check add $1.50 shipping. Indiana 
residents please include 4% sales tax. •* 




The Coi&soft Group 

6008 N. Keystone Ave., Indianapolis, IN 46220 (31 7) 257-3227 

- — — afid '" designate trademarks o« Sega Enterprises, Inc. 
@ 1981 Sega Enterprises, Inc. 
TRS 80" rs a registered trademark p\ the Tandy Corporation. 




Includes exclusive challenge mode. 

Bounceoids come" crashm^own from spaW" and 
rebound across the screen. Blast them or they will smash 
you. You have a shield but its lifespan is limited so use it 
sparingly. 

The commotion will attract alien natives with poison 
darts, off-world snakes and shaking bugs. Be on your 
guard. The longer you survive the harder it is to simply 
exist. Bounceoids start dropping from the sky in tiny 
clusters or with constantly changing outer dimensions. 



Reach the exclusive challenge- leua*»end face the flying 



space flock in a tense fcbfjtoende Qfj?tWW 5y coordination 
and targeting skills. JoystMfrafcppafl&Te. 

$15.95 tape. $19.95 disc plus $1 .50 shipping and 
handling charges. MasterCard & Visa orders accepted. 
Available at your software dealer. 

The Cornsoft Group 

6008 N. Keystone Ave., Indianapolis. IN 46220 • (317) 257-3227 



Bounceoids copyright 1982 by the Cornsoft Group 



TRS 80* is a registered trade mark of the Tandy Corporation 




Become a "Crazy Painter" 

and create a masterpiece 

...if you can. 

A mischievous puppy, snakes and poisonous turpentine 
buckets force changes in your painting. In higher skill 
levels, paint eaters" start chewing up your work. 
Suddenly, everyone's a critic Can you overcome them? 



And on top of it all, in the Exclusive Challenge Mode, 
you have to catch an army of runaway puppies. Crazy 
Painter is Joystick compatible. 
$15.95 tape, $19.95 disc plus $1 .50 shipping and 
handling charges. Indiana residents add 4% sales tax, 
Master Card or Visa orders accepted. Also available at 
your software dealer. 

The Coitisoft Group 

6008 N. Keystone Ave., Indianapolis, IN 46220 • (317) 257-3227 
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Crazy Painter copyright 1982 by The Cornsoft Group. 
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have used memory locations 16548 and 
16549 to find the beginning of line 2. 
The following line will do it. 

1 MA = PEEK( 1 6548) + 256* PEEK( 1 6549): 

MA = PEEK(MA) + 256*PEEK(MA + 1 ) 

NA = PEEK(M A) + 256*PEEK(M A + 1 ):STOP 

From the command mode, type: 

?MA,NA,NA-MA 

MA is the address of the first byte of 
line 2. NA is the address of the first 
byte of line 3. NA-MA is the number 
of bytes in line 2. 

Now, for use at run time, change the 
stop statement in line 1 to: 

NA = MA +■ nnnnn:POKEMA,NA - INT 
(NA/256)*256:POKEMA + 1 ,INT(NA/256) 

Change the nnnnn to the value you got 
for NA -MA. Using this change en- 
sures that the code you write will work 
for all systems. 

Change line 35 to read: 

FOR J^o = MA + 6TO MA+ 17: READ 
1%: POKE ]1;Wt: NEXT J<ft 

Change line 40 to: 

J «Po = PEEK( 1 6548) + 256* PEE K( 1 6549) 

For cassette Basic change line 90 to: 

MA = MA + 6:POKE 16526.MA- 
INT(MA/256)'256:POKE16527,INT(MA/256) 

For Disk Basic change line 90 to: 

DEFUSR = MA + 6 

— 80 Micro technical staff 



Straight, Not Flip-py Answers 

I believe that all floppy disks are 
coated on both sides with the same 
magnetic medium, to reduce or elimi- 
nate warpage. You can punch two new 
read holes and a write-protect slot and 
make both sides of the disk usable. 
This modification makes the disk a 
flippy and it can be read and used on 
both sides. 

The advertised price for flippy disks 
is about 25-33 percent above the cost 
for single-sided disks — why? 

If the disk jacket contains one set of 



read holes and one write-protect notch, 
or it contains two of each of the above, 
it's all done at one punching at zero ad- 
ditional cost. 

Also, your magazine and most 
others fail to deal with the magnetic 
medium. There are variations in manu- 
facture, quality control, and so on, and 
there are standards (ANSI or others) so 
let's have some articles on the basics 
and straight answers on the disk prices. 

R.M. Sanford 

12787- 139th St. N. 

Largo, FL 33540 



My Savior 

Thanks 80 Micro and "80 Remarks" 
for saving me just in the nick of time. I 
was all set to buy a TRS-80 Model II 
when I read in your fine magazine that 
the Model 11 is obsolete. I did go out 
and buy an Apple. It's a great machine. 

Harry J. Slandish 

5216 NE Sandy Blvd. 

Pari land, OR 97213 

Do we detect a note of sarcasm? 

—Eds. 



You must vaporize the pests with 
your laser and pesticide bombs. 

Pest control is a never-ending task 
in this space simulation Be quick 
about it. If you take too long to clear 
a wave of pests, the AVENGER 
appears and homes in on your 
PestiCraft. 

A random Vengence Encounter 
throws you into a world with droid- 
filled birds. You have to destroy 
them, but every time they burst, a 
myriad of droids are released 



and begin a relentless assault on 
your ship. AVENGER is joystick 
compatible. 

AVENGER is available for the TRS 
80" Color Computer at your favorite 
software dealer. MasterCard & Visa 
orders accepted. $19.95 tape. $1 .50 
shipping and handling charges. 

The Coiftsoft Group 

6008 N. Keystone Avenue 
Indianapolis. IN 46220 (317) 257-3227 
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TRS 80" Color Computer is a registered trademark of the Tandy Corporation. 
AVENGER copyright 1982 The Cornsoft Group 
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Truth in Advertising 

Firms that advertise in 80 Micro and 
other publications should live up to 
their ads. In the July issue of 80 Micro a 




Line 60060 of Kurt Leafstand's 
"QuickCalc" program (October 
1982, p. 120) is the end of the listing; it 
does not continue. 



Randy Hawkins was incorrectly 
given credit for the program "Enter 
The Dragon" in Proof Notes (August 
1982). The credit should have gone to 
Brice Hadlock. We stand corrected. 



REAL ESTATE INVESTMENT 
SOFTWARE 

FOR TRS 80 SYSTEMS 

REAL PACK is a comprehensive package ol 
programs lor analyzing real estate investments 

INCOME PROPERTY ANALYSIS projects profits and 
cash (lows before and after taxes. ROI, IRR. equity 
returns, breakeven occupancy requirements property 
values, mortgage balances and results of sale for up 
to 15 years Handles multiple loans, depreciation 
methods, income and appreciation patterns 
LOAN calculates loan terms, provides amortization 
tables, and computes discounted loan values or 
yields Handles balloon payments, provides loan 
evaluations at future time periods 

WRAP provides similar computations for wrap around 
loans 

HOUSE RENT/BUY compares cash flows and real 
costs for house purchase compared to renting 
Handles multiple mortgage and graduated payment 
loans Generates unique personalized narrative letter 
to explain the tabular output 

POLICY analyzes real estate investment strategies 
You specify investment values such as leverage, 
interest, capitalization, and appreciation rates and also 
investment strategies such as tax free exchanging, 
sale and purchase of larger propenies. and physical 
improvement to increase income ala Nickerson 
Projects, for up to 20 years, profits and cash flows, 
rales ol return, the results of projected individual buy. 
sell, and trade transactions, tax consequences, and 
accumulated property values and cash flows 

REALTOR TESTED by professionals, error tolerant 
and easy to use 

MORE THAN AN OPERATING MANUAL. The 150 

page instruction manual also includes chapters. How 
to Use REAL PACK to Increase Your Real Estate 
Business" and "How to Operate Your Own Financial 
Analysis Business" 

$295.00 for the whole package 

Check. COD Visa. Mastercharqe 

To order, call (206) 734-4323 or write 8 

CONEX ELECTRO SYSTEMS INC. 

1602 Carolina Straat. BaHlngham, WA 96226 



retailer advertises "we will not be un- 
dersold" and yet their prices are consid- 
erably higher for some hardware than 
other firms advertising the same equip- 
ment in the same issue of the magazine. 
When asked why they made such a 
statement they replied that it was an ad- 
vertising come-on to get customers. I 
advise potential customers of any firm 
to price shop for equipment and ser- 
vices before buying. 

Walter Steesy 
Interlaken, NY 14847 



UTERM Fix 

I really enjoy using Bob Hart's 
UTERM program (80 Micro, June/ 
July 1982, p. 128). However, if you 
try to use this program and have an 
early keyboard, you may run into 
some problems. 

My keyboard has the old ROMs and 
the famous "quick and dirty" audio 
fix from Radio Shack. My board con- 
tains the small XR2 mod to help the 
volume sensitivity problem using cas- 
sette tapes. This improvement will not 
allow anything above or below 500 
baud to enter the computer. 

Since UTERM uses the cassette port 
and is set for 300 baud, the program 
will transmit but not receive using 
Bob's software, the cassette port, and 
the Shack's mod. To overcome this de- 
ficiency, a small DPDT switch must be 
added to switch out the XR2 mod 
when using the UTERM program. It is 
surprising to note that Tandy sells 
Model 1 modem software that uses the 
cassette port, but their own equipment 
is not compatible when you are stuck 
with an old keyboard! 



Anyone wishing to learn more about 
the switch installation may get a copy 
of the instructions by sending an SASE 
to me. It takes about 10 minutes total 
time to have UTERM running on your 
system. 

Richard C. Walter, Jr. 
824 East Chestnut St. 
Lancaster, PA 17602 



Two Finger Typer 

I would like to point out Lazy Writ- 
er's ease of use for a handicapped per- 
son limited to the use of one hand. Just 
about all of Lazy Writer's commands, 
editing as well as print and directory 
commands, call for the entry of a 
single keystroke. Rarely are you re- 
quired to use a control key at the same 
time, and when you do, the keys are 
well within range of two fingers. 

Sidney Bloom 

114-A West Church St. 

Frederick, MD 21701 



Easier Directory 

For Model III TRSDOS users, 
Basic's CMD"D:d" produces a direc- 
tory listing that is often more conven- 
ient than DIR. The program below, 
DIREC/CMD, displays the directory 
just like Basic. This program uses the 
top fifteen bytes of memory and is writ- 
ten for a 48K Model III with TRSDOS. 
For a 32K machine (see Program List- 
ing 4) change the addresses in lines 
160 and 240. 

Carl Anderson 
Wilmington, DE 







00100 


















00110 


; 


DIREC/CMD 












00120 


; 


FROM 


TRSDOS READY' TYPE 


: 






00130 


» 


DIREC 


:D 












00140 


l 


WHERE 


D-DRIVE 












00150 


1 












FFF0 




00160 




ORG 


0FFF0H 


FOR 


32K 


USE 0BFF0H 


4419 




00170 


DSPDIR 


DEPL 


4419H 


DISPLAY 


DIRECTORY CALL 


402D 




00180 


JP2DOS 


DEFL 


402DH 


TRSDOS 


READY ADDRESS 


FFF0 


3A2C42 


00190 




LD 


A,(4225H+7H) 




;GET 7TH BYTE 


FFF3 


DD217142 00200 




LD 


IX,4271H 






j THESE TWO LINES PUT A 


FFF7 


DD7700 


00210 




LD 


(IX) ,A 






fINTO 4271H FOR DSPDIR 


FFFA 


CD1944 


00220 




CALL 


DSPDIR 






» DISPLAY DIRECTORY 


FFFD 


C32D40 


00230 




JP 


JP2DOS 






;BACK TO TRSDOS 


FFF0 




00240 




END 


0FFF0H 






;FOP. 3 2K USE 0BFF0H 


00000 TOTAL 


ERRORS 






















Program Listing 4 
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DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIV 

rr 

C 



Q 

CO 



D 



I PRICE BREAKTHROUGH 

3 Super Sale on New Disk Drives I 

Starting at $ 199.95* complete!! | 

^ with Power Supply and Case. 5 

m 
CO 

single sided 40 track — dual sided 40 track — dual sided 80 track § 

for * 

RADIO SHACK — HEATH — ZENITH — S 100 | 

IBM/PC 3 & MOST OTHER COMPUTERS g 

SPECIAL! Disk Drive Head Cleaning Kits . . .$1 2.95 § 

w Drive a Hard Bargain!!* S3 

5 MB- 1 M.B. with Power Supply Case, Cables & Software § 

Complete Systems .... starting from $1 ,695.00 ^ 

TOLL FREE ORDERING GENERAL and TECHNICAL 1 

1 -800-343-884 1 1-61 7-872-9090 | 

Model 1 1 1 1 nternal Disk Drive Kits $Call | 

Color Computer First Disk Drive Kit $424.95 | 

Diskettes Of all Sizes (Box of 1 0) startingat$1 5.95 gj 

Dot Matrix Printers $Cal I | 

Word Processing Printers starting at $999.95 g 

| Printer Buffers 8K to 64K starting at $1 43.00 | 

H Disk Drive Cases and Power Supplies . .starting at $49.95 I 

DOSPLUS-3.4 — SSpecial Price 9 

g Filler pieces for Basf slimline drives $4.98 * 

5 *Ask about our %WWfe%ttu11fe Warrant y- | 

ffj Dealer inquiries invited. co 

i SOFTWARE SUPPORT I 

J£ terms: One Framingham Centre, Framingham, MA 1 70 1 o 

5 SSffStt^JTSAw. (6 1 7) 872-9090 J : tandv corporation | 

Co C.O.D. Run add §3.00. Hours: M-F 10 to 6 (EST) Sat. by ADOt 2 ZENITH DATA systems f^ 

Q] Shipping: Mmm call for amount. 3 ^IBM corporation CO 

Aida xsia S3Aida xsia s3Aiaa xsia s3Aida xsia ssAida asia S3Aida xsia s3Aida xsia s3Aida xs2 

• See iter o/ Advertisers on Page 451 __ ... 
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MONEY DOS Fix 

The programs in the September 1982 
MONEY DOS column (p. 364) con- 
tained several small errors. Listing 1 
was renumbered, correctly updating all 
GOTOs and GOSUBs but leaving ref- 
erences in remark statements un- 
changed. Listing 2 did not write an 
end-of-file marker on cassette files. 
Program Listings 1 and 2 correct these 
errors. 

In addition, lines 470-530 of Pro- 
gram Listing 2 on page 374 were acci- 
dentally printed at the end of Program 
Listing 1 on page 372. 

80 Micro regrets the errors. 



Screenplay Errors 

My article (Screenplay) in the Sep- 
tember issue contains a couple of er- 
rors. On page 208, the third paragraph 
of How to Use Screenplay states, "If 
you want to write as though using a 
typewriter, press shift down 
arrow. . ." — it should read ". . .press 
shift, down arrow, left arrow. . ." as 
Table 2 correctly indicates. 

The Loop function that flashes all 10 
pages of text on the screen in a continu- 
ous loop for animation effect contains 
an error. Line 7000 should read: 

FORP= lTO10:GOSUB9100:GOSUB5800: 
GOSUB9800: IFS = 1 THEN 1 200ELSENEXT: 
GOTO7000 

The end of line 1820 was omitted. It 
should include: 

ELSEIFI>I26THEN1 = I + J 




Jim Stauble of Des Moines, IA has 
shown me another way to code lines 
9900 and 9910. 

9900 F = 0:FORR=lTOl:F = NOTF:IFF = -1 
POKEV,IELSEPOKEV,PEEK(V + T) 
9910 FORW = lTOJ:I$ = INKEY$: 
R= -(I$>""):IFRAND1RETURNELSE 
NEXT: NEXT 

This coding is shorter than the origi- 
nal but has no effect on the typing 
speed. Placing a subroutine immedi- 
ately following the calling section can 
help the interpreter find the subroutine 
more quickly. Unfortunately, this sub- 
routine is called by several sections of 
the program, so many references 
would have to be changed. 

For those interested in this approach 
to editing and printing memory con- 
tents, a machine-language version of 
Screenplay is available. Called Core- 
text, it runs on disk or stringy, is tai- 
lored to the MX-80/Graftrax, has 
many more features, and is faster than 
the fastest typist. The cost is $10 pre- 
paid or $5 if you provide disk or wafer 
and SASE. The same terms apply if 
you want me to send you a copy of 
Screenplay. 

If you want to know what line 7000 



170 REM DELETE 180 IP NO DISK 

550 CMD"T":REM CHANGE THIS LINE TO 550 REM IF NO DISK. 

590 REM 600-660 ARE FOR DISK USERS . TAPE ONLY USERS 

MAY DELETE. 
1140 IFD$»"SUGAR"THEN El-4: E2-10: E3=23: RETURN 

Program Listing I 



50 EN$*"EOF" 

280 IF U$«"" THEN IF SS-2 THEN PRINT#-1,EN$ 

285 IF U$="" THEN CLS:PRINT"I 'M FINISHED": END 

Program Listing 2 



does (the incorrect line 7000, that is), it 
copies all 10 pages of text memory into 
higher memory, starting at address 
32768. It's used for transferring 
Screenplay text to the text memory 
area of disk Coretext. 

Warren Merkey 

114 SE 1st St. 

Gainesville, FL 32601 

Bug Report 

To correct "Save Our Ship" (80 Mi- 
cro, August 1982, p. 174) Model 1 users 
should change the value 65535 in line 29 
of Listing 1 and line 20 of Listing 2 to 
65536. Also add a new line to Listing 1: 

31 FX - FX + 65535 * (FX>32767) 

Model HI users should change the 
value 65535 in line 29 of both listings to 
65536. Also add the same new line to 
the program as above. 

Randy Hawkins 

6214 Hidden Cove 

Corpus Christi, TX 78412 

Pronouns vs. Prepositions 

The September 1982 issue of 80 
Micro was great. Dan Robinson's com- 
prehensive report was good except for a 
slip that he or your copy editor should 
have caught. 

On page 123 of Mr. Robinson's re- 
view of Aspen Software's Grammatik 
program, he writes: "... and too many 
prepositions (especially I) may make the 
writer look like an egomaniac." A pre- 
posterous preposition if ever I've heard 
one! Don't you mean pronouns? How 
can a diddly little preposition (at, after, 
by, down, for, from, in, into, etc.) 
make a writer appear egomaniacal? 
Pronouns, especially the first-person 
singular pronoun (I), can indeed make a 
writer appear a little self-centered. 
However, the sample of Grammatik's 
text summary you cited in the article on- 
ly lists prepositions; nowhere do we see 
a mention of pronouns. You computer 
guys do understand the distinction be- 
tween a pronoun and a preposition, 
don't you? 

Jeff Shear 

46 Wiggins St. 

Princeton, NJ 08540 

Oops. — Eds. 
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3 in '83! 




That's 

That number again 

That's 



And to celebrate we're publishing a special 
ANNIVERSARY ISSUE 

containing 

all new articles & programs. 

over 500 pages of the same high 80 MICRO quality. 

dozens of games and programs for your computer. 

exclusive articles by well-known authors. 

the most in-depth coverage of the Color Computer yet. 

* tutorials on having peripherals and software. 

* page after page of Christmas specials from 80's advertisers. 

* a 3-year 80 MICRO index — annotated and cross-referenced. 

And in every issue of 80 MICRO you'll find the 1st and only 

3-D COLOR STEREOSCOPIC 
COMPUTER GRAPHIC 

And to go with it— your very own pair of 3-D glasses will be bound 
into every issue. This is an anniversary issue you won't want to miss! 

And this amazingly versatile Anniversary Issue can go anywhere* with 
you. Fits easily in your briefcase or your purse. Lies flat in your 
knapsack. Rolls up to fit snugly in your glove compartment. Stores on 
any bookshelf. Looks great on any coffee table. 

You can also get the amazing Special Edition LOAD 80 Companion to 
the Anniversary Issue. All those games and programs, just waiting for 
you to load. No more keyboarding. No more debugging. No more 
hassles. 

You'd expect special editions of this quality to cost you hundreds of 
dollars. (Well, mavbe dozens.) But for a limited time only, you can get 
the 80 MICRO ANNIVERSARY ISSUE for only $5.95. That's 
right— $5.95 And the LOAD 80 Companion is just $9.95 for cassette 
$19.95 for floppy disk. 

Note: This is an extra issue and will not be included as part of your 
regular subscription. So call today and order your very own 
Anniversary Issue and LOAD 80 Companion. Or give them as gifts. 
Just fill in the attached reply cards and drop them in the mail. Or call 
toll free— 1-800-258-5473. 







Call today! 



Operators are standing by (during business hours, of course). 
MasterCard and Visa accepted. I American Express, too.) 

Please allow 6-8 weeks lor delivery. 

* Use of this product in the shower is not recommended by the publisher 

80 Micro, December 1982 
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SIMPLY 
AMAZING! 

NEW LOW PRICE— $99.50 

Mow else can you describe the Exatron Stringy Floppy system? You could 
say that it's an under $100, compact, reliable, robust, high-speed, 
computer-controlled, easy-to-use, well-supported alternative to disk 
drives, for a Model I or III TRS-80— simply amazing! 

Amazing Technology 

Based on a special endless-loop tape cartridge, called a Wafer, the 

ESF system was designed specifically for computer data storage. 

The direct-drive transport mechanism has only one moving part, 

and data is transferred to and from the tape at a rate of 7200 baud. 

Amazing System 

Thousands of ESF buyers have been amazed by I6K programs loading 
in less than 20 seconds; automatic verification of saved programs; up 
to 70K bytes, and 99 files, on a single Wafer; a ROM operating system 

(RAM based in Model III); no need for an expansion interface; and 1-year 

parts and labor warranty. 

Amazing Support 

With an ESF system you don't just get a piece of hardware, you get total 
support with hundreds of user workshops; dozens ot high-quality, reason- 
ably priced programs (such as Electric Pencil 2.0, Electric Spreadsheet, 
File Management System and Technical Word Processor); access to 
hundreds of FREE public-domain programs; an @NEWS user 
column in 80-US; @LOAD program magazine; and a 
pfiffffc toll-free information line. 
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TRS-80 is a trademark of Tandy Corporat 
Stringy Floppy Is a trademark of Exatron Cor 




Amaze Yourself 

To see for yourself how amazing the ESF sys- 
tem is, or for more detailed information, call 
us toll-free at 800-538-8559 (inside Cali- 
fornia 408-737-71 1 1) and take advantage 
of our 30-day money-back return policy. 
Copies of the 80-page manual are available 
for $4.95 (which you can credit towards an 
ESF), and while you re on the line ask about 
our equally amazing 64f\ RAM /ROM board 
for the Model I. 




excel fence in electronics 

exatron 
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181 Commercial Street. 
Sunnyvale, CA 94086 
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Handicapped Handicap 

If a golfer claims a handicap of eight 
it might be assumed that he is pretty 
good — unless it turns out that this 
handicap was computed using Michael 
Avery's system ("Two Strokes a 
Side," 80 Micro, May 1982) instead of 
the official USGA system. 

Any golf league, association, or club 
is free to use any system for assigning 
handicaps, just as it can adopt any set 
of rules for the play of the game. 
Scores and handicaps obtained under 
modified rules cannot legitimately be 
compared with those acquired with the 
standard rules. Articles such as Mr. 
Avery's reinforce the mistaken idea 
that handicaps are simply numbers as- 
signed arbitrarily, with poor golfers 
getting big handicaps and good golfers 
low handicaps. USGA rules regarding 
handicaps are explicit, and differ dras- 
tically from Mr. Avery's rules and 
from those he describes as the USGA 
system. 

The use of course par in place of 
course rating is simply not justified. 
Under the USGA system, a par 72 
course can have a rating anywhere 
from 62.8 to 80.6. These are extremes 
— course ratings are generally two to 
five strokes less than par. 

The look-up table that Mr. Avery 
uses (he gets the endpoints on the 
wrong side, does not reproduce the en- 
tire table, and overlooks the fact that 
SM might be equal to 358.8) is one that 
has not been used by the USGA since 
1975. It is not true that this table in- 
cludes the increased difficulty factors 
in lowering one's handicap as the hand- 
icap approaches zero; it was pub- 
lished for those who find the problem 
of taking 85 percent of a number and 
rounding to the nearest integer too 
mathematically demanding. 

Avery's system differs from the 
USGA's in using the best five of the 
last 10 scores rather than the best 10 of 
the last 20, and in using nine hole 
scores instead of complete rounds. 

It is not true that the USGA handi- 
cap system cannot be applied to those 
with fewer than five scores; while these 
handicaps are not official, they are 
computed and designated as tempo- 
rary by adding the suffix T. 

Mr. Avery asserts that his handicap- 
ping system "will do a credible job for 
a small golf league." If this is all that is 
desired, a much simpler system, not re- 



"I developed this 
program as an aid 
to golf leagues. . . " 



quiring a computer, could be devised. 

A golfer's USGA handicap is de- 
fined as 96 percent of the average of 
the lowest 10 of his last 20 differentials, 
provided at least 20 scores have been 
reported. If M (the number of reported 
scores) is less than 20, then N, the 
number of differentials to be counted, 
is determined as follows: if M <5, then 
N=l, if M = 6, then N = 2, and if M 
>6, then N = M/2, rounded to the next 
lowest integer if M is odd. Details, 
together with the current look-up 
table, can be found in the USGA 
magazine Golf Journal (No v. /Dec. 
1980, pp. 19-22). 

While the USGA system is far from 
perfect, all clubs assigning handicaps 
to their members should use a uniform 
system. Inability to adapt the standard 
system to a small computer is a poor 
reason for changing the system. 

B.J. Ball 

Rte. 3, Box 372 

Watkinsville, GA 30677 

Michael Avery Replies 

/ indicated in the article that a modi- 
fied form of the USGA system was 
used. The method J developed does not 
differ drastically, as Mr. Ball states. I 
indicated that course par could be used 
in place of a course rating because 
many small courses don't have a 
course rating. Are these courses to be 
denied handicapping? 

If Mr. Ball had checked the program 
he would see that the possibility ofSM 
being greater than 358 is taken care of 
in line 1530. 

When the program was written 
(about four years ago), it had the cor- 
rect handicap look-up table. The new 
table can be found in the latest edition 
of the golf rules, section 6. In the same 
section, the statement "Fewer than 5 
scores: no handicap" would seem to 
contradict Mr. Ball's statement. 

The data storage routines I used 
were not very efficient. Using more ef- 
ficient numeric string packing for cas- 
sette storage, as I now know, would 
greatly improve the storage perfor- 



mance. 

The rules I used for determining 
the number of differentials used are 
identical to the USGA method, but 
scaled down for a maximum of 10 
scores of course. 

I developed this program as an aid to 
golf leagues who wished a local hand- 
icap. No attempt was made to make 
this an official handicap, nor do I 
think it necessary. All that counts is 
that the calculation be fair and consis- 
tent. I believe that the program ac- 
complishes that goal. 

— Michael A very 

Golf Fix 

Helpful callers have identified a few 
errors in the coding of my "Callaway 
Golf Scoring Program" (80 Micro, 
May 1982, p. 300). The changes are as 
follows: 

1220 L = 0:L1 =0:P1 =0:IFSH<>1GOTO 1270 
2380 PRINT X + Y,T$(X + Y),T1(X + Y) 
2400 X = X + 10:IF NP>X GOTO 2370 

and delete line 2360. 

To use the program with a disk sys- 
tem do not set the memory size, and 
delete lines 10-30 and 160-200. The 
screen print routine will not work, but 
if your DOS has such a feature you can 
use that instead. 

Rodger Wells 

1008 Kehoe Drive 

St. Charles, IL 60174 



Verbatim® 
Diskettes 




Top-quality Verbatim® Diskettes 
from Tach«Data, your complete 
word and data processing supply 
center. Dealer inquiries invited. 

Call Toll Fraa "N 
1-800-237-8931. 
In Florida, call 
813-577-2794. 



V 



Tach*Data Corporation 

3251 Tech Drive North 
St. Petersburg. FL 33702 
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Donations Needed 

Goodwill Industries is interested in 
acquiring computer equipment. We 
are particularly interested in Model I 
hardware and software. Our organiza- 
tion is a non-profitable, charitable cor- 
poration, and contributions are tax 
deductible. 

If any reader is interested in making 
a donation to Goodwill, contact me for 
further information. 

Sidney L. Bloom 

President, Board of Directors 

Goodwill Industries 

114- A West Church St. 

Frederick, MD 21701 

Need Programs 

I am putting together a book of busi- 
ness programs for students in business 
education courses at the local technical 
institute. The accounting and business 
education students at this point only 
need to run programs. 

The technical institute has Model lis 
and Model Ills. We hope to set up a 
micro lab next year. I would appreciate 
any and all programs that your readers 
would send for student use. 

David P. Senkpiel 

Instructor, Business Education 

Guilford Technical Institute 

420 Manor Drive 

High Point, NC 27260 



Cheap Green Screen 

There are several green screens on 
the market, but being a penny-pinch- 
er, I came up with an idea that works 
very well. 

I went to the local office supply store 
and bought a dark green and a light 
yellow punchless report cover. I put the 
yellow inside the green and attached 
them to my screen with scotch tape. 
This combination gives a nice green 
color, and costs only 50 cents. 

Richard A. Little 

407-1 5th Ave. 

Sterling, IL 61081 

For Sale 

1 have a new Quick Printer I for sale. 
It comes with the instruction manual 
and two rolls of paper. I am asking 
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programs; this is for personal enjoy- 
ment. 

D. Griffith 

2932 'A W. Knights Ave. 

Tampa, FL 33611 

Jake Commander recommends Or- 



$300 or best offer. 


Need Wiring Diagram 


Zacharias Beckman 


Does anyone have the address of 


Pegasus Computer Systems 


McClain and Associates Inc., Indian- 


44040-6th Ave. 


apolis, IN? They made and sold an in- 


Paw Paw, MI 49079 


terface called Selcon V and converted 




IBM 1980s to use on a TRS-80 Model 


More Music 


I. They used to advertise in 80 Micro. 
I bought a unit and need a wiring 


Has anyone written a program simi- 


diagram for the 40-pin connector that 


lar to Radio Shack's Micro Music? I'm 


connects the IBM 1980 with the inter- 


looking for a larger text buffer. I 


face. Does anyone have a wiring dia- 


would like the program to include: 


gram that tells what color wire goes to 


starting at a specified point, notes 


what pin on the connector? 


shorter than eighths, an additional two 


I have written to them but the mail is 


octaves (one higher, one lower), and a 


returned and they don't have a phone 


softer "N"atural command that re- 


listing in Indianapolis. 


turns specified options (speed, tone, 


Robert Hober 


octave) to normal. 


RR #5, Box 125 


I don't want to integrate with Basic 


Holiday Island, AR 72632 


Parameters For ESF Wafers 


STARr.LENGTH.ENTRY 


Galaxy Invasion MEM (23200) 


©SAVE 1,23296, 9472.32724 


Robot Attack MEM (18432) 


© SAVE 1 , 1 8432, 1 4336,32686 


Eliminator MEM (18688) 


©SAVE 1 , 1 8688, 14080,20692 


Meteor Mission 


@SAVE1, 17664,1 1777,17664 


Cosmic Fighter 


@SAVE1,21760.10753,26073 


Super Nova 


©SAVE 1,24064, 8449.25491 


Attack Force 


©SAVE 1 , 1 7 1 52, 1 3570,30453 


Lunar Lander 


©SAVE 1 .20352, 1 2290.20352 


Defense Command 


©SAVE1. 18569,14136,18750 


The Count or Adventure Sampler 


©SAVEI, 17152,14592,17232 


Penetrator (Main or Editor) 


©SAVE 1 , 1 7408, 1 5 100, 1 7408 


Starfighter (Main or Trainer) 


©SAVEI, 16918,15100,171 16 


Pinball (Acorn) 


©SAVE 1 .20480. 1 2289,296% 


Swamp War 


©SAVEI, 17152, 5500.17520 


EDTASM Plus (Microsoft) 


©SAVEI. 17280.12035. 17280 


Z Bug (Microsoft) 


©SAVEI, 17280. 6070,17280 


TLD1S (Disassembler) 


©SAVE1.28672. 3351.28672 


COPSYS 


©SAVEI. 16969. 1012.17129 


Interlude (Over 16K) 


©SAVEI. 16640.16130.23040 


Gobbleman 


©SAVE 1 . 1 7408. 1 33 1 2, 1 7408 


Australian Programs 




Ghost Hunter 


©SAVE1.20992, 7925.21200 


Killer Beetle 


©SAVE 1,20480, 6588.26868 


Alien Crcsta 


©SAVEI, 20992, 8501,23449 


Centipede Attack 


©SAVE 1,20992, 4131.21476 


Tab! 


•/ 
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VisiCalc Templates? 

Are there any VisiCalc user-devel- 
oped programs for Investment Stock 
Analysis and Bond Interest Earnings, 
and so on? No doubt some experts 
have developed better programs than 
the average user and may not object to 
making them available. 

I would appreciate any suggestions. 

Robert B. Foster 

4909 Nasa Road 1 

Seabrook, TX 77586 

See Desktop Computing for an ex- 
planation of VisiCalc and its uses. — Eds. 

ESF Copies 

This information will be beneficial 
to anyone with an Exatron Stringy 
Floppy. I've enclosed a list of parame- 
ters to copy many popular machine- 
language programs onto Stringy Flop- 
py. This information is tested for use 
on the Model I, Level II TRS-80. 

From the Ready prompt type sys- 
tem. From the *? prompt type the file 
name (or first letter of the file name) of 
the machine-language program you're 
loading. After the program has loaded, 
the *? prompt reappears. Type / 12345 
to initialize the Stringy Floppy and 
return you to Basic. 

Now type @SAVE1 .start, length, en- 
try. Start is the starting address, length 
is the number of bytes to move, and en- 
try is the entry point. (See Table 1 for 
the parameters.) 

Please don't use this information to 
pirate other people's programs. 

Gobbleman will crash as soon as you 
answer the 1 or 2 player question. Af- 
ter the crash the computer reboots. 
From the Ready prompt type system. 
From the *? prompt type / 17408. Gob- 
bleman will run correctly. 

A. Tito 

103 Lauren St. 

Urangan, Queensland 4658 

A ustralia 

Missing Copy 

I am writing to see if you can help 
me obtain a copy of the November 
1981 issue of 80 Micro. When I wrote 
in January to ask the subscription de- 
partment for my missing issue, I was 
told it was no longer available and my 
subscription was extended one month. 
I then thought perhaps you kept a cer- 
tain number for back issues, so I or- 
dered a back issue, but again the reply 



was it was no longer available. Any- 
thing that you can do or suggest in ob- 
taining the November 1981 issue would 
be greatly appreciated. I value each one 
of my 80 Micro issues highly, and I 
don't want to be one short of a com- 
plete collection. 

Murray Jones 

P.O. Box 698 

Campbell River, B.C. 

Canada V9W 6J3 

The November 1981 issue is as rare 
as proverbial hen 's teeth. As a matter 
of fact, even some of our editors don 't 
have a copy. Is there a reader out there 
who can help Mr. Jones out? — Eds. 

Modem Search 

I am looking for a modem that can 
be set at 300 or 1200 baud, and soft- 
ware to enable me to download or up- 
load to disk from CompuServe or The 
Source. I was told that it's cheaper to 
download at 1200 to disk than to 
download at 300 baud to my printer. 

I own a Model III Level II, 48K, 2 
disk drives and an Epson 80 FT 
printer. 

Terry Rubin 

2928 Rockingham Circle 

Orlando, FL 32808 

See New Products, November 1982. 

—Eds. 

TRS-232 Newsletter? 

I would like to contact users of the 
Small Systems Software TRS-232 in- 
terface for the Model I. Many users of 
this clever interface could benefit from 
a newsletter; in particular, 1 am inter- 
ested in exchanging information on in- 
serting the TRS-232's printing code in- 
to machine-language programs which 
print via the parallel or possibly 
RS-232 ports only. 

Please contact me if interested, and 
let me know what programs you have 
converted to TRS-232 use. 

Sidney L. Bloom 

114- A West Church St. 

Frederick, MD 21701 

Monitor or TV Screen? 

I would like to purchase a color 
monitor that I can use with my Color 
Computer and with my next computer 
(whatever that is). 

Does Amdek, NEC, Sanyo or one of 



the other color monitor manufacturers 
have a model that doesn't use RGB 
that would be compatible with my Col- 
or Computer, or is further modifica- 
tion needed? 

Samuel Baker 

2823 Baker St. 

San Francisco, CA 94123 

More Memory? 

I recently installed 32K worth of 
memory in my Model III (from 16K to 
48K) with chips purchased from one of 
your advertisers (Computer Plus). 
Everything seems to function normally 
except that now the PEEK and POKE 
commands won't function at addresses 
greater than 32767, which is where my 
16K ended! I can load and run pro- 
grams into the new memory, the 
?MEM command gives a 48K re- 
sponse, but PEEKing and POKEing 
into the new section gives me an OV er- 
ror. I can't burn in the new chips and 
my warranty is quickly running out on 
them! Can anyone help? 

Also, does anyone know a simple 
way to send special characters such as 
control codes to a printer using cassette 
Scripsit? 

J. William McDonald 

4206 Trio Lane, Apt. #3 

Louisville, KY 40219 

Mission Aid 

Our missionary' organization (associ- 
ated with the US Center for World Mis- 
sion, Pasadena) uses a donated Model I, 
48K with tape drive. We bought the TC- 
8 operating system and an ET12 inter- 
face, linking the system to an IBM Elec- 
tronic 50 typewriter. Our main use is 
word processing, but we use a general 
ledger program adapted from 80 Micro. 

We want to manage our mailing list 
with the Radio Shack Cassette mail List, 
but there are problems. Anyone who has 
used the program knows it sorts very 
slowly. Has anyone successfully modi- 
fied this program to speed up the sorting 
process for use with the TC-8 system? Fi- 
nally, how can I get lowercase with the 
mail-list program? 

If you can help or would like to contri- 
bute equipment or software, please write 
or call (213) 797-1937. 

J. Gene Adkins, President 

Omega World Missions Inc. 

1605 Elizabeth St. 

Pasadena, CA 91104 
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Sea Dragon 

Adventure International 
Box 3435 

Longwood, FL 32750 
Model I or m 
$29.95 disk 

by Eric Maloney 
80 Micro staff 

When Sea Dragon made its debut 
here at 80 Micro, our Eliminator 
fans didn't like it, while everyone else 
did. This was curious, because at first 
blush the two games are similar. Both 
feature a horizontal scroll, and both in- 
volve destroying (or avoiding) objects 
rising from the bottom of the display. 
In fact, Sea Dragon looked like an 
Eliminator clone. 

But it didn't take too many hours be- 
neath the phosphor waves to realize that 
Sea Dragon has an aquatic rhythm that 
gives it an integrity of its own. It's as 
cool and casual as Eliminator is hot and 
furious, with enough of a kick to keep it 
challenging. 

The object of Sea Dragon is to guide 
a submarine (presumably called the Sea 
Dragon, though the documentation 
isn't clear on this) through a series of 
underwater passages and destroy a nu- 
clear reactor. During the trip (which 
covers 24 screens), you must blast or 
evade a variety of mines, stalactites, 
battleships, lasers, and enemy attack 
stations. You also must maintain your 
oxygen supply by surfacing occasional- 
ly, or risk total obliteration. 

Each direct hit is worth from 50 to 
500 points. The big banana, of course, 
is the reactor, which is worth 5,000 in 
the novice mode or 10,000 in the expert 
mode. Once you blow it away, you go 
back to the beginning, at a faster and 
more difficult pace. 

Like most arcade games, Sea Dragon 
requires digital dexterity. You must 
learn how to move your ship over, un- 
der, and around the rising mines, when 
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to speed up or slow down, when to sur- 
face for air, when to run or shoot, and 
how to avoid getting snuffed by the ene- 
my attack stations. 

When you figure all that out, you get 
to tackle the tough part — doing it while 
maneuvering through the tunnels. 
Touching the walls means complete an- 
nihilation (what else?), and the tunnels 
sometimes seem to go on forever. Find- 
ing a place to surface is cause for rau- 
cous jubilation, enemy mines or no. 
(This is definitely not a game for 
claustrophobics.) 

At first, your scores will be pitifully 
low, which is just as well, because you 
won't want anything but to get through 
the tunnels. When you're finally good 
enough where points count, AI offers 
you their familiar scoreboard, which 
lets you (if you use disks) save the top 10 
scores. This feature is terrific in places 
(such as the 80 Micro office) where a 
number of people are using the same 
disk, and will extend its playtime con- 
siderably. The permanent scoreboard 
should be standard on any quality 
game, and other manufacturers would 
do well to follow AI's lead. 

Despite Sea Dragon's many qualities, 
what sets it a notch above the pack is the 
organic nature in which it was designed. 
The authors conceived a scenario, and 
then gave it the unique contours and 
rhythms its contents suggested. Thus, 
while the pace would be excruciatingly 
slow in outer space, it is well-suited to 
Sea Dragon's underwater environment. 

(The expert mode, on the other hand, 
is frenetic enough to give your heart fib- 
rillations.) 

Sea Dragon is another example of an 
emerging aesthetic in the computer 
game world. Software authors are be- 
ginning to realize that a game needs to 
be internally consistent to stand the test 
of repeated plays. It doesn't work to 
simply state in the documentation that a 
blip on the screen is a space ship or a 
tank or a submarine. The game must in- 
vite the player to participate, to feel the 
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action, to sense the flow. The world it 
creates must be complete and self-con- 
tained. This is possible only if the shape 
of the game supports and enhances its 
premise. Authors Wayne Westmore- 
land and Terry Gilman (Armored Pa- 
trol, Eliminator, and now Sea Dragon) 
are quickly developing a track record 
that shows they have the knack. 

Sea Dragon's major drawback is the 
combination of keys it requires you to 
use. The back arrow decreases speed 
and the enter key fires missiles, and it's 
almost impossible to do both at the 
same time. Also, you use the up and 
down arrows to move vertically, and 
you won't find a position that lets you 
get to both comfortably. The result is 
that you'll often hit the wrong keys 
when you can least afford to. 

All in all, Sea Dragon is worthy of 
the AI stamp. It's not as distinctive or 
original as AI's classic Armored Pa- 
trol, but it offers more than enough 
to be a welcome addition to most 
game libraries. It might even catch on 
with Eliminator fans.B 
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TRS-80 Assembly 

Language Subroutines 

William Harden, Jr. 

Prentice-Hall 

Engtewood Cliffs, NJ 07632 

$18.95 

by G. Michael Vose 
80 Micro staff 



Bill Barden has become the guru of 
TRS-80 Assembly-language pro- 
gramming. The many thousands of 
words he has written on this tricky sub- 
ject have. endeared him to a vast au- 
dience of programmers hungry for tips 
on technique. He has even mastered 
Assembly language for the TRS-80 Col- 
or Computer. And it appears that he's 
not done yet! 

Evidence attesting to Barden's lead- 
ership pops up every day, most recently 
in a book called TRS-80 Assembly Lan- 
guage Subroutines. Inside, you'll find 
65 subroutines, all written in Z80 As- 
sembly language. They'll allow you to 
perform a multitude of difficult-to- 
program functions with speed and ease. 
The book is a veritable fountain of use- 
ful routines. 

But wait a minute. When was the last 
time you needed to implement a 16-by-16 
multiply operation in Assembly lan- 
guage? Or an ASCII-to-binary conver- 
sion? How about a multiple-precision 
BCD add? 

This is pretty heady stuff! It seems 
that most of these subroutines, because 
they are very specialized or compli- 
cated, are useful only if you're a fairly 
sophisticated programmer. This is not 
evident, though, when you casually leaf 
through the first several pages. 

Barden's attempt to make the book 
appeal to as large an audience as possi- 
ble is confusing. I felt as though I had 
taken the wrong road in an adventure. 
It is obvious that a great majority of the 
routines in the book would be useful 
only to the kind of person who needs to 
implement a random number generator 
in Assembly language, for example, not 
a beginner's task. Yet the first two 
chapters of the book are a halfhearted 
attempt at introducing newcomers to 
Assembly language, a most difficult 
subject. 

The writing in these first two chapters 
also belies the fact that Barden has been 
over this ground so many times that he 



has lost interest in this aspect of the sub- 
ject. Nevertheless, he has thrown them 
in, apparently to justify selling this 
book to an audience of beginners as well 
as seasoned Assembly-language mavens. 

In spite of this shortcoming, this is a 
useful book. Many of the subroutines 
are useful to the Basic programmer who 
wants to speed up graphics, dump 
graphics to a printer, perform some ele- 
mentary animation (moving dots), or 
implement a time delay. Other routines 
will aid the Assembly-language pro- 
grammer who hasn't yet figured out 
how to write a random number genera- 
tor, how to read/ write disk sectors or 
cassette records, or how to read RS-232 
switches. 

The best feature of the book is its for- 
mat. Each subroutine is written in relo- 
catable code, meaning it can be used 
anywhere in memory because it con- 
tains only relative memory addresses. 
Each routine is printed as an assembled 
source-code listing so that the routine 
can be entered into a machine with ei- 



ther an editor/assembler or a monitor 
like Debug. Plus, each routine is also 
listed as a Basic data statement so that 
the routine can be POKEd into mem- 
ory from Basic. Barden and his editors 
have even computed and listed the 
checksum for each routine so that the 
programmer can verify his data entry. 

The book is spiral bound so that it lies 
flat on your lap or desktop while you're 
typing in the code for a routine. There is 
an appendix summarizing the Z80 in- 
struction set so that making changes to 
specific routines will be easy for the ex- 
perienced programmer. 

Barden offers all the routines in the 
book on disk — the cost will be disclosed 
to you if you express an interest by writ- 
ing to him. 

There is no question that books like 
this one have a place in the library of in- 
formation that is now available for the 
TRS-80. Anything that makes pro- 
gramming the computer easier is appre- 
ciated. It seems that Bill Barden will 
evermore be readv to fill that need.l 
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Wolfbug 64K 

Color Computer Upgrade 

Atomic City Electronics 

3195 Arizona Ave. 

Los Alamos, NM 87544 

Wolfbug with adapter card $55 

64K RAM card without memory 

S44.95 

64K RAM card with memory $144.95 



by David L. Wasler 

Upgrading your 4K, 16K, or 32K 
Color Computer to 64K is a rela- 
tively easy modification when using 
Atomic City Electronics' 64K upgrade. 
The upgrade consists of two major 
components: a monitor called Wolf- 
bug, which has 12 single-key com- 
mands, and a 64K RAM adapter card 
that reconfigures the old RAM socket 




Photo I. Top view of the Color Computer. To the left is U29 and Ull with the jumper. Bottom 
center is the 64K RAM card with 4164 RAM. Top center is the Wolfbug adapter card. 
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Med Systems staff of programmers is 
known for producing some of tne finest 
software available today. Now we an- 
nounce two arcade games worthy of the 
Med Systems name: Laser Defense and 
Star Trap. Laser Defense: a totally original 
action game, not just an arcade ripoff! 
And Star Trap: the first home arcade game 
to allow two players to compete simulta- 
neously! Both feature state of the art 
graphics, sound, one or two player op- 
tions, and high score saving. 

But don't take our word for it. See the 
review in the August, 1982 issue of 80 
Microcomputing. And remember, Med 
Systems offers to refund your money if 
you aren't satisfied. Just return the game 
within 14 days of receipt. 



Laser Defense 

Your laser satellites must defend helpless 
cities against nuclear attack while attack- 
ing and destroying the enemy's launch 
silos. Particle beam weapons, nuclear 
power stations, the eradicator, and a two- 
map graphics system combine to pro- 
duce one of the finest arcade creations 
available. 



Star Trap 

The first two player arcade game! 

Bouncing between two gigantic 3-D 
hypergrids are the stars of a thousand 
worlds. Capture as many as you can, or use 
your nova to annihilate them! Simultane- 
ous two player option allows players to 
compete head-to-head in real time! 

Laser Defense and Star Trap are available 
on cassette or diskette and require 16K of 
RAM. 



Laser Defense cassette 
Diskette 



Star Trap 



Cassette 
Diskette 



$15.95 
$18.95 

$15.95 
$1895 



Please add 52.00 for first class postage, 
S4.00 for overseas air mail. 




MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1-800-334-5470 



OR SEE YOUR DEALER 
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to accept the new 4164 RAM. The 
uniqueness of this upgrade is its sim- 
plicity. Traces do not need to be cut; 
just solder in a couple of wires for 
power, address lines, and some jump- 
ers, and you have 64K of usable RAM. 
The instructions, which are very 
thorough, consist of two parts. One is 
for the EPROM adapter card, which 
holds Wolfbug in a 2716 EPROM, 
and the other is for the 64K RAM 
adapter card. 

Wolfbug Adapter Card 

The instructions for the Wolfbug 
card tell you to remove the Basic 
ROM and install the new card. Be 
careful; Radio Shack sockets are the 
type that prefer flat pins, like the ones 
on an integrated circuit, and Atomic 
City's are the round-type pin. 1 filed 
the sides of the pins slightly flat to 
solve the problem. 

Now, carefully push the Wolfbug 
adapter card. Care must be taken here 
to avoid damaging the adapter card or 
breaking the pins. If there is any resis- 
tance, check for a mismatch. Four 
wires must be soldered; one is to a 
ground wire while the other three are 
for decoding Wolfbug. 

64K RAM Adapter Card 

Installing the 64K RAM adapter 
card is as simple as the Wolfbug card. 
Remove the old RAM, U20 through 
U27, from their sockets and install the 
64K RAM card in their place. I experi- 
enced the same problem with the pins 
here as on the Wolfbug, so once again I 
filed the sides of the pins. 

Another problem I encountered was 
that the RAM sockets, which Radio 
Shack installed, were misaligned, so 
care was needed when pushing the 
RAM card into place. 

Two wires on the card require sol- 
dering: the wire on the left side of the 
RAM card to TP12 ( + 5 volt) and the 
right wire to V10, pin 35 (RASI). Two 
RAM size jumpers must be reconfig- 
ured, one by U4 to the 4K position, the 
other by U10 to the 16K position. 

The Color Computer will run with 
these modifications now, but you can- 
not use the MAP type #1 mode yet. A 
jumper must be installed to get the 
MAP #1 (that is free memory from 
$0000 to SF800). For this part of the 
upgrade 1 recommend new Ull 
(74LS1 38) and U29 (74LS02) chips, be- 
cause you can take out the MAP #1 

.-See List of Advertisers on Page 451 



mode, install the Ull and U29 chips 
and take your computer in for repair — 
after, of course, you takeout the RAM 
card and Wolfbug. 

On the new U 1 1 , 1 bent pin 5 straight 
out; on U29, pins 11, 12, and 13, also. 
Next, I inserted the Ull and U29 into 
their proper sockets and soldered a 
jumper from U29 pin 13 to Ul 1 pin 5, 
U29 pin 8 to U29 pin 1 1 , and from U29 
pin 12 to U8 pin 21 . This completed my 
64K upgrade. After double checking 
my work, I turned the power on and 
tested to see if 1 had the correct voltage 
on pins 1, 8, and 16. 



The big step came next. After turn- 
ing off the power, 1 carefully installed 
the new 4164 RAM, making sure all 
the pins were in their sockets. After 
turning the power on I requested the 
memory size. I got back 24871, which 
is correct for the Extended Basic com- 
puter. For owners of Standard Basic, it 
will be 31015. 

Next I tried Wolfbug, which has a 
memory-test routine, by holding the 
break key, pushing and releasing the 
reset button, and answering R to the 
Wolfbug prompt. This switches the 
system to all-RAM mode (MAP type 



A FULL LINE OF SEMIDISKS 




TRS 80 Model 2 




IBM Personal Computer 



Do you use your computed Or does your computer "use you' Face it, * you re using floppies your time is being wasted. 
Because a floppy is an .nefficient random access storage device Each lime the processor wants to transfer data, it has to wart 
an eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisk. quick Its a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive Without all the waiting. Do everything you d do on a floppy or hard disk, with no modifications to your 
software or hardware Two board sues are available: 512K and I Megabyte, (the highest density microcomputer memory 
board in the world) And you can put up to 8 megabytes in a system by adding more storage boards 

What do you need to use it? Just an S-100 system with CP'M 22. Or a TRS-80 Model 2 system with 
CP M 2 2 Or an IBM Personal Computer That s it No special processors. DMA. I/O. or disk controllers are required Plug it in 
and run the installation program, and you re on your way. Fast! Even better, we supply full source code to the driver software, in 
case you d like to do your own interfacing 

Best of all. the SemiDisks price wont warp your wallet Compare specs, cost megabyte, storage capacity, and 
compatibility with the competition You II see that the SemiDisk is a disk emulator truly worthy of the name SemiDisk has 
battery-backup capability, too 

Consider our limited warranty: A full year, covering all parts and labor Consider our liberal 15 day return policy Price 3 
S 1 995 for 5 1 2K byte SemiDisk. $2995 for I Megabyte SemiDisk Both from stock. S 1 0.00 for manual VISA, Mastercard, COD 
orders accepted. Dealer and OEM inquines welcomed (Specify system type and disk format when ordenng ) 



Someday, you'll get a SemiDisk. 

Until then, you'll just have to wait. 



SemiDisk 
SYSTEMS 



P.O. Box GG 
Beaverton. OR 97075 



(503)642-3100 



■ 16 55 1 loc CBBS T1W. i Semi DWi tquipcwd <om«>ul« bufcui bo*d 
SrtmDisk uademark of SemiDisk 5ysJ*»is TRS 80 trademark at RaAo Shack 
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#1), 64K only. After being prompted a 
second time, I entered T for memory 
test. I next answered $0550 to the start- 
address query and $F7FF to the end- 
address query (which is the end of free 
memory). Immediately, characters ap- 
peared on the screen and began to 
move, indicating that the memory was 
being tested. The memory test takes 
about 15 minutes. 

What is Wolfbug? 

Wolfbug is a machine-language 
monitor that resides at $F800 to 
SFFEA. Its 12 single-key commands 
are as follows: 

• A is an ASCII dump of any memory 
location. When A is entered, you are 
prompted with a start address. After 
entering the address, a memory page 
appears ($BF or 192 decimal memory 
address equals a page). An ASCII 



character will appear on the screen if a 
value at the required address equals an 
ASCII value. Hitting enter moves you 
to the next page. 

• B enters Basic or returns you back to 
Basic. 

• D routes the output to the display. 

• F is the floppy disk boot. 

• G is a go-to-a-machine-language pro- 
gram. After entering G, you are 
prompted with a Go-To query; enter 
your hex address and off you go. 

• H is a hex dump of memory similar 
to A, except it gives you a hex value (a 
page here equals $5F or % deci- 
mal). Hitting enter advances you to 
the next page. 

• L transfers Basic to RAM in the 64K 
mode and runs it. 

• M examines or changes memory. 
When entering M, you are prompted 
with an examine-address query. Enter 



a hex address. Hit the space bar to 
advance and the back-space key to 
move back. 

• P sends everything out to the printer 
that appears on the screen. 

• T tests memory. When entering you 
are prompted with a start-address 
query and then an end-address query. 
The memory-test routine checks RAM 
by writing a pattern and then reading 
it. This pattern is altered 256 times. 

• R switches you to MAP #1 mode, 
which is the full 64K mode. 

• X allows typing text to the screen, 
like a typewriter. If the P command is 
entered before the X command, hit the 
enter key and it will send the screen in- 
formation to the printer. 

Wolfbug is an excellent upgrade 
from its installation to fine documen- 
tation. I have been using it for six 
months and have had no problems. ■ 
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Elementary Basic: Learning to Program 
Your Computer in Basic with Sherlock 
Holmes 

Elementary Pascal: Learning to Pro- 
gram Your Computer in Pascal with 
Sherlock Holmes 
Chronicled by John H. Watson 
Edited with Commentaries by Henry 
Ledgard and Andrew Singer 
Random House Inc. 
Vintage Books Division 
Softcover, 265 pp. each 
$12.95 each 

by John P. Mello Jr. 
80 Micro staff 

As the preface to these books goes, 
Ledgard and Singer were taking a 
nip of tea one day when word came a 
trunk had arrived from England for 
Ledgard 's wife Edwina. Neither man 
thought anything of the announcement 
until the next day when Singer noticed 
his friend was distraught. 

"Henry, is something wrong? You 
don't seem yourself this morning," 
Singer said. 

"It's the trunk," Ledgard replied. 

"Trunk?" 

"The trunk that came for Edwina 
from England yesterday." 

"Oh, that trunk. What about it?" 
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"It's a very strange trunk; that is, I 
mean its contents are strange. The trunk 
is full of manuscripts." 

"What's so strange about that?" 
"They all seem to have been written 



"Watson opens each 

chapter describing an 

encounter with Holmes 

and his Analytical 

Engine. " 



by a certain Dr. John Watson about a 
certain Mr. Sherlock Holmes." 

"Now really, Henry, be serious." 

"I am completely serious, but I 
haven't told you the best part of it. 
What do you suppose the manuscripts 
are about?" 

"I refuse to have my leg pulled in this 
fashion, Henry!" 

"Andrew, Holmes was an ace pro- 
grammer. According to Watson, he 
used a successor to Babbage's Analyt- 
ical Engine in his work. The manu- 
scripts are Watson's chronicles of their 
experiences. Holmes's insights are 
brilliant. His deductive powers and 
methodical nature made him a natural 
programmer." 



Even if apocryphal, Ledgard's and 
Singer's premise is intriguing. It is also 
entertaining because the authors take 
pains to capture the flavor and proper 
Victorian prose of the Holmes stories. 

Watson opens each chapter describ- 
ing an encounter with Holmes and his 
"Analytical Engine." Holmes uses the 
magical machine to solve a murder at 
the Metropolitan Club, unlock the mys- 
tery of a socialite's disappearance, iden- 
tify cigars by their ashes, find a rare Bi- 
ble, break up a burglary ring, create a 
cipher for the Foreign Office, add mo- 
lecular weights, write coroner's reports, 
uncover the handiwork of his arch foe 
Moriarty, and write a treatise on his 
methods. Each problem is analyzed by 
the master of Baker Street, displayed 
first as an "algorithm"— a shorthand 
form of the program — then as an actual 
program. 

At the end of each chronicle, there is 
a didactic commentary by the authors 
detailing the concepts used by Holmes 
to solve a problem. As you might ex- 
pect, the commentaries lack the stylistic 
charm of the chronicles, but are invalu- 
able in giving a detailed explanation of 
Holmes's methods. They also serve as 
counterweights making the books easier 
to read. When Watson showed signs of 
information overload ("Enough, 
Holmes! I can absorb no more."), 
Holmes usually suggests a diversion, a 
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night at the opera or a cold partridge 
and a bottle of Montrachet. The com- 
mentaries act like such a diversion for 
the reader. 

One disappointing feature of the 
books is the chronicles in them are 
almost identical, so if you read one of 
the books, the second one's ruined. Af- 
ter all, without the chronicles, these are 
just books on programming. However, 
reading the books together can give you 
some insights into how Pascal stacks up 
against Basic. 

Another problem a novice might en- 
counter is getting the Basic programs to 



'. . . the commentaries lack 

the stylistic charm of the 

chronicles, but are 

invaluable in giving 

a detailed explanation 

of Holmes' methods. " 



work. The authors spend a lot of ink ex- 
plaining the idea behind "pretty- 
writing" — properly spacing the ele- 
ments of a program to make it easy to 
read and understand — but ignore "user 
friendliness." For example, in the pro- 
gram for enciphering messages, you are 
told "enter message characters." I put 
in the entire message only to have the 
program bomb — only one letter could 
be enciphered at a time. 

Can you start with zero knowledge 
about these programming languages 
and become proficient in them from 
reading these books? No. I had some 
background in Basic and none in Pascal 
when I started reading the books. I 
found my Basic knowledge necessary to 
handle the later chapters in the Basic 
book. After reading the Pascal book, I 
still did not feel proficient in the 
language. 

So without prior knowledge of one of 
these languages, you could find these 
books — despite their clever approach to 
the subject — heavy sledding. Before 
you pick them up, you should have been 
puttering in the languages for awhile or 
taken a short course in the fundamen- 
tals, preferably the latter. There is no 
substitute for thinking when it comes to 
programming, Ledgard and Singer 
noted in their books. The same may be 
true of classroom teaching. ■ 

»» See Utl ot Advertisers on Page 451 



^EftSVF^RD WDRDPRDCEBSDR* 

♦FEATURES 
*4 nay cursor control. Repeat key. Scroll ira. Machine lansuase operation. 
tCoatinovs indication of line no. t cursor position and end of file. 
•Insert/delete character to end of paragraph. Insert/delete line or block. 
*Block copy. Block tove. Global find. Compressed ASCII data storase. 
♦Parti a I /complete saves to disk or tape. Load and insert fro* disk or tape. 
♦Urse data files can be processed with nxt coand. Edit ASCII Basic files. 
♦Upper/ tower case printout. Printout separates line at nearest word. 
♦Printout of specified lines to specified spacinsi nargms. line lensth. 
•Control of printer with control characters. Headers. Pase lensth control. 



♦ORDERING INFORMATION 
♦Send 129.95 Plus *3.M for handling to:- 
Check or Honey order accepted. 



For Model I or III 32K or 68K Disk or Tape 



) FGR Software 

191 Uoburn St. 
Reading. Mass. 

" ,66 (517) 942-1558 



11887 



7^t, » SIMSIM, INC. 

- w -^-— ■- ~~" 214 North Main St.. Natick. MA 01760 U.S.A. 

(Lakewood Office Park: Junction of Route 9 &. 27) 

NEC Spinwriters 7700 and 3500 
klm-rifen Utter-quality leader 

■JSP Serial 77xx List price $3085.00 

^^ SIMSIM's price $2390.00 

Serial 35xx List price $2290.00 

- <~ SIMSIM's price $1775.00 

V"- ^^y Two new models just introduced 

, XA/XVW Low-cost 3510 and for IBM personal computer. 3350 
M I Call for prices (Dealers inquiries invited) 

IN COMPUTER SYSTEMS 

1-800-3434090 In Massachusetts Call collect (617) 655-6415 




NEW TRS-80* PROGRAM 
LETS YOU CHART STOCKS 
LIKE A WALL STREET PRO. 

The WSII Street TAP is a powerful, professional 
stock market trading tool. It employs the same 
charting methods used by successful market 
experts to buy. sell and hold stocks. 

Now. you can make these time-sensitive decisions 
yourself and make more money on the market 

Point and figure, moving average and on balance 
volume charts are at your fingertips to spot trends and 
compare the performance of two stocks instantly. 

Easy to use. the Wall Street TAP is self-documented, user 
friendly, self-prompting with virtual error-free entry and batch 
updating. You need a TRS-80 Model I or III 48K and 1 disk drive 

•TRS-60 is a trademark ot Tandy Corp 

WALL 
STREET 




TAP 



* Technical Analysis Package. •" 371 




SPECIAL EXTRA 
INTRODUCTORY BONUS. 
FREE Boc* included 
if you order today' 
Understa rid log Wall 
Street. One of those 
rare publications that 
Oelivers etactly what it 

promises Barron s 



Chart Stocks, Commodities a Currencies 3 Whys. 

Name 
Address 



FOR MORE PROFIT ft BIGGER GAINS 
ORDER YOUR WALL STREET TAP TODAY! 



D Yea. I want to start charting stocks on my 
TRS-80 today Please send my Wall Street 
TAP tape immediately. US $199 95 is en- 
closed I understand postage, handling, 
documentation, sample printouts, help 
desk support and FREE Bonus is included 

Z Send documentation only US S29 95 plus 
$2 postage and handling ($29 95 refund- 
able if you purchase package later.) 



City State Zip 

Payment I Z Check Z Money Order 

Zl Visa : : MasterCard M2 
Card No 
Expiry Signature 

Fill-In & Mail Coupon To Think Software Inc 
572 - 810 W Broadway Vancouver B C Canada 
VSZ 4C9 O Phone For Faster Delivery Card users 
only call 24 hours (604 261-7261 Dealer 
Inquiries Welcome 
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OMNITERM 

The ULTIMATE TRS-80 
Terminal Package 

What is OMNITERM? 

OMNITERM is a professional communications 
package for the TRS-80that allows you to easily 
communicate and transfer files or programs 
with almost any other computer. We've never 
found a computer that OMNITERM can't work 
with. It's a complete package because it in- 
cludes not only the terminal program itself, but 
also conversion utilities, a text editor, special 
configuration files, serious documentation and 
serious support. 

Why do I need it? 
You need OMNITERM if you need to communicate 
efficiently with many different computers, or if 
you want to customize your TRS-80for use with 
one particular computer. You need OMNITERM to 
SOLVE your communications problems once and 
for all. 

What do I get? 
The OMNITERM package includes the OMNITERM 
terminal program, four conversion utilities, a 
text editor, and setting files for use with popular 
computers such as CompuServe, the Source, 
and Dow Jones —just as samples of what you 
can do for the computer you want to work with. 
The package includes six programs, seven data 
files, and real documentation: a 76-page manual 
that has been called the best in the industry." And 
OMNITERM comes with real user support. We 
can be reached via CompuServe. Source, phone, 
or mail to promptly answer your questions 
about using OMNITERM. 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80, at least 32K of 
memory, one disk, and the RS-232 interface, or 
Microconnection modem.OMNITERM works with 
all ROMs and OOSes, and will work with your 
special keyboard drivers. 

What will it do? 
OMNITERM allows you to translate any char- 
acter going to any device: printer, screen, disk, 
keyboard, or communications line, giving you 
complete control and allowing you to redefine 
the character sets of all devices. It will let you 
transfer data, and run your printer while con- 
nected for a record of everything that happens. 
OMNITERM can reformat your screen so that 80. 
32. or 40 column lines are easy to read and look 
neat on your TRS-80 screen. It even lets you get 
on remote computers with just one keystroke! 
The program lets you send special characters, 
echo characters, count UART errors, configure 
your UART, send True Breaks and use lower 
case. It accepts VIDEOTEX codes, giving you full 
cursor control. It will even let you review text that 
has scrolled off the screen 1 Best of all. OMNI- 
TERM will save a special file with all your 
changes so you can quickly use OMNITERM for 
any one of many different computers by loading 
the proper file. It's easy to use since it's menu 
driven, and gives you a full status display so 
you can examine and change everything. 
"OMNITERM has my vote as the top TRS-80 
terminal program available today'' Kilobaud 
Microcomputing. June 1981. pages 16-19. 

OMNITERM is S95 (plus shipping if COD) Call for 
24 hour shipment. Manual alone $15. applied 
toward complete package. Visa. M/C, and COD 
accepted MA residents add 5% tax. Dealer 
inquiries invited. 

Also available OMNITERM for the TRS-80 
Model II and IRM personal computer. 
Contact Lindbergh Systems for details. 

ffindbergh Systems 



41 Fairhill Road, Holden. MA 01520 
(617) 852-0233 „ 135 

Source TCA818 CompuSurt TO10X7 TRS-80 is a - of Tandy Com 
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Lisp 

Supersoft 

P.O. Box 1628 

Champaign, II 61820 

$100 disk 

$75 cassette 



• • • • 

UOL1SP 

Far West Systems and Software 
P.O. Box 3301 
Eugene, OR 97403 
$109 



by Bruce Powel Douglass 



Lisp stands for list processor. 
Lisp is the language of choice in ar- 
tificial-intelligence programming, be- 
cause of its flexibility, power, and abili- 
ty to work with symbolic expressions. 
The two Lisps reviewed here are good 
implementations of the language; they 
do, however, take different approaches. 

Lisp 

Supersoft's Lisp is not a "tiny" Lisp, 
but a complete version allowing full re- 
cursion. It has a PROG construct to al- 
low using sequential types of programs 
written in Lisp. Lisp runs in 16K with 
cassette systems and supports single- 
precision, floating-point arithmetic and 
functions. It uses the Basic ROM rou- 
tines to do this, which accounts for con- 
siderable reduction in the size of the 
Lisp interpreter. 

The manual is fairly good. It is not a 
tutorial on Lisp, but does describe the 
Supersoft implementation well. It 
lacks an index, but does have a table of 
contents and a list of relevant refer- 
ences. It assumes little programming 
expertise on the part of the user other 
than a little familiarity with Lisp. 

The language itself is easy to use. A 
Trace debugging facility is provided so 
you can trace a function's execution. 
Also, a symbolic-differentiation pro- 
gram is supplied, as well as a Taylor- 
series expansion program. These allow 
easy entry of mathematical expressions 
and generate the derivatives or Taylor 
series, respectively. 

The package provides a few abilities 
beyond normal Lisp packages. The Ba- 
sic transcendental functions (such as 



SIN, COS, ATN, and LOG) are sup- 
ported. Explode and Implode, func- 
tions not supported by UOLISP, are 
supported. PEEK and POKE are also 
available in Supersoft Lisp, as is 
LPRINT. TRS-80 graphics commands 
are not supported. 

Disk I/O is provided so that you can 
load or save functions and programs to 
or from disk. The files are saved in 
ASCII format, so you can edit them 
with a text editor. Generally, for long 
programs, it is easier to create and edit 
them with a text editor rather than us- 
ing the Lisp environment. You can 
save property lists of atoms as well as 
functions and atoms. Tape users use 
CLOAD and CSAVE, and disk users 
use Load and Save; disk users can also 
kill disk files from within Lisp. 

Edit, a Lisp editor, lets you modify 
existing Lisp functions. To use it, load 
it from disk (with the command 
(LOAD '(EDIT/LSP)) ) or from tape 
((CLOAD) ). You enter the editor with 
the command (EDIT FN), where FN is 
some existing Lisp function. You can 
add to the editor by using it to edit it- 
self. Some of the abilities of the editor 
include moving across or down (into) a 
list, going to the top of the list, insert- 
ing text, replacing text, setting break- 
points, printing the entire function, 
and deleting an item. For simple edit- 
ing, Edit works fine, but for extensive 
editing you should use a full-screen 
editor. Incidentally, you can use The 
Alternative Source's KBE for this pur- 
pose and have a full-screen editor 
within the Lisp environment. 

Supersoft Lisp is an excellent Lisp 
for beginners and advanced program- 
mers. It is easy to use, and many 
TRS-80 functions and floating-point 
routines are supported, adding to its 
flexibility. 

UOLISP 

UOLISP is not quite as complete an 
implementation as Supersoft's Lisp, 
but it has other attractions. UOLISP 
runs in a minimum of 16K, although 
32K or 48K is recommended. The ex- 
tras that come in the UOLISP package 
include a Lisp interpreter, a Lisp com- 
piler, the Meta language writing sys- 
tem, an RLisp compiler, a Trace func- 
tion, and a small Lisp editor. UOLISP 
does not support floating-point 
numbers. 

The manual is not as easy to read as 
Supersoft's manual. If you are not an 
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Finally, a Spelling Checker that can SPELL! 



Electric 
Webster 

The "Cadillac" of Spelling Checkers! 

80 Microcomputing, 9, 82 



No other spelling checker 



• FAST and ACCURATE 

comes close! 

• INTEGRATED — Proofs and corrects from 

within all these popular word processing 
programs: Scripsit, Newscript. Lazy Writer, 
Electric Pencil, Superscript, and CopyArt. 

• SMART - Finds and displays correct spellings instantly — ~no~more clumsy dictionaries! 

• HYPHENATES automatically — inserts discretionary hyphens with 100% accuracy, (optional) 

• COMPLETE — One step proofing system with integrated Grammatical and Hyphenation 

features, (optional) 

No other program can claim even one of these features. 




EASY TO USE: Type your text using any of a number of 
popular word processing programs. When you are done, hit 
the appropriate key, and ELECTRIC WEBSTER proof- 
reads your document, displaying misspellings and typos 
on the screen. 

Then, Correcting Electric Webster can display each error 
separately, requesting you to enter the correct spellings for 
each. You are given the options of displaying errors in 
context, adding words to ELECTRIC WEBSTER's 50,000 
word dictionary, or even displaying the dictionary to find 
the correct spelling. If you think you know the correct 
spelling, Electric Webster will verify it for you. 

Finally, Electric Webster CORRECTS YOUR TEXT, 
automatically inserts discretionary HYPHENS (optional), 
and points out GRAMMATICALerrors (optional), all with 
remarkable speed! 



LOW PRICES: Standard Electric Webster is available for 
$89.50 (TRS-80™ Model I & III, or Apple™) or $149 50 
(CP/M™, TRS-80™ Model II and all others.) The optional 
Correcting Feature can be added at any time ($60) as can 
Hyphenation ($50) and Grammatical ($40). During the 
closing months of 1982 only, we are offering 6 W/P integra- 
tion programs FREE (reg. $85 each) with the purchase of 
Correcting Electric Webster. 



The Ultimate PROOFING SYSTEM 



REVIEWS OF MICROPROOF (EW's predecessor): 

"There is simply no finer program available . . ." 
Creative Computing. March 1982 

"This is a very useful product and should be obtained by anyone 

who uses a word processor." 

80 Microcomputing, August 1981 

"The summary review of this program? One word— Excellent." 
Computrontcs. September 1981 

"In a comparative review of proofreading programs (with smaller 

dictionaries! MICROPROOF was found to be considerably faster 

than all the others, when tested against a 400 word sample 

document." 

BYTE Magazine, November 1981 

"A 1500 word document took 26 seconds to load, process and proof 
... it is very friendly and any prson able to use a word processing 
program can master it in moments." 
InfoWorld. January 1982 

"By far, the most capable and efficient of these spelling checker 

programs." 

Microcomputing. June 1982 

AND NOW ELECTRIC WEBSTER: 

"Actually, Electric Webster is faster than its predecessor (Micro- 
proof) . and spelling corrections are immediately verified 
against the dictionary before being accepted . . ." 
Microcomputing. June 1982 

"Electric Webster is the Cadillac of vocabulary programs." 
80 Microcomputing, September 1982 




CORNUCOPIA SOFTWARE 






Post Of ice Box 6 1 1 1 Albany, California 94706 



(415) 524 8098 



►;<* 



*y> 



*> 



^See List ol Advertisers on Page 451 
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experienced Lisp user, it will be very 
difficult to get through. It does sport 
an index, but lacks a table of contents. 

UOLISP supports a large subset of 
Lisp functions. It does not, however, 
support Explode, Implode, or Expand. 
TRS-80 graphics are supported. 

Disk I/O supports the standard 
ASCII Lisp source-code format file, 
similar to that used by Supersoft and a 
Fast Load format since it contains a 
compiler in addition to the interpreter. 
This kind of file loads and saves more 
quickly, it takes up less space in memo- 
ry and on disk, and executes signifi- 
cantly faster. 

The compiler requires UOLISP to 
be resident to run the compiled pro- 
grams and is easy to use. 

LAP stands for Lisp Assembly pro- 
gram, and is a Z80 assembler resident 
with the interpreter. It allows you to 
enter Z80 op-codes (which are slightly 
different for this assembler than for 
the standard assembler since TDL 
mnemonics are used), and these codes 
will be assembled into a function. This 
is useful for creating functions that 
must run quickly. 

One of the nice features about 
UOLISP is that it contains an RLISP 
parser. RLISP is a cortex syntax for 



Lisp, and was created by A. C. Hearn 
in 1973. Lots of people are intimidated 
by the strange appearance of Lisp pro- 
grams, and RLISP provides Lisp with 
a more understandable syntax. It con- 
tains a parser that reads in RLISP syn- 
tax and parses the expressions into Lisp 
format, and then passes it over to Lisp 
to evaluate. It is easy to move back and 
forth between RLISP and Lisp. 



' ■ Supersoft 's Lisp 

is not a 'tiny' Lisp, 

but a complete version 

allowing full recursion. " 



RLISP is a structured language with 
If. . .Then, Do. . . While, and For con- 
structs. The For construct lets you per- 
form actions for each element in a list, 
as well as the standard FOR i : = 1:2 
DO. The syntax is FOR EACH i IN X 
DO..., where X is the list. RLISP 
functions can be compiled by the com- 
piler as they are read in. The manual's 
chapter on RLISP is more readable 
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Quest 

Aardvark-80 
2352 S. Commerce 
Walled Lake, MI 48088 
Color Computer, 16K 
$14.95 cassette 

by Beth Ann Norman 



Quest is an adventure game written in 
Basic. Your goal is to travel 
through the lands of Alesia to Moor- 
lock's citadel and, ultimately, defeat the 
forces of evil within. What makes Quest 
unique is that it's different every time 
you play it. It also makes good use of 
the Color Computer's graphics. 

The game starts with the computer 
drawing a randomized map of Alesia. 
Certain features of the map are always 
the same; a river always runs straight 
across the middle of the screen, and 
Moorlock's citadel is always in the low- 
er right corner. Also, two cities, one on 
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each side of the river, a mountain range, 
and a swamp are always present, al- 
though randomly placed. Your charac- 
ter is represented by a colon and is 
placed randomly at the beginning of 
each game somewhere in the upper half 
of the screen. 

The bottom of the screen is the com- 
mand line. Your major commands, 
with which you answer the "What now, 
Sire?" prompt, are: N, E, W, and S for 
the directions, M for redrawing the 
map, I for taking inventory of your pos- 
sessions, and U for when you wish to 
use an item. There are other commands 
for special situations. For example, you 
might meet a band of well-armed ogres. 
The computer asks you if you want to 
attack, run, or be friendly. You reply by 
giving the first letter of your choice. 

You start each adventure with 10 
loyal companions. Your object is to 
gather the men, weapons, armor, and 
food capable of defeating the forces at 
the citadel. You gain men and money 
by fighting or coming to terms with 
bands of ogres, wizards, pilgrims, and 



than most, and beginners should be able 
to get through it with a minimum of 
work. RLISP is a useful addition to this 
package. 

Another addition to UOLISP is the 
Little Meta Translator Writing System, 
or Meta. It also sits on top of the Lisp 
interpreter. The intended use for Meta 
in the UOLISP package is for language- 
design experimentation. Meta supports 
BNF-like syntax, recursive-descent 
parsing schemes, lexical primitives, pat- 
tern-directed code generation, and syn- 
tax-error message generation. Examples 
are given, and a calculator-like language 
is implemented before your very eyes. If 
you've ever wanted a simple way to 
translate Fortran into Basic or Pascal 
into PL/C, this is the proper environ- 
ment. A separate manual accompanies 
Meta. Lisp is the ideal language envi- 
ronment for writing such a translator, 
and UOLISP is greatly enhanced by in- 
cluding it. 

UOLISP lacks floating point and a 
few Lisp functions, but is fairly com- 
plete and easy to use, once you figure 
out how. It also features a function 
compiler, the LAP assembler, RLISP, 
and the Meta Translator system. If you 
have experience in Lisp and like to ex- 
periment, UOLISP is a great choice. ■ 



soldiers. You can also find money 
in caves, ruins, castles, and towers. 
All are randomly placed with each new 
game, and do not appear on the screen 
until you approach them while explor- 
ing Alesia. You can also buy food, ar- 
mor, and weapons at the marketplace in 
each city. 

You will need certain items to gain 
entrance to many places. For instance, 
when you find a cave, the computer 
draws a picture of the entrance and tells 
you, "You're at a cave. It's too dark to 
see! What now, Sire?" Your response 
might be to type in U for a listing of 
everything your men are carrying to see 
if you've brought a light source along. 
If you have, use it to enter the cave. You 
then are given the choice of searching or 
leaving. 

I'll give you a hint: It you don't find 
anything at first, keep searching — you 
will find something eventually, even if 
it's a band of soldiers. If you re-enter a 
building after having removed the goods, 
though, you won't find anything new. 

When you buy needed items in the 
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Evolution of Low-Cost 
Electronic Communications 

We believe AceMail is 
probably the most powerful, auto- 
mated two-way message system ova 
able for anywhere near the price. But don't 
let the price fool you. 

The Automated Computer Electronic Mail 
software offers some unprecedented clout in com- 
munications across the phone lines. From a complete 
unattended TRS-80, AceMail can look up a phone number, 
dial it, log/on to the system, upload and download ASCII files, 
log/off and wait until later to call another computer. Vbu may also 
call AceMail from a remote location and exchange information. 

A world of information is at your fingertips as AceMail offers speed and account- 
ability in accessing branch office correspondence, sales reports, data banks and time 
sharing systems nationwide. 

The multifunctional system is easy to use and comes with a complete users manual allowing even 
the inexperienced user to send and receive electronic mail in minutes! 

If your TRS-80 is due to evolve in the world of electronic mail, then choose the communications 
system with ease and power— AceMail. 

Written exclusively for the Hayes Stack Smartmodems and the TRS-80 Model l/lll 48K with disk. 
AceMail operates on NEWDOS/80 or DOSPLUS and comes supplied on liny' DOSPLUS ready to run. 






Hayes Stack Smartmodem 1200-$619.00 

Hayes Stack Smartmodem 300— $239.00 

ACEMAIL 1200 Software-$119.00 

ACEMAIL 300 Software -$79.00 



4«l» ace computer products of florida, inc. 

1640 n.w. 3rd street, deerfield beach, florida 33441 voice (305) 427-1257 data (305) 427-6300 

ORDER TOLL FREE 1-800-327-2283 
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marketplaces, you find that the list of 
what is on sale is randomized and 
changes with each visit. Some items 
have many uses, and there's one that I 
still haven't figured out. One of the fun- 
niest parts of the game is haggling with 
the merchants. 

A realistic feature of the game is the 
weight system used. Each man can carry 
only 100 pounds. The computer keeps 
track of the total weight of your items 
(plate mail — 50 pounds, broadsword — 
10 pounds, and so on) and compares it 
to the amount your men can carry. If 
the total is too high, you must drop 
items until the weight is acceptable. You 
cannot ignore these warnings, since you 
will be unable to move until enough ma- 
terial has been left behind. 

When you think you've found or 
bought everything you can in the upper 
half of the map, you're ready to cross 
the river. Beware traveler; your men 
can't swim! 

Once you have crossed the river and 
you've gathered what you consider to 
be enough men, weapons, armor, and 



food, attack the citadel. You will find it 
difficult to defeat Moorlock's forces 
unless you have a certain item, which of 
course I cannot reveal. The display for a 
fight (either at the citadel or with any- 
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one you encounter) lists everchanging 
tallies of your men, weapons, experi- 
ence level, luck, and survivors, against 
theirs. To stop the fight, hit the space 
bar when you think your luck number is 
higher than your opponent's, although 
this is just one factor in deciding the 
outcome. You can next see how many 



survivors each party has. You can fight, 
run, or come to terms whenever a fight 
has been stopped. If you run, your foes 
may catch you, and just because you 
want to come to terms doesn't mean 
that they will. 

If you kill all your enemies in a fight 
outside the citadel, salvage their equip- 
ment. If you come to terms, some will 
join you, bringing equipment, food, 
and money. If all your men are killed, 
of course, the game ends. 

Quest is a wonderful, well-thought- 
out game. It is a terrific game for begin- 
ning adventurers, because there are no 
sudden unreasonable ways to lose. For 
example, if you are losing men in a 
fight, you can always try running away. 
You can save a game on tape at any 
point (as long as the "What now, 
Sire?" prompt is on the screen), and 
return to it later. Quest is also fairly 
short for an adventure — playable in two 
to five hours. Since the game is different 
every time, you are not likely to lose in- 
terest in it the first time you defeat the 
forces of evil. ■ 
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NOW YOU CAN ENJOY THE EASE 
AND CONVENIENCE OF LOAD 80 
CASSETTES WITH 

LOAD 80 

And to start you off right, we're offering a Special First Edition of 
COLOR LOAD 80— "The Best of '82." All the best color pro- 
grams from the 1982 issues of 80 MICRO at the very special price 
of $14.97 plus $1.50 shipping and handling. 

To order your Special First Edition COLOR LOAD 80 cas- 
sette, fill out the coupon or call toll free: 

1-800-258-5473 

Order one for yourself and one for a friend. Perfect for holiday 
gift-giving. 

COLOR LOAD 80 will be offered on a quarterly 
basis (see March 83 80 MICRO for details. 

Color LOAD 80 is manufactured by Instant Software Inc.. a sub 
sidiary ol Wayne Green Inc 80 Pine St.. Peterborough. NH 03458 
There is no warranty expressed or implied that COLOR LOAO80 * 
do anything other than save you typing 
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YES, I want the Special First Edition of 

COLOR LOAD 80! Send me cassettes 

@ $14.97 ea. plus $1.50 shipping & handling 
per cassette. 

□ AMEX 



□ MC 

□ VISA 

NAME 


□ CHECK 

□ MONEY ORDER 


ADDRESS 


CITY 


STATE 
SIGNATURE 


ZIP 


CARD# 


EXP. DATE 




CL82SP 



LOAD 80 



80 Pine St. • Peterborough, NH 03458 
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LSI Soft-view CRT 

Langley-St. Clair Instrumentation 

Systems Inc. 

132 West 24th St. 

New York, NY 10011 

$80-5100 

by Dave Smith 

Remember the night you worked into 
the wee hours coding and debug- 
ging that super adventure on your 
TRS-80? Or the time you had to turn 
out that 30-page, end-of-the-year report 
with your word processor? Remember 
how tired your eyes became? 

The reason for such fatigue stems 
from the cathode ray tube (CRT) Tandy 
uses in the manufacture of the TRS-80. 
It is basically a tv-type picture tube on 
which the display strobes 60 times per 
second. The screen is coated with rapid- 
decay white phosphors that fade quick- 
ly and are re-excited upon the next 
strobe, causing a repeated fading and 



brightening. The LSI Soft- view CRT 
combats this problem. 

These replacement CRTs are avail- 
able with either a slow-decay green 
phosphor or a medium-decay amber 
(orange) phosphor. The medium- 
decay phosphors fade at a rate nearly 
100 times slower than the white phos- 
phors. For this review I used the am- 
ber display CRT. 

The CRT comes with an eight-page 
installation instruction booklet. All the 
appropriate warnings regarding health, 
safety, and the invalidation of the Tan- 
dy warranty are prominently displayed 
in the booklet. There is also a handy list 
of the tools needed if you plan to do 
your own installation. (The alternative 
is to rely on your local computer center 
or tv repair shop for the installation.) 

The instructions include fully de- 
tailed, step-by-step procedures, loca- 
tions and types of screws to be en- 
countered, colors of wires to be 
unplugged, and so on. They do not 
include any pictures or diagrams, but 
are very easy to follow just the same. 



The hardest part of the installation is 
accepting the recommended one-hour 
wait following turning the power on be- 
fore making further internal adjust- 
ments. (My installation required only 
one such adjustment.) 

Finally, the moment of truth. It gave 
me a real lift to stand back and look at 
the familiar grey case with the totally 
unfamiliar amber letters and numbers 
on the screen. It took some time for my 
audiences' ooohing and aahing to sub- 
side, but I managed eventually to get 
down to some dispassionate assessment 
of performance. 

The amber phosphors do not glow 
with the same intensity as the white. 
(I was later informed that they are 
only 42 percent as efficient in their light- 
emitting properties.) Therefore, I spent 
some time adjusting and readjusting the 
brightness and contrast controls for ac- 
ceptable character clarity. In addition, 
the new CRT features both the double- 
dark leaded glass (standard) and the 
anti-glare surface (optional), further re- 
ducing the brightness of the screen. The 



niss:.. 

Your Source of Business Planning 
and Forecasting Software 



NISSCAST™ 

N1SSCAST is a sophisticated financial 
program and the first forecasting 
software for personal computers that 
incorporates seasonal adjustments. The 
exceptional structure of NISSCAST 
allows you to perform seasonal adjust- 
ments on the historical data and view 
results with the graphics option. 



DEALER INQUIRIES INVITED 



PERSONAL COMPUTER 
SOFTWARE SUPPORT SERVICE 

NISS offers one full year of support 
service for each program acquired from 
the company. This unique service pro- 
vides you with direct access to the NISS 
staff of professionals who will courte- 
ously help solve software problems on 
your personal computer. Support ser- 
vice agreements are also available for 
business planning and forecasting pro- 
grams acquired through other sources. 




TOLL FREE HOTLINE 



Call NISS now at 1 -800-52 5-SOFT for 
your free software catalog and for infor- 
mation on our unique support service. 
You won't be left "friendless" once you 
license software from NISS. 

NISS supports its software when it is 
used on the TRS-80 Model II personal 
computer. 

Maximize your productivity and profit 
from a relationship with NISS. 




NATIONAL INTEOPATEO SOFTWARE SERVICES, INC. 

8800 East Arapahoe Road, Englewood, Colorado. 80112 



-451 



NISS is a registered trademark of National Integrated 
Software Services, Inc 

Apple II plus Is a trademark of Apple Computer. Inc 
IBM Personal Computer is a trademark of Interna- 
tional Business Machines. Inc. 

TRS-S0 Model II is a trademark of The Tandy Cor- 
poration. 

1-800-525-SOFT 

In Colorado (303) 694-1994 

MC 
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Convert to CP/M 
and Save. 

Unprecedented Sale for Model III Owners. Call for Details. 



The Trouble with TRS-DOS. 

Although TRS-DOS is an excellent operating system, it 
has one major disadvantage. When compared with CP/M, 

TKS DOS locks you into a limited and possibly dead end 
course. When you are ready to upgrade to a new computer, 
il is likely thai none of your present software will run on 
the new machine. All of the time and monej you have 
invested in TRS DOS software will be lost. 

CP/M for the TRS-80. 

Converting to CP M offers the TRS-80 owner many advan 

tages. The TRS SO immediately becomes capable of run 
ning twice the software <>f any othei computer on the 
market Perhaps more importantly. CP M permits soft- 
ware portability. I'n'ike TRS I)( )S programs, CI' M pro 
grams can he directly transferred to your nexl computer. 
The savings m time and soft wan i osts can he quite sig- 
nificant. CP M conversion can easily pay for itseli with the 
money saved on one or two software purchases. The sooner 
you convert to CP M. the more you stand to save. 

CP/M Acquires Unprecedented Support. 

Ovei the pasl year, a number of powerful competitors 
have introduced new microcomputers. Most people will 
instantly recognize the names of Xerox. IBM. Hewlett 
Packard. Digital Equipment and Zenith. The Japanese 
companies, Sony. NEC, Sanyo, Toshiba and Sharp, are 
equally well known. Together, these companies have com 
mitted over a billion dollar- to compete effectively in the 
micro market. TRS-80 owners should be aware that every- 
one of these companies has chosen CP M for their stan- 
dard operating system. Over the next few years, these 
companies will sell millions of CP M computers. Consid 
ering these facts, it is clear that CP \1 is the operating 
system of the future 

Apple and Commodore Offer CP/M. 

In a recent pie— conference, the Apple Computer 
Company staled. "The largest installed base CP M system 
in the world today is the Apple II with the Z80 card' from 
Microsoft'.' In a recent full page ad in the Wall Stn 
Journal, Apple announced CP M for the Apple 111. 
Commodore, refusing to be left behind, has recently- 
announced their "Emulator" series of computers that 
port CP M. There are even rumors that the new Tandy 16 
will support a version of CP M. 



Plan Ahead. 

TheOmikron "Mapper" offers the ideal step to upgrading 
to a newer, more powerful computer. With the "Mapper, ' 
your TRS-80 can run both CP/M programs and TRS-DOS. 
With I P M. you can build a software library that's fully 
compatible with the newest CP/M business computers. 
All of the time and money vou spend on selecting, pur- 
chasing, and learning CP Nf software can be considered 
an investment in the future. In addition, your old TRS-80 
( ari gam a new lease on life as a fullv compatible back-up 
unit. Consider all these points carefully. The Omikron 
"Works" package offers the best solution for protecting 
your investment in the TRS <S(). By choosing the "Works." 
vou can purchase a "Mapper" and also receive over SI, 000 
worth of top-quality CP M software. Value, Utility, per- 
formance -Omikron offers vou more than ever before. 



COUGAR . . . Omikron's Users Group. 

I P M has always been the standard for business and pro 
fessional use. This market has always demanded high 
quality and high performance. The high prices for CP M 
programs reflect the additional effort required to develop 
top-quality software products. To help our customers afford 
CP M software, Omikron has formed Cougar, our official 
users group. Through Cougar. Omikron can purchase 
software products in large volume. This allows us to offer 
our customers some 01 the best CP M software in the 
industry at great I v reduced prices. 



Omikron Puts It All Together. 

Omikron has sold more CP M conversions than all of our 
competitors combined. Omikron was the first in the mar- 
ket with a CP M conversion. Omikron has continued to 
lead the market for one simple reason — our total commit 
ment to our customers. Only Omikron offers a "Works" 
type introductory package. Only Omikron has a "Cougar" 
type users group for long term savings. Our hardware has 
always been designed with reliability first. Our software 
is well designed, complete, and bug free. Our technical 
hot line assists those with problems. Finally, our exchange 
policy has enabled our customers to upgrade to our new 
designs for much less than the cost to new customers. 
When you buy from Omikron. you buy from a company 
with a proven record of dedication and success. 



OMIKRON 



Products that set Precedents 

1127 Hearst Street, Berkeley, CA 94702 (415) 845-8013 



' M Rodio Shock /Tandy Corporation 



^sc Wordstar™ Micro Pro 



CBASICII. CP/M^ Diaital Research 



REVIEWS 



benefit of the leaded glass is the reduc- 
tion of x-ray emissions from the screen. 
My initial reaction was very favor- 
able, but included a twinge of disap- 
pointment, since I had been expecting 
an amber duplication of the white phos- 
phor screen. It was only after using the 
computer for an extended time that I 
fully appreciated the pleasure of fa- 
tigue-free viewing. I became accus- 



"I became accustomed 
to the subdued amber 
screen very quickly. " 



tomed to the subdued amber screen very 
quickly, tending to be unconscious of 



the color and of the absence of flicker 
and glare until forced to use a standard 
machine. Having used the amber CRT, 
I found the black-and-white screen 
harsh and discomforting. 

If you use your TRS-80 frequently or 
for extended periods at a single sitting, 
the improved viewing comfort and 
health features of these replacement 
CRTs are very much worth the price. ■ 
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FED File Editor for LDOS 
Galactic Software Inc. 
11520 N. Port Washington 
Mequon, Wl 53092 
$40 disk 

by Charles P. Knight 



FED is a file editor designed to run 
only under the LDOS operating 
system. It is a unique concept in zap 
programs in that it operates on the file 
level only, rather than the track/sector 
level. It is a great improvement over the 
usual zap program. 

File level only does not mean that 
files like DIR/SYS and BOOT/SYS 
cannot be examined; they must be ex- 
amined as a file rather than as a group 
of sectors. BOOT/SYS, for example, is 
a file of five sectors beginning at track 
0, sector 0. If it is accessed as a file, it 
isn't necessary to know where it is on 
the disk. The password must be sup- 
plied. If you don't know it, RS0LT0FF 
gives you access to any file anywhere 
under LDOS. Because of this approach, 
many advanced features are available 
and you can perform functions that 
would be difficult if you had to know 
which sectors on the disk contained 
the file. 

There are two display modes: One is 
a standard 256-byte mode with the 
ASCII display on the left instead of the 
usual right, and the other is an extended 
128-byte mode with the ASCII across 
the top of the screen, the hex in the 
center, and plenty of space for other in- 
formation (where the cursor is, name of 
file being worked on, hex and decimal 
value of byte under cursor, and so on). 

Pressing the T key toggles between 
these two display modes. The latter is 
particularly nice for modifying ASCII 
files. Also available on the video in the 



128-byte display mode are file name, 
relative byte under cursor, decimal and 
hex values of that byte, drive number, 
record number within the file, and the 
last command entered. 

Graphics are not displayed and are 
represented by a graphic block instead 
of the usual period — a great help when 
dealing with files that contain both peri- 
ods and graphics. I think a major im- 
provement would be an optional graph- 
ics ASCII display, though. You can 



"The usual file 

modifications are 

available plus much 

more. You can modify 

in hexidecimal 

or ASCII." 



modify graphics by entering the appro- 
priate hex character, but you can't view 
your changes directly by looking in the 
ASCII column. 

The usual file modifications are 
available plus much more. You can 
modify in hexadecimal or ASCII, or if 
you want to know what the character 
under the cursor is in binary, press the 
equal key ( = ) and it is immediately dis- 
played at the lower right of the screen. 
The binary representation should 
display the value under the cursor all the 
time in the 128-byte mode, as there is 
enough room on the screen; however, 
this is not a serious drawback. 

If you want to know where a byte will 
load into memory, press M and the load 
address of that byte will be displayed. 
This is useful particularly when convert- 
ing X-type patches to D type. If" you 
want to save the modified file, you must 
press the break key to exit the modify 



mode, and then press S followed by 
enter. By requiring that enter be pressed 
here, mistakes are more difficult to 
make and much easier to correct. 

There are three commands for 
searching through the file (the whole 
file, not just the displayed sector like 
most zap utilities). The C command 
searches through the file for an ASCII 
string up to 15 bytes long in the 256-byte 
display mode or 30 bytes long in the 
128-byte display mode. The search 
begins at the present cursor position and 
searches the rest of the file. Unlike 
many such features in other utilities, if 
the string searched for falls across sector 
boundaries, FED still finds it correctly. 

The F command performs the above 
search for a string of hex bytes up to six 
characters long if in the 256-byte display 
mode, or up to 30 characters if in the 
128-byte mode. 

The L command, unlike any I've seen 
before, searches for a load address, and 
if found, positions the cursor over the 
byte that loads at that address. This 
search starts at the beginning of the file 
and continues until the end is reached. 

The G command can be used after 
any one of the above three commands 
to go to the next occurrence of that 
byte, string, or load address in the file. 

The D command prints the entire file 
to the line printer. If the printer is off- 
line, FED waits until it is ready or until 
the break key is pressed. The format 
prints three sectors of information on a 
page. FED performs its own pagina- 
tion, so if you have a printer filter resi- 
dent for output formatting, you might 
want to disable it to prevent conflict. 
The output is well formatted and 
thoughtfully arranged. 

The P command sends the current 
edit buffer to the printer rather than 
the entire file, while the O command 
outputs a top-of-form character 
(CHR$(12)) to the printer. This is a 
clear example of programming that 
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keeps the user in mind. Another exam- 
ple of this is the Enter command. Sim- 
ply pressing the enter key displays a 
menu of available commands and their 
functions. 

For machine-language programmers, 
the Z command jumps from load block 
to load block within the file. The cursor 
must be on the type byte (usually 01) 
when the key is pressed. FED then finds 
and positions the cursor over the type 
byte of the next load module. This is 
very handy for working out patches to 
someone else's code when you don't 



have the source. 

When you are done editing the file, 
you can press E and enter to exit FED, 
or N, enter, and the file name of 
another file to be worked on. During 
the entering of any command, if you 
change your mind or make a mistake, 
simply press the break key to abort the 
command sequence. To position the 
cursor to the beginning of the file or to 
its end, press the B or E key. To position 
the cursor at the beginning of a partic- 
ular logical record (sector when 
LRL = 256), press the R key followed 



by the number of the logical record you 
want in hexadecimal. While editing, the 
arrow keys move the cursor and the 
semicolon and hyphen keys move the 
display forward or back one sector. 

For $40 you receive a disk- file editor 
that has capabilities you'll wonder how 
you got along without. I use mine al- 
most daily and keep a copy on my 
working system disk so that it is always 
available to me. If you're an LDOS user 
and have a need to modify files at the 
disk-sector level, you should have this 
program in your library. ■ 
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Bounceoids 
Cornsoft Group Inc. 
6008 N. Keystone Ave. 
Indianapolis, IN 46220 
Model I or III 
$15.95 cassette 
$19.95 disk 

by Mark E. Renne 

The scenario for Bounceoids is a 
familiar one. You move your ship, 
located in the middle of the screen, by 
using a joystick or keyboard control. 
Your mission is to destroy the large, 
floating space boulders surrounding 
your ship before they destroy you. This 
game, however, is not another version 
of asteroids. 

You can maneuver your ship in a 
variety of ways. The arrow keys, R, T, 
O, P, or a joystick can be used to turn 
the ship right or left, move it forward, 
or activate the shields. The shields pro- 
tect the ship in the event a boulder gets 
too close. 

Unlike an asteroid-type game, you 
cannot penetrate the boundaries of the 
screen. Boulders bounce off the walls of 
the screen and ricochet at 90-degree 
angles. Boulders form groups of four or 
more and move in unison. The groups 
can become very large at higher skill 
levels and form a straight line that 
crosses the entire screen. 

If these groups of boulders aren't 
enough to throw you, a snake-like 
creature periodically appears from the 
side of the screen to confront you. In 
the higher levels, this multi-segmented 
creature becomes so long it is almost 
impossible to destroy. 

If this still isn't enough trouble for 
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the advanced alien fighter, there's 
more action ahead. At points directly 
north, south, east, and west, alien ar- 
tillery posts appear. When playing in 
the lower skill levels they will wait a 
long time before firing at your ship, 
but as you move up in skill, they fire 
very rapidly. Your epitaph will be writ- 
ten quickly if you're not fast on the fire 
button. 

Just for fun, there's also a wander- 
ing alien who bounces around causing 
more problems for would-be starfleet 
heroes. With all these different bad 
guys running around, it's not easy to 
survive. Should you accumulate 10,000 
points a new ship is awarded. 

After 20,000 points you reach the 
real challenge of this arcade madness. 
A string of unique aliens descend from 



the upper-left corner and move across 
the screen, allowing you to gather extra 
bonus points. At this point you also 
change skill levels. 

Only the highest score is maintained 
on the system (and only until you turn 
off the power). You don't even get a 
chance to enter your initials. It does 
seem strange on a disk system that the 
top 10 scores aren't maintained. 

Ten levels of play are available for 
one or two players. Each player may 
start at a different level of play. For ex- 
ample, player one may play at level 9 
(expert) while player two plays at level 
(beginner). 

This game is fast and should pro- 
vide the ardent arcader with enough 
action to provide a challenge and sore 
fingertips.! 
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The Disk Doctor 
Superior Graphic Software 
406 Little Mountain Road 
Way nesville. NC 28786 
Color Computer 
$49.95 

by John Steiner 

The Disk Doctor is a Basic program 
that assists in the reconstruction of a 
damaged Color Computer disk file. 

To ensure the integrity of your files, 
the Disk Doctor manual starts off with 
this advice: Check files for accuracy by 
using the Verify On command before 
saving a file or program. Use Field com- 
mands from Basic, rather than from 
within a program. Keep your fingers, 



coffee, nail files, and so on away from 
the head opening on your disks. Don't 
put disks on top of your monitor or 
drive unit. The magnetic fields gener- 
ated by these devices make quick work 
of your files. Back up anything you 
think is important, and do it often. 

Another hint given by the Disk Doc- 
tor is to put a write-protect tab on any 
disk any time you receive an I/O error. 
Write-protecting a disk keeps the allo- 
cation table from becoming garbled and 
assists you in the reconstruction of the 
disk. The disk files that are still intact 
can be transferred to another Prefor- 
matted disk using the Copy command. 

Regardless of what the Color Com- 
puter disk manual says, Copy will work 
on a single-drive system; just enter 
COPY "FILENAME/EXT". You are 
prompted when to change disks, just as 



the Color Computer Word Processor 



3 display formats: 51/64/85 

columns x 24 lines 

True lower case characters 

User-friendly full -screen 

editor 

Right justification 

Easy hyphenation 

Drives any printer 

Embedded format and 

control codes 

Runs in 16K, 32K, or 64K 

Menu-driven disk and 

cassette I/O 

No hardware modifications 

required 
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Simply stated, Telewriter is the most powerful 
word processor you can buy for the TRS-80 
Color Computer. The original Telewriter has 
received rave reviews in every major Color 
Computer and TRS-80 magazine, as well as 
enthusiastic praise from thousands of satisfied 
owners. And rightly so. 
The standard Color Computer display of 32 
characters by 16 lines without lower case is 
simply inadequate for serious word processing. 
The checkerboard letters and tiny lines give you 
no feel for how your writing looks or reads. 
Telewriter gives the Color Computer a 51 
column by 24 line screen display with true 
lower case characters. So a Telewriter screen 
looks like a printed page, with a good chunk of 
text on screen at one time. In fact, more on 
screen text than you'd get with Apple II, Atari, 
TI, Vic or TRS-80 Model III. 

On top of that, the sophisticated Telewriter 
full-screen editor is so simple to use, it makes 
writing fun. With single-letter mnemonic 
commands, and menu-driven I () and 
formatting. Telewriter surpasses all others for 
user friendliness and pure power. 
Telewriter's chain printing feature means that 
the size of your text is never limited by the 
amount of memory you have, and Telewriter's 
advanced cassette handler gives you a powerful 
word processor without the major additional 
cost of a disk. 



...one of I he best programs for the Color 
Computer I have seen... 

Color Computer News, Jan. 1982 



TFLFWRITFR-64 



But now we've added more power to 
Telewriter. Not just bells and whistles, but 
major features that give you total control over 
your writing. We call this new supercharged 
version Telewriter -64. For two reasons. 



64K CO MP AT IB IK 



Telewriter -64 runs fully in any Color Computer 
— 16K, 32K, or 64K, with or without Extended 
Basic, with disk or cassette or both. It 
automatically configures itself to take optimum 
advantage of all available memory. That means 
that when you upgrade your memory, the 
Telewriter -64 text buffer grows accordingly. In 
a 64K cassette based system, for example, you 
get about 40K of memory to store text. So you 
don't need disk or FLEX to put all your 64K 
to work immediately. 



64 COLUMNS (AND 85!) 



Besides the original 51 column screen, 
Telewriter-64 now gives you 2 additional high- 
density displays: 64 x 24 and 85 x 24!! Both 
high density modes provide all the standard 
Telewriter editing capabilities, and you can 
switch instantly to any of the 3 formats with a 
single control key command. 
The 51 x 24 display is clear and crisp on the 
screen. The two high density modes are more 
crowded and less easily readable, but they are 
perfect for showing you the exact layout of 
your printed page, all on the screen at one 
time. Compare this with cumbersome 
"windows" that show you only fragments at a 
time and don't even allow editing. 



RIGHT JUSTIFICATION & 
HYPHENATION 



One outstanding advantage of the full-width 

screen display is that you can now set the 
screen width to match the width of your 
printed page, so that "what you see is what 
you get." This makes exact alignment of 
columns possible and it makes hyphenation 
simple. 

Since short lines are the reason for the large 
spaces often found in standard right justified 
text, and since hyphenation is the most 
effective way to eliminate short lines, 
Telewriter-64 can now promise you some of the 
best looking right justification you can get on 
the Color Computer. 



FFATLRFS & SPECIFICATIONS: 



Printing and formatting: Drives any printer 

iLPVII VIII. DMP-IOO 200. Epson, Okidata, 
Centronics, NEC. C Itoh, Smith-C orona, 
Terminet. etc). 

Embedded control codes give full dynamic access to 
intelligent printer features like: underlining, 
subscript, superscript, variable font and type size, dot- 
graphics, etc. 

Dynamic (embedded) format controls for: top, 
bottom, and left margins; line length, lines per page. 
line spacing, new page, change page numbering, 
conditional new page, enable disable justification. 
Menu-driven control of these parameters, as well as: 
pause at page bottom, page numbering, baud rate (so 
you can run your printer at top speed), and Epson 
font. "Typewriter" feature sends typed lines directly 
to your printer, and Direct mode sends control codes 
right from the keyboard. Special Epson driver 
simplifies use with MX-80. 

Supports single and multi-line headers and automatic 
centering. Print or save all or any section of the text 
buffer. Chain print any number of files from cassette 
or disk. 



File and I/O Features: ASCII format files — 
create and edit BASIC, Assembly, Pascal, and C 
programs. Smart Terminal files (for uploading or 
downloading), even text files from other word 
processors. Compatible with spelling checkers (like 
Spell 'n Fix). 

Cassette verify command for sure saves. Cassette auto- 
retry means vou type a load command only once no 

matter where you are in the tape. 
Read in, save, partial save, and append files with disk 
and or cassette. For disk: print directory with free 
space to screen or printer, kill and lename tiles, set 
default drive. Easily customized to the number of 
drives in the system. 

Editing features: Fast, full screen editor with 
wordwrap, block copy, block move, block delete, line 
delete, global search and replace (or delete), wild card 
search, fast auto-repeat cursor, fast scrolling, cursor 
up, down, right, left, begin line, end line, top of text, 
bottom of text; page forward, page backward, align 
text, tabs, choice of buff or green background, 
complete error protection, line counter, word counter, 
space left, current file name, default drive in effect, 
set line length on screen 

Insert or delete text anywhere on the screen without 
changing "modes." This fast "free-form" editor 
provides maximum ease of use. Everything you do 
appears immediately on the screen in front of you. 
Commands require onlv a single key or a single key 
plus CLEAR. 



...truly a slate of the an word processor, 
outstanding in every respect. 

— The RAINBOW. Jan. 1982 



PROFESSIONAL 
WORD PROCESSING 



You can no longer afford to be without the 
power and efficiency word processing brings to 
everything you write. The TRS-80 Color 
Computer is the lowest priced micro with the 
capability for serious word processing. And 
only Telewriter-64 fully unleashes that 
capability. 

Telewriter-64 costs S49.95 on cassette. $59.95 
on disk, and comes complete with over 70 
pages of well-written documentation. (The step- 
by-step tutorial will have your writing with 
Telewriter-64 in a matter of minutes.) 
To order, send check or mones order to: 



Cognitec 

704 Nob Ave. 

Del Mar, CA 92014 



•12: 



Or check your local software store. If you have 
questions, or would like to order by Visa or 
Mastercard, call us at (714) 755-1258 
(weekdays, 8AM -4PM PST). Dealer inquiries 
invited. 

I Add S2 lor shipping. ( ahformans add 6 r « stale lav Allow 2 
weeks tor personal checks. Send sell -addressed siamped 
envelope for Telewriter reviews from CCS. RAINBOW. 
80-Micro, 80-1. S. Telewriter owners: send SASfc or call for 

information on upgrading lo telewriter -64 Iclcwriici 
compatible spelling checker (Spell 'n livi and Smart terminal 
program (Colorcom II also available. C all or write lor more 
information I 

Apple II is a trademark ol -\pple ( ompulcr, Inc.; Atari is a 
trademark ol Alan, Inc.. TRS-80 is a trademark ol lands 
Corp; MX-80 is a trademark ol Epson America. Inc 
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in the Backup command. Any Basic, 
ASCII, or binary file can be copied. 
Unlike Backup, programs in memory- 
are not affected. You can use Copy 
from within a program, but you may 
have to switch disks often if the pro- 
gram is in memory or the file is large. 

If you used the write-protect tab 
when you first received an I/O error, 
you only need to reconstruct that file 
containing the error. The Disk Doctor 
reads the allocation table and displays 
the locations of the files on the disk. A 
single file is easy to locate from the 
table. Just make a copy of the table that 
contains file-continuation information. 
If you have a printer, the documenta- 
tion tells you how to make the program 
print the table or any program output 
on your printer. 

Once you have this information, you 
can check the contents of any sector on 
the disk. The Disk Doctor transfers the 
file to graphics memory one sector at a 
time. When the file transfer is complete, 
install a formatted disk, and the menu- 
driven program transfers the file from 
graphics memory into a new disk file. 

Reconstructing an entire disk involves 
a little more work, especially if the allo- 
cation table has been destroyed. The 
Disk Doctor lets you reconstruct any 
file type including machine-language 



programs. 

The Doctor also contains a feature 
useful for good disks. If you locate the 
beginning of a binary file and read the 
first sector, you are given the start, end, 
and execute addresses. I recommend 
using the program on good binary files 
so you can find and store this informa- 



"The author has included 

a crashed disk with 

your program disk. 

If you. . . reconstruct 

the crashed disk, 

you get a back-up 

of the Disk Doctor. . . " 



tion should you ever need to reconstruct. 

Disk Doctor's written documentation 
is minimal, but the eight pages are 
packed with information on recon- 
structing a crashed disk and preven- 
tative care. 

The author has included a crashed 
disk with your program disk. If you 
successfully reconstruct the crashed 



disk, you get a back-up of the Disk Doc- 
tor and a Packer program. Packer, a 
binary routine, removes excess spaces 
from any Basic program to make the 
program run faster. On the crashed 
disk, data and graphics files are in- 
cluded to demonstrate how they can be 
reconstructed. It takes very little time to 
learn the reconstruction process, if you 
do the assigned homework. The home- 
work is an overview of the disk-alloca- 
tion information in the Color Comput- 
er's disk operating manual. 

1 found one bug when I tried to trans- 
fer a large file. If the file you are trans- 
ferring is larger than the eight graphic 
pages allocated (about 12K), the file 
must be recreated in parts. If you forget 
where you are and continue the transfer 
past the eighth page, you will overwrite 
the beginning of the Doctor and the 
program crashes. The only recovery is 
to reload the program and begin again. 
You will not encounter this bug very 
often (few files are longer than 1 2K) and 
a little care on your part easily avoids 
the problem. 

The Disk Doctor teaches you disk 
anatomy as well as preventative medical 
information, allowing your disk files to 
lead long and fulfilling lives. I feel safer 
when creating important files and pro- 
grams having the Doctor "on call." I 
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LCA-47 Lowercase Adapter 

Micro Technical Products Inc. 

814 W. Keating Ave. 

Mesa, AZ 85202 

$75 

$25 additional character generator 

ROMs 

by Scott L. Norman 

The Color Computer is maturing; we 
are beginning to see hardware add- 
ons similar to those introduced for the 
Model I. One such useful device that 
improves the appearance of text on the 
video screen is the LCA-47 Lowercase 
Adapter. 

The LCA-47 is a small printed circuit 
board that plugs into the socket normal- 
ly occupied by the Color Computer's 
MC6847 video display generator 1C; the 
IC, in turn, plugs into the LCA-47. 
In an unmodified Color Computer, 

56 • 80 Micro, December 1982 



the 6847 uses its own circuitry to form 
and synchronize the video pulses that 
produce characters on the display. 
Lowercase letters are not included in the 
repertoire of this internal circuitry. 
When the LCA-47 is in place, the 6847 
has access to an externally defined char- 
acter set — in particular, one that is con- 
tained in a fast bipolar ROM. This set is 
then displayed by all programs that nor- 
mally call upon the 6847 to perform its 
duties — the LCA-47 is invisible to such 
programs. However, Telewriter, Color- 
term, and the like (packages that use the 
CC's high-resolution graphic modes to 
define new character sets) are unaffect- 
ed, since they effectively bypass the 
6847 anyway. 

Installation of the LCA-47 requires 
that the Color Computer case and RF 
shield be opened, though, so all the 
usual precautions about the 90-day war- 
ranty apply. 

There are only a couple of other 
things that should be mentioned. One is 
the possibility that your Color Com- 



puter will have its 6847 soldered into the 
motherboard, rather than socketed. 
(This was the case with some of the ear- 
ly machines.) Recognizing the difficul- 
ties inherent in unsoldering a 40-pin IC, 
Micro Technical Products offers a re- 
fund to purchasers who meet this par- 
ticular stumbling block; they also de- 
scribe the procedure for sacrificing the 
IC and piggybacking the LCA-47 on the 
remains of the connecting pins. You 
must buy a new 6847 to make the com- 
puter operational, of course. 

The only other problem likely to arise 
is mechanical interference with a partic- 
ular electrolytic capacitor on the Revi- 
sion E motherboards. There are actually 
two versions of the LCA-47 available; 
one has a clearance hole for this 
component. 

Open the computer's case and RF 
shield before ordering. If the 6847 is 
soldered in place, you may want to re- 
think the whole affair; if not, check for 
a small tubular electrolytic mounted 
vertically behind the 6847. If it's there, 



Words are not enough. 




Experience goes beyond words. We believe adven- 
tufes should too. The Asylum Series is Med Systems' 
premiere line of 3-D graphics adventures for the 
TRS-80 and IBM personal computers. What is an 
Asylum? An Asylum is a real-time simulation that 
takes place in a building with 1500 locations. Both are 
inhabited by crazed inmates, sadistic guards, and evil 
doctors. Your goal? ESCAPE! 

Our 3-D graphics are recognized throughout the in- 
dustry for their machine-language speed and clarity. 
Hallways recede into the screen as though you are ac- 
tually there. Doors open and close. Beds, desks, and 
other inmates are drawn on the screen. Instantaneously! 

Asylums understand complete sen- 
tences, not just choppy one and two word 
commands. Sentences like "Drop every- 
ng on the desk except the matches'' are 
iterpreted and acted on Instantly. Fur- 
ther, the command "VOCABULARY'' will 
show you the entire dictionary, eliminat- 
ing the need to second-guess program de- 
signers you have never met. 

But don't take our word for it. See the 
reviews in 80 Microcomputing (Feb. 1981. 
Aug. 1981, May 1982). And remember, 
Med Systems offers to refund your money 
if you aren't satisfied. Just return the 
game within 14 days of receipt. 



Although Asylum II is the sequel to 
Asylum I, you need not have played one to 
play the other. Asylum I and Asylum II re- 
quire at least 16K of RAM, and are avail- 
able on tape or disk (please specify). Hint 
sheets are available for each Asylum for 
$1.00. 



£svlum 1 




£l) (cassette or diskette) . 


$19.95 


Asylum II 




(cassette or diskette) . 


$19.95 


Asylum I & Asylum II 






$34.95 



MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1-800-334-5470 

Or see your dealer. 
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BAUDY HOUSE 
COMPUTER PRODUCTS 

950 Scott Lake Road 
Pontiac, MI 48054 



FANTASTIC GAME SALE 

for 
December 



GREAT FOR CHRISTMAS GIVING! 
ORDER NOW!!! 



FORBIDDEN PLANET 

FORBIDDEN CITY 

HYPERLIGHT PATROL 

DEFIANCE 

PA NIK 

PANIK 



disk 837.95 
disk 37.95 
disk 17.95 
disk 22.95 
disk 22.95 
cassette 17.95 



ALSO 
HOW ABOI7T THESE SPECIALS? 

DDS 875.00 

(disk download system, smart terminal) 

DFT 24.95 

(direct flic transfer utility) 

COLOR DFT cassette 19.95 

•New for color 
MULTIDOS 99.95 

DOSPLl'S 129.95 

OUTHOUSE 19.96 

CYBORG cassette 19.95 

CYBORG disk 24.95 

COLOR LASER COMMAND 10.95 

COLOR SPACE WAR 21.95 

COLOR SCARFM AN 19.95 



-184 



WELCOME 
VISA/MASTERCARD/CHECKS/COD 



All Software orders subject to 83.00 
shipping and handling 
313-683-8388 Order Line 
313-682-9550 Info Line 
313-683-5076 Data Line 
MI residents add 4% sales tax 



advise the vendor when ordering so he 
can supply you with the right board. 

The LCA-47's manual is excellent, 
and gives detailed instructions for re- 
moving the 6847 and installing the plug- 
in board. The procedure isn't very dif- 
ficult, but you should be cautious. 
Work slowly and carefully. When the 
board and IC are installed, you may 
find that one corner of the RF shield 
can no longer be pressed down as far as 
the others. 1 have never observed any in- 
crease in RF interference due to the 
misfit. 

The LCA-47 board contains a pair 
of DIP switches, one to enable or dis- 
able the whole unit and another to 
reverse the foreground and background 
colors. The normal operation mode 
gives dark characters on a light 
background, which is very readable. If 
you prefer the reverse, just flip the 
switch. It is inconvenient to open the 
computer's case to operate the switches, 
so instructions are included for connect- 
ing outboard switches for remote 
operation. Once the unit is set up and 
enabled, the Color Computer's key- 
board works in the usual fashion. 

The LCA-47 's output looks very fine 
indeed. Someone at Micro Technical 
Products has paid a lot of attention to 
the typographical aspects of the video 
display. You might expect that the 
lowercase characters would be good 
looking with real descenders, and so 
they are. 

What comes as a pleasant surprise is 
the uppercase character set. A number 
of subtle and not -so-subtle changes 
have been made, with the result being 
improved readability over that of the 
Color Basic characters. For example, 
the letter O is now oval instead of rec- 
tangular; the numeral zero has a slash 
through it to avoid confusion. Upper- 
case letters S, E, and F, among others, 
have been improved, and even some of 
the numerals and other symbols have 
been touched up. My elderly tv receiver 
now has a much easier time resolving 
the asterisk; it no longer resembles a 
fuzzy plus sign. 

Word Processing With the LCA-47 

These changes improve the reada- 
bility of both source listings and text 
output of Basic programs. However, 
the real value of the LCA-47 lies in 
word processing. Users of Color Scrip- 
sit, C.C. Writer, Super Color Writer, 



and other color word-processing pack- 
ages can now enjoy video output that 
looks like the printed page. This eases 
the chores of proofreading and editing. 
The LCA-47 only solves the problem 
of character shape; line length and 
number of lines per screen are un- 
changed from whatever is standard for 
a given program. The appearance of 
printed characters is unchanged as well, 
although you can get an accurate repro- 
duction of the video display with a 
screen-print routine. In fact, one of the 
pieces of literature included with the re- 
view copy of the LCA-47 was an 
electronic-circuit diagram produced on 
a Line Printer VII. The diagram includ- 
ed both uppercase and lowercase text 
and schematic symbols. 

Alternative Character Sets 

Since the LCA-47 uses a separate 
ROM to define the characters, anything 
that can be drawn within an appropriate 
area can be generated. The area within 
which the character must be defined is 
eight dots (video resolution elements) 
wide and 12 scan lines tall. At present 
you can purchase four character-gener- 
ator ROMs from the manufacturer: the 
standard upper/lowercase furnished 
with the board, upper/lowercase with 
lowercase Greek letters, upper /lower- 
case with thinline graphics and elec- 
tronic symbols, and uppercase with 
selected Japanese katakana characters. 

In each case, the English letters are 
compatible with Basic programs, while 
the special symbols are accessed by 
POKEing appropriate values into the 
display RAM. A blank bipolar PROM 
is available if you want to do your own 
programming, and additional character 
sets are promised. Custom program- 
ming is also available. 

In Summary 

The LCA-47 is a well-made product 
that is supported by the manufacturer. 
The instruction manual is also of high 
quality. 

It is interesting to speculate about 
possible enhancements. For example, I 
can imagine a larger board with at least 
two character generators, selectable by 
another DIP switch or from software. 

For the present, the LCA^47 makes 
the Color Computer a more finished 
product, and deserves the consideration 
of all Color Computer users engaged in 
text processing. ■ 
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DAISY WHEEL PRINTERS 



SMITH CORONA TPI 
COMRITER CR-1 
DAISYWRITER 2000 
DIABLO 620/630 KSR 
QUME SPRINT 9 KSR 



COMPUTER SYSTEMS.. 



EPSON HX-20 
TRS-80 MODEL 



SSS CALL FOR PRICE SSS 



You won't believe it!!! 



Rainbow 



P & P CORPORATION 

PO BOX 362 • HADDONFIELD. NJ 08033 
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800-257-61 70 m nj can 609-428-3900 



0000 




An exciting new game from the com- 
pany that is setting the standards. 
Colorful, high scoring, fast action play 
with arcade quality sound effects. 
High resolution, multi-colored charac- 
ters on a black background. Smooth 
accurate joystick control. Demonstra- 
tion mode. Pause feature. 1 or 2 
players. 100% machine language. 
Requires 16K color computer with 
joysticks. 

Cassete— $29.95 Disc— $34.95 

Add $1 50 for shipping; $3 outside US ; 4% tax 
in Mich. VISA, Mastercard or Money order. 
Please allow 2 weeks for checks 

i DEALER INQUIRIES INVITED 

^ifitracolor 

1 COMMUNICATIONS 

SETTING THE STANDARDS 

6048 Horizon Drive. East Lansing, Ml 48823 

TRS BO Coin Computet is TM ot Tandy Corp ^33t 





^DISKETTE 
^JUNCTION 



OW AND 

SAV 

THIS SPECIAL 
DUCTORY OFFER 

Scotch DISKETTES 



$19.95 



per box of 



1 side/D Density (744D-0) diskett 
compatible with Verbatim (MD525- 
Limit two per order. 

Scotch Head Cleaning Kits 

5%" and 8" Kits 

$'9.95 each 

►rder. 



DISKETTE-JUNCTION stocks a complete 
line of 3M magnetic media including 
96TPI Quad Density. Call now to order the 
Scotch diskette for your equipment. 



OHIO RESIDENTS CALL 



DISKETTE JUNCTION - 5 

591 8 Smith Rd. • Cleveland, Ohio 44142 

WE ACCEPT 

VISA • MASTER CHARGE • CHECKS 

MONEY ORDFRS • C O D 

• Add S3. 00 'or shipping & hireling 

• S? 00 EXTRA for U S Mail delivery 

• S3 00 EXTRA for COD 
• Ohio residents add 6.5 r ':i sa^es tax 



Authorized Distributor 
Information Processing Products 



3M 



■See List of Advertisers on Page 451 
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Hypergate Centurion 

• ••* 

Hypergate Patrol 

Synergistic Solar Inc. 

Box 560595 

Miami, FL 33156 

16K 

Model 1 or 111, cassette or disk 

$39.95 

by Mark E. Renne 

Synergistic has developed two very 
sophisticated space simulations that 
require only 16K and yet are stimulating 
to even the best space cadets. They pro- 
pel you into a universe filled with mon- 
sters, exploding asteroids, marauding 
pirates, and anxious allies. 

The games, which are sold together, 
are related to each other. In Hypergate 
Patrol, you are the captain of a small 
patrol vessel wandering through the gal- 
axy at the command of the Hypergate 
Centurion. In Hypergate Centurion, 
you control several Hypergate Patrol 
ships and a plasma weapon that spans 
the universe. The inhabitants of both 
games are identical, but the strategy is 
very different. 

Hypergate Patrol is a program writ- 
ten in Basic with machine-language sub- 
routines. Each galaxy is comprised of 



GO N£ 
PIGGYBACK! 




CEnTRDniC5^^f# 

ADD lowercase with our 

plug-in piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO compete character sate on board: 
96 character ASCII PUIS cnotea ot 
128 character API. TRS-80/M-19 Graphics or 
ScteMWc. (Custom* dotlnod: add SSO/sM). 
Moat ptfUW c - M rttete : afCSrf tofte h—fd I 

Radix . . 
Technologies 



Suite 400 Camyn BuMng 

10400 Eaton PtoCd 

Fairfax. VA 22030 (703) 3154900 
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nine quadrants, and five galaxies make 
up your patrol universe. The galaxies 
are all joined in the center by a Hyper- 
gate. By entering the Hypergate at dif- 
ferent angles, you can travel from one 
galaxy to another. For example, if 
you're in the Androm galaxy and re- 
ceive a distress call from the Solan 
galaxy, enter the Hypergate at a 238 - 
274 degree angle. Your destination will 
be Solan. 

Your performance is rated on a 
merit-demerit system. Killing the bad 
guys rates five merits while killing a 
friend rates five demerits. You need a 
ratio of seven to one to survive. The 
game is played in real time and you 
must complete your mission within a 
specified amount of cycles. 

Although the program is written 
mostly in Basic, it moves quickly and 
features 50 different aliens. At any giv- 
en time a certain alliance will be the ene- 
my of the guild and you must destroy 
any of that alliance's warships. Also, 
you must destroy pirates and monsters. 
Beware, though; pirates might be dis- 
guised as other ships and are only dis- 
covered by interrogation. 

The video display is divided into 



seven sections, providing all the vital 
information. Your ship features a varie- 
ty of weapons, and a call to the Hyper- 
gate Centurion is always possible in a 
tight spot. 

Hypergate Centurion is a machine- 
language, multi-level, space simulation 
of the highest degree. You are buried 
deep within an asteroid and control 15 
quadrants of space. You have a fleet of 
five seekers in the hangar bay, ready to 
be dispatched with any of five different 
orders. 

As each object enters your jurisdic- 
tional area it is assigned a number. You 
can scan the area in four different 
ways — area, quadrant, tactical, or in- 
terrogation. This gives a variety of mag- 
nification and types of information de- 
pending on the scan. 

Documentation for these two games 
consists of 45 pages of instructions in 
the form of an operations manual full 
of Centurion secrets. These are not 
arcade-type games, but simulations re- 
quiring skill, logic, and mental exper- 
tise. Even though they require only 
16K, they are first class and offer a 
challenge that won't be mastered in one 
sitting. ■ 
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Date-O-Base Calendar 
Custom Software Engineering 
807 Minutemen Causeway 
Cocoa Beach, FL 32931 
Color Computer 
$19.95 disk 
$16.95 cassette 

by Scott L. Norman 

Keeping a calendar is a worthwhile 
task for any home or business com- 
puter. Date-O-Base is an inexpensive 
program that turns the Color Computer 
into an electronic datebook able to 
search and display short memos previ- 
ously stored for a particular date. It also 
includes a calendar-page display mode 
that takes advantage of the Color Com- 
puter's high-resolution graphics 
capabilities. 

Date-O-Base, or DOB, is available 
for cassette and disk systems; disks are 
best for the file handling this type of 
program requires. 1 reviewed disk 
DOB, intended for a 32K system with a 



single drive. 

The program comes on tape, so your 
first task is to copy it onto a blank disk. 
There isn't much to this, since DOB is 
written in Basic: just CLOAD and save. 
When the program is first run, two 
ASCII files called MEMO/IND and 
MEMO/CAL are automatically creat- 
ed. These expand as the calendar fills 
with memos. A disk can hold more than 
4,000 one-line memos of up to 28 
characters each. There are restrictions, 
though: no more than 12 memos for 
any single day, no more than 300 for 
any month. This should be more than 
adequate for any household or small of- 
fice. The program even allows multiple 
lines for complicated messages. 

Although DOB's date-computation 
routine can handle any day of any 
month between the years 1700 and 
2099, the program will probably be used 
for events in the near future. The input 
routines have been fine-tuned a bit; any 
year in the 20th century can be specified 
by giving its last two digits. Months can 
be specified by a number from 1-12 or 
by a three-letter abbreviation. The 
months, days, and years required as in- 
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put must be separated by commas. 

When DOB is run (you have to enter 
the Run command twice when first start- 
ing a session), a master menu contain- 
ing six options presents itself. This is 
home base; you can get back to it by hit- 
ting enter once or twice. Here are the 
details of operation: 

• Option 0, End, must be used for all 
normal exits from DOB. Besides being 
used at the end of a session, you should 
select Option after you have entered a 
series of memos that you will later want 
to search. It closes the disk files and car- 
ries out other housekeeping chores. It 
also terminates the program and returns 
Basic's OK prompt, so that an addi- 
tional Run command is necessary to get 
back into action. 

I found this to be the only tricky 
aspect of DOB's operation. I forgot to 
use Option a few times, and wiped out 
some test files before I could check out 
the rest of the system. 

• Option 1, Display Month, prompts 
you for a month and year, and then 
draws and numbers the appropriate 
calendar page using high-resolution 
graphics. You can enter memos for any 
day during the chosen month by typing 
in the date. The numbers you type will 
not show on the screen, but hitting enter 
causes the display to switch to a text 
screen that does show the date, together 
with 12 numbered lines for memos. You 
are then prompted for a memo number. 
When you have finished your entries, a 
null line (the enter key by itself) returns 
the calendar display. Now, however, 
the box for the date in question contains 
a reminder spot for each memo. When 
you have finished your month's entries, 
another null line gets the master 
menu back. 

The data on any given page can be 
changed by overwriting. A memo can 
be deleted by specifying its number and 
entering a null line. This is fine for in- 
dividual deletions, but there are easier 
methods for handling blocks of data. 

It is possible to get a printout of the 
calendar display, but this requires an 
external screen-print routine — Radio 
Shack's, for instance, or one sold by 
Custom Software themselves. 

• Option 2, Display/Change Memos, 
bypasses Option l's calendar -drawing 
routine and saves some time. Option 2 
lets you specify a date and jump right to 
the text screen. The entry, modification, 
and deletion of memos proceeds just as 
for Option 1 . 

^Sm List of Advtrtisers on Pag* 451 



"Date-O-Base. . .fills 

a genuine 

need at a 

reasonable price. " 




• Option 3, Search Memos, displays or 
prints memos falling within a specified 
period of time. You can read all the 
memos, or use keywords and search 
logic to restrict the output. 

When you select Option 3, you are 
first prompted for start and finish dates 
for the search interval. Next, specify the 
search logic: AND, OR, or ALL. ALL 
bypasses the use of keywords and out- 
puts everything found in the interval. 
Both AND and OR allow you to specify 
up to 10 keywords. The AND option 
only displays memos containing all of 
the keywords, while OR selects memos 
containing any one of them. If you are 
interested in only one keyword, either 
option will do. 

• Option 4, Delete Memos, is a global 
delete function, eliminating all the data 
for a specified interval. The minimum 
interval is one month; both starting and 
finishing dates must be specified in 
MM/YY format, but you can specify 
the same month for both. DOB is a 
friendly program, and gives you a last 
chance by asking if you are sure before 
actually deleting memos. 

Option 4 provides an alternative to 
the one-memo-at-a-time deletion 
capability of Options 1 and 2. You can 
also use Disk Basic's Kill command 
to eliminate the MEMO/IND and 
MEMO/CAL files. Of course, this 
wipes out everything but the original 
DOB program itself. 

• Option 5, Date Computation, em- 
ploys DOB's date-computation routine 
to compute the elapsed time between 
two specified dates. The output takes 
four forms: days, weeks/days, months/ 
days, and years/months/days. There is 
one quirk: The first two display modes 
takes account of February 29 for leap 
years, while the last two do not (unless 
the elapsed time is less than one month). 

Date-O-Base has quickly become a 
member of my Color Computer's as- 
sortment of household programs. It is 
easy to use (provided that you remem- 
ber Option 0), and fills a genuine need 
at a reasonable price. If you can live 
with the short memos imposed by the 
program, it can do a good job for you. ■ 



If you use a Word 
Processor, you need 

QRAMMATik 

Beyond Spelling Checking 

Grammatik can find over 15 
different kinds of common errors 
missed by simple spelling 
checkers alone, including 
punctuation and capitalization 
errors, overworked and wordy 
phrases, and many others. Use 
Grammatik with Aspen Software's 
spelling checker Proofreader, 
featuring the Random House 
Dictionary?, or with your current 
spelling checker for a complete 
document proofreading system. 

Read what the experts say: 

"The perfect complement to a 
spelling checker." 

Alan Miller. Interface Age 5 82 

"A surprisingly fast and easy tool for 
analyzing writing style and 
punctuation." 

Bot> Louden. infoWorlO 12 81 

"Anyone involved with word 
processing in any way is encouraged 
to get this excellent program." 

A A Wicks. Computronics 6 82 

"A dynamic tool for comprehensive 
editing beyond spelling corrections." 

Dona Z Meilach Interlace Age. 5 82 

"A worthy and useful addition to your 
word processing software." 

Stephen Kimmel. Creative Computing. 6 82 

Works with CP/M®, 
IBM-PC®, TRS-80® 



Grammatik $75.00 
Proofreader $50.00 

Order directly from Aspen 
Software, or see your local dealer. 
Specify your computer system 
configuration when ordering! 
Visa, Mastercard accepted. 



Random House is a registered trademark of Random 
House. I nc Other registered trademarks CP M Digital 
Research - TRS-80 Tandy Corp -- IBM IBM -- 
Proofreader Grammatik Aspen So'tware Co 



Aspen Software Co. 

P O Box 339 Tijeras. NM 87059 

(505) 281-1634 - u 
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Drive Control Unit 
Optronics Technology 
2990 Atlantic Ave. 
Penfield, NY 14526 
$39.95, assembled 
$29.95, kit 

by David DuPuy 



It has long bothered me that my eight- 
inch disks continue to spin in the 
drive after I have accessed the tiles I 
need. The wear on the disk drive, and 
shortening the life of the floppy disk, 
seems unnecessary. 

Now, eight-inch drive systems can be 
adapted to turn the drives off when they 
are not needed (see New Products, Mi- 
crocomputing, May 1982, page 140). 
Optronics Technology's Drive Control 
Unit (DCU) is available assembled and 
tested, or in kit form. The DCU can be 
installed in existing eight-inch drive en- 
closures with a minimum of effort. 

Concept and Features 

I ordered the Drive Control Unit in 
kit form from Optronics. A six-page 
manual, with two pages of drawings 
and diagrams and a photograph show- 
ing how the unit mounts in the rear of 
an eight-inch Shugart drive comes with 
the kit. 

The DCU's concept is simple. The 
1 10 volts ac that is normally connected 
to the synchronous motor for rotating 
the disk is turned on or off by a triac 
mounted on the Optronics DCU board. 
A trigger signal from the Shugart PC 
board controls the triac, so the comput- 
er needs no extra wiring. The triac is 
opto-isolated from the logic, as you 
might expect. To minimize electrical 
switching noise, the ac voltage turns on 
or off at zero crossing. To turn a second 
drive on and off, Optronics provides a 
second control input and a second out- 
put. I could not test that option, since I 
have only one disk drive. After you ac- 
cess and release the drive (per normal 
operation before inserting the DCU in 
the ac line), the disk spins for about nine 
seconds after the LED goes out before 
shutting off. This nine-second interval 
can be changed when building the unit 
by changing one resistor. 

Construction 

The printed circuit board is about 
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2 3/8 by 3 1/2 inches in size and comes 
predrilled. There are about 20 parts to 
mount on the PC board. The instruc- 
tions are adequate, and no one who has 
any experience at the Heath kit level 
should have any problems assembling 
the board. A drawing shows the place- 
ment of parts to be mounted, and I 
found no ambiguities in the instructions. 

1 do have a couple of suggestions for 
comments to be included in the next 
version. I saw no mention that parts 
mounted on the board should be bent 
parallel to the board (it is obvious that 
the triac should be bent over); the board 
layout is arranged so that the capacitors 
bend over to conserve vertical room, 
and the manual should mention this. 
Mechanical interference is possible be- 
tween the molded nylon socket for ac 
input and the wires to the ac output 
socket. It would be simple to move the 
leads to the ac output socket 1/4 inch 
and avoid this problem. Also, the dia- 
gram showing hookup to the trigger sig- 
nal on the Shugart PC board doesn't 
look like the PC board on my Shugart 
801. Finally, although all necessary in- 
formation has been included, the manu- 
al could use a little more organization. 

The manual slants toward wiring that 
conforms either to Shugart or Siemens 
drives. If you have either of these, every 
detail you need to build and install this 
device is in the manual. The manual 
makes clear those changes that have to 
be made for different types of drives, 
and offers several options. A few extra 
components are included (signal diodes) 
in case you have a drive that requires 
slight wiring changes on the PC board. 

Installing the PC board in the Shu- 
gart drive is easy. The molded nylon 
plugs included are identical to those 
used to connect 1 10 volts ac to the Shu- 
gart drive motor, and this PC board is 
inserted in series in the 1 10- volt ac line. 
The molded nylon plugs are mounted 
on the PC board so that the 110-volt 
leads support the board, and the cables 
in the drive need little rearrangement to 
accommodate the board. Five-volt and 
ground leads attach to the Shugart PC 
board, and the only other lead to con- 
nect is the trigger signal, which also goes 
to the Shugart PC board. For the Shu- 
gart drive, the manual instructs you to 
connect this lead to test point 1 1 (TP1 1) 
on the Shugart board. As I mentioned 
before, the diagram showing this con- 
nection does not resemble my Shugart 



801 PC board. However, I located a pin 
marked 11, and that evidently was the 
right connection, since the unit works as 
advertised. 

Performance 

Upon installation in my system (with 
a CCS disk controller and Shugart 801 
drive), the Drive Control Unit worked 
fine the first time without fine tuning or 
troubleshooting. The lack of drive noise 
and continual disk spinning is a delight! 

I did experience a few problems. A 
disk-error message occasionally shows 
up when I first boot up my system, and 
typing B a second time (my monitor's 
command to boot from the disk) boots 
the system from the disk. The DCU 
manual recommends you lengthen the 
delay on the disk controller's HLD sig- 
nal to about 360 ms. This did not solve 
the error message on boot-up, and I 
decided to leave the delay around 300 
ms. This particular error might not 
show up on other systems. In the auto- 
boot mode, this problem did not occur, 
although I had to press reset after turn- 
ing on the machine while the disk was 
running to boot the system. The manual 
gives suggestions for troubleshooting in 
case other disk errors occur. 

I have one problem that was prob- 
ably not anticipated by the designers, 
and that is because I'm using only one 
disk drive. In copying from one disk to 
another using a single-disk, file-transfer 
program, problems occur if the nine 
seconds expires before changing the 
disks. The error message "Drive A Not 
Ready" appears. Nothing serious hap- 
pens; you just have to reboot and try 
again. Switching disks within the nine- 
second time limit is easy (you don't have 
to rush), and then the single-drive copy 
routine performs satisfactorily. You 
can lengthen the nine-second interval 
before turnoff if desired. 

Summary 

This product serves a needed func- 
tion. The price is reasonable and the de- 
vice works with no debugging. The 
disk-drive motor now shuts down nine 
seconds after being disengaged. Disk 
and drive wear has been greatly re- 
duced. The unit mounts easily in the 
rear of a Shugart eight-inch drive with- 
out modification to the drive. You must 
solder three wires to the Shugart PC 
board to complete the installation. The 
instruction sheets are detailed enough to 
guide even a novice. ■ 
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REVIEW DIGEST 

Understanding Computer Science, Roger S. Walker, 
Tandy /Radio Shack, Catalog /K62-1383, $2.95. 

"I picked up Understanding Computer Science while 
waiting in line at Radio Shack, and I couldn't put it down. 
... I'm convinced that it's a little-known treasure that belongs 
on any computer owner's bookshelf. This book is an inexpen- 
sive overview of all the major areas of computing, written at a 
level that any interested person can understand, and the infor- 
mation that it contains is perfectly packaged for home 
computerists." Compute, September, p. 100. 



Postman, Soft Sector Marketing, Garden City, MI 48135, 
Model I or II, $125, $175 (form letter option), $225 (hard-disk 
version). 

"Postman fills a variety of small-business applications that 
require large mailing lists. It is written entirely in machine 
language and is menu-driven for simplicity. . . .There is only 
one way to describe the performance of Postman: 
'Flawless!' " Info World, September 20, p. 47. 



Basic For Business, Douglas Hergert, Sybex Books, Berkeley, 

CA, $12.95. 

"■Basic For Business is written for the businessperson who 
wants to know how and why a program works. It approaches 
the study of Basic from a businessperson 's perspective; that is, 
it guides a reader through the development of several practical 
business programs, including a cost of goods sold inventory 
program, break-even point analysis, T-ledger accounts, 
depreciation, and basic statistical analysis programs." Per- 
sonal Computing, October, p. 149.69. 



Master Control, Soft Sector Marketing, Garden City, MI 
48135, Color Computer, $24.95. 

"Alan Schwartz is to be congratulated on an innovative and 
highly useful program. It is written in machine language and 
from the first worked as the very brief, but adequate, instruc- 
tions indicated. . . .The first few days living with Master Con- 
trol the kids and I keyed in some programs . . . Master Control 
makes that task much easier and faster." Color Computer 
News, September, p. 29. 



Pro-80 Extended Basic, Pro-80 Systems, Cedar Falls, IA, 
Model Hand 16, $195. 

"Pro-80 Basic does what it claims it can do: It expands the 
capabilities of Radio Shack's Basic interpreter. Before you 
buy, you should be aware that some of the features contain 
potential hazards, and the sort is not as fast as some I've seen. 
However, my overall recommendation is that the package is 
worth its price." two/sixteen, July-August, p. 16. 



Big Things from Little Computers: A Layperson % s Guide to 
Personal Computers, Dale Peterson, Prentice-Hall Inc., 
Englewood Cliffs, NJ, $12.95. 

"Peterson discusses a variety of unique uses for personal 
computers in education, art, music and business, in the home, 
and by the physically handicapped. . . .It is clear that Big 
Things From Little Computers is not a how-to book, but 
rather a resource book of better personal computing ideas and 
applications that can be implemented with a little effort and 
imagination." Personal Computing, September, p. 156. 

MkroPilot, Tandy/Radio Shack, Model I and III, 32K disk 
format, $79.95. 

"The strengths of MicroPilot lie in its programming effi- 
ciency for educational/interactive programming. With 
MicroPilot you can ask a question, get an answer, evaluate the 
answer and appropriate feedback with three of four simple 
commands. . . .The features that make MicroPilot shine are 
its edit/run capability, its graphics, its sound generation 
capability, and its record keeping commands." Creative 
Computing, October, p. 34. 



The Tiny Compiler, Aardvark-80, Walled Lake, MI 48088, 
Color Computer, $24.95. 

"The name is appropriate because the Tiny Compiler does 
not pretend to be a sophisticated big-time compiler that will 
take whatever code you wish to write in Basic and generate 
machine-language instructions. Instead, and to the credit of 
Aardvark-80 which markets it, Tiny Compiler is billed as a 
limited compiler which, frankly, can speed up a lot of things 
that needed speeding up in the first place." The Rainbow, 
September, p. 89. 



Stellar Escort, Big Five Software, Van Nuys, CA 91409, 
Model I and III, $95. 

"Your job is to protect the defenseless craft you are towing 
from the vile Cretonians who are out to destroy it. It is to your 
advantage to protect your craft well, because if it is destroyed 
the disruption of the force field immediately destroys your 
escort craft. ... As compared to other games on the market in 
this price range, you will definitely get your money's worth 
from this one." 80 U. 5., October, p. 102. 



RAM Slam, DSL Computer Products, Dearborn, MI 48121, 
Color Computer, $49.95. 

"At $49.95 the RAM Slam upgrade kit from DSL Com- 
puter Products is one of the least expensive kits of the 
'solderless' type I have seen advertised. . . . Not being the 
technical type I was very pleased to see how easy it was to 
upgrade to 32K. . . " The Rainbow, September, p. 88. 
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SOFT BITS 



by Roger Fuller 



Last December, I discussed bits and 
bytes. This month's column pro- 
vides a short program that lets you ex- 
amine the bits in the bytes of binary 
numbers. 

The Assembly program takes advan- 
tage of a ROM routine. When the Basic 
interpreter encounters a USR function, 
it evaluates the function's argument. 
This sets the variable type flag at 
40AFH and leaves the type in the A reg- 
ister. Therefore you need only access 
the A register to get the type, which also 
happens to be the number of bytes used 
to represent the number. 

The type flag for an integer is two; 
for a single-precision number, four; and 
for a double-precision number, eight. If 
the binary number is an integer or a 
single-precision number, the bytes rep- 
resenting the number are stored starting 
at 4121 H. A double-precision number is 
stored starting at 41 1DH. Table 1 sum- 
marizes this. 

The Assembly code that displays the 
bits on the screen's top row is shown in 
Program Listing 1 . These bits are dis- 
played as ones if they are on, zeros if 
they are off. To determine the number 
of bits, multiply the type by eight. A 
double-precision number uses the entire 
top row of 64 spaces to display its bits. 
The bits are displayed with the least sig- 
nificant bit at print position 63 on the 
screen. The more significant bytes in a 




number are displayed to the left of the 
less significant bytes, the opposite of the 
way they are stored in memory. A byte 
of value 3 would be displayed as 
0000001 1 . Since the type flag is equal to 
the number of bytes in a number, the 
Assembly program uses it to set up a 
loop. This loop determines how many 
times to call the subroutine that displays 
the bits. A DJNZ loop structure accom- 
plishes this. The HL register pair is ini- 



7F00 
7P00 
7F01 
7F04 
7F06 
7F08 
7F0A 
7F0D 
7F0E 
7F0F 
7F10 
7F13 
7F14 
7F16 



47 

212141 

FE08 

2002 

2E1D 

113F3C 

C5 

7E 

23 

CD177F 

CI 

10F7 

C9 



7F17 0E01 
7F19 47 
7F1A 78 
7F1B Al 
7F1C 3E30 
7F1E 2801 
7F20 3C 
7F21 12 
7F22 IB 
7F23 CB21 
7F25 20F3 
7F27 C9 

0000 

00000 TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 

00190 NUMBER 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 

00280 BYTE 
00290 

00300 BITOUT 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
ERRORS 



;BIT DISPLAYER BY 

; 

7F00H 

8, A 

HL,4121H 

8 

NZ.S+4 

L,1DH 

DE,3C3FH 

BC 

A,(HL) 

HL 

BYTE 

BC 

NUMBER 



ORG 

LD 

LD 

CP 

J P. 

LD 

LD 

PUSH 

LD 

INC 

CALL 

POP 

DJNZ 

RET 



; 

LD 

LD 

LD 

AND 

LD 

JR 

INC 

LD 

DEC 

SLA 

JR 

RET 

; 

END 



C,l 
B,A 
A,B 
C 

*,•■' 
Z,S+3 
A 

(DE) ,A 
DE 
C 
NZ, BITOUT 



ROGER FULLER PUBLIC DOMAIN 



;SAVE NUMBER LENGTH 

; POINT TO NUMBER STORAGE 

; CHECK FOR DBL LENGTH 

;IF NOT DBL THEN SKIP 

;ELSE BACKUP 4 BYTES 

;§63 ON VIDIO SCREEN 

;SAVE LOOP COUNTER 

jGET A BYTE 

; POINT TO NEXT BYTE 

;DISPLAY 8 BITS 

; RESTORE LOOP COUNTER 

;LOOP TILL DONE 

;DONE 



;MASK FOR BIT POSITIONS 

;SAVE BYTE 

; RECOVER BYTE 

•TEST FOR BIT ON 

/LOAD A ASCII ZERO 

;IF BIT IS OPF 

;IF BIT ON MAKE '0' A '1' 

; DISPLAY '0' OR '1' 

1 POINT TO NEXT SPACE 

;MOVE MASK BIT LEFT ONE 

(IF NOT DONE 



Program Listing 1 



tialized to the memory address where 
the argument of the USR function was 
placed after evaluation by Basic. The 
CP 8 in line 150 allows the adjustment 
for double-precision numbers to be 
made in line 170. 

The DE register pair is used to point 
to the screen. 

In line 190 the #-bits-to-display 
counter is saved by the PUSH BC. Line 
200 loads a byte from the number. 
Next, a Call is made to the display bits 
subroutine. Here a bit mask is created in 
the C register by loading it with a one in 
line 280. 

The mask works by ANDing it with 
the target byte stored in A. If the bit in 
the mask and the bit in the target byte 
are not on, the result is zero. Since the 
AND instruction destroys the value of 
the A register, the value is saved in the B 
register in line 290 and recovered each 
time it is needed in line 300. The load in 
line 320 does not alter the flags, so the 
jump in line 330 is still valid. The ASCII 
zero, or if the bit was on, the ASCII one 
is displayed on the screen. 

Next, the screen pointer, DE, is 
backed up and the mask rotated left, 
which also performs a test for zero. This 
is a convenient way to exit the sub- 
routine at line 390. 

The Basic program (Program Listing 
2) assumes you have loaded the machine 
code at address 7F00H. You will need 
to POKE the values for the USR ad- 
dress if you do not have Disk Basic. The 
program requests the type length in line 
40 and validates the answer. Then a 
subroutine is called in line 50 to set the 
variable's type appropriately. This al- 
lows the program to easily change 
variable types. 

The TYPE/2 + (TYPE = 8) expres- 
sion in line 50 evaluates to a 1 , 2, or 3 
for integer, single-precision, or double- 
precision variables respectively. When 
(TYPE = 8) is false it is evaluated as 
zero; when true, it is evaluated as -1. 
Thus, 8/2 + (-1) equals 3. This works 
with almost all Basics. (Level I is not 
one of them.) 

Line 60 requests the initial value of 
the number you wish analyzed. Line 70 
requests the step value. If you want to 
examine just one number, answer with 
a zero. 

Displaying double-precision numbers 
is impressive and demonstrates why 
processing them takes so long. ■ 
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IB ' BIT DISPLAYER BY ROGER FULLER PUBLIC DOMAIN 

2B CLS : DEFUSRI-iH7FBB 

3B PRINT01 28, "ENTER TYPE OF VARIABLE (2-INT, 4-SNG, OR 8«DBL) 

4B INPUT TYPE : IF TYPE<>2 AND TYPE<>4 AND TYPEOB THEN 30 

SB ON TYPE/2 +(TYPE-8) GOSUB 2BB ,400 , 80B 

6B PRINTS256, "ENTER INITIAL VALUE"; : INPUT NV 

78 PRINT93 84, "ENTER STEP SIZE"; : INPUT NS 

8B PRINT 512, "NUMBER - "; 

9B PRINT 52B, USRl(NV); 

IBB NV - NV + NS : GOTO 90 

2BB DEFINT N : RETURN 

4BB DEFSNG N : RETURN 

8B0 DEFDBL N : RETURN 



Program Listing 2 



MSB = Most Significant Byte 
NMSB = Next Most Significant Byte 
LSB = Least Significant Byte 
EXP = Exponent Value 
SIGN = Sign Bit 

INTEGER 

411D 

411E 

411F 

4120 

4121 

4122 

4123 

4124 



SINGLE 



DOUBLE 







LSB 






NMSB 






NMSB 






NMSB 


LSB 


LSB 


NMSB 


SIGN/MSB 


NMSB 


NMSB 




MSB 


MSB 




SIGN/EXP 


SIGN/EXP 



ruble I 



NEW! From QSC . . 



RIVET RACE 



The latest arcade erase now runs, 
on your TRS-80*. Ladders and 
elevators take you from level to 
level in this fast action machine 
language game. RIVET RACE is 
Alpha Joystick** compatible. 

For TRS-80*, Models I & III 




«»ihi^M 



fcJfcJH'l-: 

Ull'HM 



MINDWARP 



An educational game that improves 
your memory skills. 

Stk Tape .. 114.95 

32k Disk $18.95 

Mo. Rea. Add 4.625% Sales Tax 

— Dealer Inquiries Invited — 

QUALITY SOFTWARE AND 

CONSULTING. INC. „34 

P. 0. Box 11355 

Kansas City, Missouri 64112 

(816) 765-4297 

•TRS-80 Trademark Tandy Corp. 
••Trademark Alpha Products 







$ HORSERACING $ 




The KEL-CO SYSTEM, developed by Dr. A.S. Kelsey. Professor of Mathematics, and Mike Cox. an expert in horse rac*- handicapping, has been 
available separately for Thoroughbred and Harness racing since the late 1960s and has increased in popularity as the technical presentation of 
it has improved. 

The in depth analysis of 10.000 races for each of Thoroughbred and Harness racing was conducted to determine which measurable variables 
were most predictive and which of the intangibles could be organized into a workable form. 

CANNELLA SALES CORP. NOW INTRODUCES TWO KEL-CO SOFTWARE PACKAGES FOR ANALYSING 

THOROUGHBRED AND HARNESS HORSES! 
THE PROGRAMS 

Because of Computer technology, a novice need only learn how to interpret the racing papers (clear instructions included) to operate these 
programs. You'll enjoy becoming a Railbird! 



THOROUGHBRED PROGRAM (RS-5): Horses' ratings reflect 
True Class levels. The Program takes into account the levels of 
racing at ail North American racetracks so that ratings always 
remain consistent; Fitness of the horse is also a major element 
brought out in the analysis. Ratings may then be adjusted in 
consideration of factors like Distance, Weight, Surface etc. 



TROT PROGRAM (RS-6): Horses' ratings are derived through the 
mathematical links among S peed, Finishes. Post Positions and Track 
Lengths. Adjustments are then made for Current Form, Class 
Changes. Driver Changes etc. This method can be used at any 
Harness racetrack for which normal past performance data is avail- 
able. 



INPUT/OUTPUT — The Programs operate on the basis of prompts where the user responds with material from the racing papers, and in some 
cases personal judgement. 

Results may be produced one horse at a time or for complete races; horses are rated, ranked and qualified on a list (screen copy or hard copy). 
Wagering guidelines for Straight-Win, Place. Show and Combination Bets, eg. Daily Doubles, Ex act as - are given in the Programs. These rules 
are applied in accordance with the horses' ratings and qualifications. 

IMMEDIATE DELIVERY ON CASH AND CREDIT CARD ORDERS - Send Money Orders; Personal Cheques (must clear before delivery); 
VISA, MasterCard, (American Express-USA only) - send Acct. No., Expiry Date 
TELEPHONE CREDIT CARD ORDERSI 
IN USA: $200. Each Program STUDY 

CANNELLA SALES CORP. A formal Study using the Thoroughbred 

420 E. Genesee St. System in New York, New Jersey and Canada 

Syracuse, New York 13202 showed a profit of 24% over 372 potential 

1-800-448-5713 races. Copies of the Study may be obtained 

(NY State 315-476-1430) for $1.00 each from either our U.S. or 

NY Residents add sales tax. Canadian office. Call Now and Order 

These Two Programs. 

Specifications: TRS-80V™$I & III. 48K; Apple II (™j) with DOS 3.3, 48K; enquire about othersl 



IN CANADA: $225. Cdn. Each Program 

EQUINE MANAGEMENT & INNOVATIONS 

P.O. Box 2214, Station D 

Ottawa. Ontario K1P 5W4 

Toronto 281-3568 

Ottawa 523-4202 

Vancouver 228-9091 
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THE SAD PLIGHT OF A FROG. HE FACES WILD DRIVERS AS HE 

TRIES TO CROSS THE ROAD. SINKING TURTLES, FLOATING LOGS 

AND HUNGRY ALLIGATORS STAND BETWEEN HIM AND HOME. HE 

NEEDS YOUR HELP!! ORDER SOON BEFORE ITS TOO LATE!! 

SOUND EFFECTS 

TOP TEN SCORES SAVED ON TAPE OR DISK 

TRS-80' MODEL I -III 

Disk $19.95 Tape $15.95 

Joysticks available for the above program for $39.95 

TO ORDER SEND CHECK OR MONEY ORDER OR CALL (517) 542-3280 



Visit Our Two 
RETAIL LOCATIONS: 

'111 Marshall St. 

Litchfield, MI 49252 

517-542 3280 

886 Ecorse Rd., Ypsilanti, Ml 48197 

313-482-4424 

' Authorized Radio Shack Dealership 
•62 




ISPLAYED 



IDEO 



DISTRIBUTED EXCLUSIVELY BY DISPLAYED VIDEO 

DEALER DISCOUNTS AVAILABLE 

WRITTEN BY: DuBois and McNamara 




ADD $2.00 for 

Shipping. Add 

$1.50 for COD. 

Michigan Res. Add 4 percent. 

' TRS-80 Trademark of the Tandy Corporation 



Extra! Extra! 




Insect Frenzy Page 5 



Volume 4 



All The News That's Fit To ZAP! 



Users vote no to the same 
OLD ARCADE GAMES 
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(DV 1982) Blurry eyed users have turned to DISPLAYED 
VIDEO to answer their need for new and exciting arcade 
games. In response. DISPLAYED VIDEO has announced 
eight new programs for the TRS-80* Models MIL These 
arcade type games feature sound, graphics, joystick compa- 
tibility and are written in machine language for maximum 
speed! Both disk and tape versions allow the user to save 
high scores, a feature not usually found on cassette based 
games. Maze enthusiasts seem to like Ghost Hunter and Killer 
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Beetles, while gun slingers look toward Insect Frenzy. Jungle 
Raiders. Space Shootout, Alien Cresta and Battle Stations for 
excitement. A Game that does not fall into these categories 
is Hoppy. It features wild drivers, sinking turtles, and hungry 
alligators. These programs are distributed exclusively by 
DISPLAYED VIDEO and written by Dubois and McNamara. 
Pricing for these programs is $15.95 for tape and $19.95 
for disk. Reliable sources inside the company indicate Killer 
Gorilla will be available by the time you read this. 



TO ORDER SEND CHECK OR MONEY ORDER OR CALL (517) 542-3280 



Viiit Our Two 

RETAIL LOCATIONS: 

111 Marshall St., Litchfield, MI 49252 

(517) 542 3280 

or 

886 Ecorse Rd.. Ypsilanti. MI 48197 

(313)426 5086 (313)482-4424 

•Authorized Radio Shack Dealership 



D ISPLAYE D 
IDEO 

DEALER DISCOUNTS AVAILABLE 




Joysticks for above programs $39.95 
Add $2.00 for Shipping 
Add J 1.50 for COD 
Mich. res. add 4 percent tax 
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The GAMERS CAFE 



by Rodney Gambicus 



How 
long 
can 
you 



tread water? 




We awoke to the dull staccato of 
rain beating on the van roof, as 
we had every morning during our stay 
in Eugene, OR. The doors had rusted 
shut overnight and Winthrop started 
screaming, "We're all gonna die, we're 
all gonna die," so I strapped him to his 
bean-bag chair and cranked up Hellfire 
Warrior on the Model 1 , and he quickly 
slipped back into his coma. 

It was Winthrop's idea to come to 
Eugene because he'd heard that there 
were a lot of crunchy-granola types 
running around, and thought maybe 
we could find some New Age health 
freak who could figure out what was 
wrong with the PMC (which we affec- 
tionately call the Model '/: ) we'd found 
at the Goodwill in Pocatello, ID. I 
tried to tell him that foot reflexology 
wouldn't work on a computer, but 
Winthrop is a stubborn sort. It took 
me six weeks to potty-train him. 

It sure didn't look like we'd be open- 
ing the cafe that day. So I wiped the 
green slime from my glasses and 
crawled out the window and padded on 
over to the Atrium, where I grabbed a 
cup of espresso and a Prince Puckler's 
chocolate milk shake for breakfast. I 
had Queenie, one of our Model Ills, 
along, so I plugged her in and booted 
up Adventure International's Sea 
Dragon. 

Well, naturally several shoppers wan- 
dered over to see what was happening, 
and before I knew it they'd pushed me 
aside and were cruising along like so 
many underwater Ahabs. What with all 
of the rain perpetually dropping from 
the sky, these people seemed to have a 
particular affinity for the video deep, 
and pretty soon they'd blown Win- 
throp's high score off the board. Some 
fellow who called himself Mad Max 
wiped out the reactor five times and 
racked up 147,910 points. 

Mad Max was a hippie tree planter 
who hadn't been out of the woods since 
1976, which was when he finally got 
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back from Woodstock. He thought 
Queenie was pretty interesting (he called 
her a "souped-up tv"), and wanted to 
know if anybody 'd ever gotten a score 
higher than his. 1 had no idea. So we 
went back to the van and woke up Win- 
throp and asked him, but he had no 
idea either. 

Well, says I, why don't we put out a 
call in Gamer's Cafe? But Winthrop 
was a bit miffed that this guy, who 
didn't know a chip from cheddar 
cheese, had cleaned his clock, and 
wasn't too receptive. Then Mad Max 
said, why not publish Winthrop's high 
scores for other games? This suggestion 
thawed Winthrop pretty quickly. 

So I started scrounging around the 
van for the bits and pieces of paper 
Winthrop filed his scores on, and typed 
them on a separate sheet of paper, 
which I imagine the guys at 80 will print 
as a table or figure or something. (See 
Something 1.) If any of you out there 
have done better, or have a super score 
for a game not on the list, send a photo 
o\~ the screen to the Gamer's Cafe, care 
of 80 Micro. 



« » * * 



About the time we heard a knock on 
the window. It was the mailman. Lord 
only knows how the 80 office manages 
to track us down. Winthrop was all ex- 



cited—he loves answering mail from 
our readers — but the mail consisted of a 
flyer from the Church of Otherly Love, 
a free sample of a new fingernail remov- 
er, and a press release from Hayden 
Software. None of it interested Win- 
throp much, so when Mad Max sug- 
gested they go out for a mushroom piz- 
za, Winthrop jumped at the offer. 

Since it seemed likely that the Hayden 
release would have something to do 
with micros, I opened it up, and found 
an interesting couple pages on their 
Kamikaze Shootout. Kamikaze is a new 
arcade game for the Apple, and Hayden 
is sponsoring a contest that will culmi- 
nate (i.e., end) in a showdown in San 
Francisco for 5,000 smackers. The fi- 
nalists will be the five people who send 
in the highest scores by January 31, 
1983; they have to verify their scores 
with a photo of the screen. 

You might be wondering what's to 
stop somebody from messing around 
with the code and posting a high score 
illegally. I wonder if you're wondering 
that because I wondered it too. So I 
picked the lichen from my pants and 
headed for the nearest phone to call Jim 
Hunter, software editor at Hayden. 

Well, the honchos at Hayden are 
pretty laid back about the whole thing. 
Jim says they've got a protection 
scheme built into the program, and a 



(iamc 

Himinator 
Sea Dragon 
Swamp Wars 
Armored Patrol 
Galaxy Invaders 
Cosmic Fighter 



Player 

Winthrop 
Mad Max 
Winthrop 
Winthrop 
Winthrop 
Winthrop 



Score 

59,600 

147,910* 

39.200" 

81.000 + 

1. 000.000 -n 

103.980 



•Mosicc mode Max got M.480 in the expert mode 
•"Winthrop got through all nine swamps, loo. 
•Method I. Winthrop racked up 2X 1. 000 points using Method II 
"'Winthrop still had sn ships left, hut he got hored 

Something I. A list of the most -frequently played sanies ut the darner \ C a/e and their high scores. 




After three years of selling 
my Model I and Model m 
programs, I've earned back 
my development costs. 

So I can lower the price. 

Now I'm offering my Model I and Model III 
programs for $75 each. 

They've been checked out by thousands of 
TRS-80* users, most of whom get in touch with me, 
Irwin Taranto. Thousands of phone calls later, these 
systems are completely developed, checked out, 
glitch-free. 

When people call, we've heard all the questions 
and we can answer them right off. I don't have to 
get on the phone and work through problems like 
I used to. 

Since I'm getting off so easy, the least I can 
do is drop the price- 50% for General Ledger, 
25% for the rest. 

These are my Model I and Model III programs : 

Accounts Payable It links to the General Ledger, 

calculates and prints checks and makes reports. 

It's an invoice-linked system. 

Accounts Receivable It keeps track of billed 
and unbilled invoices, open and closed items 
and aging. It prints statements and links to 
the General Ledger. 

General Ledger It keeps track of data by month, 
quarter, year and the previous three quarters. 
It even includes a Cash Journal. 
Inventory Control It gives an immediate read- 
out on any item inquiry, including quantity and 
dollar total. 

**See List of Advertisers on Page 451 



Invoicing It prints your detailed invoices 
and links to Accounts Receivable and the 
General Ledger. 

Payroll It keeps the files, computes pay and 
deductions, prints forms and checks, figures 
taxes, overtime and piecework pay in any state 
tax routine, and prints the 941 -A and W-2 forms. 

They're all yours, for $75 each. You also need 
documentation when you run our systems. The 
Osborne books - one for Accounts Payable and 
Receivable, one for General Ledger, one for Payroll- 
cost $20 each. Our invoicing book costs $10. 

Just send me the coupon, or call us toll free. 
We'll ship within 48 hours. 



Please send rne the following programs at $75 each. 



book ? 



Accounts Payable 






Accounts Receivable 




General Ledger 






Inventory Control 






Invoicing 






Payroll 














AMOUNT ENCLOSED 





If you need the books, add $20 each. The invoicing book is $10. 

Mastercharge Visa No._ Expires 

Please send me information on other Taranto business 
programs, including TRS-80 Model II accounting systems. 

Your name. 

Company name. 

Address— 

City State Zip 



Taranto 

& ASSOCIATES, INC. 
The Total System Store,™ 121 Paul Drive, San Rafael, 
CA 94903. Mail inquiries to PO. Box 6216, San Rafael, 
CA 94903. Outside California, toll free (800) 227-2868. 
| In California, (415) 472-2670. j 



"A trademark of the Tandy Corporation 
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message that will flash onto the screen 
at 50,000 points. But basically they're 
relying on the integrity of the contest- 
ants. Besides, he points out, who's go- 
ing to want to get to San Francisco by 
cheating and then get humiliated at the 
national finals? (He's lucky he didn't 
ask Winthrop that question.) 

In any case, Jim and I marveled at 
what a great idea it was, and wondered 
why other companies didn't do it. Jim 
pointed out that such a contest requires 
a lot of up-front cash for advertising 
and promotion (not to mention the 
prizes), and that only the larger com- 
panies could afford to risk the loss. 
Still, it sure would be nice if somebody 
did something similar for us TRS-80 
pilots. 

Speaking of Hayden, Jim also says 
that they won't be coming out with too 
much TRS-80 software in the near fu- 
ture. It seems they've got eight or nine 
Apple and Atari games in the works 
that they need to polish off. Jim ac- 
knowledged, however, that the com- 
pany can't afford to ignore three quar- 
ters of a million of us, so maybe some 
time in the future they'll toss something 
our way. 

While I was on the phone, I decid- 
ed to make one of my rare yet infre- 



quent calls to 80 Micro headquarters. 
One of the editors answered with, 
"Casey's Bar and Grill, Casey speak- 
ing." Jeez, 1 thought, those folks at 
80 Micro sure are a pack of cards. 
Anyway, I asked about these rumors 
going around about Spectral Associ- 
ates, and the editor said sure enough, 
they're true. Spectral is coming out 
with a machine-language hi-res 
graphics adventure for the Color 
Computer called Revenge of the 
Hawk, and the people at Spectral say 
it's going to set a new standard in ad- 
venture games. We've all heard that 
one before, so we'll see. They've also 
got Omega Race ready to go on line. 
Both Hawk and Race should be out at 
any time. In addition, they have a 
machine-language hi-res Donkey 
Kong play-alike in the works for you 
weird arcade parlor bums. 

After I got all the straight dope on 
Spectral, I asked how things were going 
at 80 Micro, and the guy on the line said 
"80 what?" I thought at this point that 
the joke had gone too far, so I shouted 
at the guy for a little while, and he 
shouted back. It finally came to light 
that I really had called Casey's Bar and 
Grill. These bartenders think they know 
everything. 



***** 



When I got back to the van, Win- 
throp and Mad Max were staring happi- 
ly at a blank VDT, giggling and passing 
a bottle of margaritas back and forth. I 
asked what was going on, and Win- 
throp said something about the hilari- 
ous ultrasonic hum. Mad Max asked me 
if I wanted a piece of mushroom pizza. 
Only thing was, they'd somehow lost 
the pizza and only the mushrooms were 
left. I politely declined. 

Well, I was getting pretty sick of 
the rain, so I figured that this was as 
good a time as any to hit the road. We 
needed some place nice and sunny 
where we could set up the cafe once 
again and sip coffee to the sounds of 
twangy Spanish guitars. So I wiped 
the moss from the windshield and 
headed for Route 5 South. 

It wasn't until Klamath that I real- 
ized we still had Max in the van. I 
thought of saying something, but he 
was asleep, and I didn't want to wake 
him. Besides, this'll be good for his 
soul. How long can a guy plant trees 
before he becomes one? 

That's it for this month. Keep 
those cards and letters pouring in.H 



NEW PRINTERS ADDED 1 FIND YOURS BELOW 



RIBBON SALE 



EXACT REPLACEMENTS. LONG LIFE, HEAVY INKING 



0ttW !TM.i*»« rth RADIO SHACKCENTRONICS-EPSONANADEXBASE 2-HEWLETT PACKARD-MALIBUIBMNECC.ITOHIDS 



PRINTER 

MAKE. MODEL NUMBER 
(Contact us il your printer is 
not listed We can probably 

RELOAD your old cartridges I 



ANADEX 9000 Series 

BASE 2 

CENTRONICS 7 meg 

702/703/704/753 
HPMALIBU 2608 2631 

RADIO SHACK 
DAISY WHEEL II 

Carbon Film (26 14191 

COLORS JS.^51 

Long Lit* Fabric (1449) 

LP I 1 1- IV 700 Zip Pact. 
(1413)7301737/739/779 
LP III V (26 1414) 
LP VI-VIII (26 14181 
LP VII ,26 1424, 

EPSON MX 70-so IBM 

MX too 
C.ITOH IhmSm 

■Ua • 6 .- socs.-.t 

DATA ROYAL woo 

NEC 8023 Series 

Spinwriter Fabric 
MS Carbon Film 
COLORS 



RIBBON 

SIZE 



INSERTS EZ-LOAD™ 

Exact REPLACEMENTS made in 

ou' own s*op 'eatu'e Long Lile 

and Heavy inking. Ou' instructions 

DROP IN. NO WINDING' 



■•> .30 
: «20 

S/16« 70 

'• i 60 

' « . 1 30 

•'« « 130 

• •isToW 

9/16 i 16 

'i i 18 
S/16i 14 
Inker Loop 
't «20 
'7 «30 



J21/3 
$18/3 



$78/12 
$66712 



D « 18 



K «130 
1 4 i 1 30 



$25/6 $48/12 $270/72 

$30/6 $58/12 $324/72 

$24/3 547/6 $90/12 

$13/3 $48/12 



$18/3 
$17/3 


s\ v °t 


SS'M 

CAB" 


'$66/12 
$62/12 
















$18/3 




$66/12 


$21/3 




S78/12 


$18/3 






$66/12 



$18/3 



$18/3 



S66/1 2 
$66/12 



$18/3 



$66/12 



$25/6 $48/12 



$30/6 $58/12 



$270/72 
"$324/72 



RELOADS 

You SEND you' used 
CARTRIDGES to us We 
RELOAD them 'or you 



$10/1 $9 ea./2 or more 
$9/1 $8 ea./2 or more 
$11/1 $1 Oca. 12 or more 

S20/1_S18ea./2 or more 

$15/3 

51 8/3 

$9/1 S8ea./2or more 



$9/1 
$9/1 



$8ea 2 or more 
$8 ea.'2 or more 



$9/1 $8 ea./2 or more 
$10/1 $9 ea./2 or more 
$9/1 S8ea./2or more 



$11/1 $1 ea./2 or more 

$9/1 $8 ea./2 or more 

$9/1 $8 ea./2 or more 

$871 $7 ea./2 or more 



S15/3 
$18/3 



WORRIED ABOUT ORDERING BY MAIL 1 Reia» We ve been n business 'or many years ana „an please the 
smallest and largest account You receive some ot the tmest r bbons available made ot oui own exclusive 
IMAGE PLUS* tm fabric and carbon Mm Our ribbons fit your p-mter exactly COMPARE but BEWARE 1 We 
order all our competitor s products and are amazed at what we get Have you ever received a new fabric 
ribbon you Had to unwind and dump out on the table before you could use it? We have Or. carbon film in 
Jens trial had no endol'ibbon sensor' O' 7 meg cartridges with only HALF enough riDOon at lull retail 7 
Our only business is RIBBON manufacturing and distribution We use the latest state of the art production 
equipment and are blessed wilh a line, dedicated sta" We 'u, y guarantee an ou' products because we make 
them ourselves You must be completely satisfied, period Ou' "boons are made l-esh daily and shipped within 
24 hours Wrile tor our brochu'e and newsletler INK SPOTS — «,. r, President 



»&. 



NEW CARTRIDGES 

it'Om the various 

manufacturers Subiect 

to availability *i 



$30/2 
$25/2 


$87/6 

$72/6 


$168/12 
$140/12 


$18/3 


$70/12 


$408/72 


$21/3 


$82/12 
$58/6 


$480/72 


$20/2 


$112/12 









SILVER DOLLAR 

WIND to LOAD 

WHY DO WE SELL THESE 7 
This IS the type ribbon you gel if you orde' 
from our fellow advertisers We sen them 
\ for less smce we make them ourselves Do 
you 'eally like Ihe mess and inconvenience of 
unwinding and dumping this type ribbon 
mto a wastebasket or out on a newspaper 
and'or winding it mto your cartridge'' We 
don t know why these are being sold 
Computers should simplity your life not 
make it more complex iust to save a tew 
pennies You are welcome to order these 
if you cannot afford ou' EZ LOAD -v 
INSERTS RELOADS O' NEW CART 
RIDGES But BEWARE 1 You now know how 
lo avoid disappointment One more caution 
be sure to check the length of any ribbon 
BEFORE you buy it For instance an MX 100 
nboon should be 30 yards long, not 20 as HI 
theMX«0 



$25/2 $75/6 S150/12 

$22/2 $66/6 $132/ 12 

$16/2 $48/6 $96/12 

$18/2 $52/6 $100/12 



* $30/2 * 



$12/3 $44/12 


$252/72 


$11/3 S40/12 


$228/72 






S12/3 $44/12 


$252/72 



$18/3 $66/12 $360/72 



Volumel MODEL II 8" GAME DISCS Volume 2 

Biorhythms Trap Ugly. Bingo 



Rip Cord. Yacht Sea 
Concentration & 4 more 



$25 EACH 



Towers. Black, ack 
Farkle Pony 4 3 more 



SEND CHECK. MONEY ORDER, or COD TO: 

BCCOMPCO 

800 South 17 Box 246 
SUMMERSVILLE, MO 65571 

(417)932-4196 " 152 

WE PAY UPS SHIPPING ON PREPAID ORDERS. PLEASE 
INCLUDE STREET ADDRESS FOR UPS DELIVERY. ADO 
$1.00 FOR POSTAL, APO, FPO, OR AK, AS, CM, GU, HI, 
PR, TT, VI, CANADA OR MEXICO. FOREIGN ADD 10%, 
U.S. FUNDS. 
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I've paid off 
the costs on my 

Model II TRSDOS* 
systems, too. 

So now they're 50% 
cheaper. 

A couple of months ago, I realized I'd paid 
off the development costs on my Model I and 
Model III programs. I could lower the price 
without cutting back one bit on my support. 

The response was fantastic. Enough so that 
I can do the same for the TRSDOS versions 
of my Model 11/16 programs. 

These are my systems, and my new prices. 

General Ledger 

It gives year-to-year comparisons in dollars 
and percentages. It figures budgets and even 
has a report generator. It was $299, it's now $150. 

Accounts Payable/Purchase Order 

It generates purchase orders and posts the items 
to payable when the goods come in. It calculates 
and prints checks and aged ledger reports, 
linking fully to the General Ledger. Was $349, 
now $175. 

Accounts Receivable 

You can choose either an open item system or 
a balance forward system which works on a cash 
or an accrual basis. The open item system does 
invoicing and sales analysis by product code and 



figure in salesmen's commissions. They both 
generate mailing lists by customer code and 
zip code for up to 2000 customers. Open Item/ 
Invoicing was $349, it's now $175. Balance 
Forward was $399, it's now $200. 

Payroll/Job Costing 

A huge capacity. It accommodates up to 300 
employees in multiple departments, with any 
state tax routine. It also figures piecework, 
overtime and tips. Was $299, now $150. With job 
costing option, was $399, now $200. 

Inventory Control 

It stores up to 5000 items. It reports by vendor, 
tells you when you're out of stock, or when you 
need to reorder. It updates price or cost automat- 
ically and integrates fully with my invoicing 
system. Originally $399, now $200. 

These programs all work with one, two, three 
or four-drive and hard disk systems. They're 
designed to integrate with the General Ledger, 
and, where it helps, with each other. 

They also get what I firmly believe is the 
most thorough support in the microcomputer 
industry. If you have a problem, call us and 
we'll straighten it out. Even if I have to do it 
myself, personally, right there on the phone. 

Michael Tannenbaum, the "80 Accountant" 
thought my systems were "a very impressive 
product at a very reasonable price." Even when 
they cost twice as much as they do now. 

Just call, and take advantage of me. 



^70 



Taranto 

& ASSOCIATES. INC. 



121 Paul Drive. San Rafael CA 94903 

Outside California, toll free (800) 227 2868. In California. (415) 472-2670. 

■A uademark of the Tandy Corporation 



■See List ol A dvertisers on Page 451 



80 Micro, December 1982 • 71 



TECHNIQUE 



• • 



LOAD 80 



Voice-Controlled Typewriter 



by Mike Rigsby 



Some handicapped people have dis- 
abilities that prevent them from writing 
or typing, yet their intellect is normal. 
This program lets you produce printed 
text by verbal control. Required equip- 
ment includes a TRS-80 Model 1 or III, 
a cassette recorder, and a printer. You 
don't have to be able to utter words; 
controlled verbal utterances or the tap- 
ping of a pencil upon the table will suffice. 

A special feature of this software is 
the speed-control function. You can 
move the cursor (the heart of the opera- 
tion) faster or slower by verbal com- 
mand. You set your own pace. 

To start the program, load Voice - 



The physically handi- 
capped can produce 
printed text with this 
sound-controlled program. 

controlled Typewriter, type Run, and 
press enter. The program begins and in- 
dicates that the auxiliary microphone 
and plugs, as well as any tape, should be 
removed from the tape recorder. Next 
press the record and play keys while si- 
multaneously pushing in the silver inter- 
lock button in the left rear of the record- 
ing well. Press any key and the program 



will operate, under sound control. 

A cursor moves across the top of the 
screen and when it is over a row with a 
desired letter, utter a short sound and it 
will travel down that row. When the 
cursor is at the left of the desired letter, 
utter another sound and that letter will 



The Key Box 

Model I or III 
16k, 32K RAM 
Cassette or Disk Basic 
Printer 



Program Listing 








1 GOTO 622 


20 


POKE 15364,191 




2 CLEAR 400 


21 


POKE15412,128 




3 B-0 


22 


FOR X=l TO Q 




4 DIMA$(70) 


23 


OUT255,00 




5 Ql=30 


24 


Y-INP(255) 




6 Q=50 


25 


IF Y>200THEN 7£ 




7 FOR A=0 TO 6 9 


26 


NEXTX 




8 A$(A)=" " 


27 


POKE 15372,191 




9 NEXT A 


28 


POKE15364,128 




10 CLS 


29 


FOR X»l TO Q 




11 PRINT85,"*":PRINT813,"*":PRINT821,"*":PRINT829,"*":PRINT837," 


30 


OUT255,00 




*":PRINT845,"*":PRINT853, "*" 


31 


Y-INP(255) 




12 PRINT8133 , "A" : PRINT8141 , "D" : PRINT8149 , "C" : PRINT8157 , "B" : PRINT 


32 


IF Y>200 THEN 127 


8165, "SPACE" :PRINT@173,"0": PRINT8181," 5" 


33 


NEXT X 




13 PRINT8197,"E":PRINT8205,"H":PRINT8213,"F":PRINT8221,"J":PRINT 


34 


POKE15380,191 




8229,".":PRINT8237,"1":PRINT8245,"6" 


35 


POKE 15372,128 




14 PRINT8261,"I":PRINT8269,"N":PRINT8277,"G":PRINT8285,"K":PRINT 


36 


FOR X-l TO Q 




8293,",":PRlNT8301,"2"iPRINTe309,"7" 


37 


OUT255,00 




15 PRINT8325,"0":PRINT8333,"S":PRINT8341,"L":PRINT8349,"M": PRINT 


38 


Y=INP(255) 




8357, "PRINT":PRINT8365,"3":PRINT8373,"8" 


39 


IF Y>200 THEN 


184 


16 PRINT8389 , "U" : PRINT8397 , "T" : PRINT8405 , "P" : PRINT8413 , "Q" : PRINT 


40 


NEXT X 




8421,"ERASE":PRINT8429,"4":PRINT8437,"9" 


41 


POKE 15388,191 




17 PRINT8469,"R":PRINT8477,"V":PRINT8485,"X":PRINT8501, "SPEED" 


42 


POKE15380,128 




18 PRINT8533,"Y":PRINT8541,*W":PRINT8549,"Z" 


43 


FOR X-l TO Q 




19 SET(106,41) :SET(107,41) :SET(108,41) :SET(109,41) :SET(110,41) :S 


44 


OUT 255,00 




ET(111,41) :SET(112,41) :SET(113,41) :SET(114,41) :SET(115,41) :SET(1 


45 


Y-INP(255) 




16,41) :SETU17,41) :SET(118,41) :SET(119,41) :SET(120,41) :SET(121,4 


46 


IF Y>200 THEN 


263 


1) :SET(127,41) :SET(126,41) 


47 


NEXT X 








Luting continue* 
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MAILING LIST 
SYSTEM $119.95 

FOR TRS-80 (Tandy Trademark) Model I and III 



WHAT SETS OUR SYSTEM APART?... 

• Our system is configured spec ific ally tor large mailing lists 
(or small] on floppy disk drives. Some other ma|or systems 
run on floppies but are really intended tor use on hard disk 
drives Such a system assumes that you have vast amounts ot 
on line disk storage capacity the continuity of the data is 
limited to what vou can have on line at one time To get the 
real benefit of such a system, one usually has to purchase 
expanded track density floppy disk drives and even then the 
problem occurs when all the drives are filled with data We 
have neatly solved this problem h\ allowing all your data 
disks to be maintained in continuous order even though. 
due to the limitations of your drives, the list mas be too large 
to all be "on line" at one time Thus our system accomodates 
extremely large lists using your existing drives and yet avoids 
the segmented' data problems of the hard disk approac h 

• While it is fashionable to advertise all-machine-code systems 
our system is primarily written in BASK with embedded 
machine code for the speed sensitive areas What this means 
is that our system is easy to modify, yet extremely fast This 
is very important since many users like to have c ustom modi- 
fications made (either by them or us) so as to fit some unique 
requirement Our manual has a section devoted exclusively 
to such modifications Remember all-mac hine-code systems 
are extremely cliff ic ult to modify 

• Continuity of the ordered data (even ciata spanning many 
disks) is not limited to a session but is permanent 

• Optional "backing up of your data as-you-go is an integral 
part of the system and is not restricted to the end of a session 
This is true even tor deletions 

• The length ot our data fields are more than adequate to 
accomodate even your longest names addresses 

• Adjusts to a 32K memory although full use is made of a 4HK 
memory Can be used vs ith any DOS including TRSDOS 

• The program disk does not have to stay on line, thus freeing 
more space for data storage 

9 I oad and sc roll through entire entries or selec ted fields I dit 
as you sc roll or go direc tlv (takes about 2 sec ) to a spec itic 
entry and edit or delete 

• Our automatic repe.it feature allows often used names 
addresses to be entered with a single key stroke 

• Each disk entry optionally remembers'' how many mailings 
have been made for that particular entry Can be tied in with 
purge select 

• Continuing expert support |ust a phone call away You will be 
able to discuss your problems modifications with the authors 

• Money back guarantee if not fully satisfied. 

ADDITIONAL FEATURES: 

• Simple to use, even for the novic e menu oriented 

• Permits 2260 names "on-line with 40 tr.it k double density 
drives and almost 5000 names w ith HI) trac k drives I he older 
3S single density drives permit 1025 on line entries made 
possible with our unique data c ompression techniques 

• Super fast sort by alph or zip order (8 sec for 1000 entries) 
Both orders can exist simultaneously on disk 

• High speed recovery of entries trom disk speed ot sort is 
meaningless if retreival from disk is slow Ours pulls in over 
11 per sec' 

• Master list printout of your list in several formats (not just a 
rehash of labels) extremely useful 

• Zip order is sub-alphabetized 

• Less than r » digit zips have leading!) s appended 

• Supports 9 digit zips. Canadian zips, and foreign abbrev 

• Optional second address line 

• Optional reversal of names about commas This permits disk 
storage in last-name first order to fac ilitate meaningful order- 



ing while the printout will be in "natural" order 
Permits telephone, ac c ount. and or serial numbers, etc 
Prints on envelopes or labels 1.2. 3 or 4 ac ross 
Can print individual labels at time of creation or editing 
Test label envelope printing allows you to make vertical and 
horizontal adjustments with ease 

I ransters old tiles to our system — •^■■■^■H IOOK! 

Selective printout by spec ific zips or zip ranges 
Plenty ot user defined fields with provisions tor simulta- 
neously purging and or selecting the printout even allows 
for inequalities Powerful and easy to use 

( diting is simply and fast direc t ac c ess or automatic 
searc h Bate h transfer or edited entries to bac kup disks 
Optionally provides for duplicate labels 

Deleted entries have "holes " on disk tilled automatic ally and 
alph order is still maintained' 

All labels optionally support an Attn line with provisions 
tor multiple entries This permits mail to be sent to several' 
people at given addresses c onserves disk space 
All s are replaced by easier to read s in addresses 
Continuous display ot number of labels envelopes printed 
Extensive use ot error traps even recovers trom a power 
failure during a printout 

Extensive assortment ot extra cost options tor customized 
master list printout (in addition to the standard one mentioned 
above), transfer of entries between disks, summary reports, 
and "publisher's" type multiple list label printouts 
Hardware requirements \2K, printer, and 1 or 2 drives 



FORM LETTER (Use with Mail List System) $39.95 

Create letters and store on disk with provisions for later retreival 
and additions Then print your letters using your mailing list 

• Same selec t and purge features .is mailing list system 

• Select either continuous fanfold oi cut sheet paper 

• Selec table tabing test printing, and paging 

• Allows regular or legal size pages 

• Creetings are selectable by codes on mailing list Options 
include Mr Mrs First last Name global or user defined 



SUPER CALENDAR (Supplied on tape only) $19.95 

Prints out calendars ot individual months ot years ranging trom 
1 SK 3 to any time in the future Standard bankers holidays are 
noted Additionally prints out large graphics type wall 
calendars with memos under each day Use as a planning 
c alendar with optional disk storage Requires 1hK and a printer 

Loan Amortization (Supplied on tape only) $29.95 

Achieves pin point accuracy with a built in calendar This 
sophisticated program produces an exceptionally professional 
looking printout that inc ludes yearly summaries as well as 
totals -to-date Several options for calculating interest includ 
ing one that pushes the payment date ahead to the next business 
day it the regular pay date tails on a weekend or holiday 



FOOTBALL SCOUT 



(disk only) 



Charge local schools up to S1000 per season tor these sophisti 
c ated reports Analyze the tendanc les of opposing teams 
Equivalent to that used by the- pros 

■ I I I I I I I I I I 1 



Mailing List System 
Form Letter 



Football Scout 



Super Calendars 



Model I or III' 

Total (AddS) 00 l<M Shipping & Handling! _ 

C h,- ( k 1 1 I llll LJ Vim Lj 

Card No I xp _ 

Name 

Address 

City State, & Zip 



Precision Prototypes -« 

I 410E.Roca Refugio, TX. 78377 (512)526-4758 



^ See Lisr of Advertisers on Page 45 1 
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/ 1 sung ainimued 


133 


FOR X=l TO Q 


219 


FOR X=l TO Ql 


305 


IF Y>200 THEN 543 


48 POKE 15396,191 


134 


OUT255,00 


220 


NEXT X 


306 


NEXT X 


49 POKE15388,128 


135 


Y=INP(255) 


221 


B$="L" 


307 


POKE 15772,191 


50 FOR X=l TO Q 


136 


IF Y>200 THEN 543 


222 


C=15700 


308 


POKE 15708,128 


51 OUT255,00 


137 


NEXT X 


223 


FOR X=l TO Q 


309 


FOR X=l TO Ql 


52 Y=INP(255) 


138 


POKE 15564,191 


224 


OUT255,00 


310 


NEXT X 


53 IF Y>200 THEN 342 


139 


POKE 15500,128 


225 


Y=INP(255) 


311 


B$="Q" 


54 NEXT X 


140 


FOR X=l TO Ql 


226 


IF Y>200 THEN 543 


312 


C=15772 


55 POKE 15404,191 


141 


NEXT X 


227 


NEXT X 


313 


FOR X=1T0Q 


56 P0KE15396,128 


142 


B$="H" 


228 


POKE 15764,191 


314 


OUT255,00 


57 FOR X=l TO Q 


143 


C=15564 


229 


POKE 15700,128 


315 


Y=INP(255) 


58 OUT 255,00 


144 


FOR X=l TO Q 


230 


FOR X«l TO Ql 


316 


IF Y>200 THEN 543 


59 Y=INP(255) 


145 


OUT255,00 


231 


NEXT X 


317 


NEXT X 


60 IF Y>200 THEN 419 


146 


Y=INP(255) 


232 


B$="P" 


318 


POKE 15836,191 


61 NEXT X 


147 


IF Y>200 THEN 543 


233 


C=15764 


319 


POKE 15772,128 


62 POKE 15412,191 


148 


NEXT X 


234 


FOR X=l TO Q 


320 


FOR X=l TO Ql 


63 POKE 15404,128 


149 


POKE 15628,191 


235 


OUT255,00 


321 


NEXT X 


6 4 FOR X=l TO Q 


150 


POKE 15564,128 


236 


Y=INP(255) 


322 


B$«"Q" 


65 OUT255,00 


151 


FOR X=l TO Ql 


237 


IF Y>200 THEN 543 


323 


C=15836 


66 Y=INP(255) 


152 


NEXT X 


238 


NEXT X 


324 


FOR X-l TO Q 


67 IF Y>200 THEN 476 


153 


B$=*N" 


239 


POKE 15828,191 


325 


OUT255,00 


68 NEXT X 


154 


C=15628 


240 


POKE 15764,128 


326 


Y=INP(255) 


69 GOTO 20 


155 


FOR X=l TO Q 


241 


FOR X=l TO Ql 


327 


IF Y>200 THEN 543 


70 POKE 15364, 128 


156 


OUT255,00 


242 


NEXT X 


328 


NEXT X 


71 POKE 15492,191 


157 


Y=INP(255) 


243 


B$="R" 


329 


POKE 15900,191 


72 FOR X=l TO Ql 


158 


IF Y>200 THEN 543 


244 


C=15828 


330 


POKE 15836,128 


73 NEXT X 


159 


NEXT X 


245 


FOR X=l TO Q 


331 


FOR X=l TO Ql 


74 B$-"A" 


160 


POKE 15692,191 


246 


OUT255,00 


332 


NEXT X 


75 C=15492 


161 


POKE 15628,128 


247 


Y=INP(255) 


333 


B$="W" 


76 FOR X=l TO Q 


162 


FOR X=l TO Ql 


248 


IF Y>200 THEN 543 


334 


C=15900 


77 OUT255,00 


163 


NEXT X 


249 


NEXT X 


335 


FOR X=l TO Q 


78 Y=INP(255) 


164 


B$="S" 


250 


POKE 15892, lbtl 


336 


OUT255,00 


79 IF Y>200 THEN 543 


165 


C=15692 


251 


POKE 15828,128 


337 


Y=INP(255) 


80 NEXT X 


166 


FOR X=l TO Q 


252 


FOR X=l TO Ql 


338 


IF Y>200 THEN 543 


81 POKE 15556,191 


167 


OUT255,00 


253 


NEXT X 


339 


NEXT X 


82 POKE 15492,128 


168 


Y=INP(255) 


254 


B$»"Y" 


340 


POKE 15900,128 


83 FOR X=l TO Ql 


169 


IF Y>200 THEN 543 


255 


C=15892 


341 


GOTO 20 


84 NEXT X 


170 


NEXT X 


256 


FOR X=l TO Q 


342 


POKE 15524,191 


85 B$="E" 


171 


POKE 15756,191 


257 


OUT255,00 


343 


POKE 15396,128 


• 86 C=15556 


172 


POKE 15692,128 


258 


Y=INP(255) 


344 


FOR X-l TO Ql 


87 FOR X-l TO Q 


173 


FOR X=l TO Ql 


259 


IF Y>200 THEN 543 


345 


NEXT X 


88 OUT255,00 


174 


NEXT X 


260 


NEXT X 


346 


B$=CHR$(176) 


89 Y=INP(255) 


175 


B$="T" 


261 


POKE 15892,128 


347 


C=15524 


90 IF Y>200 THEN 543 


176 


C=15756 


262 


GOTO 20 


348 


FOR X=l TO Q 


91 NEXT X 


177 


FOR X=l TO Q 


263 


POKE 15388,128 


349 


OUT255,00 


92 POKE 15620,191 


178 


OUT255,00 


264 


POKE 15516,191 


350 


Y=INP(255) 


93 POKE 15556,128 


179 


Y=INP(255) 


265 


FOR X=l TO Ql 


351 


IF Y>200 THEN 543 


94 FOR X=l TO Ql 


180 


IF Y>200 THEN 543 


266 


NEXT X 


352 


NEXT X 


95 NEXT X 


181 


NEXT X 


267 


B$="B" 


353 


POKE 15588,191 


96 B$="I" 


182 


POKE 15756,128 


268 


C-15516 


354 


POKE 15524,128 


97 C-15620 


183 


GOTO 20 


269 


FOR X=l TO Q 


355 


FOR X=l TO Ql 


98 FOR X-l TO Q 


184 


POKE 15380,128 


270 


OUT255,00 


356 


NEXT X 


99 OUT255,00 


185 


POKE 15508,191 


271 


Y=INP(255) 


357 


B$-"." 


100 Y»INP(255) 


18b 


FOR X=l TO Ql 


272 


IF Y>200 THEN 543 


358 


C=15588 


101 IF Y>200 THEN 543 


18/ 


NEXT X 


273 


NEXT X 


359 


FOR X=l TO Q 


102 NEXT X 


188 


B$="C" 


274 


POKE 15580,191 


360 


OUT255,00 


103 POKE 15684,191 


189 


C=15508 


275 


POKE 15516,128 


361 


Y=INP(255) 


104 POKE 15620,128 


190 


FOR X=l TO Q 


276 


FOR X=l TO Ql 


362 


IF Y>200 THEN 543 


105 FOR X-l TO Ql 


191 


OUT255,00 


277 


NEXT X 


363 


NEXT X 


106 NEXT X 


192 


Y=INP(255) 


278 


B$="J" 


364 


POKE 15652,191 


107 B$="0" 


193 


IP Y>200 THEN 543 


279 


C=15580 


365 


POKE 15588,128 


108 C=15684 


194 


NEXT X 


280 


FOR X-l TO Q 


366 


FOR X=l TO Ql 


109 FOR X=l TO Q 


195 


POKE 15572,191 


281 


OUT255,00 


367 


NEXT X 


110 OUT255,00 


196 


POKE 15508,128 


282 


Y=INP(255) 


368 


B$="," 


111 Y=INP(255) 


197 


FOR X=l TO Ql 


283 


IF Y>200 THEN 543 


369 


C=15652 


112 IF Y>200 THEN 543 


198 


NEXT X 


284 


NEXT X 


370 


FOR X=l TO Q 


113 NEXT X 


199 


B$="F" 


285 


POKE 15644,191 


371 


OUT255,00 


114 POKE 15748, 191 


200 


015572 


286 


POKE 15580,128 


372 


Y=INP(255) 


115 POKE 15684,128 


201 


FOR X=l TO Q 


28/ 


FOR X=l TO Ql 


373 


IF Y>200 THEN 543 


116 FOR X=l TO Ql 


202 


OUT255,00 


288 


NEXT X 


374 


NEXT X 


117 NEXT X 


203 


Y=INP(255) 


289 


B$="K" 


375 


POKE 15716,191 


118 B$="U" 


204 


IF Y>200 THEN 543 


290 


C=15644 


376 


POKE 15652,128 


119 C=15748 


205 


NEXT X 


291 


FOR X=l TO Q 


377 


FOR X=l TO Ql 


120 FOR X=l TO Q 


206 


POKE 15636,191 


292 


OUT255,00 


378 


NEXT X 


121 OUT255,00 


207 


POKE 15572,128 


293 


Y=INP(255) 


379 


C=15716 


122 Y=INP(255) 


208 


FOR X=l TO Ql 


294 


IF Y>200 THEN 543 


380 


FOR X-l TO Q 


123 IF Y>200 THEN 543 


209 


NEXT X 


295 


NEXT X 


381 


OUT255,00 


124 NEXT X 


210 


B$="G" 


296 


POKE 15708,191 


382 


Y=INP(255) 


125 POKE 15748,128 


211 


C=15636 


297 


POKE 15644,128 


383 


IF Y>200 THEN 553 


126 GOTO 20 


212 


FOR X=l TO Q 


298 


FOR X=l TO Ql 


384 


NEXT X 


127 P0KE15372,128 


213 


OUT255,00 


299 


NEXT X 


385 


POKE 15780,191 


128 POKE15500,191 


214 


Y=INP(255) 


300 


B$="M" 


386 


POKE 15716,128 


129 FOR X=l TO Ql 


215 


IF Y>200 THEN 543 


301 


C=15708 


38/ 


FOR X»l TO Ql 


130 NEXT X 


216 


NEXT X 


302 


FOR X=l TO Q 


388 


NEXT X 


131 B$="D" 


217 


POKE 15700,191 


303 


OUT255,00 


389 


C=15780 


132 C-15500 


218 


POKE 15636,128 


304 


Y=INP(255) 




/ isimr continues 
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fS^ COMPUTER CONNECTION *\ 



New Toll Free Order Number 



Connection-80 BBS state oi the 

Art in Microcomputer Bulletin Hoard Programs 
tor the TRS-80. Available for Mod I ( 1010(H)) or 
Mod III (103000) SI99.95. 



Electric Pencil Ver 2.1. This is 

the easiest to use word processor tor .the 1 RS-80 
Models I III. Easy to follow instruction manual, 
full documentation. Regularlv 589.95 Holidav 
Special $59.95! 

r\I«riTI~oU Security Company Service 
Maintenance Billing Package tor both the Model 
I & III Menu driven basic programs, handles 
central station billing on monthly . quarterlv . semi- 
annual, or annual cycles. Complete sales and aging 
reports. Multi field customer listing. Interactive 
dunning program for delinquent accounts with 
letter writer. ( 1 13026) $499.95. 

Clear Disk Drive Cases — 

Give your disk drives a modern look. Clear 
Plexiglass Case gives a clean look to vour system. 
Regularly S79.95 Holiday Special $69.95!! ' 

I OWCr UraW A super-easy screen display 
generator. Allows you to save screens in Basic. 
Packed String. Load file, or CMD file. Give a 
professional look to vour program. Regularlv 
$39.95. Holiday Special $29.95" 

Dosplus 3.4 
Operating System 

You've read all about this incredible Operating 
System. With all its' features only the price could 
improve it. Sooo... Holiday Special $79.95!!! 

(101005) Model I Single Density 

(101006) Model I Double Densitv 
(103006) Model III 

JYl'^ai The most powerful Fditor 
Assembler ever written. Full screen editing, linking 
loader, full macro support and much more! 
Holiday special only ( 101007) $99.95. 



□ 



□ 



Electronic Messenger compieteh 

automated electronic mail program lor the 
Model III Transmitts and receives mail auto- 
matically From a short note to a lull disk' Fhe 
standard in Electronic Mail tor all Computers 
(103013) $149.95 [Now only $59.95'!!!!) 

Postman Mass Mailing 

System This Mass Mailing Package is 
without a doubt the most powerful mailing list 
program ever written' Info-World gave it a 4 
excellent (highest) rating* Regularlv $129 95. 
Holidav Special $99.95 

Manufacturing Inventory 

\_-OntrOl A complete point-of-sale order 
entry system for I RS-80 Model I III Includes 
Invoice Generator. Billing Record Maintenance. 
Inventory Tracking. Production of finished goods 
from raw materials, etc... Fantastic! Regular 
S199.00. Holiday Special $149 00" 



PaSCal-80 The Fabulous Pascal-80 
Package by New Classics Software Considered to 
be the best Pascal Package available for the 
1 RS-80! Regular Price $99.95. Holidav 
Special (113008) $79.95!! 

MicrO C&Sh A point-of-sale Inventory 
Cash Register, and Accounts Receivable 
System for the TRS-80 Model III Includes 
Invoice Generator and Inventory Control' 
Regularlv $199.00 Holidav Special (103030) 
$149.95!! 

Super Utility A Must for all serious 
computer users. Allows :you to repair damaged 
disk directories, boot tracks, etc. A real value at 
$79 95. but a hohdav special at $39.95!! 

Uniterm A Modular Terminal program for 
both the Model I & III. Full l'p and down loading 
capabilities with a 38K butter in a 48K mackline! 
1 13000 $79.95. 



*A1I Holiday Specials End 1-15-83!!! 

Postmarks after that date will not be accepted at these prices'! 




B.T. Enterprises ^300 

10 B Carlough Road /Va/ ,. r /,„,„,„., Welcome 

Bohemia. N.Y. 1 1716 Prim Suhjeci to change 

516 567 8155 (voice) V >' S Reudenn •<</</ Tax 
516 588 5836 (modem) 
B.I Enterprises is a division o! Bi-Iech Enterprises lm 



New Toll Free Fines for 

out of New York State 

orders 

800 645 1165 

WEI. COME 




• See List of Advertisers on Page 451 
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Limn ft continued 

390 FOR X=l TO Q 

391 OUT255,00 

392 Y-INP(255) 

393 IF Y>200 THEN 568 

394 NEXT X 

395 POKE 15844,191 

396 POKE 15780,128 
39/ FOR X=l TO Ql 

398 NEXT X 

399 B$="X" 

400 C=15844 

401 FOR X=l TO Q 

402 OUT255,00 

403 Y=INP(255) 

404 IF Y>200 THEN 543 

405 NEXT X 

406 POKE 15908,191 

407 POKE 15844,128 

408 FOR X=l TO Ql 

409 NEXT X 

410 B$="Z" 

411 C=15908 

412 FOR X= 1 TO Q 

413 OUT255,00 

414 Y=INP(255) 

415 IF Y>200 THEN 543 

416 NEXT X 

417 POKE 15908,128 

418 GOTO 20 

419 POKE 15532,191 

420 POKE15404,128 

421 FOR X=l TO Ql 

422 NEXT X 

423 B$="0" 

424 C=15532 

425 FOR X=l TO Q 

426 OUT255,00 

427 Y=INP(255) 

428 IF Y>200 THEN 543 

429 NEXT X 

430 POKE 15596,191 

431 POKE 15532,128 

432 FOR X=l TO Ql 

433 NEXT X 

434 B$="l" 

435 C=15596 

436 FOR X=l TO Q 

437 OUT255,00 

438 Y=INP(255) 

439 IF Y>200 THEN 543 

440 NEXT X 

441 POKE 15660,191 

442 POKE 15596,128 

443 FOR X=l TO Ql 

444 NEXT X 

445 B$»"2" 

446 O15660 

447 FOR X»l TO Q 

448 OUT255,00 

449 Y=INP{255) 

450 IF Y>200 THEN 543 

451 NEXT X 

452 POKE 15724,191 

453 POKE 15660,128 

454 FOR X=l TO Ql 

455 NEXT X 

456 B$="3" 

457 C=15724 

458 FOR X=l TO Q 

459 OUT255,00 

460 Y=INP(255) 

461 IF Y>200 THEN 543 

462 NEXT X 

463 POKE 15788,191 

464 POKE 15724,128 

465 FOR X=l TO Ql 

466 NEXT X 

467 B$«"4" 

468 C=15788 

469 FOR X-l TO Q 

470 OUT255,00 

471 Y=INP(255) 

472 IF Y>200 THEN 543 

473 NEXT X 

474 POKE 15788,128 
47 5 GOTO 20 



476 POKE 15540,191 

477 POKE 15412,128 
47 8 FOR X=l TO Ql 
47 9 NEXT X 

480 B$="5" 

481 C=15540 

482 FOR X=l TO Q 

483 OUT255,00 

484 Y=INP(255) 

485 IF Y>200 THEN 543 

486 NEXT X 

487 POKE 15604,191 

488 POKE 15540,128 

489 FOR X=l TO Ql 

490 NEXT X 

491 B$="6" 

492 C-15604 

493 FOR X=l TO Q 

494 OUT255,00 

495 Y=INP(255) 

496 IF Y>200 THEN 543 

497 NEXT X 

498 POKE 15668,191 

499 POKE 15604,128 

500 FOR X=l TO Ql 

501 NEXT X 

502 B$="7" 

503 C=15668 

504 FOR X=l TO Q 

505 OUT255,00 

506 Y=INP(255) 

507 IF Y>200 THEN 543 

508 NEXT X 

509 POKE 15732,191 

510 POKE 15668,128 

511 FOR X=l TO Ql 

512 NEXT X 

513 B$="8" 

514 C=15732 

515 FOR X=l TO Q 

516 OUT255,00 

517 Y=INP(255) 

518 IF Y>200 THEN 543 

519 NEXT X 

520 POKE 15796,191 

521 POKE 15732,128 

522 FOR X=l TO Ql 

523 NEXT X 

524 B$="9" 

525 C=15796 

526 FOR X=l TO Q 

527 OUT255,00 

528 Y-INP(255) 

529 IF Y>200 THEN 543 

530 NEXT X 

531 POKE 15860,191 

532 POKE 15796,128 

533 FOR X=l TO Ql 

534 NEXT X 

535 C=15860 

536 FOR X=l TO Q 

537 OUT255,00 

538 Y=INP(255) 

539 IF Y>200 THEN 573 

540 NEXT X 

541 POKE 15860,128 

542 GOTO 20 

543 GOT0544 

544 POKEC,128 

545 PRINT@(896+B) ,B$ 

546 IF B$=CHR$(176) THEN B$=" ■ 

547 A$(B)=B$ 

548 B=b-t-l 

549 IF B=62 THEN 553 

550 FOR X=l TO 20 

551 NEXT X 

552 GOTO 20 

553 C$=A$(0)+A$(1)+A$(2)+AS(3)+A$(4)+A$(5)+A$(6)+A$(7)+A$(8)+A$( 
9)+A$(10)+A$(ll)+A$(12)+A$(13)+A$(14)+A$(15)+A$(16)+A$(17)+A$(18 
)+A$(19) 

554 D$-A$(20)+A$(21)+A$(22)+A$(23)+A$(24)+A$(25)+A?(26)+A$(27)+A 
$(28)+A$(29)+A$(30)+A$(31)+A$(32)+A$(33)+A$(34)+A$(35)+A$(36)+A$ 
(37)+A$(38)+A$(39) 

555 E$=A$(40)+A$(41)+A$(42)+A$(43)+A$(44)+A$(45)+A${46)+A$(47)+A 
$(48)+A$(49)+A$(50)+A$(51)+A$(52)+A$(53)+A$(54)+A$(55)+A$(56)+A$ 

Listing continues 
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Listing continued 


(57)+A$(58)+A$(59) 


556 POKE15716,128 


557 F$=»A$(60)+A$(61)+A$(62) 


558 G$=C$+D$+E$+F$ 


559 LPRINTG$ 


560 PRINT6896," 

■ 


561 FOR A«0TO69 


562 A$(A)»" " 


563 NEXT A 


564 B«u 


565 FOR A-0 TO 500 


566 NEXT A 


567 GOTO 20 


56b B«lB-l):IF B<0 THEN B«0:A$(B)»" ■ 


569 POKE 15780,128 


570 PRINT§(896+B) , " ■ 


571 GOTO 20 


572 GOTO 628 


573 CLS 


574 PRINTS, "TIME CONSTANT" 


575 PRINT@35 f Q 


576 PRINTgl33 r "FASTER" 


5/7 PRI NT gl 53, "SLOWER " 


578 PRI NT §17 3, "RETURN " 


579 POKE15492,191 


580 POKE15532,128 


581 FOR X=1TO20 


582 NEXT X 


583 FOR X-l TO 50 


584 OUT255,00 


585 Y-INP(255) 


586 IF Y>200 THEN 607 


587 NEXT X 


588 POKE 15512,191 


589 POKE 15492,128 


590 FOR X=l TO 20 


591 NEXT X 


592 FOR X-1TO50 


593 OOT255,00 


594 Y-INP(255) 


595 IF Y>200 THEN 614 


596 NEXT X 


597 POKE 15532,191 


598 POKE 15512,128 


599 FOR X=l TO 20 


600 NEXT X 


601 FOR X-l TO 50 


602 OUT255,00 


603 Y-INP(255) 


604 IF Y>200 THEN 620 


605 NEXT X 


606 GOT0579 


607 Q-(Q-5) 


608 IF Q«B THEN Q»b 


609 POKE15492,128 


610 PRINT§35,Q 


611 POR X-l TO 50 


612 NEXT X 


613 GOTO 579 


614 Q-(Q+5) 


615 POKE 15512,128 


616 PRINT§35,Q 


617 FOR X-l TO 50 


618 NEXT X 


619 GOTO 579 


620 CLS 


621 B-0:GOTO7 


622 CLS 


623 PRINT"1. YOUR PRINTER SHOULD BE ATTACHED AND ON." 


624 PRINT"2. REMOVE THE 'AUX' AND 'MIC PLUGS FROM THE CASSETT 


E RECORDER." 


625 PRINT" 3. THE ROOM MUST BE QUIET AND THE RECORDER ON A HARD 


FLAT SURFACE FOR BEST RESULTS." 


626 PRINT"4. DEPRESS 'RECORD', 'PLAY', AND THE SMALL PIN AS IN 


DICATED IN THE FLASHING DRAWING." 


627 PRINT" 5. DEPRESS ANY KEY TO CONTINUE." 


628 POKE15916, 151 :POKE15917 f 135 :POKE15918, 131 :P0KE15919, 131: POKE 


15920, 131:P0KE15921, 131 :POKE15922, 131 :P0KE15923, 171 :POKE15980, 14 


9:POKE15987,170 


629 POKE16044,149«POKE16045,191:POKE16047,191:POKE16051,170 


630 M$-INKEY$ 


631 IF M$-""THEN633 


632 GOT02 


633 POKE15917,131:POKE16045,128:POKE16047,128 


634 GOTO 628 



appear at the bottom of the video 
screen. The cursor returns to the home 
position in the upper left and circulates 
again. 

The Space function makes a small 
block appear on the video display (the 
printer will print a space). The Print 
function prints the video display line, 
and Erase deletes the last character (or 
space) from the video screen. If you 
reach the end of the video line (the gap 
in the indicating bar above the line), the 
line is automatically printed. 

The Speed function produces a new 
display that has the commands Faster, 
Slower, and Return. These commands 
increase or decrease the speed at which 
the cursor moves. Return sends the pro- 
gram back to the original mode. Any- 
thing on the video display line will be 
lost upon exiting to the Speed control 
display. You can change the speed as 
often as you wish. 

This program is written in Basic and 
some delay is allowed after a Print com- 
mand so the printer noise will not be 
"heard" by the tape recorder. If your 
printer is slow, you may want to in- 
crease this delay by changing the 500 in 
line 565 to a greater number, such as 
2000. ■ 
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Great Gift Ideas for Christmas! 

Your Cost 

For Little Kids (Ages 4- 101 Tape/ Disk 

little Red Riding Hood (Adv Int.) 11.90 - 

Old McDonald's Farm (Adv. Int.) 11.90 - 
Twas the Night Before Xmas 

(Adv. Int.l 11.90 - 

Ghost Hunter (Dub & McNml 13.50 - 

Hoppy(Dub&McNm) 13.50 - 

The Playful Professor (Med. Sys ) 11.90 14.30 
For Big Kids 

The Eliminator (Adv Int.) 15.90 19.90 

Star Fighter (Adv. Int.) 19.90 23.90 
Crush, Crumble & Chomp 

(Auto. Sim.) 23.90 23.90 

Defense Command (Big Five) 12.70 15.90 

Robot Attack (Big Five) 12.7015.90 

Panik (Fantastic) 15.90 19.90 

The Institute (Med Sys.) 15.90 18.30 

Laser Defense (Med. Sys.) 11.9014.30 

Strike Force (Melbourne) 13.55 16.95 
For the Office 

Personal Check Mgr. (Adv. Int.) - 19.90 

Mail List (Precision Proto. I 71.90 

Electric Webster (Prosoft) - 119.60 

Newscript 7.0 (Prosoft) - 99.90 

Newscript 7.0 & Labels (Prosoft) - 111.90 



Check reader service for our catalog. 
RIMES COMPUTER PRODUCTS 

262Tracey, Dept. 12A 

Grand Island, NY. 14072 

(716)773-2519 

Add $1 50 for shipping Add $1 50 for COD 

For fastest service send M O or cert check, 

Mastercard Visa also accepted 

Allow 2 weeks for personal checks 

New Yo'k Res dents add sales t.ix 

* IRS-80 15 a trademark of Tandy Co>n 
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At last count, more than a 
couple of million Americans owned 
personal computers. And that 
number is expected to triple by 
1985. 

That's a fertile environment 
for software sales. But a lot of per- 
sonal computer software organiza- 
tions are discovering it's not as 
easy as they might have thought. 

The problems boil down 
to these: 

Lack of awareness on the 
part of personal computer buyers. 
Lack of understanding on the part 
of personal computer salespeople. 
Lack of unlimited dollars to adver- 
tise in the myriad magazines that 
reach this small segment or that 
small segment of the total market. 

If any of this sounds like a 
familiar frustration to you, we've 
got good news. LIST is here. And 
its advent heralds a new era in 
cost-effective software marketing. 

LIST isn't 
another guide. 
It's not another 
directory. It's an 
informative new 
publication that 
puts software 
first. And puts 
you in touch — 
directly, inexpen- 
sively — with the 
fastest growing 
segments of 

r 198'J Kedgate Publishing Company 



the personal computer market. 

With LIST t you'll be able to 
reach business and professional 
people at a critical point in the 
purchase cycle — before they've 
bought their hardware. 

At the same time, you'll be 
able to impact another significant 
market segment — those people 
who already own personal com- 
puters, and are eager to learn how 
they can do more with them. 

To find out how LIST can 
expand the awareness of your soft- 
ware for less than $200, send us 
this coupon. (Hurry! We go to 
press December 15.) 

Or don't. And go on being 
less well known than you deserve 
to be. 

LIST is published by Redgate 
Publishing Co. , an affiliate of 
EFHutton&Co. 

1 800 327-1300 

In Florida call: 1 305 231-6904 w 



I WANT TO MAKE MORE PEOPLE AWARE OF MY SOFTWARE; 

Please send me literature that explains how LIST can help. 
I don't want to wait on the mails. Call me right away. 
Send to LIST. Redgate Publishing Co.. 3107 Ocean Drive, 
Veto Beach. I I .;:'!>*<>. Or phone 1 800 327-1300. 

InFlorkbcall: I 305 231 «xn 
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REVIEW 



The Color Computer Goes 

Forth 



by Scott L. Norman 



• • * 

Colorforth 

Armadillo International Software 

Austin, TX 78712 

Color Computer, 16K 

$49.95 



• • • • Vz 

Starting Forth 

Leo Brodie 

Prentice-Hall 

Englewood Cliffs, NJ 07632 

softcover, 348 pp. 

$15.95 



by Scott L. Norman 

Colorforth is an implementation for 
the Color Computer's 6809 micropro- 
cessor of FIG-Forth, the standard pro- 
moted by the Forth Interest Group 
(FIG) of San Carlos, CA. The 
documentation is a 12-page Armadillo 
Software pamphlet and a detailed FIG 
glossary. The pamphlet contains 
details on changing the memory maps 
for disk and cassette systems, as well as 
a few special features of Colorforth. 
The FIG publication includes the 
manual for the source-code text editor. 

Starting Forth 

There's no way a stranger to Forth 
could learn the language from this 
material. Armadillo Software suggests 
you purchase Leo Brodie's book. 
There are tutorial reviews, problems 
with solutions, and carefully marked 
sections for novices and relative 
experts. 
60 • 80 Micro, December 1982 



Programming in Forth 
is now possible for 
Color Computer owners; 
read on and find out how 



The pages of Starting Forth are in- 
habited by marvelous cartoon charac- 
ters who illustrate the functions of 
Forth words and features; there's a 
robed monk with a quill pen for the 
compiler, a hooded medieval execu- 
tioner for the word execute, and a 
slick-haired, mustachioed character 
who constantly refers to his dictionary. 
Naturally, he's the interpreter. My fa- 
vorite is the two-headed flying rep- 
tile responsible for exchanging the top 
two numbers on the parameter stack. 
By an amazing coincidence, the word 
he represents matches the sound of his 
wings: swap! 

None of this hides the fact that 
Brodie has produced a serious book. It 
is best read at the keyboard where you 
can test the examples interactively, 
since certain sections are geared to 
Forth Inc. products and discuss fea- 
tures not relevant to Colorforth. An 
example is the discussion of the text 
editor, for which Colorforth uses very 
different syntax. The FIG notes pro- 
vide a clear guide to this aspect of the 
software. In most respects, Starting 
Forth is excellent in both style and con- 
tent, and I recommend it. 

Colorforth 

The Colorforth software comes on 
cassette, with versions for 16K systems 
with or without disk drives. There are 
complete instructions for making cas- 
sette back-ups and for modifying and 



storing disk and cassette versions for 
32K systems. 

There is also a discussion of the sim- 
ulated disk screens used by cassette- 
based systems. Forth uses virtual stor- 
age, shuffling 1 ,024-character screens 
between disk and RAM as needed. 
Colorforth reserves RAM for the pur- 
pose of simulating such storage units: 
four of them in 16K, 12 in 32K. (A real 
disk holds about 135K.) 

By using the starting and finishing 
addresses specified in the documenta- 
tion, you can store the simulated 
screens' contents on tape so your newly 
defined text isn't lost at the end of a 
terminal session. You can also define 
new words without using a screen, al- 
though you can't use the text editor to 
correct errors. Words that compile cor- 
rectly become part of Colorforth's dic- 
tionary, at least for the duration of the 
session. The Colorforth pamphlet also 
gives the addresses used in saving a dic- 
tionary that has been extended. 

I added the word CLS to the diction- 
ary, to clear the screen as in Color 
Basic. Colorforth doesn't have a built- 
in function like this. My word was con- 
structed as a colon definition; i.e., the 
defining name, operands, and 
previously defined (stock) words out of 
which it was constructed were enclosed 
between a leading colon and trailing 
semicolon, like this: : CLS 1024 512 
143 FILL ;. Hitting enter compiles the 
word into the dictionary. 

This illustrates a number of qualities 
about typical Forth words, so let's take 
it apart slowly. It starts with the name I 
choose, which can be up to 3 1 charac- 
ters long. The use of long names makes 
programs somewhat self-document- 
ing, but remember that what's stored is 
just the first three characters plus a 



count of the word's length. This means 
that WORD1 and WORD2 are indis- 
tinguishable as names; both are five 
characters long and both begin with 
WOR. It is acceptable to use 1WORD 
and 2WORD, however. 

The definition follows the name of 
CLS; in this case, "Starting at address 
1024, fill 512 memory locations with 
the byte pattern that translates as deci- 
mal number 143." (The definition of 
the word Fill tells us which operand 
corresponds to each of these param- 
eters.) 

Fill is a general Forth word, and can 
perform this memory-stuffing op- 
eration anywhere in RAM. Recall, 
however, that in the Color Computer 
location 1024 is the start of the low -res- 
olution video screen. When you store 
numbers in such locations, the corre- 
sponding graphics character shows up 
on the video display, so that my Color- 
forth word is the equivalent of the Col- 
or Basic loop: 



100 FOR I -1024 TO 1024 * 511 
100 POKE I, 143 

120 NEXT I 



Referencing Color Computer docu- 
mentation verifies that here, 143 is a 
solid green graphics block. 

You can see the extent Colorforth 
represents a customization of Forth to 
the Color Computer. You can capital- 
ize on the memory-mapped video of 
the 6809, and use the predefined 
graphics characters at will. 

For example, here is one way to 
generalize CLS to a new word, 
YELSCRN, which clears the video dis- 
play to solid yellow instead of solid 
green: : YELSCRN 1024 512 159 FILL 
KEY ;. Here, 159 represents the solid 
yellow graphics block denoted as 
CHR$(159) in Color Basic. Another 
stock Forth word, Key, has been intro- 
duced. It causes the computer to wait 
until a key is depressed before con- 
tinuing (before signifying the complete 
execution of YELSCRN). The signal 
takes the form of OK printed on a 
green field, which spoils the appear- 
ance of the solid yellow screen. Thus 
Key is similar in function to the Basic 
statement 200 A$ = 1NKEY$ : IF 
A$ = "" THEN 200, or to the indef- 
inite loop 200 GOTO 200, often used 
to freeze a video display. 

Once they are defined, invoke the 
new words by calling them; to clear the 
screen to green at any time, enter CLS 
from the keyboard or include it in a 



program statement. 

Text Screen Operations 

You can define a whole series of col- 
ored backgrounds if desired. The best 
way is to use the text editor, entering a 
whole group of definitions on a screen. 
Remember, words defined this way 
don't have to be sequential statements 
in any one program. When using a 
disk, prepare the system for screen in- 
put by entering "empty-buffers," fol- 
lowed by "disk." The command Edi- 
tor invokes the editor; screen # 1 can 
then be loaded with blanks and 
selected for editing by 1 CLEAR. 

A text screen consists of 16 lines of a 
maximum of 64 characters each. The 
lines are numbered 0-15, and you enter 
text on line #n by prefixing your mate- 
rial with n P. Thus typing the following 
two lines loads the defining words for 
blue and red backgrounds into virtual 
memory: 



2 P : BLUSCRN 1024 512 175 FILL KEY ; 

3 P : REDSCRN 1024 512 191 FI1 L KEY ; 

Line numbers 2 and 3 refer only to lo- 
cations being edited within the screen; 
there are no line numbers in a Color- 
forth program itself. 

The last entry on a text screen should 
be ;S (note the lack of a space between 
semicolon and S), which stops inter- 
pretation when the screen is loaded. 
You need not devote an entire line to 
this two-character word; Colorforth 
can handle multiple-word (multiple- 
statement) lines, as long as they're less 
than 64 characters. If a single defini- 
tion is longer than this, press enter 
when nearing the end of the first 64 
characters and continue on the next 
screen line. A right square bracket, 
generated by pressing the shift and 
right arrow keys simultaneously, de- 
notes the start of a continuation line. 

The FIG documentation discusses 



What Forth Is, and Isn't 



I knew very little about Forth 
before being introduced to the 
Colorforth package, though I had 
a feeling that it was useful for 
computer control of machinery. 
The arrival of the Colorforth cas- 
sette motivated me to learn more 
about the background and capa- 
bilities of the language. 

I learned that Forth — at least in 
its original form — was largely the 
invention of Charles H. Moore, 
who now heads Forth Inc. in CA. 
Forth has become a favorite for 
computer control of instruments 
among radio astronomers, al- 
though since its inception it has 
found a wider variety of appli- 
cations. 

It's compact, and has been im- 
plemented on a range of comput- 
ers, from mainframes to micros. 
The microcomputer versions are 
not necessarily poor relations; a 
very capable Forth package can be 
written for a 16K machine. 

One of the problems in writing 
about Forth is that, strictly speak- 
ing, it isn't a language, but rather a 
complete programming environ- 
ment. A typical package includes a 
core dictionary of words, a com- 
piler, an assembler, and a text edi- 
tor for working on source code. 
For brevity, though, I'll call it a 



language in this review. It's easy to 
customize Forth for any particular 
application. Most versions, how- 
ever, start with an unusual degree 
of commonality. The Forth com- 
munity has shown a genuine inter- 
est in setting standards, which 
makes it easy to use general texts 
like Brodie's with other vendors' 
software packages. 

But what is it like to program in 
Forth? You begin with a diction- 
ary of 1 50 or so high-level words 
that act like subroutine calls. 
These can be added to. In fact, 
much of what you do when pro- 
gramming in Forth is to define 
more and more powerful words, 
combining prior definitions with 
embedded data. Ultimately, you 
define a word that, when called, 
executes the entire program. 

Languages implemented in this 
fashion are said to be threaded; 
you can visualize a thread of sub- 
routine addresses linking the pro- 
gram words together, eventually 
ending at the machine-language 
level where the most basic words 
(the ones that were in the diction- 
ary to begin with) are defined. The 
commands a programmer gener- 
ates can be tested immediately 
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the text editor. It performs most func- 
tions you expect from an editor, al- 
though some operations aren't as con- 
venient. For example, it takes two 
commands to change one text string in- 
to another: X oldtext, C new text. 

The word Forth causes the system to 
leave the editor. All that remains is to 
compile the words defined on the 
screen into the dictionary, done easily 
with the Load command. 

Dealing With Numbers 

All the examples so far have used 
decimal numbers; Colorforth initial- 
izes in decimal, just as Basic does. It 
does have a built-in hexadecimal capa- 
bility, however, and it's easy to define 
the system you want and have Color- 
forth operate in any other base. 

You can switch between decimal and 
hexadecimal with the words Decimal 



and Hex. These are toggled com- 
mands, so exercise a little caution if 
you change bases in the middle of a 
routine. Here's a definition for a new 
word, Convert, which takes a decimal 
number from the keyboard and prints 
its hex equivalent: : CONVERT CR 
HEX . DECIMAL CR ;. This uses two 
more predefined words: CR, which 
generates a carriage return; and ".", 
the period, which causes the preceding 
number to print according to the most 
recently defined base. 

You can see how the liberal use of 
punctuation marks as words makes 
Forth hard to write about. Assume 
that you start out in the decimal sys- 
tem; you invoke the new word by en- 
tering n Convert, where n is an appro- 
priate number. The entry process puts 
n on top of the stack. Hex converts the 
top number on the stack to hexadeci- 



mal, the period prints it, and Decimal 
returns you to base 10 for the next key- 
board entry. The initial and final car- 
riage returns provide a decent display. 

From this example, you can see how 
the stack gets involved in Colorforth 
operations, including I/O. 

The next step is the definition of 
other numbering systems. This in- 
volves the predefined variable BASE, 
which stores the decimal value of the 
number used for conversions. Here are 
the definitions of two new systems: 

: TERNARY 3 BASE ! ; 
: 25-ARY 25 BASE ! ; 

These aren't especially useful, but are 
different from the Binary and Octal 
that everyone defines when writing 
about Forth. 
These definitions introduce the ex- 
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from the keyboard, since they are 
compiled as they are entered. Al- 
ternatively, you can use the text 
editor to write chunks of source 
code called blocks or screens. 
These can be stored on disk or 
tape, or even in RAM, and entered 
as a unit. 

The Forth incremental compiler 
also compiles this code as it is en- 
tered. Once compiled, new Forth 
words have the same status as 
those that came with the original 
package; there's no difference be- 
tween the original building blocks 
and any particular program state- 
ment. This lack of a fixed instruc- 
tion set has caused purists to ob- 
ject to calling Forth a language. 

The extendable dictionary is one 
of Forth's principal features. It 
takes a little getting used to the 
fact that the words are not as limit- 
ed in form as they are in Basic. A 
Forth word can begin with (or 
even be) a number. There are even 
common words that are punctua- 
tion marks. It's a little bizarre, but 
let me get ahead of myself: This is 
a valid Forth statement, defining 
one standard word in terms of 
others: : ? @ . ;. 

It's true that some of this short- 
hand makes Forth hard to read. 
There are a couple things that ini- 
tially seem strange, at least if 
you've come through the Basic 
ranks, and it is worthwhile to men- 



tion them before going into the de- 
tails of Colorforth itself. 

The first is the use of a stack. 
This is a portion of RAM set aside 
for the sequential storage and re- 
trieval of data in a last-in, first-out 
(LIFO) fashion. Forth uses the 
stack, or more properly the para- 
meter stack, to pass operands and 
data from one word or subroutine 
to another. 

When writing Forth code, it is 
convenient to keep intermediate 
results bouncing up and down on 
the stack from one operation to 
another. That doesn't mean that 
you can't name variables and call 
them as needed; but using the stack 
intelligently can speed program 
operation. You can't avoid keep- 
ing track of things on the stack 
anyway, since operands have to be 
presented to Forth words in the 
correct order. 

Finally, it can be just plain fun 
to define your own commands and 
incorporate them into the diction- 
ary; it's the easiest way I know to 
produce your own personalized 
computer language. 

Forth uses a second (or return) 
stack to keep track of procedure 
call information . Programmers 
use the return stack to test the cur- 
rent value of the running index in a 
DO loop, Forth's equivalent of the 
For... Next loop. 

Because of the parameter stack, 
Forth employs reverse Polish, or 
postfix, notation (RPN). In this 



system, arithmetic expressions are 
written with operations following 
the operands to which they apply, 
so that A + B * (C-D) / E be- 
comes CD-B * E / A f . Opera- 
tions are carried out immediately 
as the expression scans from left to 
right. No parentheses are needed, 
and there is no implied hierarchy 
of mathematical operations. Com- 
pilation or interpretation can be 
very fast. 

Hewlett-Packard calculator 
users will recognize this, as their 
machines use RPN. In fact, Forth- 
like languages are used in the 
ROMs of some calculators, as well 
as in scientific instruments, ma- 
chine-tool controllers, and so on. 
Still, before plunging into the Col- 
orforth version, ask what Forth 
can do for a microcomputer own- 
er, especially a Color Computer 
owner. After all, it requires a lot of 
attention to detail, the necessity to 
move numbers to and from the 
stack makes it less than ideal for 
number crunching, and its struc- 
ture and syntax are radically dif- 
ferent from those of Color Basic. 

To some extent, this difference 
is responsible for some of Forth's 
appeal. It allows the programmer 
close control over the computer 
(for I/O operations, for example) 
that you associate with Assembly 
language, but it's easier to work 
with. It's fast, and it's easy to in- 
corporate Assembly-language sub- 
routines into a Forth program for 
the most time-critical applications. 
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Standard & Pool's STOCKPAK system 
can turn any investor into a whiz 

Whether you're an active investor, or just considering the 
best ways to invest, STOCKPAK can rum you into a Wall 
Street Wizard. 

Sophisticated software thaf s easy to use 

STOCKPAK is a sophisticated software system that 
offers you an easy and economical way to obtain and 
evaluate important investment information to help you make 
better investment decisions In fact, in virtually no time at all, 
you can put STOCKPAK to work for you performing a wide 
range of investment functions. 

Screening power is at your command 

Our Screen and Select system lets you apply your own 
investment criteria to a 900-companv database. For example, 
you can tell STOCKPAK to find 
lly large companies, or only 
mall ones . . .only those with 
high earnings growth, or low 
P/E's, or high dividends . . 
only those in certain indus- 
tries, or on specific ex- 
, changes . . only those above 
or below a certain price . . . 
or only those with high 
sales, or low debt, and so on. 




In fact, you can draw from over 200 specific information 
items to compose a single screen. And, you can establish 
your own targets and cut-off points in each of these 200 areas. 
STOCKPAK will oblige by searching through the entire 
database to find only those companies that satisfy your criteria. 

More feats of wizardry with STOCKPAK 

Standard & Poor's time-tested software also lets you 
evaluate and manage actual or hypothetical portfolios of up 
to 100 stocks each. And, you can create your own customized 
reports— displayed the way you want them. 

Whether you use STOCKPAK to help improve your 
investment decisions, or just for the fun of it, it's good to 
know the source of this wizardry: Standard & Poor's, one of 
the world's leading financial publishers with a 120-year 
reputation of service to the investment community. 

Visit your local Radio Shack 
Computer Store today 

STOCKPAK is designed exclusively for use on the 
TRS-80 Models III and I computers with 32K business sys- 
tems and two disk drives. The basic software and sample 
database plus complete documentation is available from your 
Radio Shack computer store for only $49.95. The STOCK- 
PAK monthly updating service can be ordered directly from 
Standard & Poor's for only $200 annually. Visit your local 
Radio Shack today for additional information and a 
demonstration. 



Standard & Poors Corporation 
— 25 broadway new y0rk.ny 10004 - 
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clamation point, which Forth uses to 
denote storing a number at a specified 
address. The syntax is such that you 
provide the address by specifying the 
variable BASE; variables return their 
addresses to the stack, while constants 
return their values. 

Earlier, I referred to a number n as 
an "appropriate" number. What does 
this mean? Colorforth is set up to do 
fixed-point arithmetic only, using signed 
16-bit numbers (32767 to -32768). This 
is a general property of Forth, even 
when used on 8-bit microprocessors. 
Some double-length operations are 
available, and it's possible to write 
floating-point routines, but this is one 
reason Colorforth wouldn't be the lan- 
guage of choice for scientific number 
crunching. 

To enter a double-length number, 
you punctuate it with a period; vou can 
enter 100000 as 100.000, for example. 
Colorforth also has formatting com- 
mands similar to Print Using for out- 
putting large numbers. 

Although the range o\' numbers us- 
able for calculation is limited, some 
operators do interpret 16 bits as an un- 
signed number (0-65536). As you'll 
see, this is what you need to address 
memory -mapped I/O in the Color 
Computer. 

Comparison and Control Structures 

Colorforth has a fairly complete set 
of comparison operators, which are 
used to control program branching 
within If.. .Then. ..Else statements. Be- 
cause of RPN, the syntax of these com- 
mands takes some getting used to, al- 
though the ideas are familiar enough 
from Basic. Here are Color Basic and 
Colorforth program fragments that ac- 
cept a number from the keyboard, test 
it to see if it is positive or negative, and 
print the result: 

Color Basic 
100 INPUT N 

1 10 IF N > THEN PRINT "POSITIVE" 
ELSE PRINT "NEGATIVE" 

Colorforth 
:TEST0> IF . " POSITIVE " 
ELSE . • NEGATIVE " THEN ; 
(Used by entering N TEST) 

Notice that in Colorforth, the words 
If and Then span the possible branches 
the program might take, but not the 
decision-making portion. That comes 
before the If, in the form required by 
RPN; for example, (N > 0) becomes 
(N 0>), where, in my example, N is put 
on the stack from the keyboard. This 
example also introduces dot -quote, the 
word used to print literals. Neither ex- 
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ample considers the possibility that N 
equals zero. 

In the Basic example, control passes 
to the statement following line 110 
after a message has been printed. Simi- 
larly, Colorforth passes to whatever 
follows Then. There is a difference, of 
course, in that the Basic If. . .Then 
could have altered program flow by us- 
ing statement numbers (implied 
GOTOs), instead of the Print com- 
mands. Because Colorforth is a struc- 
tured language without line numbers, 
there are no GOTO statements. You 
can use other words within the 
If . . .Then to execute actions other 
than printing, howe\er. After they are 
executed, control eventually returns to 
the word following Then. 



"Colorforth has a fairly 

complete set of 

comparison operators, 

which are used to 

control program branching 

within If. . . Then. . . 

Else statements. " 



Colorforth comparison expressions 
can be quite lengthy, as they are in 
Basic. Simple algebraic comparisons 
can be logically combined, using AND, 
OR, or XOR operators. 

Color Basic has only one kind of 
repetitive structure, the definite 
For... Next loop where the index's 
lower and upper bounds are specified. 
Colorforth has a similar construct, 
called a IX) loop, plus a pair of in- 
definite forms, the Begin. . .Until and 
Begin. . While. .. Repeat loops. The 
DO loop cannot be executed interac- 
tively; it must be compiled into a word, 
although you can specify one or both 
limits from the keyboard when the 
word is executed. Typical syntax is: 
: TEST b a DO (expression) LOOP;, 
where the loop index will run from 
a to (b-1). 

For this example, b must be greater 
than a, and the index is incremented by 
one for each pass through the loop; the 
more general form is: : NEWTEST b a 
DO (expression) c 4- LOOP ;, where c 
is the step size, which can be negative, 
and where the loop is terminated by the 



word + LOOP. 

The current value of the loop index 
is always kept on the second (return) 
stack, from which it can be obtained by 
the Colorforth word 1. Here's a simple 
example that loops 10 times, printing 
the number of each cycle as it goes 
along: : COUNT 11 1 DO CR I . 
LOOP ;. 

Loops can also be nested. Here is a 
pair that together make a software 
timer: : TIMER DO 15500 DO 
LOOP LOOP ;. To time out N sec- 
onds, enter N TIMER. N serves as the 
upper limit for the outer loop, while 
the inner loop does nothing 15,500 
times per second. This gives you an 
idea of Colorforth's relative speed. 
Color Basic's For... Next timing loop 
only executes 460 times per second. 
Notice that each nested loop termi- 
nates on its own Loop, in contrast to 
Basic, where loops can share a Next 
statement. 

The indefinite loops have no simple 
counterparts in Basic, although Pascal 
and other structured languages have 
similar constructs. These loops are 
used to repeat some action or calcula- 
tion until a particular event occurs, 
where the programmer has no control 
over how long that might take. The 
general syntax for a Begin... Until loop 
is: BEGIN (expression to be repeated) f 
UNTIL, where f represents a logical 
flag. The main expression is repeated 
as long as the flag is zero (false). The 
loop ends when the flag takes on the 
value one (true). Mathematical com- 
parisons such as N > return flags of 
this sort to the top of the stack. 

The inverse behavior, the repetition 
of an operation as long as something is 
true rather than until it is true, is ob- 
tained with the Begin... While... Repeat 
loop, where the logical test is per- 
formed part way through the cycle. 
The construction is: BEGIN (first part) 
f WHILE (second part) REPEAT. Af- 
ter the first part of the computation, 
the program tests a flag. If it is true, ex- 
ecution continues to the second part of 
the computation and the whole thing 
repeats. As soon as the flag tests false, 
execution exits from the loop. 

Constants, Variables, and Arrays 

Although Colorforth uses the stack 
for temporary storage, it also lets you 
name constants and variables for fu- 
ture reference. The naming phrases 
are: VARIABLE (name) and (value) 
CONSTANT (name). These phrases 
are not colon definitions, like those 
I used for CLS. It is not necessary 
to specify the functions of Variable 



and Constant; they're predefined 
words, and their machine code takes 
care of that. 

Earlier, I said that using the name of 
a variable in another statement puts 
that variable's address on top of the 
stack. If you use the name of a con- 
stant, its value, not its address, is 
placed there. 

Look again at the word YELSCRN. 
You can define the solid yellow graph- 
ics block this way: 159 CONSTANT 
YELBLOCK, so the word that sets the 
screen to a solid yellow becomes: 
: YELSCRN 1024 512 YELBLOCK 
FILL KEY;. This isn't very profound, 
but it's a necessity for high-level 
languages. Even Assembly language 
lets you use labels. 

If using a variable's name returns its 
address, how do you get its value? For 
that matter, how do you set its value? 
As you might expect, Forth dialects 
have other words for storing and re- 
trieving the variables' values. The bad 
news is that these particular words use 
punctuation marks, so they are diffi- 
cult to write about clearly, and their 
forms don't necessarily suggest their 



definitions. Still, Color Basic pro- 
grammers get used to a leading ques- 
tion mark for Print and an apostrophe 
for REM. 

The word that stores a 16-bit num- 
ber at any given address is an exclama- 
tion point. So, the definition of TER- 
NARY, ,4 3 BASE !" actually consists 
of the phrase, "Store the 16-bit repre- 
sentation of the decimal number 3 in 
the address referred to by the prede- 
fined variable BASE." There is an- 
other word, " + !", that adds a num- 
ber to whatever is at a given address, 
similar to the add-to-memory key on a 
calculator. 

The operation of retrieving the value 
from a particular address and putting it 
on the stack is performed by the at 
symbol (@), pronounced fetch. A use- 
ful extension, symbolized by the ques- 
tion mark, is fetch followed by a print 
command. The operand precedes this 
word; to find out what number system 
Colorforth is in at any time, enter 
DECIMAL BASE?. A little thought 
shows you why the word Decimal is 
needed. The definition of the word 
"?" is the cryptic example I gave in the 



HEX (Square Wave Sound) 

1 FF01 CONSTANT AD1 

2 FF03 CONSTANT AD2 

3 FF23 CONSTANT AD3 

4 FF20 CONSTANT D/A 

5 : 1SEL AD1 C@ F7 AND AD1 C! ; (Puts in bit 3 of SFFOI) 

6 : 2SEL AD2 C@ F7 AND AD2 C! ; 

7 : SNDENABLE AD3 C@ 8 OR AD3 C! ; (Puts 1 in bit 3 of $FF23) 

8 : TIME F DO LOOP ; (Approx. 0.001 sec. delay) 

9 : SOUNDOFF HEX 1SEL 2SEL SNDENABLE BEGIN FC D/A C! TIME 

10 1 D/A C! TIME UNTIL ; (Infinite loop) 

11 ;S 

Figure 1 



section "What Forth Is." 

These words are useful to Forth pro- 
grams running on 16-bit machines, al- 
though they also exist in the Color- 
forth dictionary. There are analogous 
words, C! and C@, that store and 
fetch 8-bit values and are more inter- 
esting to Color Computer program- 
mers. The C prefix stands for charac- 
ter, because these words are useful for 
manipulating ASCII characters (even 
on larger machines). 

Here's a routine that exercises some 
of the concepts and Colorforth words 
I've introduced so far. It displays each 
of the Color Computer's 256 distinct 
printable characters, including 
graphics blocks, in turn at the middle 
of the screen (location 1295). Each 
character shows on the screen for two 
seconds. 

1295 CONSTANT MIDSCRN 
: CHARS CLS 256 DO I 
MIDSCRN C! 2 TIMER LOOP; 

C! acts like POKE, rather than PRINT 
CHR$, as far as video memory goes; 
the table on page 21 1 of the June 1981 
80 Micro spells out the differences. 

Forth dialects also support array 
definitions. These are treated as vari- 
ables with extended memory areas set 
aside for the data values' storage. The 
equivalent of Basic's DIM statement is 
the word Allot, used this way: VARI- 
ABLE (array name) (n) ALLOT, 
where n is the number of bytes of 
storage reserved, in addition to the two 
bytes that are automatically set aside 
by the word Variable. Remember, even 
Colorforth assumes you're working 
with 16-bit numbers unless otherwise 




THE SOFTCORE 
SOFTWARE CO. 



"TOO MUCH" 

FOR 
RADIO SHACK! 

Radio Shack REFUSED to 
include MISADVENTURE 
#1 in their SOURCEBOOK 
due to our description of 
the game! 

• 379 



MISADVENTURE SERIES— model I & III 16k 
#201 (#1) Madam Rosa's Massage Parlor* 
#202 (#2) Wei T-Shiri Contest* 
#203 (#3) Sewers ot Moscow**— with sound 1 
#204 (#4) Casino o! Pleasure**— with sound' 
#205 (#5) Naked Nightmare**— with sound 1 NEW! 
'not as hard "experience recommended 



$15.00 
$15.00 
$15.00 
$15.00 
$15 00 



ARCA0E— TYPE GAMES— model I & III 16k 
#302 Block Breaker Dy Cedar Software— with sound 1 

#303 Leaper by Cedar Software- NEW!— with sound 1 

ADVENTURE DECODER— model I & III 16k 
#301 Dohne' Bugg (Adventure-decoder) 



$14 95 



515 95 



$15 00 



COLOR COMPUTER— games and Misadventures 
#401 Mystery of the Keys (4k)— with sound 1 $15 00 

#501 (#1) Madam Rosa s Massage Parlor (16k)— 

with sound! $15.00 

#502 (#2) Wet T-Shirt Contest (16k)— with sound' $15 00 

Immediate shipment! Check, credit cards, or phone 
orders 1 1 2-6 p.m.) Dealers and distributors welcome- 
please inquire! HINT SHEETS AVAILABLE! 




LEAPER! "Big Five: EAT YOUR 

HEART OUT!" 

—the Gamester 

Go Frog Go! 

Our MISADVENTURE SERIES consist of CHALLENGING 
and FUN adventure-type' programs that may occasion- 
ally be a bit naughty! 

MYSTERY OF THE KEYS for the color computer is a 
graphic puzzle as addicting as "The Cube" and similar to 
"The Link" 4k and up 

DOHNE' BUGG is our best-selling ADVENTURE-DE- 
CODER! Are you STUCK in a machine-language 
ADVENTURE GAME? This program will display on th« 
screen all VERBS that interact in the game, all 
LOCATIONS & OBJECTS you will find, and all ACTIONS 
that result! A MUST FOR THE SERIOUS ADVENTURER! 

All programs are presently available in cassette form 
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informed. So to set up a 10-member 
array named Info filled with 16-bit 
numbers, specify an additional (9 x 2) 
bytes: VARIABLE INFO 18 ALLOT. 

If you use an array for 8-bit numbers 
such as graphics or ASCII codes, you 
can cut down on the amount of memo- 
ry you must reserve. Variable gives you 
space for the first two numbers, and 
you just specify one byte for every ad- 
ditional storage position. 

Storing data in an array or retrieving 
it is more complicated than in Basic, 
because Colorforth doesn't support 
subscripted variables. You specify the 
first storage location by using the array 
name (it's a variable, remember), and 
then add an offset to get to the desired 
location. For example, you can locate 
the first cell (the Forth name for a 
16-bit-wide storage location) in our ar- 
ray Info just by calling Info; offset the 
Nth cell by 2x (N-l) bytes, so you can 
find out what's in, say, the fifth cell 
with the phrase INFO 8 + ?. 

Of course, if you use an array for 
8-bit numbers, there's no need to dou- 
ble the subscript N to get the offset. 
You must use the store and fetch com- 
mands — ! and @, C! and C@ — appro- 
priate to the length of the numbers you 
are working with; Colorforth has no 
other way of knowing. 

Colorforth can also handle multidi- 
mensional arrays. You must decide on 
a convenient method for converting 
multiple subscripts to single address 
offsets. Brodie's book gives a nice ex- 
ample for two-dimensional arrays, 
which wind up being stored column- 
wise. All the elements of the first col- 
umn, starting with the uppermost, are 
stored, then all the elements of the sec- 
ond column, and so on. This is actually 
the way many high-level languages 
treat such data structures. 

Something Completely Different 

Here are a couple examples of the 
way you can use Colorforth with the 
Color Computer's I/O structure. 

Anyone who has used the Color 
Computer's joysticks knows about 
memory address 65280, which is 
PEEKed to test the status of the trigger 
buttons. You can give this address a 
name, such as Port: 65280 CON- 
STANT PORT. Colorforth interprets 
this properly (the internal representa- 
tion is treated as an unsigned 16-bit 
number). The word Looksee prints the 
contents of this location: : LOOKSEE 2 
TIMER PORTC® .;. 

Entering Looksee from the key- 
board causes the system to wait two 
seconds (assuming the previous defini- 
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tion of Timer, of course) and then 
prints the contents — 255 or 127 if you 
press neither joystick trigger, 254 or 
126 for the right trigger, and so on. 
Since a single memory location can on- 
ly contain an 8-bit number, the proper 
fetch command is C@. It is easy to in- 
corporate Looksee into an If . . .Then 
statement, causing a program branch, 
rather than having it print and stop. 

While Port is a constant whose value 
is put on the stack when used in 
another word, there's nothing wrong 
with this value representing the address 
of something else. Remember, if Port 
is defined as a variable, its address is 
put on the stack, not the address of the 
trigger-button sensor. 

The final example uses this sort of 
labeling, and is less trivial: a sound 
generator. This program generates a 
square wave at approximately 500 Hz 
and routes it to the Color Computer's 
composite video output. If you are in- 
terested in this sort of thing, you need 
detailed reference material. I recom- 
mend the Radio Shack reference or ser- 
vice manuals, or the Facts book from 
Spectral Associates. In any event, 
here's a rundown on the relevant as- 
pects of Color Computer operation. 

Internally synthesized sound uses 
the Color Computer's D/A converter. 
To be specific, a six-bit number loaded 
into the six high-order positions of ad- 
dress SFF20 is converted into analog 
voltage — the larger the binary number, 
the larger the voltage. The D/A is also 
used for joystick input and for the cas- 
sette interface. 

To ensure that signals are routed 
properly, a few addresses associated 
with the computer's peripheral inter- 
face adapter (PI A) circuits have to be 
properly programmed (SFF20 also be- 
longs to a PIA). Briefly, you need 
zeros in bit 3 of SFF01 and SFF03 (ana- 
log multiplexer), and a one in bit 3 of 
SFF23 (six-bit sound enable). To set I 
bit at an address, logically AND or OR 
the address's contents with an appro- 
priate binary mask, and the program 
takes care of that. Then you need a 
loop to load those six bits of D/A input 
at an audio rate. 

The Program Listing has the line 
numbers you might see if you com- 
posed it on a screen. (The parenthetical 
expressions are Forth 's version of 
REM statements; they can appear any- 
where, even within another statement.) 

Line tells the Colorforth interpret- 
er that hex numbers are coming in at 
compilation time. Lines 1-4 label the 
addresses of interest to us, in hex. 
Lines 5-7 each fetch an eight-bit 



number from one of the locations, set 
bit 3 to what you need for sound out- 
put, and store the new number in the 
old number's location. The mnemon- 
ics represent select 1, select 2, and 
sound enable. You can verify that 
ANDing and ORing with these operands 
affects only bit 3 of the appropriate 
word. Just remember that the right- 
most position is bit 0. 

Line 8 defines a one-millisecond tim- 
ing loop, with the upper limit in hex. 
Lines 9 and 10 contain the definition of 
Soundoff, which is the whole program. 
Two screen lines were used because of 
the definition's length. The square 
bracket that begins line 10 signals the 
interpreter that this is a continua- 
tion. Finally, line 1 1 contains the word 
that terminates compilation when the 
screen is loaded. 

A few things about the colon defini- 
tion of Soundoff: The definition in- 
cludes hex so that it works properly 
even if called when the system has been 
operating in another base. Then it calls 
the words that set the software latches 
for sound output and enters an infinite 
Begin . . . Until loop. (The loop is guar- 
anteed infinite because the logical flag 
tested to terminate the loop is defined 
to be 0, rather than being set as the 
result of any other process.) 

The operations within the loop con- 
sist of setting the six high-order bits of 
SFF20 to ones and zeros, holding each 
setting for about one millisecond. The 
reason that you use $FC, and not SFF, 
for the high value is that the two low- 
order bits of this address are held at 
zero when you use the D/A in the six- 
bit sound output mode. ANDing and 
ORing are used to set $FF20. 

Summary 

Colorforth may seem complex when 
compared with Color Basic, but it's 
closer to Assembly language in the 
level of detail required. Remember, 
with Colorforth you get a higher 
degree of control over machine opera- 
tions than Basic offers, coupled with 
high speed. I have not covered text 
manipulation, but the words for 
sophisticated text I/O are present in 
the starting vocabulary. This is where I 
should encourage you to get the soft- 
ware and the book and find out for 
yourselves. 

Just one more thing: You can apply 
the bit twiddling used in the definition 
of Soundoff to program the SAM and 
VDG circuits for graphics. ■ 

Scott Norman lives at 8 Doris Road, 
Framingham, MA 01701. 
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TRS-80 



FARM and RANCH MANAGEMENT 



BEEF PROJECTION 

BEEF RATION 

DAIRY COW 

FEED LOT Models I and III 

Model II 
FARM RECORD 
GOVERNMENT PROGRAM 
GRAIN STORAGE 
LOAN 

MACHINE COST 
RECORD MANAGEMENT 
ESTATE TAX 
FEEDFORMULATOR 
PASTURE PROJECTION 



$20.00 
$15.00 
$15.00 
$35.00 
$100.00 
$35.00 
$15.00 
$15.00 
$15.00 
$20.00 
$15.00 
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NEWDOS, DOSPLUS 

ANd NOW 

L DOS!! 

YOUR CHOICE, ONLY $129 EACH. 

NEWDOS, DOSPLUS AND L DOS are three of the most advanced 
operating systems ever available for the TRS-80. After spending 
thousands of dollars on your computer, why limit yourself by using an 
inferior operating system? 
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RADIO SHACK SOFTWARE 



MODEL I, III 

Cassette Scripsit 26-1505 $34.95 

Cassette Portfolio 26-1506 $24.95 

Stock Pack 26-1507 $44.95 

Disk Mailing List 26 1551 $34.95 

General Ledger I 26-1552 $87.95 

Inventory Control I 26 1553 $87.95 

Accts Payable 26-1554 $138.00 

Accts Receivable 26-1555 $138.00 

Disk Payroll 26 1556 $175.00 

Business Mailing List 26-1558 $8/95 

Profile 26-1562 $69.95 

Scripsit 26-1563 $87.95 

Visicalc-Mod I 26-1566 $87.95 

Visicalc-Mod III 26-1569 $175.00 

Proiect Manager 26-1580 $87.95 

Checkwriter 26-1584 $87.95 

Super Scripsit 26 1590 $175.00 



Scripsit Dictionary 
Profile III Plus 
Desktop Plan-80 
Budget Mgmt 
Advanced Stat Analysis 



MODEL II 

Gen Ledger 1 Disk 
Inventory Mgmt System 
Mod II Visicalc 
Profile II 
Profile II Plus 
Mod II Scripsit 2 
Scripsit Dictionary 
Inventory Mod II 
Order Entry ICS 



26-1591 
26-1592 
26-1594 
26-1603 
26-1705 



26-4501 
26-4502 
26-4511 
26-4512 
26-4515 
26-4531 
26-4534 
26-4602 
26-4607 



$131.00 

$175.00 

$175.00 

$22.00 

$39.95 



$175.00 
$175.00 
$263.00 
$170.00 
$275.00 
$375.00 
$175.00 
$275.00 
$465.00 



GAMES FOR THE COLOR COMPUTER 

CHRISTMAS SPECIAL!! 

COSMIC DOGFIGHT, OFFENDER, PACKETMAN 

GETALLTHREEOFOUR NEWEST 

COLOR COMPUTER GAMES ON EITHER 

DISK OR CASSETTE 



DISK $99 



00 



CASSETTE $44 



00 



LAZY WRITER 

ALCOR PASCAL 

MICRO CLINIC 

CHEXTEXT MICROSOFT 

LEVEL III BASIC 

TYPING TUTOR 

EDITOR ASSEMBLER + 

ADVENTURE 

MOD I FORTRAN 

A.L.D.S. 

MOD I BASIC COMPILER 

MOD I MuMATH 

OLYMPIC DECATHLON 

EDITOR ASSEMBLER (Disk) 

CP/M FORTRAN-60 

CP/M BASIC COMPILER 

CP/M MuMATH-MuSIMP-80 

CP/ M COBOL COMPILER 

CP/MBASIC-80 

BASIC COMPILER II 

COBOL-80MODII 

M/SORT 

ASPEN: 
GRAMMATIK l/lll 
GRAMMATIKII 

PICKLES & TROUT: 
RANDOM HOUSE PROOF READER 
CP/M FOR MODEL II 
CP/M FOR MODEL 16 

MISC: 
BOOKKEEPER l/lll 

Cassette S49.95 Disk 

MICRO SEABATTLE 

Cassette $19.95 Disk 

LIST: 1 (Telephone List) 

Cassette $9.95 Disk 

COMPUTER BASEBALL 

Cassette $14.95 Disk 



$175 

$199 

$24.95 

$34.96 

$50 

$15 

$30 

$30 

$87.95 

$85 

$195 

$75 

$24.96 

$49.95 

$475 

$375 

$250 

$009 

$350 

$395 

$099 

,$195 

$75 
$99 

$50 
$185 
$220 



$59.95 
$24.95 
$14.95 
$19.95 



• • NEW RELEASES • * 

COSMIC DOGFIGHT cassette 14.95 

DISK 19.95 

CASSETTE 29.95 

DISK 34.95 



OFFENDER 



OTHER FAVORITES 



PACKETMAN 
MOONLANDER 

METEROIDS 
SPACE INVADERS 



CASSETTE 
DISK 

CASSETTE 
DISK 

CASSETTE 

CASSETTE 



24.95 
29.95 
14.95 
19.95 
21.95 
21.95 



THESE ARE OUR CASH DISCOUNTED PRICES. C.O.D. AND CHARGE ORDERS ARE 3% HIGHER ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 
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GENERAL 



The Calculating 
Genius— Part II 



by Rick Cook 



c 



harles Babb age's Analytical Engine was the 
ancestor of the modern computer. It was 
designed to run with punched-card control. 



Ed. note: This is the second of a two- 
part series on Charles Bahbage, inven- 
tor of the modern-day computer. The 
first part covered the development of 
the Difference Engine. This part fo- 
cuses on the Analytical Engine. 

From 1834 on, Babbage's main con- 
cern was his Analytical Engine, a me- 
chanical digital computer capable of 
performing elaborate mathematical 
analysis more or less automatically. 

The idea of the Analytical Engine 
seems to have taken firm hold in 1833 
when he took the small calculating de- 
vice he had built from parts of the Dif- 
ference Engine and hooked it up to 
feed the number appearing in the result 
column back into the machine as a dif- 
ference, calculating a whole new series. 

By the 1830s, mechanical methods 
of doing arithmetic had been known 
for a long time. Since multiplication 
can be accomplished by repeated addi- 
tions, and division is the inverse of mul- 
tiplication, theoretically any machine 
that could add could be made to do the 
other operations as well. But Babbage 
was looking for something more so- 
phisticated. He wanted a machine that 
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could perform these operations on 
large numbers at reasonable speed with 
a minimum of human intervention. 

Babbage realized the major problem 
with this conception was not arithme- 
tic, but control. The earlier machines 
had shown ways to handle arithmetic 
and the Difference Engine showed how 
to store numbers, but no one had ever 
tackled the control problem. To be 
useful, the machine would have to be 
able to perform operations in whatever 
sequence might be appropriate to the 
problem at hand. 

The solution lay in two things: the 
use of punched cards to supply data 
and instructions and the use of a chain 
— a mechanical AND circuit. 

Punched-card control was familiar 
to Babbage from the Jacquard looms 
that were busy by the hundreds in Eu- 
rope weaving elaborate textiles. Jac- 
quard hadn't invented the punched- 
card loom, but he had come up with a 
way of feeding cards into the loom so 
that a large number of cards could be 
used to control the pattern. By 1835 the 
French were using steam-powered Jac- 
quard looms to weave very fine tapes- 
tries. On his travels, Babbage acquired 



a portrait of Jacquard woven to such 
size and complexity that it took 24,000 
cards to program the loom. 

The essence of Babbage's chain was 
the same as the plug boards that were 
used to program the earliest electronic 
computers. The Analytical Engine was 
actually a mass of separate mecha- 
nisms that could be coupled or uncou- 
pled at the command of the instruction 
cards. Only those parts needed for a 
particular instruction would be cou- 
pled at any one time. 

Since the machine was completely 
modular, wear and waste motion were 
held to a minimum. The mass in mo- 
tion at any instant would be low and 
the chains of driven parts would be 
short. What's more, the Analytical En- 
gine could be built and tested a piece at 
a time, and a component that failed 
could be taken out of service without 
shutting down the rest of the machine. 

Clearly, Babbage had learned from 
his experiences with the Difference En- 
gine. But in the end flexibility was a 
mixed blessing since it encouraged 
Babbage to keep tinkering with the de- 
sign for the rest of his life. Babbage 
kept adding new features to enlarge its 
capacity, even though the basic outline 
was fixed by about 1840. 

If the Analytical Engine had ever 
been built, it would have been even 
more impressive than the Difference 
Engine. Babbage's ultimate design 
called for it to be able to store 1,000 
50-digit signed numbers, each in a col- 
umn of disks like those used for the 



WE STOCK DISK DRIVES! 



TEAC 



TANDON 



BARE 



COMPLETE 

WITH POWER SUPPLY & CABINET 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



$209 
$289 
$289 
$349 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



$239 
$340 
$340 
$399 



BARE 

40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



COMPLETE 

WITH POWER SUPPLY & CABINET 



$209 
$269 
$269 
$319 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



$239 
$319 
$319 
$369 



We sell two brands of disk drives for the TRS-80: the TEAC and the Tandon. The TEAC disk drive has a 1 year warranty, the Tandon 
has a 90 day warranty. The TEAC uses a lead screw actuator, the Tandon uses a split band type actuator. The track to track access 
rate for the Tandon is 5 milliseconds, as opposed to 25 milliseconds for the TEAC. The TRS-80 Model III requires a faster drive speed 
than the Model I, therefore the Tandon works better with the Model III. With the slower drive speed requirements of the Model I, the 
TEAC is a more reliable drive. We have both 40 track and 80 track drives with either single or dual head. All drives are capable of 
double density. These drives are available either bare or complete with power supply and cabinet. A cable is required to hook up the 
drives. We have both two-drive and four-drive cables. All drives come with complete instructions for hooking up a system. TEACs 
and Tandons can be intermixed with other drives on the same system . 



DISK DRIVES 

For ThE TRS-80 MODEL III 
DRIVE O DRIVE 1 



Single Side, 40 Track $595 



Double Side, 40 Track $729 



Single Side, 40 Track 



Double Side, 80 Track 



Single Side, 80 Track $729 Single Side, 40 Track 



Double Side, 80 Track 



$819 



Double Side, 80 Track 



$219 



$279 



$279 



$329 



The disk drives we sell for the Model III are the Tandon drives. 
Drive includes the controller board, power supply, cables and all 
mounting hardware. Complete instructions are included for 
installation. It takes 30 minutes to an hour to install disk drives in 
a Model III. No soldering is required. TRSDOS operating system 
is not included in this low price. 



IBM 

PERSONAL COMPUTER 

DISK DRIVES 

SINGLE SIDE, 40 TRACK $209 

DOUBLE SIDE, 40 TRACK $269 



These drives are fully compatible with the IBM Personal Compu- 
ter. They can be used as the first or second drive and come with 
our exclusive 90 day warranty. DOS and Drive Adapters required. 
Our disk drives adhere to the high quality standards that IBM 
demands. 




16K LEVEL I 
NOW ONLY $279 



COLOR COMPUTERS 



ALSO AVAILABLE: 

16K OR J2K EXTENDED BASIC 

COLOR COMPUTER DISK DRIVES 

CALL NOW FOR 

SPECIAL CHRISTMAS 



THESE ARE OUR CASH DISCOUNTED PRICES. COD AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPUTERS ARE 
SHIPPED FREIGHT"*CLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES. INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 
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Difference Engine. Numbers would be 
read into and out of memory by rack- 
and-pinion gears. The memory area 
was called the store and the collection 
of mechanisms that did the computing 
was called the mill. 

Programming the Analytical Engine 

The machine was programmed with 
three sets of punched cards. Each set 
was tied together to form a chain that 
could be pulled through the machine in 
the manner of the cards controlling a 
Jacquard loom. The machine could 
move the cards back and forth through 
the reader so that a set of instructions 
could be repeated — the equivalent of a 
Do. . .Until statement. 

The first set of cards, the number 
cards, contained the data to be acted 
on. The second set, the operations 
cards, directed the operations to be 
performed. The third set, the directive 
cards, told the machine where to store 
the numbers and where to store the re- 
sults. In effect, they acted like the stack 
register in a microprocessor. 

Programming the Analytical Engine 
was done the same way a machine-lan- 
guage program is written today. Mem- 
ory was at a premium, so a high-level 
language like Basic was out of the 
question. On the other hand, the 
speeds for reading a card and reading a 
number from memory were roughly 
comparable, so the distinction we 
make between main and auxiliary 
memory didn't exist. 

This makes it hard to compare the 
Analytical Engine's storage capacity 
meaningfully with a modern comput- 
er. The memory locations probably 
would have only been used for inter- 
mediate results in calculations. The 
data being operated on would not have 
been read into memory first. 

When it came to operation, the ma- 
chine was not as automatic as a mod- 
ern computer. A number of cases re- 
quired the operator's intervention. The 
Analytical Engine would not normally 
calculate trig functions in the course of 
a program. Instead, it would signal the 
operator what it needed. The operator 
would take the card bearing the needed 
function out of the precalculated li- 
brary and feed it into the machine. The 
engine would verify that the card it had 
been given was the right one and then 
go on with its calculations. 

The machine also had a provision 
for indicating a variety of errors, in- 
cluding overflow and underflow. 

On the whole, the Analytical Engine 
would probably have been about as 
flexible and powerful as such first -gen- 
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eration machines as ENIAC, although 
very much slower. 

The Later Years 

After his experiences with the Dif- 
ference Engine, Babbage was not in- 
clined to go to the government for 
money again. He told the government 
what he was up to, but the officials re- 
sponded scathingly to what they con- 
sidered another request for money. For 
the rest of his life Babbage bore a 
grudge against officialdom. He went 
ahead with the work at his home in 
London, concentrating on perfecting 
the design and only building those 



"Time and again 
Babbage was balked 
by bad 
management practices. 



parts he needed to make sure they 
would work. 

In 1842, L.F. Menabrea, an Italian 
mathematician and engineer, pub- 
lished an article in a Swiss magazine 
describing the Analytical Engine and 
how it worked. Babbage had talked to 
Menabrea about the engine when he 
went to Italy in 1839. In 1842 the paper 
was translated into English by Ada 
Agusta, Countess Lovelace, another 
friend of Babbage' s and a considerable 
mathematical talent in her own right. 
With Babbage's encouragement, she 
prepared a series of extensive notes on 
the Analytical Engine which she at- 
tached to Menabrea's paper. Those 
notes included a description of ma- 
chine-language programming that can 
still serve as a nontechnical introduc- 
tion to the subject. 

The paper and the generally posi- 
tive reaction to it were the closest 
things Babbage got to support for his 
work. Once again there was wide ad- 
miration for his genius, but this was 
tempered by a near-total lack of com- 
prehension of what the Analytical 
Engine was and how it would oper- 
ate. For every General Menabrea or 
Lady Lovelace, a hundred scientists 
or mathematicians found the Analyti- 
cal Engine foolish, impossible or 
merely incomprehensible. 

This was especially true in En- 
gland. On the Continent and in the 
United States, Babbage's stock stood 
considerably higher. In his later 
years, Babbage received and cher- 



ished many letters from Americans, 
including requests from the U.S. 
Government for advice on cryptogra- 
phy and calculating machines. 

Babbage kept himself busy with 
many projects besides the Analytical 
Engine. At one point he conceived the 
idea of building a machine to play tic- 
tac-toe and exhibiting it to raise money 
to finance the Analytical Engine. He 
got as far as outlining the basic rules 
for teaching a machine to play any 
game and devising a tic-tac-toe strategy 
based on the magic square before he 
discovered that the public preferred 
General Tom Thumb to even the clev- 
erest automata. In addition, he invent- 
ed an occulting light for lighthouses, 
the opthalmoscope, published a book 
on ciphers, papers on statistics and 
geology, and pamphlets advocating 
life peerages and the income tax. 

However, as time went on his life 
tended to become more and more cir- 
cumscribed. His friends died off and 
the bitterness he felt over his disap- 
pointments deepened. Still he labored 
over his Analytical Engine, refining 
and redesigning it, although he knew 
by now it would probably never be 
built. 

In his book on the history of com- 
puting, Herman H. Goldstine quotes 
Lord Moulton recounting a visit to 
Babbage in his last years: 

"One ot the sad memories of my life is a 
visit to the celebrated mathematician and 
inventor, Mr. Babbage. He was Far ad- 
vanced in age but his mind was still as vigor- 
Oils as ever. He took me through his work- 
room. In the first room 1 saw parts of his 
original Calculating Engine [the Difference 
Engine), which had been shown in an in- 
complete state many years before and had 
even been put to some use. I asked him 
about its present form. 

'"I have not finished it because in work- 
ing at it. I came on the idea of my Analytical 
Engine, which would do all that it was capa- 
ble of doing and much more. Indeed, the 
idea was so much simpler that it would have 
taken more work 10 complete the Calculat- 
ing Machine than to design and construct 
the other in its entirety, so I turned my at- 
tention to the Analytical Machine.' I asked 
if I could see it. 'I have never completed it.' 
he said, "because I have hit upon a different 
and far more effective method and this ren- 
dered it useless to proceed on the old lines.' 
then we went into the third room. There 
lay scattered bits of mechanism, but 1 saw 
no trace of any working machine. Very cau- 
tiously I approached the subject and re- 
ceived the dreaded answer. 'It is not con- 
structed yet, but I am working on it and it 
will take less time to construct it altogether 
than it would it) complete the Analytical 
Machine in the state that I left it." 



TRS-80 
MODEL 1 6 
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TRS-80 
MODEL II 



MODEL 16-1 DRIVE 
MODEL 16-2 DRIVE 



$4499 
$4999 



DT-1 VIDEO DATA TERMINAL $620 

For use with Model 16 or Mainframe Computer 




Now (My $2899 



j& HARD DISK DRIVES 

^ CAMEO SUBSYSTEMS 

HARD DISK SYSTEM F <> R ™ E model ii 

FOR THE MODEL III 

6 MEG $1795 

12 MEG $1999 

19 MEG $2199 

COMPLETE, READY TO RUN. NOW AVAILABLE! ! 

LDOS REQUIRED — $129 

'unformatted capacity 



THESE ARE OUR CASH DISCOUNTED PRICES. COD. AND CHARGE ORDERS ARE 3'/. HIGHER ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES. SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 
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DRIVE MOUNT ONE 


$4995— 


• Western Dyne. D6222 Drive 






(5 mb Fixed/5 mb Removable) 






Controller. Adaptor and Cables 






1010 SUBSYSTEM 




$4995— 


• Oata Peripheral Lym Orive. 






(10 mb Removable Winchester) 






Controller. Adaptor and Cables 






1040 SUBSYSTEM 




$5995— 


• Data Peripheral Puma Drive 






(40 mb Fixed Winchester) 






Controller. Adaptor and Cables 






1020 SUBSYSTEM 




$7995— 


• 2 Data Peripheral Lynx Drives 






(20 mb Removable Winchester) 






Controller. Adaptor and Cables 






10*0 SUBSYSTEM 




$8995— 


• Data Peripheral Lynx and Puma Dr 


ve 




(40mbFixed/10mb Removable) 






Controller. Adaptor and Cables 




MULTIPLEXORS 


-EXTRA DRIVES- 




MX200-2 PORT 

MULTIPLEXOR 1495 


WESTERN DVNEX D622 


$449J 




DATA PERIPHERAL LYNX 


$J»9> 


MX400 4 PORT 


DATA PERIPHERAL PUMA 


$499> 


MULTIPLEXOR $/>0 
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"1 look my leave of the old man with a 
heavy heart. When he died a few years later, 
not only had he constructed no machine, 
but the verdict of a jury of kind and sympa- 
thetic scientific men who were deputed to 
pronounce upon what he had left behind 
him, either in papers or in mechanism, was 
that it was too incomplete to be capable of 
being put to any useful purpose." 

Lord Moulton's last statement is 
somewhat inaccurate. Seven years af- 
ter Babbage's death, the Royal Society 
appointed a committee to look at the 
Analytical Engine and decide whether 
it should be completed. The committee 
reported that all, or almost all, of the 
basic design work was done, but the 
cost of translating the design to work- 
ing drawings and actually building the 
machine would be enormous. For this 
reason the committee recommended 
letting the Analytical Engine lie. 

Charles Babbage died on October 
18, 1871, at the age of 79 without ever 
seeing an Analytical Engine. After his 
death, his son, Henry, published a 
book on the engines that included 
many Analytical Engine details. Henry 
also commissioned the building of the 
Analytical Engine's mill and presented 
it to the Science Museum in London. 
Probably the best epitaph that 
Charles Babbage could have comes 
from his autobiography, Passages 
in the Life of a Philosopher, writ- 
ten in 1864: 

"The great principles on which the Ana- 
lytical Engine rests have been examined, ad- 
mitted, recorded, and demonstrated. The 
mechanism has now been reduced to unex- 
pected simplicity. Halt a century may elapse 
before anyone without these aids, which I 
leave behind me, will attempt so unpromis- 
ing a task. If, unwarned by my example, 
any man should undertake and shall suc- 
ceed in really constructing an engine em- 
bodying in itself the whole of the executive 
department of mathematical analysis upon 
different principles or by simpler mechani- 
cal means, I have no fear of leaving my rep- 
utation in his charge, for he alone will be 
fully able to appreciate the nature of my ef- 
forts and the value of their results." 

The Final Questions 

In any event, it was nearly 70 years 
after Charles Babbage's death before 
his dreams were to be realized. In re- 
sponse to the need for new kinds of 
tables — firing tables for artillery — 
other men built machines like the one 
he had envisioned. These new analyti- 
cal engines were far faster than Bab- 
bage's and used electronics rather 
than mechanics, but the first genera- 
tion was remarkably similar in size 
and general structure to what Bab- 
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bage had tried to build. 

With the invention of these ma- 
chines, Babbage was lifted out of ob- 
scurity and his memory honored for 
his ideas and attempts. 

But still the questions remain. Could 
his calculating machines have worked? 
If so, why did Babbage fail? 

The usual answer is that they could 
not have worked. Babbage was too far 
ahead of his time; the materials and 
techniques for shaping the parts 
weren't available; the designs were too 
complex. Yet the evidence doesn't sup- 
port any of these conclusions. 

Granted that the machines were 
complex and that Babbage was push- 
ing the state of the art, but the designs 
were exceedingly clever and Babbage 
took great pains to see that they could 
be manufactured and would function 
in spite of their complexity. 

Certainly the Difference Engine 
should have worked. By the time work 
stopped, all the technical problems had 
been solved and its complexity was the 
complexity of a single, fairly simple as- 
sembly repeated many times over. 

The Analytical Engine is not as cer- 
tain since.it was more complicated and 
never got beyond the design stage. 
Still, it displays the same ingenuity of 
design and attention to reliability that 
marked the Difference Engine. In ad- 
dition, the Analytical Engine was actu- 
ally a collection of separate mecha- 
nisms that only joined to become a 
larger mechanism on command. Given 
the modular principles on which it was 
designed, it should have been possible 
to build a basic Analytical Engine out 
of the best-proved various mechanisms 
and then modify it as the more elabo- 
rate and troublesome parts were built 



and tested. This is essentially the way 
ENIAC and a great many homebrew 
microcomputer systems were built. 

Then, if the machines could have 
been constructed and if they would 
have worked, why did Babbage fail? I 
think the answer lies in what he could 
not invent. 

Babbage pioneered in cybernetic 
theory, machine and tool design, op- 
erations research, and a number of 
other engineering fields. But he was 
less advanced than many of his con- 
temporaries in what we now know as 
project engineering. It was this lack 
that doomed his efforts. Babbage was 
capable of inventing the machines, 
but he could not invent the proce- 
dures needed to make their construc- 
tion go smoothly. 

Time and again, Babbage was 
balked by bad management practices. 
His failure to get the original agree- 
ment with the government in writing, 
his failure to set up an adequate system 
of progress payments, his inability to 
realistically estimate costs and con- 
struction times, his failure to secure 
ownership of crucial tools and fixtures, 
and his inability to stop designing and 
get on with the building all contributed 
to the failure of his projects. 

To us these procedures are as com- 
monplace as the idea of a digital com- 
puter. To Babbage and his contempo- 
raries, both concepts were blindingly 
original. It was the genius of Charles 
Babbage that he was able to grasp one 
idea and his downfall that he did not 
understand the other. ■ 



Rick Cook can be reached at Box 
15193, Phoenix, AZ 85060. 
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BRAND NEW, 180 DAY WARRANTY 

*16K S825 00 * *48K, 1 DR $1499* 
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• CASSETTE RECORDER $55°»* * RS-252 (INSTALLED) $92* 

DUAL SIDED DISK DRIVES ALSO AVAILABLE 

IBM P. C 
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IBM PERSONAL COMPUTERS 
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TECHNIQUE 



A graphics program for your Color Computer 



Flaky 



Sidney C. Garrison 
1406 Sunny Court 
College Station, TX 77840 



This graphics program shows off the 
power of the Extended Basic Color 
Computer. The three-dimensional and 
moire pattern effects which appear from 



the strict geometric shapes can mesmerize 
an audience. 

The designs produced depend on two pa- 
rameters, K>0 and (K J<(K - 2)/2, both inte- 
gers. On running the program a random pat- 
tern is shown and then the menu appears. 
Menu option one constructs and displays, 
for a short time, a previously selected list of 
patterns. You are then returned to the 
menu. Menu option two increments K and J 
in turn so that all possible patterns are 
seen; press Break to stop. Menu Option 
three lets you input a K and J value of your 
choice. The design is constructed and dis- 
played until you press any key except break; 



and then you're returned to the menu. 
Before you enter the program, do not 
PCLEAR since it is assumed the graphics 
variables are at their default settings. 

In mathematical terms the program adds 
a certain complex K ,h root of unity to a run- 



The Key Box 



Color Computer 

16K RAM 

Extended Color Basic 




Fig. 1. Stages in the construction of the design with K=15 and J = 6 
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WE STOCK PRINTERS! 



EPSON •OKIDATA'C. ITOH'RADIO SHA( h'SMITH CORONA 



•EPSON • 

MX-80 $499 

MX-80 F/T $525 
MX-100 S685 

We STOCK A COMPLETE LINE 

OF EPSON ACCESSORIES 

CALL FOR PRICES!! 




OKIDATA 



ML 80 
ML-82A 
ML8M 
ML-84P 

Ml 84$ 



$550 

$42* 

$699 

$1049 

$1299 



•C. ITOH» 

PROWRITER 



OKICRAPH $99 




RADIO SHACK PRINTERS 

DMP-ioo ™<2m $579" 

50CPS. UPPER & LOWER CASE, 10" CARRIAGE 

DMP-200 ,26,254, $679" 

120CPS. BIDIRECTIONAL. ADJUSTABLE TRACTOR. 
10' CARRIAGE 

DMP-400 .26251, 

140 C PS, ADJUSTABLE, REMOVABLE TRACTOR 
FEED. 15" CARRIAGE 



DMP-500 



(26-1252, 



220CPS. HEAVY DUTY DESIGN . REMOVABLE ADJUSTABLE 
TRACTOR. 15' CARRIAGE 

DWP-410 

300 WORDS PER MINUTE. 15" PLATEN 



S 1015"" 
$1525°° 

DJUSTABLE 

$1269" 



DAISYWHEELII (26 . 115 ., $1695 

TRACTOR FEED (26-1447) $275 



8510PARALLEL-10" 
8510SERIAL-10" 
1550PARALLEL-15" 
1550 SERIAL 15" 



$489 

$639 

$719 

$1295 



STARWRITER 

F 10 40 CPS, PARALLEL $1450 

F1040CPS, SERIAL $1599 

F-10 55 CPS, PARALLEL $1699 

F 10 55 CPS, SERIAL $1850 




DAISY WHEEL PRINTER 




S599 00 

SMITH CORONA TP-I 



(35-001, 
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Fig. 2. K = 5 and J = 1 



Fig. 3. K=16 and J = 



ning sum. Successive values of this sum are 
multiplied by a scaling factor and connect- 
ed by a line on the screen which represents 
the complex plane. The root added at each 
stage depends on the J value. The se- 
quence of pictures in Fig. 1 show stages in 
plotting the design with K equals 15 and J 
equals 6. The final graph is 15 copies of the 
first, each with the center rotated at an 
angle of 24 degrees ( = 360/15). The calcula- 
tion of the scaling factor is the only difficult 
mathematics involved, which is necessary 
so the pattern fills the screen for any value 



of the parameters. For a more detailed dis- 
cussion of the mathematics involved see 
"Picturesque Exponential Sums, I" by D. H. 
and Emma Lehmer in the November 1979 is- 
sue of the American Mathematical Monthly. 
Another very striking pattern can be 
formed with this program. I call these 
medallions; the effect depends on the eye's 
ability to pick out regularity from complex 
data. If K is large, say 6(KK<400, and J 
equals (K-2)/2, then a series of equally 
spaced rays from center screen outward 
are formed. These rays are actually stair 



steps. The eye organizes the steps from ad- 
jacent lines into curves. Use the program to 
experiment and find other patterns. The 
program organization is parallel to the de- 
scription given in paragraph two. I added 
spaces and comments to make the struc- 
ture clear. Copy the print statements exact- 
ly to avoid split words. The A$ equals IN- 
KEY$ at line 3050 allows you to temporarily 
stop execution using Shift® without omit- 
ting the pause after construction of the 
design in menu option three. At line 10030 a 
procedure for calculating the greatest com- 
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Fig. 4. K = 8andJ = 2 
80 Micro, December 1982 



Fig. 5. K = 18 and J = 2 



A Computer That 
Writes Programs 
For You. 

What will they think of next..? 



Your computer is fantastically fast oner it knows what 
to do. You probably realize that a computer is really 
the combination of hardware and software, working 
together smoothly, to give you what you want Either 
one alone is useless Software is really the key the 
"mind" of a computer system bvery project or task 
you want to do requires a new specific software ap- 
plication to make it behave exactly the way you desire 

Of course, you may be able to "force-fit" an application 
into some existing canned program you have, but to 
really get results, you need a separate application 
program to run on your computer 

Until now, that meant you were forced to pay money 
for application software off the shelf, or if you could 
afford it, have it custom written for you, or, if you are 
qualified, do it yourself, spending endless hours 
figuring it out and writing it Now, your computer can 
write individual application programs for you These 
programs are each separate, unique software programs 
that run in standard Basic on your computer 

A company named FutureSoft has developed this ex- 
citing and long awaited remarkable working tool for 
you. There are two versions called Quikpro + Plus and 
standard Quikpro Both of them create unique separate 
Basic programs for you. to do exactly, precisely, what 
you want to do. And listen to this you create a new 
program in minutes instead of hours 

You can quickly generate a new program when you 
want it You can generate thousands of different 
unique programs, each one standing alone as a com- 
plete program that runs in Basic Best of all, you do not 
have to be a programmer to do it The Quikpro soft- 
ware becomes your personal programmer, waiting to 
do your work for you any time of day or night you 
choose to use it. 

The custom programs you generate from this software 
provide for: Data Entry, Additions, Changes, Record 
Locating & Searches, great variety of Computations. 
and Report Printing (if you have a printer). It lets you 
decide what data to manipulate and how to manipulate 
it. It lets you decide the formats you want to appear on 
your screen and/or to print out in a report It lets you 
use differing formats on the same data base. It lets you 
make calculations from data within records without 
altering the data base. It lets you report results with or 
without including the base data from which results 
were calculated 

All this is included in the ability/power of the program 
you create. You do it by simply answering questions 
that appear on your screen. Instantly, the Quikpro soft- 
ware 'instructs the computer to perform complex and 




error free instructional sequences. You get the im- 
mediate benefits of professionally written software for 
your application 

The resulting custom program is truly a separate Basic 
program You can list it. you can modify it, you can ac- 
tually see what makes it tick You can even ask it to 
print out its own operating instruction manual so others 
can run it for you Hnally, you can really tap the speed 
and power of your computer the way you really want 
You can create new programs for every use you have in 
Business, Science, Education, and Hobby areas. And 
you can start now 

1 he software is available immediately from the 
creators It comes in two versions. If you want to 
generate separate Basic programs with all the data 
handling plus Calculations and Report Printing 
features, you want Quikpro + Plus Specify to run on 
IRS80 Model I and Model III at only $149; to run on 
IRSHO Model II at $18<i 

If you do not need Calculation ability or Report Print- 
ing in the separate Basic programs you will create from 
this program generating software, then standard Quik- 
pro will do the job for you Standard Quikpro to run on 
TRS80 Model I or Model III is $89; to run on TRS80 
Model II is $129 (Later on you can always trade up to 
the Plus Versions for only the cost difference between 
the two) 

Both programs are available to run on many other 
computers besides TRS80. Details are available by 
calling or writing 

You can order right now by phone or mail. If you have 
Visa,Mastercard, call toll-free from: 

All States except CA-AL-HI 1-800-824-7888 OP# 441 

From California call 1-800-852-7777 Op# 441 

From Alaska. Hawaii call 1-800-824-7919 Op# 441 

Operators on duty 24 hours daily. Operators can not 
answer technical questions. If you need technical in- 
formation or want to order from Canada or other 
nations, call 1-904-269-1918 during office hours, Eastern 
Time, Mon.-Fri. 

Send mail orders with check, money order or credit 
card information to: FutureSoft, P.O. Box 1446-D, 
Orange Park . Florida 32073. FutureSoft gives you a 
satisfaction or your money refunded guarantee for 10 
days from delivery. You can run the software yourself 
on your own computer and see with your own eyes 
what it can do for you. Order now. *■&> 
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& Inventory 
at Check-out 



NEW SYSTEM MAKES 
TRS-80 m A TOTAL 
CASH REGISTER & 
POINT-OF-SALE 
COMPUTER 

Which performs all the normal 
functions ot a computer and is 
specially programmed to 



■ COMPUTE Sales Taxes, Discounts, 
Special Sales and Promotions 

■ TRACKS Sales by Type, such as Visa. 
Mastercard, Check. Charge, etc. and by 
Employee / Operator tor up to 30 people 

■ SELF-PROMPTING to Cashiers 

■ Produces Audit Trails and ACCOUNTING 
DATA lor entire operation 

■ CONTROLS up to 20.000 INVENTORY 
LINE ITEMS on our Hard Disk Drive 

■ CONTROLS up to 1,500 INVENTORY 
LINE ITEMS on your Floppy Drive 

■ Complete. Ready to-Run SOFTWARE 
comes with Cash Control Drawer Unit 

■ AUDIBLE SIGNAL produced when any 
key is depressed by any operator 

■ DRAWER operates automatically or by 
manual override anytime 

■ Generates RECEIPTS on Printer 

■ Available to display in English, French. 
Spanish, or German Languages 

■ Operates on 1 10AC or 220AC just plug 
it in 

■ NO INTERFERENCE with or modification 
of regular TRS40 Mod III plugs right 
into computer 

FREE Specifications and Data Package or 
order complete Operating manual for $15 
from 

ICRfFutureSotl 

Box 1446 - Orange Part. Florida 32073 

(904) 269-1918 for technical assistance 

and Dealer Inlormatlon 




mon divisor of integers TK and TJ is used in 
the scaling mentioned above and to avoid 
retracing lines. The examples in Figs. 1-5 
were done on an HP7225A plotter, but Ex- 
tended Basic Color Computer's PMODE4 



resolution (256 by 192) gives a clean display 
for reasonable values of K and J ■ 

Sidney Garrison is employed by Texas 
A&M University. 
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110 'FLAKY BY S. GARRISON 12/81 




120 «* ************* 




130 PI=3. 14159265 


: HALF*. 5 


: HH=95 


: HW=128 


: UNIT-1 




200 • GREETING ********* 




210 DATA 15,1,5,0,7,2,16,0,200, 


99,8,2,5,1,13,5,8,0,9,1,6,0, 


120,39,9,3 




220 UL=RND(12) 




230 FOR 1=1 TO UL 


: READ K,J 


: NEXT I 




240 READ K,J 


: GOSUB 10000 


: GOSUB 10500 


: RESTORE 


300 • MENU *********** 




310 CLS 




320 PRINT§39, "FLAKY: SNOW FLAKES 


* 


330 PRINT896," GIVEN PROPER VALUES OF K AND J THE COMPUTER PLO 


TS A DESICN. VALUES MAY BE PICKED AUTOMATICLYOR BY THE USER:" 


340 PRINT" l.AUTOMATIC-A FEW NICE VALUES. 2. AUTOMATIC- SHOWS AL 


L FLAKES. 3.MANUAL-YOU PICK K AND J. 4. END PROGRAM." 


350 PRINT'HIT 1,2,3 OR 4." 




360 AS-INKEY5 


: IF A$="" THEN 360 


370 V-VAL(A$) 


: IF V*(5-V)<1 THEN 300 


380 ON V GOSUB 1000,2000,3000, 


4000 


390 GOTO 300 




1000 • A FEW NICE FLAKES * * * * 




1010 FOR N=l TO 13 


: READ K,J 


: GOSUB 10000 


: GOSUB 10500 


: NEXT N 




1020 RESTORE 


: RETURN 


2000 • SHOWS ALL FLAKES * * * * 




2010 K=3 




2020 FOR J=0 TO (K-2)/2 


: GOSUB 10000 


: GOSUB 10500 


: NEXT J 


2030 K=K+1 


: GOTO 2020 


3000 • PICK YOUR DESIGN * * * * 




3010 CLS 


; PRINT 


3020 INPUT" INPUT PARAMETERS K 


(INTEGER K>2) AND J (INTEGER 


<=2J<=K-2). ";K,J 




3030 CLS 


;IF INT(K)OK OR INT(J)OJ OR 


K<3 OR J<0 OR J>(K-2)/2 THEN 


PRINT 


: PRINT "ILLEGAL K OR J, READ DIRECTIONS" 


: PRINT 


: GOTO 3020 


3040 GOSUB 10000 




3050 A$=INKEY$ 




3060 A$=INKEY$ 


: IF A$="" THEN 3060 


3070 RETURN 




4000 END 




10000 'SUBROUTINE PLOT * * * * 


INPUT: LEGAL K,J 


OUTPUT: GRAPH 




10010 ASTEP=2*PI/K 


: BSTEP=ASTEP*(J+1) 


10020 S=1/SIN(PI*(J+1)/K) 


: TK=K 


: TJ-J+1 '* S=SCALE FACTOR* * 




10030 TK*TK-INT(TK/TJ)*TJ 


: IF ABS(TK)>HALF THEN TT=TJ 


: TJ=TK 


: TK=TT 


: GOTO 10030 '* TJ=(K f J+l)* * 




10040 TJ=INT(TJ+HALF) 


: TK=K/TJ 


: IF TK-INT(TK/2)*2 > HALF 
10050 UI-K+HALF 


THEN S=S*COS(PI*TJ/(2*K) ) 
: UL=TK-HALF 


10060 PM0DE4,1 


: PCLS 


: SCREEN 1,1 


: 'INTIALIZE SCREEN ***** 


10070 ' DRAW !I ******** 




10080 FOR I=UNIT TO UI 


: CH=ZER0 


: CV=ZERO 


: A=(I-1)*ASTEP 


10090 FOR L-UNIT TO UL 


: CH=CH+COS(A)/S 


: CV=CV+SIN(A)/S 


: LINE -(HW+INT(HH*CH+HALF) , 


HH+INT(HH*CV+HALF) ) f PSET 


: A=A+BSTEP 


: NEXT L 




10100 LINE -(HW,HH) ,PSET 


: NEXT I 


10110 RETURN 




10500 ' DELAY ********* 




10510 FOR 1=1 TO 800 


: NEXT I 


: RETURN 




Program 


Listing 1 



FORBIDDEN 

FRUIT? 




Not Anymore. 



It's no sin to want to learn as much as 

" possible about your Apple*. And now 

there's a magazine which places all the 

Apple Computer's hidden potential at 

your fingertips— inCider. 

inCider promises to expand the limits of 
your Apple like its sister publication 80 
Micro has blown the lid off I he TRS-80**. 

Not just another Apple magazine— but 
a comprehensive monthly filled with . . . 

• programs 

• software applications 

• hardware modifications 

• reviews 

• new product announcements 

• advertising 

• tutorials 

• games 
Want to know the easiest way to get the 

kinks out of your programs? inCider will 
show you. Want to know which peripher- 
als have the best history and the brightest 
future? inCider will tell you. 



Want to expand your knowledge of 
hardware? Or become an expert program- 
mer? Want to discover which word proces- 
sors give you the most for your money? Or 
how your Apple can better manage your fi- 
nancial affairs? inCider will answer these 
and many other questions each month. 

No matter what you use your Apple for 
— no matter where your machine is — 
you'll want the latest copy of inCider 
propped up beside it each month. 

You get a full year's subscription to 
inCider— 12 monthly issues for only 
$19.97. And if you send your money now 
you will receive a 13th issue free! 

Simply send in the subscription coupon 
to: 

Wayne Green Inc. 
P.O. Box 911 
Farmingdale, NY 11737 

or call toll free: 

1-800-258-5473 
Be an inCider. Subscribe today. 



'fWf /5*= .basics -ej 

a trademark ol \pplc t imtpuui lot 



YES, / want a charter subscription to inCider for one year at $19.97 

I understand that with payment enclosed or credit card order 1 will receive a 13th issue FREE. 
□ Check Enclosed 3 MC □ VISA DAE Q Bill ME $19.97 for 12 issues 



Signature 
Card# 



Exp. Date_ 

Name 

Address _ 

City 

Zip 



Interbank *_ 



State. 



32DC5 



Canada & Mexico $22 97. 1 year only. U.S. Funds 

Foreign $39.97. 1 year only. 

U.S. Fundi drawn on U.S. Bank 

Your first issue will arrive bv mid-December 

Box 911»FarminRdale.' NY 11737 
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IDS MICROPRISM 



Lynx TRS-80 Modem 



Dosplus 




UPS Delivered 

• 110 cps bi-directional, logic-seeking 

• Single pass correspondance quality print 

• 10, 12, & 16 cpi with extended mode (24 x 9 dpi) 

• 84 x 84 dpi Dotplot graphics; 1/48" line space 



Okidata Printers 

MICROUNE 82A . , 439" 

ML82A TRACTOR *59" 

MICROUNE 83A «694" 

OKIGRAPH ROM '44« 

MICROUNE 84 Parallel 

200 cps M044" 

MICROUNE 84 RS-232C 

200 cps . *1 169* 

Anadex Printers 

DP-9500A M474" 

DP-9510A *1474" 

DP-9620A »1569* 

Brother Printers 

DAJSYWRITER 2000 . »1089 M 

TRACTOR »49** 

CABLE '149- 

IDS Printers 

PRISM 80 W/4-colors, Spnnt 
Mode, Dot Plot, & Cut 

Sheet Guide *1329» 

PRISM 80 w/o color M 174" 
PRISM 1 32 W/4-colors, Sprint 
Mode, Dot Plot, & Cut 
Sheet Guide.. M699" 

PRISM 132 w/o color »1254 M 

TEC Printers 




DMP85 «469" 

The 3eneric version of NEC & 
Prownter printers Features 120 
cps, bi-directional, logic-seeking, 
1 3K buffer. 5 fonts, 8 sizes on 
9x9 matrix, w/ proportional print, 
true descenders, & Greek/Math 
font 160 x 144 dots/ inch Hi-Res 
3raphics matrix, 1/144' line feed. 
Friction & tractor standard, rear 
paper path 



C Itoh Printers 

C. ITOH PROWRITER '499 M 

CJTOH PROWRfTER 
Parallel & RS-232C . «619 M 

C. ITOH PROWRfTER 2 . »734» 
CJTOH PROWRfTER 2 

Parallel & RS-232C *799" 

C ITOH F-10/40 STARWRJTER 
Parallel, 40 cps »1499" 

C. ITOH F-10/55 PRINTMASTER 

Parallel, 55 cps M799 M 

F-10 TRACTOR *9.89" 



NEC Printers 



NEC PC 8023A-C . 
NEC 3530 (35cps) 
NEC 7730 (55 cps) 



•509" 
M809" 
»9579" 



Centronics Printers 

CENTRONICS 122-1 , 979»» 

CENTRONICS 352 1614" 

CENTRONICS 353 •29.74* 

CENTRONICS 739-1 . *659 M 

Smith-Corona 

SMITH CORONA TP-1 . . » 599 M 
Specify 10 or 12 cpi 
Specify Parallel or RS-232C 

Call For Prices 

On QUME * DIABLO Darsywheels 
QUANTEX. 0ATASOU7H, DIP, 
MPI, 4 other printers available 





^229 M urioarvuti) 

■ »Kx3tl I A li competent modem tyiiem 

■ Auto (M/autO answer 

■ wortu wnn ST-ftO * *nt otfiei »o«w»'« 

■ *o<»u witn of witrtout RS-C39C 

MicroTerm 

An excellent terminal program 
from MicroSystems Software 
Microterm features simultaneous 
input while at menu, auto dial 
support (including pre- pro 
gramed dialing and trans- 
mission without operator 
intervention), direct file tro 
34K of capture buffer, and a high 
operational baud rate (near 
9600) Well-suited to both the 
Lynx & Mayes Smartmodem's 
auto dial & auto answer features 
Specify Model I or III when 
ordenng 

MICROTERM V 89 M 

MODEMS 

HAYES SMARTMOOEM •M9" 
HAYES 1200 BAUD 

SMARTMODEM . '574- 

RS-232C CABLE "W" 

SIGNALMAN MARK I "89 M 

NOVATION AUTO CAT *M4 U 
NOVATION 1200 BAUD 

AUTO CAT '569 - 

Model 3 

Model 3 with 48K RAM and two 
single sided, double density 
drives, delivered ready to run 
Fulry compatible with all hard- 
ware/software RS-232C port 
optional. Non-Radio Shack 
warranty, but full 90 days on 
parts & labor 

MODEL 3 _ '1799* 

Disk Drives 

40 TRACK SS ^39" 



The finest DOS available Features 
a BASIC array sort (multckey, muitr- 
array), input (? (controlled screen 
input), random access and ASCII 
modification, BASIC checks for 
active "DO", repeat of last DOS 
command, device routing single 
file conversion from Model in 
TRSDOS, reading 40-track disks 
m 80 track drives, etc Specify 
Model l or ill, single or double 
density, 40 Or 80 track disk drive 
DOSPLUS 3,4 »104" 



Quic-N-Easi 



Quic-N-Easi lets anyone write 
custom business application 
programs without BASIC — and 
you do it faster Now you can try 
Quic-N-Easi for 1 5 days FREE 
You're satisfied or your si 95 
refunded— no questions asked 
Non-programmers 4 experts 
alike can write sophisticated 
business programs with Quic-N- 
Easi inventory, records, sales 
traclong budgeting— and you'll 
program faster, with greater 
flexibility, like a pro — or your 

money bac* 
TRS-80 Model l/IH 
Quic-N-Easi M9S" 

Model H/16 (CP/M required) 
Quic-Ntasi M9 5 M 

NEWSCRIPT 7.0 

ProSoft S NEY/SCRPT supports 
most printers (including the nev» 
Microline 84), and features true 
right-justified proportional 
printing single anc double width 
type withm text, subscripts, 
Superscripts, underlining 
boldfaces, multiple character 
pitch, full-screen editing giooai 
search/replace, customized 
'form" letters, plain englisn 
commands, typeahead/prmt- 
ahead buffers for speed, a 
professional manual, & customer 
support from the author himsell 
Newscript M04 M 

Options (below) are not 
available separately 
Mail Labels MS 00 

File Convenor MS" 

Proportional Driver l 49 M 

Electric Webstei MS0* 



Orders & Information: CALL (603)-673-8857 

Orders Only: CALL (800)-343-0726 

No Hidden Charges 

No surcharge for credit cards-No charge for H|QrH TECHNOLOGY AT AFFORDABLE PRICES 

UPS shipping— Stock shipments next day 

All equipment shipped factory fresh with 

manufacturer's warranty— We accept CODs 

Open PO's not accepted— $50 minimum 

order— No foreign orders accepted 



*nc«s tJoitct to crwnge c*i »o» tuotrt 
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Milford NH 03055-0423 
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Bit Smitten— Part V 



by Jay Chidsey 



T 



his month Jay Chidsey shows you how to gain 
access to string data for use in programs 
which require random selection of words. 



This month I will discuss the array 
capabilities of TRS-80 Level II Basic 
with particular attention to gaining ran- 
dom access to string data for use in 
something like a poetry generating pro- 
gram. Many game programs require 
similar random selection of words or 
phrases out of a large number of words 
contained in data statements. 

Arrays are very easy to use, once you 
understand what they are and how 
they work. 

An array is an ordered series or ar- 
rangement of alphanumeric (alphabetic 
and numeric) items presented in a logi- 
cally related and useful pattern. 

The simplest kind of array is one di- 
mensional; it's a list of items. A one-di- 
mensional array is called a vector. A list 
can be as long as you want and have 
need for (and have memory space to ac- 
commodate), and it can be made up of 
either words or numbers. 

An array can also be multi-dimen- 
sional. If, for example, you were the 
franchise holder on five McDonald's or 
Mister Donut or Frostee Freeze places, 
you might want to keep a record of 12 
different categories of expenses for each 
of the five locations. Such a two-dimen- 
sional (or any multi-dimensional) repre- 
sentation is called a matrix or a table. 

If you kept such records every day, 
then the day of the month could be a 
third dimension, the month (1-12) 
might be a fourth, and the year (82, 83 
and so on) might be a fifth dimension. 
This would form a five-dimensional 
matrix in which each expense item entry 
was uniquely tagged, and recoverable 
from your data files through appropri- 
ate programmed inquiry. Item A(4,2, 



17,9,2), for example, would be the 
fourth expense item listed for location 
two on the 17th day of the ninth month 
(September) in 1982. 

Level II Basic's array capability 
makes it possible to take information 
out of dead storage and put it into 
dynamic and usable memory. The in- 
formation put into an array might come 
from input statements contained in 
your program, but most commonly it 
will come from data statements. I will 
deal only with data storage in this 
month's column. I will show you how 
to get words out of storage in data lines 
and into memory for manipulation and 
use. I'll use a scaled-down version of my 
poetry generating program (see the 
listing) as an example. 

It's useful to think of the data in your 
TRS-80 as a huge high stack of infor- 
mation, with the first data entry as the 
item on the very top of that stack, and 
the last item in the last data line as the 
one on the very bottom of the stack. 
When you read that data into memory, 
the item at the top of the stack is read 
first, and assigned to the variable you 
name following the Read command. In 
this case, the variables to be subscripted 
are N, V, and A; N(l), N(2) and so on. 

If you want to read down only so far, 
or to find a particular item and stop 
there, you can then insert the Restore 
command into your program, and the 
next Read will begin at the very top of 
the stack again. You can't start over 
part way down the stack, but you can 
start again at the top and peel off the 
data you want to discard quite simply. 

In this poetry program I want to read 
three categories of words: nouns, verbs 



and adjectives. I will then randomly 
select among those words to con- 
struct poems. 

Notes on the Program 

In a program that uses words rather 
than numbers in its data lines, you must 
first clear space for string variables. 
This is done at line 90 with a CLEAR 
10000. If no number of bytes are cleared 
by such a statement, the TRS-80 de- 
faults to an automatic Clear of 50 bytes. 
If you are hard pressed for memory in a 
program and are using no string vari- 
ables, you can free 50 additional bytes 
of memory by executing a CLEAR at 
the beginning of your program. 

There are four ways to use clear. The 
CLS (Clear Screen) command in a pro- 
gram and the clear key on your key- 
board wipe the monitor screen of all 
content. Neither affect variables in stor- 
age, but both terminate the double- 
width print mode initiated by 
CHR$(23). The clear command used in 
a program by itself, with no number 
following, wipes out the content of all 
variables returning them to zero for 
numeric variables and to null (" ") for 
all string variables. Clear followed by a 
number reserves that number of bytes 
of string space for your program and 
zeros all variables. If you are using 
many strings, you should CLEAR n 
bytes early in a program, before any 
variables are introduced. Unless you do 
so, you will face the OS (Out of String 
Space) error message. 

Clearing 10000 bytes will accommo- 
date nearly 250 each of nouns, verbs, 
and adjectives. Since the program itself 
occupies little space, you need not be 



The Key Box 
Cassette Basic 
Model I or III 
16KRAM 



80 Micro, December1982 • 101 



overly concerned about reserving a 
large amount of string space in this 
program. 

Lines 100-150 count the words in 
each data category, first nouns, then 
verbs, and then adjectives. Nouns are 
stored in data lines 2000-2998, verbs in 
lines 3000-3998, and adjectives in lines 
4000-4998. The data entries of End at 
lines 2999, 3999, and 4999 halt the 
counting of nouns and switch to the 
counting of verbs and then to the count- 
ing of adjectives. Line 160, by subtract- 
ing the Ends from each count of words, 
places the actual number entered by the 
user in the variables N, V, and A. Line 
170 sets the string variables N$, V$, and 
A$ to null, or blank. This is good pro- 
gramming practice unless you are hard 
pressed for memory space. 

Line 180 dimensions the arrays we 
are about to create. The Basic operator 
is DIM. TRS-80 Level II Basic's default 
value for any array is 1 1 (0-10), so the 
dimension command must be used only 
if and when, as in this case, a larger 
number of elements are to be antici- 



pated. How many of each? Line 160 has 
given us that count. We dimension N$ 
to N, V$ to V, and A$ to A. 

Line 190 restores the data stack for 
reading again. The first time we went 
through it, in lines 100-150, we were 
merely counting the words. Now we 
must restore the stack so we can actually 
read it, word by word, into usable mem- 
ory. Line 210 presents screen material to 
entertain the user while the data is being 
read into arrays N$(x), V$(x), and 
A$(x) by the read function. 

Lines 240-280 are the heart of this 
program. A$ was one word (or se- 
quence of words) when we were count- 
ing and replacing previous content with 
new content at each count, but not 
now! This is where we spin data into 
one-dimensional arrays. N$ is as many 
different words as you have dimen- 
sioned for and have in data to put into 
the prepared slots. N$(l) will be the first 
noun in your data, N$(2) the second, 
and so on up to N$(150) or N$(306) or 
whatever. 

You could read these nouns into 



10 CLS: PRINT 3276, "POETRY GENERATING PROGRAM" 

20 PRINT §344, "(MINIMUM VERSION)" 

30 PRINT §601, "BY JAY CHIDSEY" 

40 PRINT §725, "GREEN SPRINGS OH 44836" 

50 PRINT §980, "■>: INPUT "PRESS ENTER TO CONTINUE"; YY 

90 CLS: CLEAR 10000 

100 READ N$: N-N+l 

110 IF N$-"END" THEN 120 ELSE 100 

120 READ V$: V-V+l 

130 IF V$-"END" THEN 140 ELSE 120 

140 READ AS: A=A+1 

IF A$="END" THEN 160 ELSE 



150 

160 N=N-1: V-V-l: A-A-l: REM 

170 N$="": VS-"": A$="": REM 



140 

SETS N,V,A TO ACTUAL COUNT 
SETS STRINGS TO BLANK 



180 DIM N$(N) , V$(V) , A$(A) 

190 RESTORE: REM DATA NOW READY TO BE REREAD FOR CONTENT 
200 : PRINT: PRINT TAB (18) "POETRY GENERATING PROGRAM" 
210 PRINT:PRINT:PRINT 

PRINT'WORDS IN STORAGE:": PRINT: PRINT 

PRINT'NOUNS "N 

PRINT"VERBS "V 

PRINT" ADJECTIVES "A 

240 FOR X=l TO N: READ N$(X): NEXT 



250 READ ENS: 
260 FOR Y=l TO V: 
270 READ EN$ 
280 FOR Z = l TO A: 
290 PRINT: PRINT: 



500 CLS: GOSUB 5000: PRINT: PRINT 



REM PEELS OFF 'END' 
READ V$(Y) : NEXT 

READ A$(Z) s NEXT 

INPUT "PRESS >ENTER< TO CONTINUE"; YY 



i : PRINT; PRINT 
V$(Y) "S THE " N$(X) 
" V$(Y) "." 



N$(X) "S," 



"I" 



PRINT TAB (25) "THE " N$(X] 

PRINT, "HOW " A$(Z) "LY " 

PRINT, "" N$(X) "S SELDOM 
510 GOSUB 5000: PRINT 

: PRINT, "MORE "A$(Z) " ARE THE 
: PRINT, "AS THEY " V$(Y) "." 

1999 PRINT: PRINT: PRINT 
PRINT "PRESS ENTER FOR ANOTHER POEM" 
INPUT "PRESS BREAK KEY TO EXIT PROGRAM"; YY 
GOTO 500 

2000 DATA STONE, RING, CLOUD, BARN, DOG, CAT, MOUNTAIN, RIVER 

2999 DATA END 

3000 DATA RUN, JUMP, FLY, SEE, PLAY, THROW, SING, SHOUT, CLIMB 

3999 DATA END 

4000 DATA BEAUTIFUL, SORROWFUL, GOOD, SCENIC, PURPLE, SWEET 

4999 DATA END 

5000 RANDOM: X = RND(N) : Y = RND(V): Z « RND(A): RETURN 

Program Listing 



memory by programming something 
like READ N$(l): READ N$(2): 
READ N$(3) and so on. This takes lots 
of typing and lots of memory space. 
Lines 240, 260, and 280 spin those same 
words into memory, using For . . . Next 
loops, in a few seconds. At each pass 
through the For . . . Next loop they are 
incremented by one, going up from one 
to whatever total value N and V and A 
hold. Each pass through the loop, 
therefore, produces a different sub- 
scripted variable— N$(l), N$(2), and 
so on. 

Lines 250 and 270 read and eliminate 
the End entries that separate nouns, 
verbs and adjectives. Now we have all 
the data in usable memory. You can 
check this by inserting a line: 

285 FOR Q = 1 TO N: PRINT N$(Q): NEXT 
: FOR Q= 1 TO V: PRINT V$(Q): NEXT 
: FOR Q= 1 TO A: PRINT A$(Q): NEXT 

Your nouns, then your verbs, and 
then your adjectives will cascade down 
the monitor screen, and then stream up 
as the bottom line fills and bumps them 
upward. Remember to cancel line 285 
by typing in 285 and hitting enter before 
you run the program. 

Line 500 first sends us to the random 
number generator planted at line 5000, 
and then to a poem format (there are 
more than a dozen in the actual pro- 
gram) to create a poem. The random 
number generator makes it likely that 
each poem will be different. The more 
words in data storage, the more likely it 
is that each poem will be different. Line 

1999 provides an easy way to punch up 
another poem; you simply hit enter. 

To use this program, enter as many 
words as you wish beginning on line 

2000 for nouns, line 3000 for verbs, and 
line 4000 for adjectives. Each new line 
must begin with data and each word 
must be separated by a comma from the 
next. If you wish, write your own addi- 
tional poem formats, using the listing's 
format in lines 500 and 5 10 as an exam- 
ple. If you do this, change the GOTO in 
line 1999 to GOTO 490 and add: 

490 F - RND(6): ON F GOTO 500, 550. 600, 650 
700, 750 

For eight formats you would substi- 
tute RND(8) and add 800, 850 to line 
490. Place a GOTO 1999 at the end of 
each format. ■ 

Writer and businessman Chidsey uses 
his Model HI in both activities. He can 
be reached at 205 E. Adams St., Green 
Springs, OH 44836. 
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QWERTY 

DAISYWHEEL II 




At last! QWERTY 3.0 is available for the 
DAISY WHEEL II! Finally, owners of the 
Daisy Wheel II can make their printers do 
what they were designed to do. Pro- 
duce scores of special symbols and ac- 
cents! Add footnotes and borders to 
text! Bold print, double underline, even 
underline spaces! Print superscripts and 
subscripts, simultaneously! Print a sinsle 
page of text without resorting to copy- 
markers! Stop printing to change wheels 
or insert text! 

Once you use DAISY, you'll wonder how 
you worked without it. We guarantee you 
will agree! If not, return DAISY within 
fourteen days for a prompt refund. That's 
how confident we are! 

DAISY FEATURES 

Easy transition between the three print 
pitches. One command changes pitch 
and resets formats for optimum appear- 
ance in that pitch. 

Over 1 00 new symbols, including foreign 
language accents, Greek letters, and math- 
ematical symbols, all using the standard 
Courier wheel. Allows tildes, carats, and 
overbars to be placed over any character. 

Any character can be used as a super- 
script or subscript, singly or simultaneously. 
Extra high superscripts for integrals. Fine 
space controls to make superscripts and 
subscripts look perfect. 

Underlining, double underlining, and bold 
printing, with our without underlining of 
spaces. 



Special provision for printing ratios of 
one long expression over another (as in 
algebra). 

Provision for putting FOOTNOTES on a 
page in such a way that they remain on 
that page despite later editing. 

TABLE and MABLE commands enable exact 
positioning of the print head anywhere 
on the line. Invaluable in printing neat 
data tables, columnar material, etc. 

PRETTY command enables one to print 
repetitions of a chosen character; com- 
bined with TABLE or MABLE, it becomes 
easy to produce attractive borders, even 
in headers and footers. 

PAGE END allows the user to discover 
where pages will end, when they are 
printed, without actually printing. 




Special commands allow the printing of a 
single page anywhere in the text, with 
correct page number, footer, and head- 
er, without the use of copy-markers. A 
special command will reset the default 
format parameters, to allow use of 
copymarkers without having to insert a 
format line to adjust for format changes. 

FOLIO format enables one to produce 
print-outs in two or three columns per 
page, as for newsletters, indices, etc. 
FOOTNOTES, footers, headers, and PAGE 
END will work correctly. 

Access to disk directory and ability to kill 
files from within DAISY, without losing any 
text. 



Special code in the text will stop printing 
until user restarts it; use it to change print 
wheels. One can insert up to 6Q charac- 
ters of text at this point, as for form 
letters. 

Special print-outs allow one to keep re- 
cords of DAISY commands used to create 
a certain effect. 

Flaws in SCRIPTSIT's widow supress are 
corrected. SCRIPSIT's problem with typ- 
ing two spaces after a period is fixed. 
SCRIPSIT's scrolling speed is doubled, with 
instructions for user modification. 

CAUTIOUS BUYERS: We invite you to buy 
the DAISY manual. This is without a doubt 
one of the clearest, most well-written 
manuals ever produced for any piece of 
software. Over 110 pages. Indexed. In a 
custom 3-ring binder. We will credit the 
full $10.00 price when you decide to 
buy DAISY. 

DAISY REQUIRES: A TRS-80 Model I or 
Model III with 48K, at least one disk drive, 
and a copy of Model I SCRIPSIT. Please 
specify which machine and how many 
drives in your system. 

QWERTY 3.0 is also available for the 
Centronics 737, 739, and Lineprinter IV. 

DAISY complete package $74.95 

DAISY manual alone 10.00 

QWERTY 3.0 complete package 74.95 

QWERTY 3.0 manual alone 10.00 

Please add $2.00 for shipping and han- 
dling. Add $4.00 for first class postage or 
UPS. Overseas orders add $4.00 for sur- 
face mail, $1 2.00 for air mail. 




U 



MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1 -800-334-5470 .*> 



REVIEW 



Up Your Mod 



by Bruce Powel Douglass 



Percom Doubler II 
Percom Data Corp. 
11220 Pagemill Road 
Dallas, TX 75243 
$169.95 

LN Doubler 5/8 
LNW Research Corp. 
2620 Walnut 
Tustin, CA 92680 
$219.95 

MULTIDOS 

Cosmopolitan Electronics Corp. 

Box 234 

Plymouth, MI 48170 

$79.95 

NEWDOS80 Version 2.0 

Apparat Inc. 

4401 S. Tamarac Way 

Denver, CO 80237 

$149 

DOSPLUS 3.4 

Micro-System Software 
5846 Funston St. 
Hollywood, FL 33023 
$149.95 

LDOS 5.1 

Logical Systems Inc. 

11520 North Port Washington Road 

Mequon, WI 53092 

$129 

Percom TFD 100-1 
Percom Data Corp. 
11220 Pagemill Rd. 
Dallas, TX 75243 
$305 

PMC SFD-51-A 

Personal Microcomputers, Inc. 

475 Ellis St. 

Mt. View, CA 94043 

$355 
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Double density disk 
storage — a close look 
at all you will ever need 
to upgrade your Model I. 



Model 1 users have always been 
plagued by a problem called data sepa- 
ration, when the disk controller has 
trouble separating data from other bit 
streams of information, such as the 
clock cycle. This problem can become 
severe particularly when you are for- 
matting or writing to the innermost 
tracks of a disk. With double density 
(since the current double-density disk 
controllers all use a built-in data sepa- 
rator), disk I/O is actually more reli- 
able than single density. My old drives 
reported fewer disk read/write errors 
from single-density I/O with the Radio 
Shack disk controller when I moved up 
to double density. You can store more 
information on a double-density disk 
as well — 184,000 bytes on a formatted 
disk. With a four-drive system, single- 
density users are limited to a meager 
332,000 bytes of on-line storage, 
whereas double-density users can have 
up to 700,000 bytes on-line. 

How do you get double density? 
Which disk controller and DOS should 
you choose? There are a wide variety. I 
contacted many manufacturers of dou- 
ble-density products, and those that re- 
sponded are represented here. 

Two double-density disk controllers, 
five DOSes, and four disk drives are re- 



viewed. Although most of this infor- 
mation is applicable to Model I users 
only, four of the DOSes have Model 
III versions. 

Indispensable in my testing of the 
disk drives and disk controllers was the 
Floppy Doctor, a product of the Micro 
Clinic in Fountain Valley, CA. The util- 
ity comes on a self-booting disk and has 
a memory test and nine disk-drive tests. 

The Disk Controller 

The disk controller is the circuit in 
the expansion interface that lets the 
computer talk to the disk drive. The 
Western Digital disk controller that ac- 
companies the Radio Shack Expansion 
Interface is a single-density disk con- 
troller, but it can write several kinds of 
DAMs (data address marks). To allow 
compatibility, both the Percom and 
LNW disk controllers allow your com- 
puter to use the original disk controller 
as well as the double-density disk con- 
troller. 

You install both in the same manner. 
First, dismantle the Expansion Inter- 
face and remove the disk-controller 
chip from its socket. Next, plug the old 
disk controller onto your new disk- 
controller circuit board (which houses 
an additional, double-density disk con- 
troller) and plug the new circuit board 
into the disk-controller slot. It will take 
about 5-15 minutes to install, depend- 
ing on your familiarity with the parts 
involved. It requires no soldering, 
trace cutting, or any modification to 
existing circuits. 

I reviewed the Percom Doubler II 
and the I.N Doubler 5/8. The Percom 
Doubler comes with easy-to-follow in- 

Circle 399 on Header Service card — 
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By Norman J 




At last... a computer word game that 
entertains, challenges, educates! 
Pandemonium is thoroughly fascinat- 
ing, stimulating, and highly addictive. 
Features include a built-in 6000 word 
dictionary, scoring display and a 
player selectable clock. 
Play it alone! Play it with your kids! 
Play it at a party! 

The word is out . . . Pandemonium is in. 
Available now for only $39.95 at 
computer stores. _^___^ 



To order by phone, call 800-526-9042 
and use your Visa or MasterCard. All 
shipments made the same day in 
which orders are received. To order 
by mail, add $1 for shipping charges 
and send your check to: 
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DMSON Of DtCISION SVSKMS NC 

200 Route 17. Mahwah, PU 07430. 
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TRS-80 MOD l/lll 48K TRS DOS 

TRS-80" Radio Shack' Tandy Corp 



OUK SOFTWARE IS UNPROTECTED PERMITTING CONVENIENT BACK-UP 



structions and Percom's own 
DBLDOS; essentially a TRSDOS 
patched to run double density with a 
few corrected flaws. It sells for $169. 

The LN Doubler 5/8 comes with 
better instructions and an even easier 
installation manual. The manual in- 
cludes the Western Digital technical 
manual for their disk controllers. The 
LN Doubler 5/8 also supports eight- 
inch floppy drives (if you have the nec- 
essary speedup enhancement to your 
Model I), and comes with DOSPLUS, 
a much better disk operating system. 
The LN Doubler 5/8 sells for $220. 

Are they different in performance? 
No. I was unable to demonstrate a 
significant difference in any disk-con- 
troller functions between the Percom 
Doubler II and the LN Doubler 5/8. 
Reliability testing showed no signifi- 
cant differences in granules locked out 
or in read/write errors. This was using 
the brand new drives I received for this 
review and older Pertec drives. New 
Maxell disks were used and were for- 
matted to 40 tracks using double 
density. 

The DOSes 

A disk operating system is a pro- 
gram that controls computer operation 
in a disk-based computer system. The 
aspects of a DOS that I consider im- 
portant are: ease of use; speed of oper- 
ation; accompanying utilities, such as 
editor/assemblers, file utilities, debug- 
gers, monitors, and languages; read- 
ability and completeness of documen- 
tation; compatibility with other disk 
formats; and cost. 

The DOSes reviewed here all sup- 
port double density and are avail- 
able for the Model III. They are 
MULTIDOS, NEWDOS80 2.0, 
DOSPLUS, and LDOS. 

MULTIDOS 

MULTIDOS, written by Vernon 
Hester, is the most inexpensive of these 
DOSes and has many features its more 
expensive competitors don't have. It is 
the only totally compatible DOS 
around. It will read any of the other 
disk formats, including DBLDOS 
(none of the others will). It is also a 
"no-hang" DOS, meaning that even if 
you remove the operating system from 
drive and the DOS tries to access the 
system utilities on the DOS disk, it 
won't up and quit, as will the other 
DOSes. It won't do what you wanted, 
but it will remain in control of your 
computer. One useful, although per- 
haps minor, convenience is that press- 
ing the enter key without input will re- 
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execute the last DOS command. 
MULTIDOS is a fast DOS as well. 

The only major problem with 
MULTIDOS is that it only checks four 
times on a read/write. My old Pertecs 
show many more "Data Record Not 
Found" errors with MULTIDOS than 
the other DOSes, which check 10 times 
before returning an error. 

The manual is a terse 66 pages (not 
including a few pages of errata and ad- 
ditional information). It lacks an in- 
dex, but covers the features of 
MULTIDOS adequately, provided 
that you already have the TRSDOS 
manual. This complaint is true of 
NEWDOS80 as well. DOSPLUS and 
LDOS have manuals that don't require 
that you have read the TRSDOS man- 
ual to understand them. 

MULTIDOS has many useful li- 
brary commands besides those provid- 
ed in TRSDOS. You can disable the 
break key from DOS, and build and 
execute DO files (although you cannot 
run a Basic program and pass input to 
the Basic program from the DO file). 
Some of MULTIDOS's commands in- 
clude: Forms, which lets you specify 
lines per page and line length for print- 
ed output; Hash, which returns the 
hash code of a file ID; and KEYBRD, 
which sets the keyboard parameters. 
MULTIDOS has a default keyboard 
driver that provides a repeating, flash- 
ing block cursor, but this can be 
changed with the KEYBRD command. 
Link and Route control the I/O of data 
to the video and printer. You can send 
everything that goes to the printer to 
the video too (or instead) and vice ver- 
sa. Topmem allows you to set the top- 
of-memory pointer from DOS. 

MULTIDOS has a number of useful 
system utilities. Backup lets you make 
speedy backups on a single drive and 
alter the number of tracks on it at the 
same time. Copy allows single-drive 
copying of single files, including to and 
from non-MULTIDOS disk formats. 
Format formats disks in single, dou- 
ble, or P (DBLDOS) density formats. 

Other utilities include a disk-based 
version of Radio Shack's Editor/As- 
sembler, a RAM Scanner to locate a 
one or two-byte word in memory, a 
graphics utility to allow direct key- 
board entry of graphics characters, a 
printer spooler, and best of all, 
MULTIDOS's Versatile File Util- 
ity (VFU). 

VFU is a utility for frequently need- 
ed disk operations, including purging 
files, printing a disk directory, multi- 
plying file copies, and executing menu- 



based programs. The Purge option 
gives a screen of the available files, as 
do the Copy and Execute commands. 
MULTIDOS has the best Basic 
around, SuperBasic. It also has a pro- 
gramming and debugging Basic called 
BBasic with Boss built into it. Super- 
Basic is the smallest Basic available 
since it uses extensive overlays for vari- 
ous operations — SuperBasic leaves 
40,000 bytes free after loading. Basic 
can be loaded directly, recovered (with 
BASIC*), and it provides two more 
options: BASIC! loads Basic and re- 
covers a program left there by a non- 
MULTIDOS Basic. This means you 
can recover a Basic program left from 
running DOSPLUS or NEWDOS80 
and recover it by inserting a MULTI- 
DOS disk in drive 0, pressing the reset 
key, and typing BASIC!. BASIC* re- 
covers a Level II program in memory. 
The recover utilities allow direct con- 
tinuation of a program. SuperBasic 
provides a special form of Level II to 
provide even more memory when 
needed. 

BBasic incorporates Boss into Basic, 
and allows single stepping of Basic 
programs, reviewing the current values 
of any set of variables at any time, 
breakpoints, and an improved trace 
function. Other than this, BBasic is 
just like SuperBasic, except it takes up 
more room. 

SuperBasic allows you to use single- 
key abbreviations for some com- 
mands. It also has a Pn command to 
display a requested page of a program. 
Several additions to Basic are provided 
with CMD"xxx" commands. CMD 
"C" compresses your program with- 
out eliminating remark statements. 
CMD"E" displays an error message 
associated with the last disk error. 
CMD"K" zeros all elements of an ar- 
ray. CMD"L" deletes an array. 
CMD"M" moves a program line. 
CMD"N" duplicates a program line. 
CMD 4i O" opens an additional file 
buffer. CMD"Q" performs a string 
sort of a single or double-dimension 
string array, and CMD"V" displays 
all current scalar variables and their 
values. 

SuperBasic has overlay utilities to re- 
number parts of your Basic program, 
search for ASCII strings within pro- 
gram text, change all or part of vari- 
able names, change graphics codes 
(CHR$(X)") into packed strings and it 
provides a cross-reference utility that 
shows all line numbers that contain 
specified variables. SuperBasic uses 
Name to chain programs without los- 
ing variables. I think SuperBasic is the 



At last... a better 
way to find that article 
on computing! 



An indexing service to 
locate source material in 
specific subject areas. 

LAMP is a bi-monthly index to 
approximately 100 computer publi- 
cations. An outstanding feature is the 
Subje ct index , cross-referenced to 
provide the most comprehensive listing 
and ease of retrieval. All articles are 
read for subject content and then 
listed with as many cross references 
as required to retrieve the article. 

An Author index lists individual names 
as well as each contributor in jointly 
written articles. Another section is 
the Review index which covers book 
reviews, hardware, software and 
educational courseware. It lists the 
source of the review and 
translates the written review 
into a One-Star to Five-Star rating.^ 

LAMP eliminates the hit or miss 
method of finding articles of 
interest to you. Each bi-monthly 
issue contains approximately 
200 pages. 



A year-end issue is cumulative and in- 
cludes the information from the previous 
5 issues. Send for your subscription 
today 

BONUS FOR CHARTER SUBSCRIBERS 

Subscribe now for the inaugural issue 
to be published in January 1983 and 
receive the LAMP pilot program which 
indexed periodicals from June through 
October, 1982. in effect, 5 months of 
LAMP free for ordering now. 

To order by phone, call 800-526-9042 
and use your Visa or MasterCard. 
To order by mail, send your check for 
$69.95 to Soft images, 200 Route 17 
Mahwah, N.J. 07430. 
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i A LITTLE 

BIT OF "GREEN" 
GOES A LONG WAY!!! 
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°" a » Prepaid 
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COMPARE OUR PRICES. . Call (216) 481-1600 



DISKIT Hf 

MODEL III DISK UPGRADE 
i ires 

• Us' 'est Disk C 

• Gold Plated Edge Connectors 

• Switching Power Supply 

• Supports 5" or 8 Drives 

• 40/80 Track Supported 

• Smgie Dual Head Supported 

• Metal Disk Drive Brackets 

• All Hardware and Cables for Two Disk | 

• t Hour or Less tor Installation 

• 100% Compatible 

• No Soldering Needed 

• 180 Days Warranty on Controller 

DISKIT III W/O Drives . .... S279 00 

DISKIT III W/ONE Tandon 

100-1 40 Track Drive $479.00 

DISKIT III W TWO Tandon 

100-1 40 Track Drive S 699 00 

DEALER INQUIRIES WELCOME 
DISKIT in is a trademarn of MOS 

PRINTERS 
NEW LOWER PRICES 

Epson MX-80 SCALL 

Epson MX-80FT w/Qrafl SCALL 

Epson MX- 100 w'Gra«1rax SCALL 

IDS Pr.sm 80 SCALL 

IDS Pr.sm 132 SCALL 

Okiaata MicroMne 80 . SCALL 

82A 

Okidata Microhne 83A SCALL 

Okidata Microlme 84 SCALL 

Prownter 8510 SCALL 

Smith Corona TP-1 Sfi:'9 00 



TRS-80, HEATH. IBM. APPLE. ZENITH 

DISK DRIVES 

AT OR BELOW DEALER S COST! 

TRAXX-Model l & III Complete 

Tandor, 40 Track S279 00 

Tandon 80 Track SCALl 

***** SPECIAL ***** 

Tandon 80/80 Track S429 00 

***••••****** 

BARE TANDON 

T100-1 40 Track $ 209 00 

T100-2 40/40 Track SCALL 

T100-3 80 Track SCALL 

***** SPECIAL ***** 

T100-4 80/80 Track $359 00 

************* 
TRAXX 8 INCH MODELS 

Seaman 77 Track s/s $339.00 

NEW TANDON THIN LINE 8 INCH 
848-1 Single Side . $ 399 00 
848-2 Dual Side S 499 00 

APPLE Add-On Disk Drive J 



MODEMS 

UDS 103 LP Dirt" i $1 

UDS 103 JLP AUTO ANS 
Hayes M 

. . S325.00 

H 

MICROBUFFER 

MBS-8K Senai 

RFACE CARDS 
I! i 
8150 (2K But) 

8161 .IEEE 4881 . 

. Sfi 
823C 
8220 i TRS-80 Cab" , . %2 



DISKETTES 
PARAGON MAGNETICS GOI tored 

- cites 

J3-RINGS 

VERBATIM-Soft-Sectorea D.s- 
■i'DDen IMD525-01) , 
MDSI 

. 
8' IS'DDen (FD34-80OO $43 95 

VERBATIM-Hard-Sector. 

! DDen 10-Secto- \M $26 95 

'* 
5 i" 2S'4Den 10 Sector [MD 



SUPPLIES 

HUB RING KIT for 5 ." d4Sks . 

HUB RING KIT tor 8" fJl 

REF-ILL S 5 95 

ClEANiNG KI T (01 

-ette Case . 
8 Diskette Case 

le Box for 50 disk. 
AVERY TABULABLES 

1 000 3 ■.■" x 15 16 . S 5 49 

3.000 3 . x 15 16 . 

5.000 3 x 15 16 S15 95 

FAN FOLD PAPER 

(Prices FOB S P ) 

' 18 1b WHITE 3.0O0 cl 

• 18 lb WHITE 3 000ct 



BOOKS 

OTHER MYSTERIES 

TRS-80 DISK S19 95 

Microso't Basic Decoded . S24 95 

.torn TRS-80 S28 95 

'.ster 4 Bette. S29 95 

The Custom Apple S28 95 

1001 Things To On Wltl 

Your Personal Computer $10 95 

Cnoosng A Word Processor $i£95 

Basic TRS-80 . , S12 95 



TRS-80 

Tandon 48K . . $1795 00 

Model III w/1 Tandon 48K $1599 00 

I r , <<r lrt»« MOS 
•.'EMORY ana : 

LNW ~~~~ 

LNW-80 Computer $1595 00 

LNW-80-II Computer w.cpm 96K . . $199500 

SYSTEM EXPANSION ll $ 349 00 

LNDOUBlER 5/8 Board $14900 



SOFTWARE 

TRS-80 Model I & III 

***** SPECIAL ***** 

FREE Floppy Doctor with the purchase of 
any DISKIT III $30.00 VALUE! 

************* 

NEWDOS80 20. S 139 95 

DOSPLUS 3 4 Model I , . S 89.00 

DOSPLUS 3 3 Model I S 69 95 

•NEW* Electric Pencil . $79 95 

ELECTRIC WEBSTER 

50.000 Word Spelling Checker $ 79.95 

og Feature $ 59.95 

When purchased together $129.95 

UNITERM Terminal" $ 79 95 

UNITERM/80 Terminal $ 89 95 

ACE MAIL lor Hayes Smart Modem $ 69.95 

I ARELMAKER for MX80 $ 19.50 

AIDS III Data Management $ 49 95 

■nager $ 89.00 

Floppy Doctor I III . S 24.95 

S 29.95 

Cash Register 80 $ 29 95 



TRS 80 • 
141-001 



221-001 
221-002 
. 21-00 I 
221-004 
221-006 
221-008 
351*001 
351-500 
351-501 
391 001 
391-002 
431-001 
431-101 
511-003 
021-004 
060-601 
060-604 
060-607 
1 160 E ' i 
061-066 



GAMES 

SAVE • MOST GAMES AVA 

- J ack 
le, Morioc's and 
Datestones 
Super Nova 
Galaxy Invasion 
Attack Force 

c Fighter 
Robot Attack 
Stellar Escort 
Scartman (Mod I III) 
Scarfman (color) 
New Bounceoids 
Math-Pak-1 
Math-Pak-2 
Sargon II (Mod I) 

II (Mod III) 
Adventure 
Pigskin 

Adventure «1.2&3 
■ re *4.5&6 
Adventure »7.8A9 
Adventure K10.11&12 
The Mean Checker 
Machine 



ILABLE 

DISK 



FOR APPLE 
. S49 95 



DISK 
DISK 
DISK . 
DISK . 
DISK 
DISK 
DISK . 
CASS 
DISK . 
CASS 
CASS 
DISK . 
DISK . 
DISK . 
DISK . 
DISK . 
DISK 
DISK . 
DISK 



$17 95 
$17 95 
Si 7 95 
$1795 
$17 95 
$17 95 
S1795 
$1795 
S1995 
S14 95 
S14 95 
$29.95 
$34 95 
$29 95 
SI 7 95 
S34 95 
$34 95 
$34 95 
$34 95 



DISK . $1795 




'MICRO DATA SUPPLICS 
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22295 EUCLID AVE. 
EUCLID. OHIO 44II7 
(216)481-1600 
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best Basic to accompany any DOS 
available. 

NEWDOS80 2.0 

NEWDOS80 2.0 is a double-density 
DOS that writes and reads a specific 
disk format differently from the other 
DOSes. The familiar gran for granule 
has been replaced by lumps. What's a 
lump? NEWDOS80's documentation 
doesn't go out of its way to tell you. It 
is definable with the PDRIVE GPL pa- 
rameter, so that there are between two 
and eight granules per lump. You can 
define the granules-per-lump (GPL) 
parameter as eight. Once you do so, 
the DOS's features are about the same 
as in the others. 

NEWDOS80 2.0 will read other 
formats, but they must be configured 
with the PDRIVE (similar to 
MULTIDOS's CONFIG) each time a 
different disk is used, particularly if 
the disks are in different densities. To 
get around this problem, The Alter- 
nate Source sells a program that gives 
NEWDOS80 2.0 automatic density 
recognition. This program is called 
DDSD and costs $19.95. 

One of the examples in the 
PDRIVE section implied that 1 could 
read the directory of a Model III disk. 
I was unable to read the Model III 
disk's directory with NEWDOS80 
2.0. You can, however, copy from a 
Model III TRSDOS disk on a Model I 
with this DOS. 

It will take you longer to get started 
with NEWDOS80 than with the other 
operating systems presented here. This 
is partially due to the manual's techni- 
cal approach, and partially to the ap- 
proach taken by the DOS in its perfor- 
mance of the various functions. All the 
other DOSes allow you to back up a 
disk with the familiar Backup com- 
mand, but NEWDOS80 requires using 
the Copy format. Once learned, 
NEWDOS80's approach is quite use- 
able and powerful. 

NEWDOS80 has a large number 
of library commands. The most not- 
able are: 

• Break — enables and disables the 
break key; 

• Chain and DO— shifts to the disk 
file for command input; 

• JKL — sends the current screen con- 
tents to the printer; 

• HIMEM — sets the top of memory 
from DOS; 

• LC and LCDR — toggles the lower- 
case driver (Model I only); 

• Pause — displays the message and 
pause until enter (for use in DO files); 

• PDRIVE— assigns the default attri- 



butes to a physical disk drive; 

• Print— outputs a text file to the 
printer; 

• R— repeats the last DOS com- 
mand; and 

• Route — routes one device to 
another. 

NEWDOS80 also sports a miniDOS 
not found in the other DOSes. The 
miniDOS allows the execution of DOS 
library commands except Append, 
Chain, Copy, or Format. Since it is in- 
terrupt driven, it can be used from al- 
most any program that keeps inter- 
rupts active and uses the NEWDOS80 
keyboard driver. 

The utilities provided by NEW- 
DOS80 include the ever-popular 
Superzap. It also supplies a patched 
version of Radio Shack's Editor/As- 
sembler and a disassembler. The 
disassembler writes disassembled code 
to disk from where it is loaded by the 
patched assembler. It will also send the 
disassembly to the printer or screen 
and display a cross-reference table. 

LMOffset is a program used primar- 
ily for loading system tapes that over- 
lay the DOS and store them on disk. 
Chainbld is used for the creation and 
editing of Chain or DO files. ASpool is 
a printer spooler. 

NEWDOS80 also sports an en- 
hanced Basic. Enhancements include 
toggling the break key, abbreviated 
line listing and editing commands 
similar to MULTIDOS's SuperBasic. 
Chaining is allowed and the Merge 
command merges non-ASCII files. 
REF displays a reference list of 
variables and line numbers, and can 
specify different outputs in a number 
of ways. 

CMD"F = ERASE" and CMD"F 
= KEEP" allow selective clearing of 
Basic variables, like the MULTIDOS 
SuperBasic CMD"L", only more 
powerful. The first format selectively 
clears a number of variables in a sin- 
gle statement, while the second for- 
mat clears all except the declared vari- 
ables. Some other CMD enhance- 
ments include clearing all Returns 
and For . . . Next loops from the 
stack, dynamic deletion of text lines, 
swapping of variable contents, single- 
stepping Basic, recovering a deleted 
program (providing it hasn't been 
overwritten in memory), and sorting 
arrays. CMD"0" sorts a multidi- 
mensioned array. 

NEWDOS80 has some extensive 
disk I/O enhancements to Basic as 
well. The manual spends 20 pages dis- 
cussing these disk I/O enhancements in 
chapter 8 alone; appendices A and B 



feature 65 more pages on the topic. 

NEWDOS80 handles the standard 
sequential (which they call print/input) 
and random (which they call field 
item). It also handles marked item 
(which has three subtypes) and fixed 
item (which has two subtypes). Ran- 
dom-access files can be of 1-256 bytes 
in fixed length. The fixed time and 
marked item files have a maximum rec- 
ord length of 4,095 bytes. 

Sequential files can only be accessed 
sequentially. That is, if you want to 
read item number 200, you must wade 
through the first 199 items. Random- 
access files can access record number 
200 directly and are more useful and 
powerful. 

In fixed and marked item files, Get 
and Put are used to access data in the 
I/O buffers. The type and length of 
each item is determined by the IGEL 
(item group expression list) of the Get 
and Put for fixed-item files, but in 
marked-item files, the item always be- 
gins with marker bytes, specifying the 
format of the item. Although they are 
initially hard to understand, these new 
file types are quite useful. 

NEWDOS80 is a good DOS. The 
Basic is not as good as MULTIDOS's, 
but it operates well. It has a disassem- 
bler, Superzap, and other powerful 
utilities. Apparat supplies zaps free to 
registered owners and has provided 
good customer support in the past. Un- 
fortunately, it does not have automatic 
density recognition. 

DOSPLUS 3.4 

DOSPLUS comes with the LN Dou- 
bler 5/8. It has automatic density rec- 
ognition, although it cannot read 
DBLDOS format. 

The approach to operating system 
functions took a departure from 
TRSDOS with DOSPLUS. The DIR 
command automatically displays the 
information normally supplied with 
DIR (A) in TRSDOS, and a new com- 
mand, CAT, displays the abbreviated 
directory normally retrieved with DIR 
in TRSDOS. It would be nice if the 
DIR command displayed the number 
of granules left. 

DOSPLUS has an automatic repeat- 
ing, lowercase keyboard driver and 
DO-file capability. The Format com- 
mand works quickly and verifies the 
tracks backwards rather than forwards 
to save time (since the drive head is al- 
ready at the highest track, it needn't 
move back to track 0). DOSPLUS 
Model I and III double-density ver- 
sions are directly compatible, meaning 
that a Model I DOSPLUS disk can be 
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read by a Model III DOSPLUS. This 
does not mean that a Model I 
DOSPLUS can read a Model III 
TRSDOS disk. DOSPLUS does come 
with a Convert command to transfer 
files from a Model III disk to a 
DOSPLUS disk, somewhat like 
NEWDOS80. 

Although DOSPLUS does not have 
a VFU command similar to 
MULTIDOS, Picotrin Technology of 
Lantana, FL markets a DOSPLUS- 
compatible program that provides cur- 
sor-oriented functions. 

The DOSPLUS manual is reason- 
ably well done except for the omission 
of an index. The technical section is 
particularly good in how it describes 
the entry and exit points for the various 
DOS routines and DCB (device control 
blocks). 

The library functions are similar to 
the DOSes previously described. The 
DO construct works well and lets you 
specify in the command the reserved 
high memory for the DO file. 

The DOSPLUS utilities include a 
printer spooler, single-drive copy, 
Crunch (a program that compresses 
Basic programs saved on disk), Disk- 
dump and Diskzap (floppy-disk edi- 
tors similar to Superzap), Map (shows 
file locations on a disk). Restore 
(recovers killed files), Sysgen (creates 
nonstandard system disks). Tape 
(similar to NEWDOS80's LMOffset), 
and Transfer (for multiple file copies 
from one disk to another). 

DOSPLUS enters Basic differently 
than MULTIDOS or NEVYDOS80. 
The Basic is enhanced as well. TRON 
allows you to single-step Basic, and 
Tab tabs on a line printer beyond 64 
columns. You can move and copy Ba- 
sic program lines, and DOSPLUS Ba- 
sic has a large number of abbreviates. 

DOSPLUS also comes with a tiny 
Basic called TBasic. TBasic occupies 
slightly more space than MUL- 
TIDOS's SuperBasic, but has no file 
space allocated. TBasic lacks many of 
the enhancements found in regular 
DOSPLUS Basic, but is useful because 
it will still run the full set of Basic com- 
mands. TBasic displays abbreviated er- 
ror messages in a further attempt to 
free up memory. 

LDOS 5.1 

LDOS recently reduced its price 
from $169 to $129, due to the large vol- 
ume of sales. Registered LDOS users 
receive a quarterly magazine called, 
appropriately enough, The LDOS 
Quarterly, support hard to match. 

LDOS comes with a rather imposing 
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300-plus-page, well-written manual. 
The LDOS manual is the best of the 
DOSes reviewed here. 

In order to make LDOS run with 
double density, you must use the 
PDUBL disk-driver program, which 
sits at the top of memory. This creates 
some real hassles with programs in 
high memory at times. You can use the 
Sysgen command to save the driver 
configuration so it automatically loads 
on boot. Model I users cannot boot up 
on a double-density LDOS disk — it 
must be single density, although you 
may change it to double density after 
the boot, a minor inconvenience. 

LDOS on the Model I will not read a 
Model III TRSDOS disk, although the 
library command CONV can be used 
to transfer files from a Model III 
TRSDOS disk. 

The library commands in LDOS are 
similar to those available in the other 
DOSes. Trace supports and displays 
the PC register in the upper right cor- 
ner of the display, and Filter is similar 
to the Route command on other 
DOSes but better. It establishes a pro- 
gram to filter the I/O path of some de- 
vice. Several filter programs are sup- 
plied with the LDOS disk. 

MINIDOS/FLT is a filter similar to 
NEWDOS80*s miniDOS. In it, you 
can toggle the clock on and off, enter 
Debug, display free space, kill files, 
and so on. A filter for the line printer is 
also provided. 

One of the most powerful features 
of the LDOS operating system is its job 
control language (JCL). A DO or 
Chain option is available for all the 
other DOSes, but a true JCL is lacking. 
The LDOS JCL is actually a compiled 
language. It can handle conditional 
statements and support variables. 
LDOS allows concatenation of vari- 
ables (which they refer to as tokens) 
and logic expressions using NOT, 
AND, and OR. LDOS JCL allows 
macros in its programs. This means 
that you can specify a macro name and 
some complex function will be per- 
formed. 

The JCL feature is a powerful one, 
although it could be made more power- 
ful by adding the ability to direct exe- 
cution of the JCL program on the basis 
of the results of some program. An in- 
teractive control language (ICL) is 
available for NEWDOS80 version I 
and it allows this flexibility. 

One of the utilities includes 
CMDFILE. Similar to NEWDOS80's 
LMOffset but more powerful, this 
program allows appending patches to 
machine code, appending machine- 



code programs together, saving them 
to disk or tape, moving them around in 
memory, and so on. CONV moves files 
from a Model III TRSDOS disk to an 
LDOS disk. Since this program can be 
used by a Model I running double den- 
sity, this provides the only utility to 
move programs from a Model III disk 
to a Model I disk. LCOiMM is a com- 
munications program that allows your 
TRS-80 to talk to other TRS-80 com- 
puters or to bulletin board systems, 
such as Forum 80. Repair updates and 
corrects information on certain types 
of disks to make them useable to 
LDOS. This utility is more useful for 
Model III users than for Model I folks. 

LDOS's enhanced Basic, LBasic, 
has some abbreviations and allows sin- 
gle-stepping of Basic programs. Re- 
store has been updated to allow you to 
specify a line number to start the Re- 
store at. LBasic allows chaining of Ba- 
sic programs without loss of variables. 
LBasic can also sort arrays and provide 
reference information on Basic pro- 
grams. LBasic is good, but in my opin- 
ion, not as good as the Basics in the 
other operating systems. 

LDOS is a good DOS, but there are 
a few minor inconveniences. The Basic 
could be more powerful, and it would 
be helpful if the top of memory was 
free. (PDUBL sits at the top of memo- 
ry if you're using double density.) The 
manual is quite good, and the Filter 
and JCL features make this the 
most powerful microcomputer DOS 
around. Finally, the LDOS support is 
unprecedented in quality and ease for 
the registered user. 

In Summary 

As you can see, all these DOSes have 
their good points. MULTIDOS has its 
low price tag, versatile file utility, no- 
hang ability, virtually total compatibil- 
ity, and the excellent SuperBasic. The 
manual is a bit terse and MULTIDOS 
only checks a read/write four times. 

NEWDOS80 has good utility pro- 
grams like LMOffset, a disassembler, 
and Superzap. The manual, however, 
is lacking a tutorial and NEWDOS80 
needs automatic density recognition. 
DOSPLUS has Diskdump, Diskzap 
and automatic density recognition. 
LDOS has its excellent manual, great 
customer support, very flexible filter- 
ing of I/O, and a powerful JCL. 
Which you choose depends very much 
on your applications. 

The Drives 

A disk drive must be able to move a 
read/write head very precisely to any 



SUPERVENTURE IS HERE! 

An incredible journey awaits you in — 

feuls 
fupat 

A NEW EXPERIENCE 
IN TEXT ADVENTURE! 

As BAZUL, the Royal Runner, you will 
journey through enchanted torests, hidden 
caves, dismal swamps, and magical lands. 
Your mission? To recover 26 rare ingredi- 
ents for a healing potion— the only cure for 
the deathly ill King Rifraf. Can you save the 
Kingdom, or will it fall under the control of 
the Evil Jester? Machine Language, Save- 
a-Game Feature, Over 400 Word Vocab- 
ulary. Will boot on Model III. Requires 1 
disk drive and 32K. 

(Soon available for Model I) 



$29.95 




P. O. Box 502 
Florence, Alabama 35631 
(205) 766-0030 ^94 



TRS— SO — > I BM F*C i 

TRIX is an 8086 program which 
read* TRS-S0 Modal III disks 
and writes any i lis to an IBM 
PC disk while operating under 
PC-DOS on an IBM PC. Just put 
your Mod III diskette into an 
IBM PC and copy your files. 
Many TRS-80 BASIC programs 
will run immediately on the 
PC! 
TRIX on PC DOS Disk S99.93 



Bl_ Z MK I NO F" I ELDS ! 

BLINKS-IT is a BASIC program 
which can easily be merged 
into any TRS-80 Mod I or 1 1 1 
BASIC program. Using machine 
language it will blink any 
■field or combination of fields 
on thm TRS-SO screen at any 
rate from 1 to 30 times per 
second. BLINKS- IT on Mod I or 
III disk S49.9S 

LAST CHANCE SALE ! CLOSE OUT ! i 

•90,000 WORDS ! 

WORD GRINDER is an ASCII dic- 
tionary in alphabetical order 
of 90,000 words. Great for 
proof-readers, word games, 
etc. Over 1 Megabyte of ASCII 
files. Distributed on various 
media. Supplied on 14 Mod I 
Disks or 7 Mod III disks. WORD 
GRINDER. From 9125.00 

VISA JOE COMPUTER M/C 

22458 VENTURA BLVD. Ste. E 
WOODLAND HILLS CALIF. 91364 ^ 256 
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COLOR COMPUTER 
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BUSINESS & HOME 
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SOFTWARE 
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■* 


50 CASSETTES ONLY $8.95-$29.95 


* 


* 


that will knock your 




* 


* 


•MAINFRAME" out 




* 




FREE CATALOG 




* 
* 
* 


+ 


(Specify for TRS-80 Color Corr 


puter) 


* 


Including- 




*■ 
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THE ACCOUNTANT 


$29.95 




* 


THE BILLING SOLVER 


$19.95 


* 


* 
* 


THE CLIENT TICKLER 


$19.95 


» 


BUSINESS INVENTORY 


$18.95 




♦ 


THE BIDDER 


$14.95 


* 


« 


DEAR DIARY 


$12.95 


* 




THE TICKER TAPE 


$16.95 




* 


THE MAILMAN 


$13.95 


* 


* 


VICKY-CALC. 


$12.95 


* 




THE INVESTMENT ANALYST 


$12.95 


» 
»■ 


* 


THE PHONE DIRECTORY 


$9.95 


* 


CHECKBOOK BOOKY 


$12.95 


* 




THE BUDGETER 


$15.95 


* 




SUPER SHOPPER 


$12 95 


* 


JOGGERS LOGGER 


$12.95 


* 


* 


LIGHTENING SORT 


$14.95 


*• 




THE INCOME AND EXPENSER 


$14.95 




« 


MEDICAL RECORDS 


$14.95 


* 


* 


and many more. . 




* 
* 


* 
♦ 
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TSASA, INC. 




* 
* 
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2 CHIPLEY RUN 




» 


* 


WEST BERLIN, N.J. 08091 


* 


* 


(609) 346-3063 
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* 




"MIGHTY T TO THE RESCUE " 
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UNITED SOFTWARE ASSOCIATES 

734 FLAMINGO WAY 

NO. PALM BEACH, FL 33408 

(305) 845-4606 (305) 965-3496 



ULTRA TERM 

COMMUNICATIONS SYSTEM 

Ultra Term includes both a full fea- 
tured intelligent terminal program, 
and a self relocating host program, 
at prices one half to one third of 
the competitors'. 

* Exclusive direct to disk file 
transfer capability permits full 
control from the transmitting 
computer, so no one is required 
at the receiving computer. 

* Unique split screen feature allow: 
simultaneous two way communicat io 
eliminating the confusion caused 
by incoming text mixing with what 
you are typing. 

* Supports auto dial modems with an 
easy to use telephone directory. 

Requires Model 1 or 3 with 16K, one 
disk drive, RS-232 port, and modem. 

Regular price: $79.95 
USA Special price: S59.95 



^M 



CO-DIR 

CURSOR ORIENTED DIRECTORY 

YOUR DOS CONTROLS YOUR FILES, 
LET CO-DIR CONTROL YOUR DOS! 

CO-DIR 2.0 is a utility that 
allows file manipulation and DOS 
command execution from a directory 
display with only one or two key 
strokes. You can scroll through 
the directory with the arrow keys 
like a word processor. CO-DIR 2.0 
is not a program you will use only 
once, since any DOS command can be 
entered faster and easier using 
CO-DIR. Dos commands available 
from CO-DIR include Execute 
program, Copy, Chain/Do, 
Directory, Free, Kill, List, Load, 
Print and Rename. 

CO-DIR requires Newdos-80 or 
DOSPLUS with Cat command. 
(Specify DOS and Model) 

Regular price: $49.95 
USA special price: $39.95 





INFOEX-80 

BULLETIN BOARD SYSTEM 



This package contains all the 
software necessary to setup and 
operate a Bulletin Board System 
(BBS). The system will auto- 
matically answer phone calls, 
print a welcome message, ask for 
the callers name and location, and 
prints bulletins or advertise- 
ments. The system then allows the 
caller to leave messages for other 
callers, and read or delete 
messages addressed to them. The 
system supports downloading of 
program and text files, and has a 
chat mode to allow the caller to 
type directly to the System 
Operator (SYSOP ) . 

Requires TRS-80 Model 3 (or Model 
1 with a double density adapter), 
two disk drives, 32K RAM, an 
RS-232 interface, and any auto 
answer modem. 

Regular price: $149.95 
USA special price: $99.95 



DEALER INQUIRIES INVITED - ACCEPTING SOFTWARE FOR REVIEW 



24 HOUR BBS ON LINE AT 305-965-1044 



• See List of Advertisers on Page 451 
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location and rotate the disk within pre- 
cise limits so that address marks and 
data can be accurately located. The 
drive speed is supposed to be 300 rpm. 
Most drive manufacturers say that a 
one-percent variation in drive speed is 
tolerable, and often a precisely adjust- 
ed drive will still vary within ± one per- 
cent of 300 rpm. 

Older minifloppy disk drives had 
35 tracks and wrote only in single 
density. Technology has improved, 
and now 80 and even 96-track 
minifloppy drives are available in 
single or in double density. 

I was hoping to find differences in 
reliability of the brand new drives un- 
der severe stress- testing conditions. As 
long as I kept below the upper limit of 
the speed of the stepping motor of the 
drive, I was unable, generally, to get 
any errors in these drives. 1 could find 
no clear-cut reliability differences 
among the various drives, so it was im- 
possible to statistically investigate the 
presence or absence of an interaction 
of effects due to the disk controller 
used. I did, however, discover dif- 
ferences in their operation. The 
drives I reviewed are: Percom model 
TFD 100-1, PMC model SFD-51-A, 
Teac, and Trak model 5410-121. 



The Percom is the only one of these 
drives that is flippy, meaning that you 
can remove the disk from the drive, 
flip it over, and reinsert it into the drive 
and write to the other side of the disk. 
This effectively doubles the amount of 
storage you have in your disk library. 
The Percom drive also has the drive- 
cable card extending out from the rear 
of the machine, so it is easily accessible 
without removing the case, a nice fea- 
ture. It has a stepping-motor speed that 
allows you to seek tracks at 12 millisec- 
onds. This is faster than the Teac (at 30 
ms) and my Pertecs (at 20 ms), but 
slower than the PMC and the Trak 
(both at 5 ms). The list price of the Per- 
com drive is $305. 

The PMC drive also has the drive- 
cable card extending out the rear of the 
drive. It has a fast- stepping motor with 
5-ms track seeking. It allows writing 
only to one side of the disk. 

The Teac drive was the slowest of 
the bunch, requiring a minimum of 30 
ms to seek a track. In order to change 
the drive cable, you must remove the 
cover. The card for the drive is incon- 
veniently spaced, meaning the drives 
must be slightly closer than recom- 
mended by Radio Shack when using 
their four-drive cable. The Teac drive I 



used was loaned to me by American 
Business Computers. They give their 
Teac drives a one-year warranty. All 
the other disk drives were loaned by the 
manufacturer. 

The Trak drive was another fast 
drive, requiring only 5 ms to seek a 
track. The card for the drive cable was 
even more inaccessible than the Teac 
drive, and to use it with the four-drive 
cable, it requires you to run the drive 
with the cover removed, use the last 
connector on the cable, or use a disk- 
drive extender cable, which costs about 
$10. It came with a single-drive cable 
already connected to it, so single-drive 
users won't need to get a cable when 
purchasing this drive. A nice feature of 
this drive is the disks are spring loaded. 
When you wish to remove a disk, you 
open the drive door and the disk 
springs out a half inch or so for easy 
removal. This is also the only drive 
with a power-on light as well as a drive- 
busy light. 

The disk drives all worked reliably. I 
prefer the Percom drives because of 
the easy cable hook-up and relatively 
fast operation, but primarily because it 
was flippy. Nonetheless, all the drives 
worked well and deserve a recommen- 
dation. ■ 




LEVEL IV PRDDULT5. INC. 
PREMIUM GRADE TR5-8D® 

LEVEL IV MEANS, I VALUE I QUALITY I SERVICE I SUPPORT 




BUILDINS A PREMIUM ORABS COMPUTE A II A CLAIM FEW COMPANIES CAN MAKE, 
AND EVEN PEHSR CAN BACKUP. ME OO IT EVERY BAY. EACH LEVEL IV MOD III 
IB CAREFULLY ABBENBLEB FROM PRS-TEBTEB COMPONENTS OP THE MIBHEBT 
BUALITV. ANB TBBTEB FOR PERFORMANCE TO A LEVEL FAR ABOVE THAT FOR 
HHICH IT NAB ORIBINALLV BEBIBNEB. AFTER BURN-IM, EACH UNIT IB 
BELIVERED WITH THE FAHOUB LEVEL IV BIX MONTH LIMITED PARTS ANB LABOR 
WARRANTY (COPIES ARE AVAILABLE ON REBUESTI. 



A LEVEL IV NOB III IB 
ROUNTAIN OF SOFTWARE AN 
THAT MORNS ON 
OURS. 



BEBIBNEB TO BE COMPLETELY COMPATIBLE WITH THE 
TMARE ANB HARBMARE READILY AVAILABLE FOR IT. ANY ITER 
OR ATTACHES TO, A BTANDARB HOB III HILL FUNCTION MITH 



CONBIBER THE FOLLOMINS OPTIONS TO ENHANCE YOUR MOD III 
M...SIMSLE OR DOUBLE HEAD, 40 OR BO TRACK BR1VEB 
2I...EIBHT INCH 81NSLE OR DOUBLE HEAB DRIVES 
3).. .M1NCHSBTER A. 4 OR 14. S MSB DRIVES 

4I...B.1 MEBAHERTZ CPU CLOCK BPEEB (SUPER FAST CDMPUT1HS> 
S>.. .MULT 1 -USER /MULT I -TASK INS CAPABILITY, (A4 TERMINALS) 
41... BO COLUMN BY 24 LINE DISPLAY, A4K RAM 
7>...CP/R CAPABILITY, RUNS STANDARD CP/N PROSRANB 

BUILB1NS A HOB III CAPABLE OF THE ABOVE CERTAINLY HAKES IT A PREMIUM 
BRABE UNIT, BUT THE MOST IMPORTANT THINS HE OFFER IS AFTER-THE-SALE 
SERVICE ANB SUPPORT. 



ST—E LSESTIBHS 



HHIL RH» PRRRE OROER EERIER 
SZ*Z* SCRRRLERRTT MM 
LIVRHXH. I1XEHXSRR *I1S0 

COMPUTE! SRLES CERTER 
IK MWTH ZOTH STKET 
■OTTLE UEEK. HI 11D15 

FULL LIRE R/S SsS.ES CENT El 
IS* SMITH riHHT STREET 
EIRE. niCRXSRH 1*0*7 



DESK TOP 

COMPUTER 

SYSTEMS 



HON FOR THE SURPRISE, OUR 4BK 2-BRIVE UNIT, SELLS FOR ONL 
REMEHBER LEVEL IV MEANS. 'VALUE •BUALITV •SERVICE •SUPPOR 
SOME NAY BET CLOSE TO OUR PRICES, BUT NONE HILL HATCH OUR 



;$1699 



1 
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The Easy MANHATTAN Way To Handle 
EXPENSES, LISTS & MAILINGS 

EXPENSE LEDGER — Rles entries and generates 
reports on business or personal expenses. Sorts by date, 
finds and displays on-screen or prints out all expenses, 
month summary, or selection by payee, purpose or 
category. 15 categories assigned by user, displayed on 
screen when entering, editing or deleting. 48K version 
holds 470 entries. 32K holds 200 — use for year, 
quarter or month. $35. 

MAIL LIST MANAGER — Holds 1 ,000 names and 
addresses in 48K two-disk version or 400 in one-disk 
32K version. Sorts by zip code or name [lightning fast in 
machine code], prints labels one-up or two-up, selectable 
by any combination of user-entered Print Key or 
geographic area. Prints full list in notebook format. Two- 
disk version $50, one-disk $45. 

DISK LISTMAKER — User-friendly simple database, 
holds 1 ,000 names or items plus 5-digit codes in 48K. 
500 in 32K. Displays on-screen and prints out lists and 
sub-lists. Full editing, sorts by name. Disk version of 
original cassette program in use by schools, real estate 
firms, many individuals. $20. 

For Models I or III [with DOS conversion] 

Write for full catalog of disk & cassette programs 

California residents add 6% tax 

MANHATTAN SOFTWARE 

Box 1 063, Woodland Hills, CA 91 365 ^ 259 
24-hour Visa/MC Order Line [21 3] 704-8495 



MICRO 

MOONLIGHTER 

NEWSLETTER 

The ONLY publication devoted exclusive- 
ly to helping you create, build, and main- 
tain a home-based business using your 
micro-system. SUBSCRIBE NOW to what 
may be the most important publication in 
YOUR FUTURE! 

1 Year (12 issues) only $25 U.S., $29 
Canada, $35 World Wide 

J. Norman Goode, Publisher 
Micro Moonlighter Newsletter 

21 15-D Bernard Avenue • Nashville. TN 37212 
Visa and Mastercard welcome. Send account 
number and expiration date. 615-297-5106. 

D Visa Acct # Exp 

D M/C Acct # Exp 

Name 



Address. 
City 



St. 



Zip 



• 270 



Communicate ! 

FILE TRANSFERS 

8c TERMINAL EMULATION 

LYNC is THE choice of professionals for communications between com- 
puters. They choose LYNC because of its many powerful capabilities, its ease 
of use, and it works on many different computers. They use LYNC to transfer 
program or data files between computers, and to take advantage of the many 
features offered by the Source and other large-data base systems. LYNC's 
unique closed-loop error detection and correction protocol gives profes- 
sionals the assurance that their data is getting across without being lost or 
garbled. Computer communications is the wave of the future, and if you are 
ready for the future, LYNC is here NOW. 

E/LYNC: $45 

Send and receive ANY type of files between your computer and another 
computer running LYNC or E/LYNC. File transfers are done using the 
exclusive LYNC closed-loop protocol. E/LYNC also has a Terminal Emula- 
tion mode for connecting with large time-sharing database systems or re- 
mote bulletin board services. E/LYNC can be upgraded to LYNC for $30. 

LYNC: $75 

This version of LYNC is exclusively for owners of the TRS-80 Model I & III. 
In addition to the features of E/LYNC. LYNC allows the user to fetch files 
from the remote computer and use multiple file names when sending or 
fetching. In the Terminal Mode you can send data files to the remote com- 
puter and store received data to disk files. 

LYNC is also available for CP/M systems and IBM PC systems for $125. 




LICENSING: E/LYNC and LYNC are licensed on a per user 
basis. If you intend to use E/LYNC or LYNC to communicate 
with another person, they must also purchase E/LYNC or LYNC. 
Vrrsions for CPM are written in Z-80 assembly language. Ver- 
sions for IBM PC are written in IBM 8088 assembly language, 
and require PC DOS. 

AVAILABLE DISK FORMATS: TRS-80 Mod I Ic III. TRS-80 
Mod II with CPM. 8" standard. IBM PC Vector Graphic. 
Cromenco. North Star. Osborne. Xerox 820 (8" £ 5"). NLS 
KayPro. SuperBrain, TeleVideo. 

TERMS: Money Order. Check. C.O.D.. MC or Visa. First Class 
Shipping Included. LPS Blue add S3. C.O.D. add $5. CA res. add 
b', . Overseas Airmail add $6. Manual Only. $10 (Specify Com- 
puter). 

PHONE ORDER DESK 

TECHNICAL HOT LINE 

(805) 966-3077 

10 am-4 pm PST Monday - Friday 



(805) 966-3077 



INTERNATIONAL SOFTWARE ALLIANCE 

1835 Mission Ridge Road Santa Barbara, CA 93103 

Kl.in.irLs ..I Midnight Software cp/M is j trademark »t Digital Reseat. 



1Y\( & E/LYNC 



• 516 
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Fun For The Holidays With 



DEMISE 




By Case from Acorn 
Shoot down the enemy ships which are coming— and 
firing — at you. After obliterating them all. you must 
carefully navigate a tunnel before you are in the clear. 
You can move your ship left, right, up. down and 
diagonally, your weapons include a laser cannon and 
"smart bombs" that render all ships on the screen im- 
potent You start with 5 ships and get another ship 
and "smart bomb" for each 10,000 points. 3 levels of 
play; great sound effects. 
16K Tape or Disk, $19.95 




SPACE ROCKS 

By Steven Kearns from Acorn 

Gigantic antimatter rocks appear on the Tactical 

Display Screen of your spacecraft. You blast away 

with lasers and they just explode into smaller chunks. 

To score m this fast arcade game with sound , you 

must destroy the rocks. To stay in the game at all. you 

must avoid them! 

16K Tape or Disk. $19.95 



KING 
OF THE 
JUNGLE 

By Vandewalle from Acorn 

An unusual combination of fast pinball action plus 

the challenges and dangers of an arcade game. 

Keep the ball m play, scoring points as it caroms 

from obstacle to obstacle, while wandering through 

the jungle searching for the hidden crown. And try to 

avoid the deadly Cobra. Lots of action, sound and 

fun! Choice of 3 screens. Can be used with Trisstick 

joystick. 

16K Tape or Disk, $19.95 




EVADE 




By Knight from Acorn 
You're in charge of the USS Krestan, an interstellar 
tri-shlp. If you defeat the enemy aliens you en- 
counter, you get a chance to earn extra points by 
successfully docking with a larger ship. Than come 
the evil Malicians and dangerous meteor showers. 
Never a dull moment with this one! 

16K Tape or Disk, $19.95 




ENEMY 
EVASION 

By Raul Rivera from Acorn 

An original fast-paced arcade style game requiring 
quick mental and physical reflexes. You must control 
your Rover to avoid oncoming Rovelan Ramcraft. You 
gain points for each successful pass through the 
"death lanes", but the Ramcraft speed increases as 
you play. If you reach the double bonus mode, watch 
out for the land pellets they drop! Joystick 
compatible. 

32K Disk, $19.95 




ASTROBAUL 



By John Allen from Acorn 

Once you load ASTROBALL into your TRS-80. the ar- 
row keys become flipper buttons, the screen becomes 
the play board, and you become the "Pinball Wizard'" 
A flying saucer, spaceships, meteors, and black holes 
add to the fun as your bail realistically zings around 
the board. Five skill levels. 
16K Tape or Disk, $19.95 



Al»o available: 




PINBALL: The all-time favorite 

16K Tape, $14.95 
16K Disk, $20.95 




TENPINS 

By John Allen from Acorn 

TENPINS brings you all the thrills of championship 
bowling. Up to 4 players participate, and the program 
automatically senses the skill of each. Beginners can 
position the ball and "roll" it, while more skilled 
players can vary the force, roll a curve and cause the 
ball to spin as it heads for the pins. PLUS 3-D graphics 
and sound effects— realistic and challenging.! 
16K Tape, $14.95 
32K Disk, $20.95 




Also available: 

BASKETBALL: y«j'« na*» to /» tasti 

16K Tape, $14.95 32K Disk, $20.95 



CATERPILLAR 




From Soft Sector Marketing 
This is the fast-action arcade game you've been 
waiting to play at home! You must hit mushrooms and 
caterpillars— segment by segment— moths and tum- 
ble bugs The challenges: they are all moving; when hit 
they split into additional segments or metamorphose 
into different shapes; when you destroy a caterpillar, 
the new one that replaces it is a segment fongar than 
the original! 

16K Tape, $15.95/^\ 32K Disk, $19.95 




j*»*. -. 



OUTHOUSE 



From Soft Sector 
Isn't there anywhara that's safe these days? Now 
they're Invading the OUTHOUSE, trying to steal the 
paper supply. But watch out . . . when the paper Is 
gone, so an you!!! If that's not enough, they're fir- 
ing at you from the sky! With sound; disk version 
"talks". Joystick compatible. 
16K Tape, $15.95 
32K Disk, $19.95 



SKY SWEEP 




By Mark Barlow from Soft Sector 
You are flying above an ever-changing terrain, with 
only your skill, speed, and maybe a little luck to help 
you avoid the missiles and gunfire coming at you. If 
you succeed, you must enter an ominous cave 
where mora dangar awaits you. Not for the timid. 

16K Tape, $15.95 
32K Disk, $19.95 



FORTRESS 




By Larry Ashmun from Soft Sector 
You are in charge of a massive fortress. Your main 
priority is to defend it against alien attackers. With 
your protection and firepower, fending off the first 
attackers is like swatting flies— but lutt wait! 

16K Tape, $15.95 32K Disk, $19.95 

Coming Soon: 

CHICKEN: Fatt action; Iota of squawking! 

16K Tape, $29.95 



Over 1 500 Programs for TRS-80, 



For Information Call 
202-363-9797 

Visit our other stores: 

829 Bethel Rd.. Columbus OH 

Seven Comers Center, Falls Church, VA 

W. Bell Plaza, 6600 Security Blvd.. Baltimore MD 



Taa\\ 

PROGRRm 
/T0ft€™ 



ATARI 400/800, APPLE & IBM. 



To O rder Call Toll - Free 
3J 800-424-273Sggfr| 



MAIL ORDERS: Send check or MO lor total purchase 
price, plus S2.00 postage & handling. D.C.. MD. & VA: add 
sales lax. Charge cards: include all embossed information 
on the card. 



4200 Wisconsin Avenue, NW, Dept. 8E212 Box 9609 Washington, D.C. 20016 
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ARMORED 
PATROL 




By Westmoreland & Gilman Iron Adventure 
As commander of a lumbenng T-36 tank you have the 
drepower to destroy the enemy— it you can find them 
They may be hiding behind the houses scattered about, 
the bleak terrain and your only view is thru the drivers 
port (your screen* Impressive animation in this arcade 



16K Tape, $19.95 



32K Disk, $24.95 




STARFIGHTER 



By Sparky Starks from Adventure Int 
As mercenary and galactic police officer, you must 
maintain the condition and control of all parts of your 
spacecraft You sit at the controls while peering out of 
the digital spaceview port Suddenly something appears 
on your screen: is it a Starpirate or a friendly merchant 
ship'' You can't tell yet. and at this speed you may have 
only a fraction of a second to maKe an attack/no attack 
decision. 

16K Tape, $24.95 32K Disk, $29.95 



SEA 

DRAGON 




By Westmoreland & Gilman from Adventure 
Underwater adventure is yours as you command a 
nuclear sub armed with deadly missiles and 
torpedoes Guide it carefully through sea mines and 
underwater mountains, watch out lor depth charges 
being fired by overhead ships . . . and don't run out of 
air 1 Scrolling sea bottom for added excitement 
Joystick compatible. 
16K Tape. $19.95 
32K Disk, $24.95 



ELIMINATOR 




By Westmoreland 4 Gilman from A.I. 
You'll need all your keyboard manipulative skills to keep 
up with the action m mis arcade game You travel across 
the planet's low-altitude airspace in an effort to prevent 
the marauding enemy from capturing your energizer 
cells. All manner of alien craft await your arrival with 
destructive forces. For 1 or 2 players, with sound. 

16K Tape, $19.95 32K Disk, $24.95 



STRIKE 
FORCE 




From Melbourne House 
You are the warrior-savior of cities under relentless 
alien attack. You're armed with rapid-fire missiles, 
radar and Incendiary star-shells; but you'll need your 
fastest thinking and Instantaneous response to pro- 
tect yourself and your people Great realtime 
graphics' 

16K Tape, $15.95 32K Disk, $19.95 



PENETRATOR 




From Melbourne House 
Armed with missiles and bombs you must lly your 
fighter to the enemy s cache of neutron bombs and 
destroy them Your mission is in lour stages, involving 
rugged terrain, caverns and manmade obstacles— not 
to mention enemy radar missiles and paratroopers This 
new departure m arcade gaming allows you to set up 
you' own terrain and enemy emplacements then save 
them tor future use Make your mission as hard or easy 
as you like Joystick compatible 

16K Tape or 32K Disk, $24.95 



PANIK 




By Demas from Fantastic 

An arcade style game of a fascinating future world 
with high-res graphics and vole* Filled with action 
and excitement; In machine language 

16K Tape, $19.95 32K Disk, $24.95 



VENTURE 




By Phillip Case from Horizons 

Set off on a lourney Into the stronghold of an ancient 

wizard Danger Is everywhere, and the penalty for a 

mistake may be complete destruction! The ultimate 

challenge lies in the forbidden Riddle Room— are you 

ready for the VENTURE? With sound effects; Joystick 

compatible. 

16K Tape, $14.95 16K Disk, $19.95 



DEFENSE 
COMMAND 




By Hogue 4 Konyu from Big Five 
You are the lone defender of 10 Krotnium fuel cells 
essential for the survival of the planet Aliens swoop 
down from above to steal the fuel, it's your job to destroy 
them You can still save the cells after a raid, but you 
must shoot the alien and simultaneously move under 
the cell to catch it If ttxngs look bad you can set off one 
of your 4 antimatter bombs and destroy all enemies on 
the screen 1 Arcade fun with action and sound. Joystick 
compatible 

1 6K Tape, $lfe9S~ 32K Disk, %}&9X 

Now Thru Dec. 10: Tape $14.36; Disk $17.96 



STELLAR 
ESCORT 




By Jeff Zinn from B«g Five 

This new arcade game from Big Five continues their 
tradition of bringing you the most exciting action in 
innovative space games Your fighting spacecraft must 
run the gauntlet of the attacking alien's weaponry in 
order to accomplish your defense mission You'll use all 
your skill and dexterity |ust to survive! Joystick 
compatible. 

16K Tape, £1*9$ 32K Disk,***? 

Now Thru Dec. 10: Tape $14.36: Disk $17.96 



ROBOT 

ATTACK 




By Hogue & Konyu from Big-Five 

One of the top names in TR&60 arcade games adds a 

new dimension, voice sound effects' It s you against the 

robots in this fast-moving shoot-em-up Electrified 

Mazes and the "Flagship" complicate things as you 

stalk the evil androids 

The innovations built into ROBOT ATTACK take your 

TRS80 near the limits of its capabilities. You MUST see 

and hear it! Joystick compatible. 

16K Tape, S463S 32K Disk, $J*9S 

Now Thru Dec. 10: Tape $14.36; Disk $17.96 

Four From Big-Five 

By Hogue & Konyu 

COSMIC FIGHTER 

GALAXY INVASION 

METEOR MISSION 2 

ATTACK FORCE! 

Each: 

16K Tape, $0*95" 32K Disk, U&9* 

Now Thru Dec. 10: Tape $14.36; Disk $17.96 
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Adventures in Learning, 



. 




LANGUAGE 
TEACHER 

By Cindy and Andrew Bartorillo from Acorn 
Learn the basics of a foreign language. LANGUAGE 
TEACHER offers hundreds of word combinations, verb 
conjugations and phrases There is an option for hav- 
ing multiple-choice answers and for being retested on 
missed items. Full printer capability and a great deal 
of "human engineering" further enhance the programs. 
Teachers will appreciate the ample documentation 
and the ability to get printouts of quizzes. Currently 
available languages are: French, Spanish, Italian and 
German. 

32K Disk, $29.95 for each program. 



YOUR 
FAMILY TREE 




By Chuck Acree from Acorn 

This comprehensive genealogical program sets up a 
database to display/print a complete "pedigree" for 
any family member or feneration chart. Includes 
name, date and place of birth, marriage and death 
Information, and comment line for each. Also displays 
a US outline map showing migration across the 
country. 

16K Tape or Disk, $29.95 




MONEY 
MANAGER 

By Andrew P. Bartorillo from Acorn 

A complete management tool for the home budget, it 

keeps track of your checkbook and provides for easy 

budget allocation You can store inlormation on up 

to 100 checkbook entries per month (250 with 48K), 

specify automatic withdrawals, keep records of tax 

deductibles, record expenses by category, even 

break up charge account payments into the proper 

categories. 

32K Disk, $39.95 

VISICALC HOME AND 
OFFICE COMPANION 

By Castlewitz and Chisausky from 

Osborne/McGrawHill 
Fifty VisiCalc models for home and office, including 
investments inventory, sales forecasts, payroll, per 
sonal nel worth, home budget planning, family in 
surance needs Each comes with model listings. 
sample printed reports and narrative 
A mutt for ovary VisiCalc ownar! 

Softcover, $15.99 



:>■ 



TYPING 
TUTOR 




By Ainsworth & Baker from Microsoft 
Speed up your programming and word processing with 
this excellent touch-typing Instructional program. 
Divided into two sections, the program first teaches 
proper finger positioning. You practice keying various 
characters, the program adding new ones as you 
progress In the practice paragraph section, you are 
evaluated for accuracy and rated in words per minute. 
The program continuously adjusts to your increasing 
skill, telling you which characters you miss and where 
you are slow. One of the most practical programs we 
know of for TRS-80. 

16K Tape, $19.95 (Model I only) 



POWER 
DRAW 




By Kim Watt from Powersoft 
A graphic screen editor that works with all major 
operating systems. Special features: graphics and 
text may be intermixed; screen may be saved to 
available memory buffers, buffers may be saved to 
tape or disk in 6 formats, single and double width 
video are supported. With trace mode to constantly 
display cursor positioning: grid mode to aid in cen- 
tering figures on screen Alpha joystick compatible. 
Disk, $39.95 

INSTANT 

SORT/SEARCH 

DATABASE 

By G. Hatton From Acorn 

A database program that allows the user to store a 
large number of files in the form of lists, and pro- 
vides the user a means to retrieve specific items of 
information from the file. Written in machine lan- 
guage. ISS can provide a multitude of sorts, sub- 
sorts, searches and categorizations in seconds. Be- 
cause the processing is done in memory, it is ex- 
tremely fast, and you can manipulate the data at will 
without risk to your database on tape or disk. (If fur- 
ther information is required, please call or write.) 

16K Tape or 32 K Disk, $49.95 
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NOW 
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Over 1 500 Programs for TRS-80, 



For Information Call 
202-363-9797 

Visit our other stores. 

829 Bethel Rd.. Columbus OH 

Seven Corners Center. Falls Church. VA 

W. Bell Plaza. 6600 Security Blvd., Baltimore MO 
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LDOS 



From Lobo 

An advanced operating system that offers benefits to 
everyone from novice to advanced system program- 
mers. LDOS comes with one of the most complete and 
well written documentation books ever, with easy-to- 
follow instructions to get started plus a wealth of 
advanced information for when you need it. 
Completely device independent, LDOS provides for 
routing, linking, setting, and filtering of the 
input/output of a number of peripherals. Up to eight 
disk drives are supported in almost any mixture: 5', 8", 
single/double density, up to 80 tracks, even hard disks. 

Endorsed by Radio Shack. 
Disk with Manual, $129.00 
Please specify Model I or III. 



B Box of 10 Diskettes 
• with each LDOS order! 



Please state choice of: 

Memorex, BASF, Nashua, Leading Edge, Athena, 3M. 
Otter ends Dec. 25, 1982. 



FINEFONT 



By Vincent Bly from Acorn 

Now Epson owners can have Uu» Ittfrqutlity print- 
ing with FINEFONT at 10. 11, or 12 characters per 



Finc^ont and Epson 



With boldface, underlining and incremental spacing 
(for proportional right justification). 32 special char- 
acters Including those needed for mathematics, 
plus a graphic editor to erect* or edit character sets. 
It supports all Epson print modes, and is compatible 
with word processors including Model I SCRIPSIT 
with SUPERSCRIPT, Model III SCRIPSIT, and Lazy 
Writer (Model I, III). Print speed is approx 20 CPS, 
unidirectionally. It's compatible with most DOS's in- 
cluding LDOS 5.1, TRSDOS, NEWDOS/80 Ver 2.0 
Requires following Epson printers: MX-80; MX-80 
F/T with Graftrax-80 or Graftrax-plus; MX-100 with 
Graftrax-plus only 

Requires 48K Disk, $49.95 




8y Richard Wilkes from Acorn 

Using your Superscript modified Scripsit Word Pro- 
cessor and a compatible printer, you can now 
underline, boldface, insert text during printout, slash 
zeros, set type pitch, subscript and, of course, 
superscript! You can even read your directory and kill 
files without ever leaving Scripsit. 
Superscript comes with drivers tor popular serial and 
parallel printers (now including Centronics 737 and 
RS Daisy II), and easy instructions for patching to 
your Scripsit program (does not include Scripsit) 

32K Disk, $49.95 Use Model I Scripsit 



ATARI 400/800, APPLE & IBM. 



Y 



To O rder Call Toll- Free 

T£" 800-424-2738 fcfr 



MAIL ORDERS: Send check or MO. lor total purchase 
price, plus S2.00 postage & handling. D.C.. MD. & VA add 
sales tax. Charge cards: include all embossed information 
on the card. 



4200 Wisconsin Avenue, NW, Dept.8E212 Box 9609 Washington, D.C. 20016 
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Excitement and Fantasy 



72Rs 

PROGRflm 

/to«€. 



HELLFIRE 
WARRIOR 




From Epyx 

This sequel to TEMPLE OF APSHAI gives you 4 new 
levels of dunjons with $0 rooms each! You'll find 
giant Insects, skeletons, ghouls, mummies, dragons 
and bottomless pits. Can you conquer them and res- 
cue the Warrior Maid Brunhild to break the spell that 
binds her? 
16K Tape or 32K Disk, $39.95 

Expansion Modules for HELLFIRE WARRIOR (You 
must have HELLFIRE WARRIOR to play): 
THE KEYS OF ACHERON: Find the 4 jewels 
with the help of a friendly unicorn. 
DANGER IN DRINDISTI: Defeat the king's ene- 
mies in over 100 caverns and chambers. 

Each Module: 
16K Tape or 
32K Disk, $19.95 



Warriors 
of RAS 




By Masteller from Med Systems 
In this adventure/role playing series, you create the 
characters, and can save them for future games, or use 
them in other volumes of the series. 

DUNZHIN, Vol. 1 

You're in a many-level dungeon filled with demons and 
goblins. 

KAIV, Vol. 2 

Can you find the treasure buried deep within the 
catacombs of the KAIV? 

THE WYI.DE, Vol. 3 

The newest in this fascinating series. 

Each Volume: 

48K Tape or Disk; $29.95 



ASYLUM 




MS- 

From Med Systems " Mv 

You are sitting alone at 2 AM. Your eyes are bloodshot 

as you peer into your computer's screen and cry, "l 

must be CRAZY'" If this has never happened to you, 

you've never tried ASYLUM It's Med Systems most 

ambitious 3-D graphics adventure yet' 

ASYLUM places you on a cot in a small (padded?) 

room Periodically the janitor lobs a hand grenade 

through the window What you do next could mean 

escape— or disaster. 

16K Tape, $19.95 32K Disk, $22.95 



ASYLUM II Nov 

16K Tape, $19.95 



able: 

32K Disk, $22.95 



Also order DEATHMAZE 5000, 

Med System's challenging 3-D maze game. 

1 6K Tape, $1 4.95 32K Disk, $1 9.95 



TANK 
ARCADE 




From Avalon HIM 

Fast-paced t or 2 player game with classic arcade 
action and battlefield strategy. You must predetermine 
how many hits it will take to wipe out your opponents, 
and then do HI The battlefield changes randomly after 
each game. 

16K Tape, $14.95 



SHOOTOUT 

AT THE 

OK GALAXY 




From Avalon Hill 

This exciting new game requires <ast arcade response 

and well thought-out strategy Thirty alien warships 

have entered your Patrol Zone— can you handle your 

defense 9 Are your shields up' Have you checked your 

energy level - ' Is your azimuth set? OK then Good 

Luck.' 

16K Tape, $19.95 



VOYAGER I 




From Avalon Hill 
You're on board a spaceship infested with killer 
robots in this graphic science fiction game. You must 
clear the 4-ievel 144-location ship of robots and arm it 
to self-destruct. Can you do It and escape before you, 
too. are blown up? High-speed graphics are repre- 
sented In 3-D perspective representing your eye's 
view; with instant switching to floor plan maps. 

16K Tap*, $19.95 



DNIEPER 
RIVER LINE 



From Avalon Hill 

It's 1943; you're the German Commander defending the 
DNEIPER RIVER LINE against the Soviet units, 
controlled by the computer. Can you hold your 
position? 4 levels of difficulty; with over 300 illustrated 
counters and mounted mapboard 

48K Disk, $29.95 

Also available: 

TANKTICS: Computerrboard game of Germans 
against Russians in WWII. 

16K Tape including wargame board, 
$23.95 



FPOGGER 




From Cornsoft 
One of the most popular arcade games ever now 
available for your home computer! Just as in Ihe 
arcade game, you must dodge heavy traffic and jump 
Ihe moving logs in the stream to get home. Fantastic 
graphics' Requires joystick 

16K Tape or 
32K Disk, $34.95 




BOUNCEOIDS 

From Cornsoft 
We're not sure what they are. but they're huge and 
dangerous! BOUNCEOIDS bounce off walls, and can 
kill with one touch. Your mission is lo destroy them 
with your new class 4 annlhilator. Then there are the 
terrible bugs coming out of null space to crunch you 
to smithereens. You'll need coordination, strategy 
and courage! Joystick-compatible. 

16K Tape, $15.95 
16K Disk, $19.95 



SCARFMAN 




From Cornsoft 

Action-filled arcade game that pits you against the 

monsters. Race your Scarfman around a maze, 

gobbling up scoring dots. You are pursued by five 

monsters: If you eat a " + " they'll lower their eyes and 

you can eat them, otherwise they'll eat you! 

With exciting graphics and sound, SCARFMAN may be 

played using the keyboard or Joystick. 

WARNING: MAY BE HABIT-FORMING! 

16K Tape, $15.95 
16K Disk, $19.95 

While they last! 



CRAZY 
PAINTER 




From Cornsoft 
Your assignment Is to paint the maze, avoiding 
everyone who tries to stop you If anyone walks in 
the paint, it's ruined, and you must go back and re- 
paint It. With sound, great graphics. . .truly 
"a-maze-ing '. . (- 

1 6K Tape, $1 5.95 ..-VZZr--;- 

16K Disk, $19.95 (7/ -u. Y|| 

SPACE CASTLE V^i/ 

From Cornsoft * 

Ahead of you lies the menacing castle, floating in 
space amidst Its layers of orbiting shields. At Intervals, 
smart mines spin off the shields and head for your 
ship. Dodging the mines and destroying the shields 
isn't your only problem, though: once you penetrate the 
Innermost shield, The evil Yugdab will unleash all his 
fury in an attack! A fast-paced and challenging arcade 
game, indeed. 

16K Tape, $15.95 16K Disk, $19.95 



r 
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GRAPHICS 



LOAD 80 



Make your MX-80 look like a magician. 



GRAPHTRAX Tricks 



Mark Schneider 
3109 Karen Avenue 
Long Beach, CA 90808 



The GRAFTRAX option for my 
Epson printer has bit-plot 
graphics; a new italic print font; 
a backspace feature to help 
overcome the TRS-80 quirk of in- 
cluding a line feed with every 



carriage return; and a TRS-80 
mode which accepts graphics in 
the 128-191 ASCII range of the 
computer without losing any 
printer features. These features 
alone were worth the price, but 
what kind of characters could I 
create? 

As a math teacher, I used my 
printer to create worksheets and 
exams. I had to add many sym- 
bols by hand after printing, such 
as greater than or equal to, less 
than or equal to. not equal to, 
square root, divided by, degree, 
integral, delta and many more. I 
wanted more than math sym- 



bols so I created a whole new 
alphabet. I designed an alpha- 
bet for Hebrew, which does not 
duplicate any English letters. 

Letter Size 

The standard character font 
on the printer is five across by 
seven down, with an extra two 
dots for lowercase descenders. 
However, the printer plays tricks 
with some letters, printing be- 
tween dots. I wanted my letters 
to be 10 dots wide. GRAFTRAX 
can print the dots twice as close; 
my characters print normal width 
with twice as much detail. 



— EdJI 



The maximum height allowed 
is eight, so I used all eight dots: 
six for normal letters and two for 
letters with descenders. Each 
dot is assigned a power of two 
for a value. The bottom dot is 
two raised to the zero power, or 
one. The second is worth two, 
and so on to the top dot (two to 
the eighth, or 128). By adding the 
value of those dots required in 
each column, you arrive at a 
number between and 255. 
LPRINTing that code fires the 
correct pins and prints the col- 
umn. The calling sequence 
LPRINTCHR$(27)"L";CHR$(n1) 
; CHR$(n2) tells the printer that 
the next n1 + (n2 x 256) charac- 
ters it receives should be printed 
as bit image graphics. You may 
print up to 960 dots on a line. 

To print one solid column of 
dots use LPRINT CHR$(27)"L" ; 
CHR$(1) ; CHR$(0) ; CHR$(255). 
To underline an entire line (960 



Fig. 1. Screen Display 



The Key Box 

Basic Level II 
Model I 
16KRAM 
Epson Printer 
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THE ULTIMATE IN COLORCOMPUTING 

For the TRS-80 Color Computer and TDP System 100 Personal Computer 

Super "Color" Writer II Super "Color" Terminal 

By Tim Nelson By Dan Nelson 

The Rolls Royce of Word Processors The Ultimate in Smart Terminals 



The Super "Color" Writer is a FAST, machine code, full featured, 
character (screen) oriented word processing system for the TRS-80'" 
Color Computer and ANY printer. The video display is styled after a 
professional phosphor (green characters on black background) display 
for hours of use without eye fatigue (optional orange on black). The 
unique print WINDOW frees you from 32, 51 or 64 character lines 
FOREVER! This window can be moved anywhere in the text file, up, 
down, left or right to display the text as it will be printed without wasting 
paper You can create or edit Super "Color" Terminal files, ASCII files, 
BASIC programs or Editor/Assembler source listings. It's simple enough 
for beginners with 4K and ... for the professional writer with a 32K disk 
system and a lot to say, there's plenty of room to say it! 

COMPARISON CHART SUPER COLOR WRITER THE COMPETITION 

System Size 4K 16K 32K 4K 16K 32K 

TAPE: Text space N/A 7K 23K N/A 2K 18K 

ROMPAK: Text space 2.5K 16K 31 K N/A N/A N/A 

DISK: Text space N/A 5.5K 21. 5K N/A 0.5K 16.5K 

Right Justify YES NO 

Video Window YES NO 

Edit any ASCII File YES NO 

Programmable Function YES NO 

The figures speak for themselves and with professional features like 
PROGRAMMABLE function string commands to perform up to 28 
commands automatically. PROGRAMMABLE text file chaining, 
PROGRAMMABLE column insert & delete, and right hand 
JUSTIFICATION with punctuation precedence, the choice is clear but 
there's still more! In their September '82 issue, "80 MICRO" says, "The 
Color Computer has finally come of age. Nothing illustrates that coming 
of age better than this offering (SUPER "COLOR" WRITER) by Nelson 
Software". The Super "Color" Writer takes full advantage of the new 
breed of "smart printers" with Control codes 1-31, 20 Programmable 
control codes 0-255 for special needs. Works perfectly with all Epson, 
Radio Shack, Okidata, NEC, IDS, Centronics, Citoh, Smith Corona, 
Diablo Etc., Matrix, or Letter Quality Printers. 

CHECK THESE FEATURES!! 

User friendly • Easy commands • 32K Compatible • Window • Key beep • 
HELP table • 128 character ASCII & graphics • Mem left and Mem used • 
Full cursor control • Quick paging • Scrolling • Word wrap around • Tabs 
• Repeat all functions • Repeat last command • Insert character & line • 
Delete character, delete to end of line, line to cursor, line & block • Block 
move, copy & delete "Global Search, Exchange & Delete • Merge or 
Append files • Imbed Control Codes in text • Underline • Superscripts • 
Subscripts • Headers, Footers & 2 Auxiliary footnotes on odd, even or all 
pages definable position • Flush right • Non-breakable space • 4 
centering modes: 5, 8.3, 10 & 16.7 (CPI) • Full page & print formatting in 
text • Single sheet pause • Set Page length • Line length, Line spacing, 
Margins, Page numbers • Title pages • Printer baud: 110, 300, 600, 1200, 
2400 • Linefeeds after CR • Soft & hard formfeed • Works with 8 bit 
printer fix • and more! 

Super "Color" Writer II Disk 

The Disk version of the Super "Color" Writer works with the TRS-80C 
Disk System and has all the features listed above plus many more! Use 
with up to four Disk Drives. Includes an extended HELP table you can 
access at any time. Call a directory, print FREE space. Kill disk files and 
SAVE and LOAD text files you've created all from the Super "Color" 
Writer. Print, merge or append any Super "Color" Terminal file, ASCII 
file, BASIC program or Editor/ Assembler source listing stored on the 
Disk or tape The Super "Color" Writer Disk version has additional for- 
matting and print features for more control over your printer and 
PROGRAMMABLE chaining of disk files for "hands off" operation. Print 
an entire BOOK without ever touching a thing! Includes comprehensive 
90 plus page Tutorial manual. 

TAPE $49.95 ROMPAK $74.95 DISK $99.95 

Tutorial only $15.00 (Refundable with purchase) 

ORDERING INCLUDE $3.00 for shipping In the U.S. & Canada, 
$6.00 for Foreign orders. C.O.D. add $2.00. 



The Super "Color" Terminal turns the Color Computer into a Super-smart 
terminal with all the features of VIDEOTEX'" plus much more. 
COMMUNICATE with Dow Jones & CompuServe and with computers like 
the TRS-80'" MODEL I, II. Ill, APPLE etc., via moden or RS-232 direct! 
Save the data to tape or print it! Reduces ON-LINE cost to a minimum! 

FEATURES 

10 buffer size settings from 2-30K • Buffer full indicator • Prints buffer 
contents • Full 128 ASCII keyboard • Compatible with Super "Color" 
Writer files • UPLOAD & DOWNLOAD ASCII files, Machine Language & 
Basic programs • Set RS-232 parameters • Duplex: Half/Full • Baud Rate: 
110, 300, 600, 1200, 2400, 4800 • Word Lengths 5, 6, 7 or 8 • Parity: Odd, 
Even or None • Stop Bits: 1-9 • Local linefeeds to screen • Tape save & 
load for ASCII files, Machine code & Basic programs • Unique clone 
feature for copying any tape. 

Super "Color" Terminal Disk 

The disk version of the Super "Color" Terminal works with the TRS-80C 
Disk system and has all the features listed above plus many more! Use 
with up to four Disk Drives • Call a directory, print FREE space, kill disk 
files, save and load text files or BASIC programs • Echo ability in full 
duplex • Lower case masking • 10 Keystroke Multiplier (MACRO) buffers 
that can be saved on disk to perform repetitive log-on tasks and send 
short messages (up to 250 characters each) • Programmable prompt or 
delay for send next line • Selectable character trapping • Set printer 
Baud rate to 110, 300, 600, 1200, & 2400 • Operators Manual. 
TAPE $39.95 ROMPAK $49.95 DISK $69.95 

Operators manual only $10.00 (Refundable with purchase) 

cmjw Super "Color" Mailer 

** Correspondence-Mailmerge 

The Super "Color" Mailer is a powerful multi-purpose file merging 
program that uses files created by the Super "Color" Writer II. One of 
Super "Color" Mailer's most popular uses is producing customized form 
letters — at a fraction of the time and expense of individually typed 
letters With Super "Color" Mailer you can combine a Super "Color" Writer 

11 file containg a form letter with a file containing a list of names and 
addresses. You can even insert special words and phrases — unique to 
each addressee — into the body of the letter. Other Super "Color" Mailer 
uses include creating invoices, printing mailing labels, addressing 
envelopes, and producing "boiler plate" legal documents out of many 
different paragraphs. Features include: the ability to selectively print 
mailing lists by any of up to 10 user definable fields • automatically prints 
current date • address • salutation • closing • PS. etc. • prints any ASCII 
file • justification. 

TAPE $39.95 DISK $59.95 

e>H w Super "Color" Disk-ZAP 

" The Ultimate in Disk Repair Utilities 

A must for ALL Color Computer Disk system owners. A high-speed 
machine code Disk Utility that can copy sectors and tracks • repair 
directory tracks and smashed disks, etc Super "Color" Disk-ZAP has a 
special screen display that displays sector, track and memory contents in 
HEXADECIMAL and ASCII at the same time with double cursors that can 
be moved in any direction. With Super "Color Disk-ZAP you are able 
to verify or modify disk sectors at will. You can even type right onto the 
Disk! You can send sector contents to the printer or any other RS-232 
device in either ASCII or HEXADECIMAL listing. Search the entire 
Diskette for any ASCII or HEXADECIMAL string. Comes complete with 
comprehensive manual. 

DISK ONLY $69.95 



GCggjS Super "Color" Calc 

S° Electronic Spread Sheet 



NELSON 

SOFTWARE 

SYSTEMS 



lefundable with purchase) The '' nest electronic spread sheet and financial modeling program 

available for the Color Computer — A sophisticated yet easy to use, 
for shipping In the U.S. & Canada, calculating and planning tool. Project figures into the future to answer 

i orders. C.O.D. add $2.00. tne .. What jfr questJons you face Create files compatible with the 

Super "Color" Writer II. Combine spread sheet tables with your 
I documents to create ledgers, projections, statistical & financial reports 

& budgets. 

9072 Lyndale Avenue So 612/881 2777 AVAILABLE AT DEALERS EVERYWHERE. IF NOT, ASK WHY!! 



A Division of Sottlaw Corporation Minneapolis. Minnesota 55420 U.S.A. 



TRS-80 it a registered trademark of the Tandy Corp. 



dots) use LPRINT CHR$(27)"L" ; 
CHR$(192) ; CHR$(3) ; : FOR X = 
1 TO 960 : LPRINT CHR$<1); : 
NEXT X . The Basic interpreter 
does not correctly LPRINT 
CHR$s 0, 10. 1 1 or 12. The man- 



ual suggests POKEing these 
va lues d i rect ly to t he pri nter port 
(at address 14312), bypassing 
the Basic interpreter. The first 
example in this paragraph does 
not work as written; change it to 



Program Listing 1. Create File 

100 DIM. ( 121) :CLS: PRINT" 

MX88 Graftrax Worksheet 
from DATAWARE by Hack Schneider 

This program will aid you in creating bit-graphic character* 

for ua« with an Epson printer equiped with the 'GRAFTRAX' 

option." 

118 PRINT: PRI NT "Would you like instructions printed out on your 

printer? 

(None will appear on the screen) 1 

y or N "; 

121 I$«lNKEYS:IFIS«*N*ORIS-*n*THEN220 

ELSEIPI$-"y"ORI$-"Y"THEN138 

ELSEPRINT0711,*?"s:FORCC-lTO58:NEXTCC:PRINT8711," ";: 

FORCO 1 T05 : NEXTCC : GOT01 2 8 
138 LPRINT" GRAFTRAX Worksheet from DATAWARE by Hark S 

chneider* 

148 LPRINT: LPRINT" CONTROL KEYS FOR DRAWING GRAPH 

ICS 

4 arrow keys move flashing cursor around box" 

158 LPRINT" 

<enter> and arrow key draw a dot and move cursor' 

168 LPRINT* 

<clear> and right arrow move cursor to upper left of next 

box 

<clear> and left arrow move cursor to upper left of prev- 
ious box" 
17* LPRINT" 

<cleac> and <enter> erase borders in this box after a 

rrival* 
188 LPRINT" 

<space> and right arrow leave a dot at the cursor, then ra 

ova to next box" 

190 LPRINT" 

<space> and <ent«r> build file containing bit pattern 

8 

<space> and <cl«ar> build alternate file* 

288 LPRINT" 

<clear> and up arrow begin drawing again 

<space> and up arrow exit program* 

218 LPRINT: LPRINT: LPRINT" 

After all characters have been created: 

l...move the cursor to the next box. 

2... Press <space> and <enter> to build the file named in line 38 

3... Press < space > and <clear> to build a file with /ALT extensio 
n» 

228 CLS:PRINT*Do you wish to <B>uild or <E>dit a drawing? 
B or E "i 

238 I8-INKEYStIPI8»"B*ORI$-"b*THENMODES-*bUild" 

BLSEiri$-"B"ORIS- , e"THEN«>DE$-"edlt'' 

ELSBPItINTI135,"?"jjPORCC"lTO50:NEXTCCiPRINT8135," "ji 

FORCC-1 T05 i NEXTCC I GOTO 2 3 8 
248 PRINTCHR$(27) sPRINT'Naas for file you wish to "iHODESi'i 
"jiINPUTTS 
258 PRINT* 

Besides *»T$j" you may also build the file "iTSj'/ALT": 
PORCC-1T088B : NEXTCC 

260 CLS:FORX-18TO1188TEP10:FORY«eTO47:SET(X,Y) :NEXTY,X 
278 FORY-BTO40STEP8:FORX-0TO119:SET(X,Y) jNEXTX.Y 
288 ' 

Initialixe cursor (XX, YY) is upper left point of box 

290 XX-8:YY-8:X-8:Y°8:I-8:J>8 
388 IPNODES«*edit"THEN2818 
1880 ' 

Begin Loop for Keyboard Entry 

1010 X»XX+I: Y«YY+J 'increment from upper 
left of box 

1028 SET(X,Y) :FORCO=1T025: NEXT: RESET (X,Y) 'flash cursor 

1038 P-PEEK( 14400) 'read keyboard 

1840 IFP-8THEN1020 'no key pressed 

1058 IPP-1BTHEN240 'begin again 

I860 IFP-8THBNIFJ>BTHENJ*J-1 'move cursor up 

1878 IPP-16THENIFJ<7THENJ»J+1 'move cursor down 

10B0 IPP-32THENIFI>0THENI=I-1 'move cursor left 

1898 IPP-64THENIFK9THENW+1 'move cursor right 

1188 IPP-9THENIFJ>0THENSET(X,Y) ij-j-l 'draw and move up 

1118 IPP-17THENIPJ<7THENSET(X,Y) :J=J+1 'draw and move down 

1128 IFP"33THENIPI>8THENSET(X,Y) : 1=1-1 'draw and move left 

1138 IFP-6STHENIFK9THENSET(X,Y): 1=1+1 'draw and move right 

1148 IFP-34THEN122B 'move back one box 

1158 IFP-192THENZ'l:GOT01258 "draw and move to next 
box 

1160 IFP-66THENZ-8:GOT012S8 'move to next box 

1178 IPP-3TBBN129B 'erase borders 

1188 IPP-129THENTT$=TS:GOTO3B10 'build file 

1198 IFP-130TBENTT$«T$+"/ALT":GOTO3010 'build alternate file 

1200 IFP«136THENCLS:END 'exit program 

1211 COTOlllfl 'return to begin loop 

1220 IFXX>0THENXX=XX-10ELSEXX-118:YY-YY-8 'back one box 

Program continues 



Program continued 




1230 


IFYY<0THENYY-YY+8 


'check if off screen 


1240 


I»0:J=B:GOTO10B0 


'no increment in box 


1258 


IFXX<110THENXX"XX+10ELSEXX 


■0:YY«YY+8 'next box 


1268 


I FY Y >47TB ENY Y- YY - 8 


'check if off screen 


1278 


I«B:J=8:IFZ"1THENSET(X,Y) 


'draw point if 1-1 


1288 


GOTO1000 




1298 


FORII=0TO9 : RESET(XX+II ,YY) 


NEXT 'erase border 


1300 


FORJ J=8T07 : RES ET ( XX , Y Y+J J ) 


NEXT:GOT0188B 


2088 


• 








rst build array 




th 


en print characters 


2018 


OPBN"I",l,T$ 




2828 


X-BiY-7 


'first character bottom left 


2838 


INPUT* 1,K 


'number of characters 


2040 


DIMX(M,18) 


'store binary codes 


2050 


FORN-1TOM : rORA-lTOl 




2060 


INPUT*1,X(N,A) 


'get binary codes 


2070 


NEXTA,N 




2088 


PORN-1TOK : PORNN- 1T01 




2898 


A-X(N r NN) 




2188 


P0RV=7TO8STEP- 1 


'powers of 2 


2118 


U»INT(A/2IV) 


'binary factor? 


2128 


A"A-U*2|V 


'remainder 


2138 


IPU-1THENSET ( X , Y-V) 






ELSER£SET(X,Y-V) 


'set if a factor 


2148 


NEXTV 




2158 


X-X+l:IFX-120THENX»B:Y=Y+8 


'next box 


2168 


NEXTNN.N 




2178 


CLOSE 




2188 


NODES'** 




2198 


GOT0298 




3000 


• 






Create file... first print 


number of characters 




then build binary totals for each 




character co 


lumn and add to file 


3010 


OPEN"O*,1,TTS:D»0 




3828 


PRINTtl , (YY/B) *12+XX/10 


■# of characters 


3838 


PORA=7TOYY+75TEP8 


'increment rows 


3840 


PORB=BT0119 


'move along botoa of boxes 


3050 


PORC=0TO7 


'move up each column of charact 


ers 






3060 


I PPOI NT ( B , A-C ) TH END-D* 2 [ C 


'if point set, increment by tha 


t power of 2 




3070 


NEXTC 




3080 


L(B)-D 


'build array for each row 


3098 


D-0 


'reset binary counter 


3188 


NBXTB 




3118 


PORH=0TO119 




3128 


PRINT#1,L(H)| 


'add binary bit totals for thiB 


row 


to file 




3138 


NBXTH,A 




3148 


CLOSE 




3158 


GOTO1030 


'back to loop 



Sample program to read in file of bit column codes 
and store them in array T( character t , column I) 

110 CLS: INPUT" Name of file containing bit graphics"; 8$ 

120 CLS 

130 OPEN"I",l,H$ 

140 INPUT*1,M 

150 DIHT(M,10) 



'H is 4 of characters 

'M characters , 10 columns per characte 



'Increment characters 

'increment columns 

'read binary bit total for each column 



160 FORA-1TOM 
170 FORAA-1TO10 
180 INPUTI1,T(A,AA) 
190 NEXTAA 
2BB NEXTA 
210 CLOSE 
300 • 

Print characters by calling a subroutine 
W • 2 prints each column twice for double width 

310 F0RW°1T02 'once normal, then double width 

320 PORA=27TOlSTBP-ltGOSUB410i NEXTA: 

LPRINT* is the Hebrew alphabet." 

330 LPRINT' 

Thank you very much *;: 

A»5 : GOSUB400 1 A" 2 : GOSUB400 1 A-2S :GOSUB400 « 

LPRINTSTRINGS(N,32);: 

A»5:GOSUB400:A"4:GOSUB488:A«6:GOSUB400:A»27iGOSUB400 
340 LPRINT" 

Peace be upon you. *>: 

A»15:GOSUB400iA-ll:GOSUB400:A-10lGOSUB400s 
A-13:GOSUB400iA'19:GOSUB400>LPRINTSTRING$(W,32) ;: 
A-15:GOSUB400iA"6:GOSUB400:A-13:GOSUB400: 
A=26:GOSUB400: LPRINT: LPRINT: LPRINT 

350 NEXTW 

368 END 

480 ' 

Subroutine to print a bit-plot graphic character 



410 LPRINTCBR$(27) "L*> 

420 POKE14312,W*10 

430 LPRINTCBR$(255); 

6 columns 

440 PORAA=1TO10 

450 POKE14312,T(A,AA) 

460 IFW-2 

THENPOKB14312,T(A,AA) 'if double width then repeat 

470 NEXTAA 
488 RETURN 



'set printer to bit graphics mode 

'W columns per character 

'second argument 8 since fewer than 25 

'10 columns per character 

'poke binary total to printer port 



Program Listing 2. Read File 
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LECXONNAIRX: 



t 



i RISING 
STARS 







androme3a 
conot 






u 



What some have called "the best kept 

secret in the game software industry". 

Unleashed here are six new software 

games blending advanced graphics with precise elements of 

playability. challenge and intense fun for every gamer's tastes. 

Beyond these six new games are 26 more for you to consider . . . 

all we believe are the best software values for your money! 



LEGIONNAIRE- Real time simulation of 
tactical combat in Caesar's time YOU as Caesar 
command up to ten legions Finest full-color 
graphics plus playability way beyond the state 
of the art' Cassette . . $35.00 

V. C — Faithfully recreates unconventional 
conflict in Viet Nam YOU command chopper 
and artillery units, and face task of protecting 
civilian population where the enemy hides 
among the people Cassette $20.00 

Diskette . . $25 00 



G.F.S. SORCERESS Scl Fi adventure game. 
YOU are Joe Justin trying to clear yourself of a 
false charge of mutiny and get back to the 
Galactic Federation Starship "Sorceress" 
Beautiful full color manuals provide useful clues 
Cassette S30 00 Diskette $35 00 

ANDROMEDA CONQUEST- Vast scale 
space strategy game of galactic colonizing and 
conquest among unique star systems with 
strange life forms and alien technologies that 
provide exciting exploration and battle. 
Cassette . $18.00 Diskette $2 



" Trademark* few Apple Cumputi-i , W 1 

International Bwkws Machines and Commodon InumMional Ltd 

Available at finer 
computer stores everywhere! 



-239 



MOON PATROL- Arcade Pak game of 
lunar invasion. Beats any quarter gobbling game 
around' Four levels of increasing difficulty 
present new attackers to battle Fast, furious and 
fun' Cassette $25.00 

TELENGARD — Dungeon adventure in a 
mysterious underworld with 50 levels of evei- 
more complex mazes i Real time 

fantasy and role-playing game Using wits 
magic and fast thinking, gamers fight n 
and reap valuable rewards. Cassette . $23.00 

I ette . $28.00 

If your favorite dealer fails to have 
the games you want, call us toll free 

1-800-638-9292 



microcomputer games 

ERED TRADt-MARK <M MICROCOMPI rER GAMES IV DR 



The AVALON HILL Game Company 



Avalon Hill MICROCOMPUTER GAMES 

are compatible with the following computer systems 

App 

Atari 4/800? 

TRS-80 Models I 111 & Color" 

IBM P 

Commodore VIC 20. CBM PET & 2001' 



For specific information, such as 
machine compatibility, memory requirements. 

cassette or diskette av and price. 

call us toll • md ask for 

Operator 10 or write 10 

Avalon Hill Microcomputer Games, Dept. C10 

4517 Harford Road, Baltimore. MD 21214 




LPRINT CHR$(27)"L" ; CHR$(1) ; 
: POKE 14312,0 : LPRINT 
CHR$(255). My program POKEs 
all values to 14312 to avoid 
these problems. 

Bit-Graphic File 

The first program sketches a 
giant model of each character 
desired. Using the arrow keys, 
space, Enter, and Clear In vari- 
ous combinations, you can 
move the cursor within each 
character, draw lines and dots, 
and move to a new box. Memory 
location 14400 scans all these 
keys; by PEEKing this location, 
the keys, individually or in com- 
bination, are sensed. 

To fit as many characters on 
the screen as possible, the 
border lines are part of the char- 
acter box. As the cursor moves to 
each box, erase the border lines 
by entering and clearing to avoid 
interference. Also to save space, 
the Instructions are produced on 
the printer. When forming 
characters, decide whether to 
draw a dot where the cursor sits 
before moving it to the next box. 



Pressing Clear and right arrow 
does not draw a dot before mov- 
ing, while pressing space and 
right arrow leaves a dot (see lines 
1150,1160,1270). 

When the characters are com- 
plete (see Fig. 2), a scanning rou- 
tine determines the bit-plot 
codes and prints them out to a 
disk file. Sometimes you cannot 
decide on the best form for a let- 
ter by looking at a giant model; 
an option builds two files. The file 
name asked for at the beginning 
of the program is used if you 
press space and Enter. Then 
modify the drawing and save an 
alternate version by pressing 
space and Clear. This file has 
the same name and /ALT as an 
extension (lines 1 180, 1 190). You 
can edit from one file and save 
the revised version to the alter- 
nate file. 

The file building portion of the 
program (lines 3000-3140) writes 
the number of characters to the 
file. Then the program scans the 
screen one line at a time, and 
computes the binary bit code for 



each column (lines 3030-3100). 
Because the Point command 
works rather slowly, the disk 
spins for several minutes if each 
code is written as it is computed. 
By storing the codes in an array 
(line 3080), an entire line of 12 
characters is written to disk at 
once (lines 3110-3130). 

Bit-Plot Graphic Characters 

The second program reads the 
file created in the first program to 
build an array containing the 10 
column bit codes for each char- 
acter (lines 160-200). A subrou- 
tine at lines 410-470 prints each 
character. The calling sequence 
is as I stated at the beginning of 
this article: control L, and two 
arguments sent to the printer. 
The first argument Is POKEd, as 



it may be 10. The second should 
be a zero, but since you cannot 
LPRINT CHR$(0), the printer 
allows substituting CHR$(255) 
for CHR$(0). You could also 
POKE this value to the printer 
port. The variable W (lines 310, 
420, 460) allows double width let- 
ters by printing each column 
twice. You could form triple-size 
letters similarly, although they 
would look grotesque. 

The sample printing routines 
(lines 310-350) demonstrate 
ways to call the subroutine. 
First, every character is printed 
(here in reverse order, as He- 
brew is read from right to left); 
then selected letters are chosen 
using the number order in which 
they were read from the disk 
(see Fig. 2). ■ 



no-iur anujc I :Dyi- - on> ■ vi zx i« tn« Habm alphabet. 

Thank you v#r y Much ~-~ " ~ 

Paaca b« upon you 03" "*J D'" 1 ^ 

niu -it? y ^— la^JCP l J tn a-^ -i:a - tani 1 .- 1~ i > -3 i 

Than! you v«i y much ■"" I3 _ I min 

P«ac» b* upon you D=3 " "=•— ' U ' "="«J 



t ha Habr t> alphabet. 



Fig. 2. Sample Printout 
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A new super hi-res space game 
Wave after wave of alien attackers 
each one a different and unique challenge 
to your skills 
CASSETTE |16K) $24 95 
DISC (32K) S29 95 






Raider* 

Not )ust another invaders type game 

We think this one is the best 

great action, great sound, you'll love it" 

CASSETTE (16K) .... $24 95 
DISK (32K) . ... $29 95 ^^p 

0»** 



They recalling 
this one a "classic" You'll T 
have hours of fast-paced fun 
zapping robots Super hi-res action 
CASSETTE (16K) $24 95 
Outsmart the DISC (32K) $29 95 
creatures that pursue 
you as you hunt for 
treasure m a maze of 
cave passages Lots of 
colors and sounds' ^atf*""" ^ai- 

CASSETTE (16K) I I I ^^^ ^^^ ^ I ' 

DISC (32K) $29 95 





ft 



IP 



V s 



s^s 




OS' 



.0* 



YO' 



us' 



»yo*: 



•^^^ aV*0 ^LjLy * ^^ *^t^fe_^a?l- For ,he P' aver wno enjoys suspense 

_ a^^kN \?^ A challenging puzzle You I encounter the forces of black 

f»0 with an occasional twist of humor magic in this spooky adventure 

^F There s a treasure waitino. tn he r!i*r.nv«»re«1i ^ «<-.-r -.ti- .«#-.•, <■.««■- 



***: 



For the player who enjoys suspense 
You'll encounter the forces of black 
magic in this spooky adventure 

CASSETTE (16K) $1995 



IARK DATA PRODUCTS 23802 BARQUILLA, MISSION VIE JO, CA 92691* (714) 768-1551 



We pay shipping on all orders in the continental U.S. and Canada Overseas add $3 00 California residents 
please add 6% sales tax. We are always looking for quality machine language programs Contact us for details. 



\ MASTER CHARGE 
J OR VISA ACCEPTED I 
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Circle 250 on Reader Service card 



the ultimate games 



and 



llNCREDIBLI 
REAL-TIME! 
GRAPHICS' 



STATE 
OF THE 
ZARTCAME^l 



W 









> 



:/> 



< ! i « 






' •«• 



STRIKE FORCE 

STRIKE FORCE is the ultimate challenge in arcade action - bent on 

destroying your concepts about game software! Skill, cunning and 

lightning fast response and a keen sense of strategy are not just 

important - they're imperative to your life and the lives of millions 

of city dwellers 1 

Armed with rapid-fire missiles, long range radar and Incendiary star-shells 

you'll need breathless speed Just to survive. 

STRIKE FORCE, stretching your skills and imagination beyond this planet. 

is undoubtedty the fastest and most complex game you will ever seel 

Strike Force is joystick compatible and includes a 

color booklet Available as 

16K IRS Model l III cassette 26542 $15 95 

32K TRS Moael l/lll protected diskette 26734 $19 95 



!';••;, 



r^ 




PENETRATOR 

"Penetrator Is a state-of-the-art game. You are the sole survtvor of a fighter 

sguadron whose mission is to make it through four defense rings and 

blow up an illegal cache of neutron bombs. The landscape is as 

treac herous as your enemies .. this is where the best feature of Penetrator 

comes in: You make custom landscapes to suit your ability . remove 

difficult areas and add or subtract missiles and radar bases. 

"Another good feature is the training mode. ..The sound is great... 

Penetrator is a very well done game program and worth the 

asking price Review, 80 Micro September 198Z 

Penetrator is joystick compatible and Includes a 

color booklet Available as 

16K TRS Model l/lll. two-cassette pack 26518 $24.95 

32K TRS Model 1/ III protected diskette 26710 $24.95 



w 



Please add $2 per order tor shipping, foreign orders add $6 Residents of AR. CA. KY. MD. NC. TN. please odd applicable sales faxes 
visa Mastercard accepted -write in with card no and expiration date or order by phone (615) 3613738 
Dealer oraers only coll TOLL FREE (800) 251 5900 -ask for a Melbourne House operator 



Mel bOUm6 HOUSe SOftWare IMC, Dept.CS. 347 ReedwoodDrrve,Nashvllle.TN 3721 7. 



t IPS is a trademark ot the Tonay Corporation 
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Tho Black Hole. Apple Panic. Bable Terror, and Mad Mines, copyright 1982 by Funsoft TRS-80 is a trademark of TANDY/RADIO SHACK. 



UTILITY 



Eliminate unnecessary Model II forms messages. 

Forms Cleanup 



Jim Barbarello 
RD #7 Box 241 H 
Tennent Road 
Englishtown, NJ 07726 

The current Model II Disk 
Operating System (TRSDOS 



The Key Box 
Model M Basic 
64KRAM 
Model II 
TRSDOS 2.0a 
One Disk Drive 
Printer required 



2.0a) contains a commonly used 
library command called Forms. 
Forms initializes the printer- 
driver software, and skips a 
preset number of lines after a 
specified number of lines have 
been printed. 

A printer-driver initialization 
such as Forms should always 
be executed immediately before 
printing a report to ensure that 
the printer starts at the top of 
Forms. Unfortunately, Forms 
automatically prints a series of 
messages on the screen which 
the operator must answer in a 
specific manner. 

Aside from messing up an 



T9S-98 


no<s*i II DEBUG P'Mr» 




2 BBS 


CS 7F 2E 3D 


44 70 44 £3 43 ID 43 58 4 J DB 5E 36 


. . . M>lD*C.EPC. •« 


2818 


61 F8 30 09 


4E C8 4F BI 41 IB 4F 3C 38 41 58 CF 


4. :.N. 0.0»0<PBP. 


2828 


SI [i M CI 


61 C! 61 C6 61 S3 ES 86 63 99 63 07 


P. P. 4. 4. »3#. *. 4. 


283* 


ei ao ei ad 


61 3D 44 91 44 to 44 80 43 EI SC 08 


». 4. 4*0. D. 0. E. •. 


2MB 


SO E8 SO E5 


SO 01 5D EF 5C FF 3C 2E 3D 47 3D 77 


Z. 2. Z. •. *. ». --G*w 


289* 


SO 88 3D C3 


4E 44 C6 4F 52 CI 4C SI Di' 41 4E 44 


». *.N0.OB.LS. ONO 


2868 


4F 4D CE 45 


38 54 C4 41 54 41 C9 4£ 38 3S 34 C4 


DTI- EXT. OIO. NP'JT. 


2878 


49 4D D2 45 


41 44 CC 45 54 C7 4F 54 4F D2 S5 4E 


IM. ESD. ET.OTO. UN 


PC 


6P SIHPNC 


OF BC DE ML II IV OF' BC 


DE' HL" 


2888 

? p 

DCBUQ 


2ife eaaaee 


BBBB 8888 8888 8888 8888 0888 B000 8888 


8888 8888 


* no- ON 






TRSDOS 


READY 






DEBUG 




Figure 1 





C9 88 FF 88 FF 88 FF 88 



Figure 2 



otherwise meticulous screen 
presentation, the Forms mes- 
sages can confuse the operator. 
Fortunately, there is a much 
simpler way of performing the 
required initialization function 
while also eliminating Forms' 
drawbacks. 

FRMS 

FRMS is a short machine-lan- 
guage program that allows you 
to set the number of printed lines 
on a page and maximum charac- 
ters per line (the maximum page 
length is preset at 66). FRMS is 
simple to use and completely 
eliminates the annoying and 
sometimes confusing Forms 
messages. No operator interven- 
tion is required to use FRMS. 
Since FRMS acts instantaneous- 
ly, the operator has no indication 
that a Forms Set is required or 
being performed. 

FRMS initializes the printer- 
driver parameters indicated 
above but does not check the 
printer's status. The line printer 
need not be on-line when FRMS 
is executed. Before you can use 
FRMS, you must perform three 
one-time tasks: 

• Create the machine language 
program (FRMS). 

• Save the created program 
on disk. 

• Incorporate the necessary 
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Basic statements in the target 
Basic program. 

Creating the Program 

We will use Debug (see pages 
86-92 of the TRS-80 Model II 
Disk Operating System Refer- 
ence Manual) to place the pro- 
gram into memory. Begin by 
starting up the Model II with a 
System disk. After entering the 
date (required) and time (option- 
al) you will be in the TRSDOS 
Ready mode (unless the disk 
contains an auto startup pro- 
cedure. If you automatically 
enter Basic, simply type 
SYSTEM and press enter and 
you will return to the TRSDOS 
Ready mode). 

Enter Debug On and then enter 
Debug. The screen will appear 
similar to Fig. 1. Press M (to ex- 
amine and change memory). The 
question mark prompt on the 
screen will be replaced with "M 
A = ....". Type FOOO. The first line 
on the screen will be similar to 
Fig. 2. Now press the F1 key. The 
cursor will move to the first dis- 
played number on the FOOO line. 
Type in the following 18 char- 
acters exactly (do not press enter 
or the space bar): 

56234E06083ET1CFC9 

Review the screen. If any 
80 Micro, December 1982 • 125 



character is incorrect, use the 
right or left arrow keys as nec- 
essary to position the cursor 
over the incorrect character. 
Then retype the correct char- 
acter. When all characters are 
correct, press the F2 key to 
enter this program into memory. 
Now press O (not zero) to turn 
Debug off. The FRMS program 
is now stored in memory. (This is 
a demonstration version which 
we will change later.) 

Saving the Program 

Next we will use the library 
utility Dump (see page 102 of the 
TRSDOS manual). Enter DUMP 
FRMStSTART = F000,END- 
= F008|. After some time, you 
will see "TRSDOS Ready." Type 
DIR and press enter. Your direc- 
tory listing will now include a 
new file named FRMS. 

Using FRMS in a Basic Program 

Type BASIC and press enter. 
When you see Ready, type AUTO 
and press enter and then enter 
the program shown in Listing 1. 

Enter SAVE"FRMSTST". Af- 



ter the test program has been 
saved and you have turned on 
your printer and put it on line, 
run the program. Enter 2 as the 
number of lines, and 3 as the 
number of characters per line. 
Enter 123456789 as the test line. 
Your printed output will show: 

123 
456 



Now enter 2 as the number of 
lines and 9 as the number of 
characters per line. Again, enter 
123456789 as the test line. Your 
printed output will now be: 



No top of form was performed 
as before. 

Now that we know the FRMS 
program is working properly, we 
must modify it. When we per- 
formed the first test above, six 
blank lines were printed be- 




Color Co /Up 



^ ii ^ _ 



v 



tween the 456 and 789 because 
we set our page length at eight 
lines for demonstration pur- 
poses. We will now use Debug 
to modify FRMS for a 66-line 
page length. 

Changing the Demo 

Enter SYSTEM to return to the 
TRSDOS Ready mode. Type 
DEBUG ON and press enter and 
then type DEBUG and press enter. 
Type MF004 to go to the memory 
location of the byte that must be 
changed. Press F1 to move the 
cursor to the F004 presentation 
line. Now type 42 (since 66 
decimal equals 42 hex) and then 
press the F2 key to store the 
modified information into 
memory. Press O (not zero) to turn 
Debug off. Finally, enter DUMP 
FRMS|START= F000,END = 
F008I to save the modified FRMS 
program. 

Using FRMS in 
Your Basic Programs 

You may use the current ver- 
sion of FRMS in any Basic pro- 
gram that does not require the 
use of any TRSDOS high memory 
modules or other machine-lan- 
guage programs. If this is a re- 
quirement of your Basic pro- 
gram, I will discuss later how to 



ft 
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Are you tired of searching the latest magazine for articles about 
your new Color Computer? When was the last time you saw a 
great sounding program listing only to discover that it's lor the 
Model I and it's too complex to translate? Do you feel that you are 
all alone in a sea of Z-80's 9 On finding an ad for a Color Computer 
program did you mail your hard earned cash only to receive a 
turkey because the magazine the ad appeared in doesn't review 
Color Computer Software? If you have any of these symptoms 
you're suffering from Color Computer Blues! 

But take heart there is a cure! 
Its COLOR COMPUTER NEWS. 

The monthly magazine for Color Computer owners and only Color 
Computer owners. CCN contains the full range of essential 
elements for relief of CC Blues. Ingredients include: comments to 
the ROMS, games, program listings, product reviews, and general 
interest articles on such goodies as games, personal finances, a 
Kid's page and other subjects. 

The price for 12 monthly treatments is only $21.00 and is available 

from: 
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NAME 



mr 






KhMarkahle Software 

P.O Box 1192 
Muskegon. Ml 49443 s 145 



ADDRESS 
CITY 



State 



Zip 



Allow 8-10 weeks for 1st issue 
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relocate FRMS and reserve a 
memory area for it. 

The FRMS program must be 
on the same disk as the Basic 
program which will use it. Use 
the TRSDOS library command 
Move (see pages 120-121 of the 
DOS Reference Manual) to 
move FRMS to the disk which 
will contain the Basic program. 

Next, you must select three 
variables (one must be an in- 
teger variable) that will not be 
used in the remainder of your 
Basic program. Our demonstra- 
tion program used FL, FC and 
A%, but you can use any 
variables. As an example, we 
will specify Z1 %, ZL and ZC. 

The first required statement 
for your Basic program is 
DEFUSR0 = &HFOOO (the "zero" 
in DEFUSR0 is optional). This 
should appear early in your pro- 
gram. This statement tells the 
computer that you plan to call a 
machine-language program us- 
ing the command X = USR0 
(variable), and that this machine- 
language program will reside in 
memory starting at location F000 
hex (the "zero" in USR0 is also 
optional). Next, load this pro- 
gram into memory. The Basic 
program must include SYSTEM 
"LOAD FRMS". This statement 



10 


DEFUSR = &HF000:ON ERROR GOTO 90 






20 


SYSTEM"LOAD FRMS" 






30 


INPUT'Enler Number of Lines per Page 


:FL 




40 


INPUT 'Enter Number of Characters/Line. 


":FC 




50 


A% = FL"256 + FC 






60 


X = USR(A%) 






70 


PRINTLINE INPUT'Enter Test Line for Printing... 


;TL$ 


80 


LPRINT TL$.PRINT:PRINT:G0T0 30 






90 


RESUME 30 






100 


(press the break key when 100 appears! 
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ee>6B 


LO 


0. -Mli :• LHAR/L1NE -ill . lOu ORDER BYTE' 


fni :<: 


eei'B 


: mc 


HI ;POIN1 '0 NE'' MEMOBv ADDRESS 


fob: oe 


eeise 


LD 


C. 'Mli :• ,_INES/PAGE-->r i«IG« ORDER BV'E' 


fob*, e&a? 


eaisa 


. . r 


6. 6L :£,£ -INES PER PAGE 


FBB3 XII 


aev-ae 


LD 


0.17 :SVC • !' 'PRINTER INI HOl.170' IClNi 


pea? cc 


aa; ib 


9ST 


E :FXECU'E SVC • \T 


mea C9 


aa; . .' 


Rtl 


IRlTuRN T BASIC PROGRQ- 


Feee 


ee::a 


[NO 


B'-BeBH 


BBBBB 'OI c*. 


ERRORS 






Program Listing 2. Assembly language version of FRMS 



126 • 80 Micro, December 1982 



STOCK MARKET DATA 
over 20 YEARS on 
DISK or TAPE 

NOW AVAILABLE - 

OVER 2 YEARS OF WEEKLY OR DAILY 
CLOSING PRICE DATA ON DISK OR TAPE 
FOR Tt-ESE PROVEN MARKET INDICATORS 



I 9 62 



I 982 



• DOW JONES irOUSTRIAL 

• DOW JONES TRANSPORTATION 

• DOW JONES UTILITY 

• ST AMD ARD AW POOR S 3 

ALSO INCLUDES- 

PROGRAMS TO MAINTAIN THESE FILES, 
CREATE FILES FOR YOUR OWN STOCKS, 
AND SAMPLE P ROG RA MS ILLUSTRATING 
RUNNING AVERAGE AND CYCLIC MARKET 
ANALYSIS TECHNIQUES. 

WEEKLY DATA 

- 101 MODEL l/lll CASSETTE. f 3 4. tt 
O 102 MODEL III DISKETTE. .$)*.%» 

□ 101 HARDCOPY PRINTOUT. . . . f 2 2 . M 

DAILY DATA 

□ 104 MODEL l/lll CASSETTE. $44. ft 

- 103 MODEL III DISKETTE. . «44. 91 
Q 10 4 HARDCOPY PR I NTOUT . . . . S ] 2 . • • 

FREE SHIPPING WITHIN CONTINENTAL USA 
(ADD 10% FOR SHIPPING ELSEWHERE) 
24 -HOUR TOLL-FREE ORDER LINE 
(HPB | -800-227-3800 EXT . S 4 2 



YOUNG IDEAS, INC. 

** 172 

It) N. NEW BALLAS • SUITE J10 
ST. LOUIS. MO 11141 



This Smart Little Rogram Lets 
YouTalk BackTo Big Computers. 



Scripsit,™ Pencil, 1 * 

BASIC and source 

code files. 



Handy menu 
of commands. 



Continuous 
status display. 



User-defined sign-on _ 

and communications Transmits 

settings special and control 
' characters. 



User-friendly 
operation. 




computers and a variety of bulletin board systems COMMWHIZ' is so simple to 
use, you'll wonder why it hasn"t been done before Yet it offers professional ter- 
minal capabilities to Mod I and Mod III users who nave 32K with one disk or more. 
And at $79.95 post-paid, talk is cheap. Specify Mod I or III VISA, M/C accepted. 
(VA residents add 4% sales tax.) All popular DOSs/ Cassette Vers. Avail/Includes 
free auto file xfer prosram. From Dr Dobbs Journal review: 'We reccommend 
COMMWHIZ . . both powerful and easy to learn . a fine and truly 'smart' terminal 
prosram which we will continue to use. . .its creators are responsive, helpful 
and available.'' Source -TCV527 CompuServe -70220, 235. 
Fall Discount Combo Hayes Smartmodem & COMMWHIZ - $299 plus shipping. 

VolksMicro Computer Systems Inc. — 

202 Packets Court, Suite C, Williamsburg, Virginia 23185 804 220 0005 



TRS80* v-ofttiefcnflyCorD Elec 






" My brand of per sona l service 
makes Corvus the best mass- 
storage system you can buy. ' ' 



66 A system is only as good as 
the company you buy it from or 
the quality of its service. When 
you buy a Corvus system from 
me, I guarantee that quality. I do 
it in the only way possible . . . with 
my brand of personal service. 
That's what makes Corvus the 
best brand on the market. Ask 
our customers. They know 
Corvus. And they know my 
work." 




Corvus connects with:* 

* Corvus Concept 

* Omninet/Constellation 

* TRS80 

* Apple 

* IBM 

* Xerox 

* Zenith 

* Commodore 

* S-100 

* LSI-11 

ARM disc subsystem also available 
Specializing in N.E. Corridor 



(212) 236-3173 



LAWRENCE S. EPSTEIN ASSOCIATES 

1669 59 Street, Brooklyn, NY 11204 



telex 238-790 (NYK) 

t Pegistered Tradema-i' 



• See List of Advertisers on Page 45 1 
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GRAPHICS ENHANCED BASIC He-e is the package you have been 
.vaitmq tor' NOW you can use the riot graphics capability of your pnnrer 
GRAPHICS ENHANCED BASIC will alio* you to make use of the h.gh 
resolution riot qraphics capability ol MX BO «vith CRAFTRAX" C ITOH 
8510 or NEC printers other printer suppoit sooni GEB eliminates the 
frusti dtioii and drudqery nl usmq dot graphics by providing easy graphics 
commands which may be used in your BASIC program GEB eitends the 
BASIC languaqe with NEW graphics commands 

GEB allows the addressing nt up to 65636 bytes of virtual graphics memory 
thats nver half a million dots' All ol this costs you as little as 8K of your 
RAM memory GEB permits you to set values for the management of the 
virtual memory so that it can be tailored to work in harmony with your 
BASIC program 

Eiamp-'es of the GEB commands are PAGE LIMIT which allows you to set 
the si/e of the graphics page AREA whu h scales your data In the graphics 
page CUP which allows you to define a clipping rectangle and MOVE 
ORAW PUTDOT TEXT and PIOT There are also transformation calls 10 
allow scaling, rotation and origin translations as well as a command lo 
allow you to send control codes directly to the printer without interference 
from the punter driver GEB can be user! with TRS DOS' I DOS* and 
NEWDOS80* For use on Model I nr Model III with 48K and disk drive 
If yuui svstein is not available please request it GEB manual only $15 

GRAPHICS ENHANCED BASIC GEB 01 lo. Model I or III s69 95 

" 'AS DOS is Hade mark it Rarim Stum I -ii I DOS 's trademark ot I oqicai S .stems 
If. NtWOOS 80 s •■arlemar. r' Appa'.i CRAFTRAX is !.aclema-k ol Epson 

TO ORDER CALL 505; 255-6451 

Monday thru Friday 1 1 00 am to 7 00 prn Mou'ti.i n time 

Master Card and Visa accepted • Dealer nqumes are invited 



,UTEL 
•LECTRONIC co 



MICRO COMPUTER SYSTEMS AND SUPPLIES 

Mfi vV scrjris n. NE Alhuque'que New Mexico 8 7 1 08 




The Magnificent 
WORD PROCESSING SYSTEM 



For the TRS-80 Model I and III 



Wnntn i« »a*t Z9Q macrhnt language 
1 Stng*a hay control o' all adding funclton* «o* «a*e 

Of UM 
i Dynamic dtaplay of word count lin« count and ti*a 

m#mory count 
1 Superscript*, subscripts, undarlinad bo*d«d •■• 

pandad «nd condd n— d lypa slyla* combtrta and 

intarmm within a lina 
' Automatically >o*4rf«a* and word-wrap* on tna *cra*n 

m you lypa 
i Saarcn Ftaotaca and Global S—rc* and Haptaca 
• Odd and +f* pag* uaar-dafmaote h*ad*»» toot*'* 

and paga numbar lina* 
1 Lt»ar-d#*'n*P'* •'"♦•PPCing *n#at »•*• top *•* mnQ 



m©*« b»oe* 



t'O*" os* to ! 



■ d** d>racTor> on »«* d<w ana k<-\ ••■** 
wtiiia ad"t«n^ 
Futi «cnn-n ad'ting o* EDTASM and BASIC *•■• '■••* 



Auto*"*!* •enjmoe"ng tor EDTASM and BASK 

Mm 

P'tnt contant* o* scraan t.,nctton 

Print pr*v>«wing tormat* I*i1 m»ar1$ h*ad*** num 

bar* paga* ate on th* scraan without printing 

on pap* 

Paoa by pag* pausing capaoiMy tor sheet fed 

printers 

Support* botn parallel and serial printers 

Printer control code acca** 

1 Support* proportional Space ju*t'*>ing on 
C*ntror»,c» 73? ?» L'«e Pr»n|*» IV Da«* V Wl**! i 
D«ebi© Oumt Starwr>l*r Spin*.'it*r C Ho* 
P'ow.t** NEC PC-6023A C TEC WOO* 

' Al«o *upport» »p*t Al »uicr.on» of Micol-ne Ml « 
M«-'0O a"d G'a*T'a» P'o* 

i Ar, cnaracta* 0' *r"*boi ,ou' p'.-ir*» ta- ;• -• 
ecc***at>*e w-tn :>*e Spac.ai C*e'ec'e* *«a\.'e 

< Morti ».t* HEWDOS NE*DOSao TRSDOS 
LOOS ana DOSPLUS Smgi* of Double Da~»iT» 



GUARANTEE 



Many word processing systems claim theirs are the best, but tew would 
dare to guarantee them Not us! We are confident that ZORLOF is the 
most useful word processing system on the market for under $200 00 
If you don't agree, return rt within 30 days for a full refund 



CAU (305) 259-9397 




ANTTEK SOFTWARE PRODUCES C PO BOX ."36 E MELBOURNE FL 32S35 □ l30Si259-939 - 



need only be executed once. 
Locate it immediately after the 
DEFUSR command. An early pro- 
gram line such as 20 DEFUSR 
= &HF000: SYSTEM'LOAD 
FRMS" would be perfect. Next, 
create a subroutine to access the 
FRMS function. It can begin at 
any line. I suggest the sample 
routine in Program Listing 3. 

Then at any point in the pro- 
gram, you can perform the 
FRMS function by simply iden- 
tifying the number of lines per 
page (ZL), the maximum charac- 
ters per line (ZC) and performing 
a GOSUB 60000. An example is 
shown in Program Listing 4. 

To use FRMS you must per- 
form these four steps: 
a Include the FRMS program on 
your Basic program disk, 
a Include DEFUSR = &HF000: 
SYSTEM'LOAD FRMS" as a pro- 
gram line. 

a Include the machine lan- 
guage Forms Set subroutine as 
shown in Listing 3 in your Basic 
program. 

a Specify ZL and ZC. Then 
GOSUB 60000 (Forms Set sub- 
routine). 

If you require a page length 
other than 66 lines, you can 
modify FRMS as we did above. 
For instance, you could change 
the 42 at memory locations 
F004-F005 to 3C (3C hex equals 
60 decimal. This sets page 
length to 60 lines). After saving 
this modified version (call it 
FRMS60) using the Dump com- 
mand, use "SYSTEM"LOAD 
FRMS60* •" in your Basic pro- 
gram to load the correct version. 

Relocating FRMS 

In the normal Basic mode, 
memory top is set at EFFF hex. 



This leaves the memory from 
F000-F800 free for TRSDOS 
high memory and other ma- 
chine-language programs 
without having to set user 
memory (F801-FFFF is the 
screen memory area). However, 
you may reserve extra memory 
upon entry into Basic and avoid 
any chance of memory conflict. 
To show this, I will relocate 
FRMS so that it loads into a pro- 
tected memory area. Follow 
these steps: 

a Start up the computer with a 
System disk containing FRMS. 

• When "TRSDOS Ready" ap- 
pears, type LOAD FRMS and 
■)ress enter. 

a Enter DUMP FRMSP iSTART 
= F000, END = F008. RELO = 
EFF6I. 

• Type DIR and press enter. 
Note you have a new directory 
entry (FRMSP). 

• Enter AUTO BASIC xxxxxxxx/ 
yyy -F:n -M:61429 <E> where 
xxxxxxxx/yyy is the name of a 
Basic program you wish to load 
and run automatically upon 
startup (this is optional. If not 
needed, leave one space after 
Basic); n is the number of disk 
file buffers you want available 
(this is also optional). 

• Replace DEFUSR = &HF000: 
SYSTEM "LOAD FRMS" in your 
Basic program with DEFUSR = & 
HEFF6: SYSTEM'LOAD FRMSP" 
(P means protected). ■ 



Jim Barbarello is employed 
by the US Army Communica- 
tions Electronics Command. 
His hobbies are music and 
woodworking. 



60000 REM" MACHINE LANGUAGE FORMS SET SUBROUTINE 
60010 Z1'/, =ZL*256+ZC 
60020 ZC = USRfZI ".):RETURN 

Program Listing 3. Forms Set subroutine 



4123 ZL=60:ZC = 132:GOSUB60000:REM" 60 UP. 132 C/L CHOSEN •• 

4124 GOSUB 5000:REM" PRINT REPORT »1 " 

4125 ZL = 60ZC=8f>GOSUB60000.REM'" TOP OF PAGE RESET.80 OL 

4126 GOSUB 6000& REM" PRINT REPORT #2 •• 
etc 



Program Listing 4 
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Circle 109 on Reader Service card — 
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CYBORG A TRS-80 Classic by Bill Dunlevy and Doug Prayer "Incredible graphics". The screen slides smoothly in all directions. "Mind boggling 
speed" put your Anti Grav sled in fourth and you will see what fast graphics are. This is not a worked over arcade game: it is something totally new This 
game has more new features then any arcade game ever written for the TRS-80. 
TAPE '..... $19.95 DISK $24.95 

JOVIAN Another hit from Dunlevy and Frayer using the fantastic new graphic techniques developed in CYBORG and expanded upon in JOVIAN" 
Mission: Destroy Jovian space stations while fighting alien space ships and dodging asteroids and space mines. 

AR AC H N I D Written by Charles Quante. A real time arcade game with great graphics and sound. You must shoot the spiders before they get you 1 
Arachnid comes in a special arcade package with two other programs BAJA a car race game and WARZONE a strategy game. Three excellent and 
totally different games for only $27.95 disK or tape 



Order from you favorite dealer or call Toll Free: 
1-800-392-8881 



COMPUTER SHACK 

1691 Eason • Pontiac. Michigan 48054 (313)673-2224 



vm 



SERIES 



LOAD 80 



Inside Scripsit— Part 



by Craig A. Lindley 



F 



ree your CPU from slow peripherals! Use your 
knowledge of the features and functions of 
Scripsit to write a spooler /despooler program. 



In the first two articles in this series 1 
showed how Scripsit was internally 
constructed and how to modify it to 
add features and functions to enhance 
its operation. In this part I will show 
you how to write a spooler /despooler 



that frees your computer from printing 
so it can accomplish other tasks. 

Spool stands for simultaneous pe- 
ripheral output overlap. This tech- 
nique is used in large computer systems 
to increase throughput. It frees the 





00100 




Program Listing 1. 


Spooler 




















00110 


• ••• 


PRINT 


SPOOLER 


UTILITY 


... 




00120 


. •* • 


SCRIPSIT 


FILE SPOOLER VI . *** 




00130 


• *•• 




NOVEMBER 11 


, 1981 


*** 




00140 


. .# * 






BY 




• *• 




00150 
00160 
00170 
001B0 


. •• * 




CRAIG A. LINDLEY 


**« 
































00190 
00200 
00210 


; SYSTEM 


EQUATES 










; 












0033 


00220 


CHROUT 


EQU 




0033H 




CHAR OUT ROUTINE 


4428 


00230 


CLOSE 


EQU 




4428H 




CLOSE FILE ROUTINE 


01C9 


00240 


CLRSCN 


EQU 




01C9H 




CLEAR SCREEN ROUTINE 


4020 


00250 


CURSOR 


EQU 




4020H 




CURSOR ADDR STORAGE 


0060 


00260 


DELAY 


EQU 




0060H 




DELAY ROUTINE 


4409 


00270 


ERROUT 


EQU 




4409H 




DOS ERROR OUT ROUTINE 


4420 


002B0 


INIT 


EQU 




4420H 




INITIALIZE DISK FILE 


0049 


00290 


KEYIN 


EQU 




0049H 




KEYIN ROUTINE 


442C 


00300 


KILL 


EQU 




442CH 




KILL DISK FILE 


4430 


00310 


LOAD 


EQU 




4430H 




LOAD CMD FILE ROUTINE 


FCFF 


00320 
00330 


MEMSIZ 


EQU 




0FCFFH 




DESPOOLER MEMORY 
PROTECT LIMIT 


6BC8 


00340 


OPCMDL 


EQU 




6BC8H 




SCRIPSIT OUT MSG ROUTINE 


40 2D 


00350 


OPSYS 


EQU 




402DH 




REENTER OP SYSTEM 


441C 


00360 


PARSE 


EQU 




441CH 




PARSE FII.ESPEC ROUTINE 


002B 


00370 


SCAN 


EQU 




002BH 




SCAN KEYS ROM ROUTINE 


523F 


00380 


WP 


EQU 




523FH 




SCRIPSIT ENTRY POINT 


4439 


00390 
00400 


WRITE 


EQU 




4439H 




DOS WRITE DISK FILE 


7 AM 


00410 
00420 


» 


ORG 




7AA6H 




Listing i continuet 



CPU from driving a slow peripheral 
device such as a printer. The data des- 
tined for the peripheral device is sent 
either to memory or a storage medium 
(spooled) until the peripheral device is 
ready for it. The data is then trans- 
ferred to the peripheral device (de- 
spooled) as it is required at the rate that 
the device can accept it. By doing this, 
the CPU is free to process other higher 
priority tasks. In the TRS-80, the CPU 
can run other programs while the de- 
spooler is out putting characters to the 
line printer during the 25-microsecond 
interrupt time. The despooler is termed 
a foreground task because it operates 
during interrupt time. The program that 
is running (and interrupted by the de- 
spooler) is called the background task. 
The Scripsit Spooler/Despooler 
consists of two programs. I didn't 
want to add any additional features to 
the Scripsit modification program pre- 
sented in the last article because it 
would reduce the text buffer area. In- 



The Key Box 



Model I 
32KRAM 

Assembly language 

One disk drive 

Scripsit, Editor/ Assembler and 

Printer required 
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stead I developed a new modification 
program for Scripsit with only the 
spool and underline functions added. I 
do all the text entry and editing with 
the modification program presented in 
the second article. This new modifica- 
tion program spools the printed result. 
I had to implement the underline 
function in the spooler modification 
program so you can spool files that in- 
corporate this feature. If you want to 
perform word processing while de- 
spooling you must also use this new 
program (without all of the enhance- 
ments) because the unmodified Scripsit 
program and the patch program pre- 
sented in the last article turn off the in- 
terrupts, thereby stopping the despool- 
ing process. 

Spooler Operation 

The spooler program is shown in 
Program Listing 1. Execute the pro- 
gram as a DOS command file by enter- 
ing SSPOOL. The program's execu- 
tion begins at the label Start shown on 
the listing. When executed, the screen 
clears, the sign-on message is displayed 
and the file SCRIPSIT/LC is located 
and loaded. If you use only the upper- 
case version of the Scripsit program, 
change the file extension on line 500 of 
Listing 1 to /UC, for proper operation 
of this program. 

After Scripsit is loaded, it is patched 
extensively to allow the spool program 
to function correctly. All three places 
in the Scripsit program that read the 
status of the parallel printer are patched 
with the following code: 

LD A.30H ;Printer ready status 
NOP ;Fili empty byte 

so the printer always appears ready to 
the Scripsit program. 

All five places in the Scripsit pro- 
gram that output a byte in the A 
register to the printer are patched with 
the following code: 

CALL SPOOL ;Call Spooler subroutine 

so the spooler program receives all 
printed output from the Scripsit pro- 
gram. The End routine is modified so it 
jumps to the CSPOOL routine, which 
closes the spool file before you leave 
Scripsit. After the spool file is closed, 
you are returned to DOS instead of the 
reboot in the standard Scripsit pro- 
gram. Four other important patches 
are applied to the memory resident 
Scripsit program to make it compatible 
with the despooler program: 

^S— List of AOwMsers on Pag* 451 




DECEMBER TOP TEN 

1. CTIOM Comsutir Shack 

2. DEMON SEED Trend Software 

3. JOYIM Cempeter Stock 

4. SEA DRAGON Asvm 1st 

5. PINETRATOR .... MelaeNree Hihm 

B. OUTHOUSE Sett Sector 

7. ELIMINATOR Ae* vents re Int 

0. AU EN DEFENSE Sett Sector 

0. VENTURE Nerlzea 

10. PAR IK Fietestlc Software 

We have a panel of expert game players 
who will give a monthly rating of the beet 
games on the market It will change 
monthly, so look every month. If you would 
like to send in your top ten games we 
would be glad to have it 



If you are going to buy a game this month I recommend you get Cyborg Jovian or Demon 
Seed. These three games are in a class all by themselves. I really think they are the three 
best games ever written for the TRS-80. We at Computer Shack have a policy of never 
advertising a game until we have seen it. This insures we never advertise a dog. It also 
puts us a month or two behind some of our competitors. If you see a new game you like 
call us. we carry many products not in our ads. All prices are in (tape/disk). And naturally if 
you order two or more you get a 1 0% discount on both games. 

NEW GAMES 

JOVIAN the latest game from Dunlevy and 
Frayer. This exciting game continues the 
unique WRAP AROUND GRAPHICS * 
that they made famous with CYBORG Jovian 
is a real time space arcade game where you 
battle the alien space stations, space ships 
and space mines Exciting action combined 
with arcade quality sound make this a best 
seller (19.95/24.95) 

CYBORG the first game for the TRS-80 that 
featured WRAP AROU N D GRAPH ICS* This 
exciting game occurs in a interstellar space 
station. This game features fantastic graphics 
that are super fast and move smoothly in all 
FOUR directions. Most games move from 
left to right but Cyborg takes the action up 
down and left and right CYBORG rated #1 
for two months in a row by our arcade 
experts- (19.95/24.95) 

SEA DRAGON could be the best ever from 
Adventure International Sea Dragon is some- 
thing like Penetrator but based on a under- 
water theme. Great graphics, good sound 
and good action make this game a must 
(19.95/24.95) 

ARCHNID PLUS this is a collection of three 
games, ARCHNID a real time arcade game 
with excellent graphics and sound, BAJA a 
fast exciting car race like TURBO", and 
WARZONE a arcade type game of strategy. 
(19.95/24.95) 

BOUNCEOIDSa newgamefromCornsofta 
very original idea for a arcade type real time 
game (1 5.95/1 9:95) 

LEAPER a great new game by Cedar Soft- 
ware. This is the best by far. FROGGER" 
type game available for the TRS-80. (1 5.95/ 
19.95) 

DUNZHON the first is a series of three 
games by Med Systems This is similar to 
Dungeon Escape. If you like Dungeon Escape 
you will love OUNZHON. (29.95/29.95) 

OUTHOUSE is the first funny arcade game. 
You must zap assorted bad guys before they 
destroy or do other things to your outhouse. 
Highly recommended (15.95/19.95) 

PAN IK a new arcade game by William Demas 
He has taken Donkey Kong", and made it 
into a Space type real time arcade game. A 
very nice game. (1 9.95/24.95) 

DEMON SEED a great new game ty two 
unknown Michigan kids The game is based 
on the arcade game PHOENIX* and it has 
many outstanding graphics This is a fast 
action packed arcade game that comes 
highly recommended (1 9.95/24.95) 



Dungeon Escape 

A truly exciting game based on Dungeon 
and Dragons" it has real time action, graph- 
ics great sound and best of all it has a totally 
random drawn dungeon so the game ie 
completely different every time you play. 

Oldies but goodies! 

VENTURE a great arcade type game from 
Horizon software. Exciting and fun to play. 
Great graphics and sound (15.95/19.95) 

PENETRATOR, a dazzling space type shoot 
'em up game with some new wrinkles never 
seen before on a TRS-80. This game by 
Melbourne House sould be in every col- 
lection. (24.95/24.95) 

ALIEN DEFENSE Has exciting graphics was 
the fastest game for the TRS-80 until Cyborg A 
must for any serious gamer. (1 5.95/1 9.95) 

LASER DEFENCE a great new. original, game 
from Med Systems (1 4.95/1 7.95) 

SIMON A MERFUNKLE an exciting game for 
the little kiddies Tests your memory. Graphic 
blocks light up on the screen along with music 
You must repeat the patterns. Contains three 
sound and graphic games 
(15.95/19.95) 

ORE YMOON if arcade games aren't your style 
try GREYMOON this is a thinking man's game 
based on your being the ruler of a Middle age 
kingdom. Fun, interesting and very well written. 
(15.95/19.95) 

DEFENSE COMMAND protect your fuel cans 
from invading monsters Good graphics and 
well written. (1 5.95/19.95) 



1691 F ason • '<- >n|i,ir Michigan AttQ 
(313)673-2224 • Or :■ , (800)392 8881 



Dealers'. \\> .i 
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Listing 1 continued 


00430 






















00440 

00450 


; SYSTEM STORAGE LOCATIONS 
















00460 


; 








7AA6 CA7A 


00470 


BUFPTR 


DEFW 


DISKIO+1 


;PTR TO SPOOL DATA BUFFER 


7AA8 01 


00460 
00490 


COUNT 


DEFB 


1 


;DATA BUFFER CHAR COUNT 


7AA9 53 


00500 


DCB 


DEFM 


"SCRIPSIT/LC 


;FILE DCB 


7AB4 03 


00510 




DEFB 


3 




0014 


00520 
00530 


; 


DEFS 


20 




00FF 


00540 
00550 


DISKIO 

; 


DEFS 


255 


;DISK I/O BUFFER 


7BC8 50 


00560 


FNAME 


DEFM 


'PRT1/DAT:0' 


; SPOOL FILE NAME 


7BD2 0D 


00570 




DEFB 


13 




7BD3 00 


00580 
00590 




DEFB 







7BD4 3E 


00600 


IN 


DEFB 


3EH 


; STATUS IN PATCH DATA 


7BD5 30 


00610 




DEFB 


30H 




7BD6 00 


00620 
00630 




DEFB 


f 




7BD7 21 


00640 


MEM 


DEFB 


21H 


;LOAD MEMORY LIMIT 


7BD8 FFFD 


00650 
00660 


; 


DEFW 


MEMSIZ+256 


; INSTRUCTIONS 


7BDA CD 


00670 


OUT 


DEFB 


0CDH 


; PRINT OUT PATCH DATA 


7BDB 8E7P 


00680 
00690 


1 


DEFW 


SPOOL 




7BDD 00 


00700 


UNDFLG 


DEFB 





UNDERLINE FLAG 


7BDE 0E 


00710 


UNDOFF 


DEFB 


14 


J TURN UNDERLINE OFF 


7BDF 0F 


00720 
00730 


UNDON 


DEFB 


15 


;TURN UNDERLINE ON 


7BE0 10 


00740 


EMSG2 


DEFB 


16 


;MSG LENGTH 


7BE1 44 


00750 
00760 


; 


DEFM 


'DISK I/O ERROR 


1 ' 


7F62 


00770 
007 80 
00790 
00800 
00810 
00820 


; 


ORG 


7F62H 






; CLOSE 


SPOOL FILE ROUTINE 






; 








7F62 3AA87A 


00830 


CSPOOL 


LD 


A, (COUNT) 


;GET DATA COUNT 


7F65 B7 


00840 




OR 


A 


;IS IT ZERO ? 


7F66 2811 


00850 




JR 


Z, CFILE 


;IF YES, CLOSE FILE 


7F68 2F 


00860 




CPL 




;FIND REMAINING AREA 


7F69 3C 


00870 




INC 


A 


;TRUE COUNT 


7F6A 47 


00880 




LE 


B,A 


;INTO "B" 


7F6B 2AA67A 


00890 




LD 


HL, (BUFPTR) 


;GET BUFFER DATA PTR 


7F6E 3600 


00900 


FILL 


LD 


(HL) ,0 


; STORE INTO BUFFER 


7F70 23 


00910 




INC 


HL 




7F71 10FB 


00920 
00930 




DJNZ 


FILL 


;FIIL REST OF BUFFER 




00940 


; WRITE 


LAST DISK ■ 






00950 


; 








7F73 11A97A 


00960 




LD 


DE.DCB 


;PT AT DCB 


7F76 CD3944 


00970 
00980 




CALL 


WRITE 






00990 


;NOW CLOSE THE 


FILE 






01000 


■ 








7F79 CDC901 


01010 


CFILE 


CALL 


CLRSCN 


; CLEAR SCREEN 


7F7C 11A97A 


01020 




LD 


DE,DCE 


;FILE DCB 


7F7F CD2844 


01030 




CALL 


CLOSE 




7P82 C32D40 


01040 
01050 
01060 


f 


JP 


OPSYS 


;BACK TO DOS 














01070 


;KEYMOD 


ROUTINE 


- CAUSES SCRIPSIT TO POLL THE KEYBOARD 




01080 
01090 
01100 


;IN THE 


NORMAL 


MANNER PERIODICALLY FOR THE DESPOOLER. 






7F85 CD2B00 


01110 


KEYMOD 


CALL 


SCAN 


;POLL KEYS 


7F88 110004 


01120 




LD 


DE.400H 


; RESTORE OVERLAID 


7F8B C3EB5F 


01130 
01140 
01150 


} 


JP 


5FEBH 


; CODE 














01160 
01170 

01180 


; SPOOLER ROUTINE 






' 








7F8E E5 


01190 


SPOOL 


PUSH 


HL 


;SAVE REGISTERS 


7F8F D5 


01200 




PUSH 


DE 




7F90 F5 


01210 




PUSH 


AF 


;SAVE CHAR 


7F91 2AA67A 


01220 




LD 


HL, (BUFPTR) 


;LOAD PTR TO BUFFER 


7F94 77 


01230 




LD 


(HL) ,A 


; STORE PRINT CHAR 


7F95 23 


01240 




INC 


HL 


j BUMP PTR 


7F96 22A67A 


01250 




LD 


(BUFPTR) ,HL 


; STORE UPDATED VALUE 


7F99 3AA87A 


01260 




LD 


A, (COUNT) 


;GET BUF CHAR COUNT 


7F9C FEFF 


01270 




CP 


255 


J (CP -1) BUF FULL ? 


7F9E 2808 


01280 




JR 


Z, TODISK 


;IF FULL THEN 


7FAB 3C 


01290 




INC 


A 


;BUMP COUNTER 


7FA1 32A87A 


01300 




LD 


(COUNT) ,A 


(STORE UPDATED COUNT 


7FA4 Fl 


01310 


GONE 


POP 


AF 


; RESTORE CHAR 


7FA5 Dl 


01320 




POP 


DE 


; RESTORE REGISTERS 


7FA6 El 


01330 




POP 


HL 




7FA7 C9 


01340 
01350 




RET 








01360 


;IF DISK BUFFER 


IS FULL - WRITE 


TO DISK 




01370 










7FA8 11A97A 


01380 


TODISK 


LD 


DE.DCB 


;FILE DCB 


7FAB CD3944 


01390 




CALL 


WRITE 


jSCRIPSIT WRITE TO DISK 


7FAE 2812 


01400 




JR 


Z,TODl 


;IF WRITE OK THEN 


7FB0 21E07B 


01410 




LD 


HL.EMSG2 


;DISK ERROR MSG 


7FB3 CDC86B 


01420 




CALL 


OPCMDL 


;OUT MSG ON CMD LINE 


7FB6 010000 


01430 




LD 


BC,0 




1F&9 CuMM 


21448 




call 


DELAY 


;WAIT FOR VIEW 


7FBC 31FC41 


01450 




LD 


SP.41FCH 


; STACK PTR 

/ isting 1 continues 



• The disable-interrupt instruction 
located at 52C0H is overlayed with a 
NOP instruction to allow interrupts to 
be serviced during Scripsit's operation. 

• A call is made to the ROM key scan 
routine at 2BH to couple the Scripsit 
program to the despooler program as 
required. 

• The Debug vector at 4315H is 
cleared to prevent Debug from being 
entered when the break key is pressed. 

• Scripsit's memory-size routine is 
patched to protect the despooler in 
high memory. 

These four patches allow this Scripsit 
patch program to operate during the 
despooling process. 

After all these patches are made, you 
will be asked the following three 
questions: 

1) CREATE SPOOL FILE ON DRIVE (0*-3): ? 

2) NUMBER OF COPIES (l*-9): ? 

3) ARE THESE CORRECT (YVN): ? 

The default answers are shown marked 
with the asterisk and are chosen by 
pressing enter. If you want to create 
the spool file on drive and want just 
one copy of the spool file, press enter 
three times. 

The answer to the first question de- 
termines on which drive the spool file 
will be stored. Spool files can be rather 
large so place them on a disk with a lot 
of free space. The default file name is: 
PRT1/DAT. This file will be created 
on the specified disk drive unless a file 
by that name already exists. If a file 
does exit, the next higher version-num- 
bered file will be created, for example: 
PRT2/DAT. This version-number ad- 
vancing process continues until the 
program determines that a new file has 
been created. This process prevents the 
spooler from overwriting an existing 
spool file. In any case, the program 
displays the filespec of the created 
spool file. 

Your answer to the next question de- 
termines how many copies of the com- 
plete spool file will be printed by the 
despooler. The default is one copy, but 
you can generate up to nine copies. The 
despooler has the logic needed to print 
the specified number of copies request- 
ed. The final question is a verification 
of the previously input data. If you an- 
swer with anything besides N, you will 
be immediately transferred to a fully 
initialized and operational Scripsit pro- 
gram. If you answer N, you will be 
asked the questions again. 

While in Scripsit you can use aJ) of 
the commands available in the unmod- 
ified program with the addition of the 
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underline feature. When you try to 
print a document, the printer will re- 
main silent and the disk drives will run. 
Use the normal Load command to load 
the Scripsit files you want to spool and 
then use the Print command to spool 
them. You can spool as many docu- 
ments as the disk space allows; you are 
not limited to one Scripsit document 
per spool file. For example, if you 
spool two different documents and had 
requested two copies of the spool file 
earlier, you will receive four docu- 
ments. When you are finished spooling 
your documents, type End as you nor- 
mally would and you will be returned 
to the operating system as usual. 

Despool Operation 

Enter despool to execute the de- 
spooler. You will be asked, "FILE: ?" 
which is your cue to input the filespec 
of the spool file you wish to despool. 
Press enter to use the default filespec: 
PRT1/DAT. The despooler program 
will search the active disk drives in 
your system for this file. The first file 
found with this name will be de- 
spooled. To specify a different file- 
spec, just type it in and press enter. If 
the file you specified is found, it will be 
despooled. If not, you will be told so. 
After the file is found, the program 
shows you how many copies of the 
spool file you requested when it was 
spooled and then returns to the operat- 
ing system. Then the printer will start 
and you will be free to do other tasks. 
You can run any programs that you 
wish, including Basic, as long as the in- 
terrupts are not disabled. If the inter- 
rupts are disabled and then turned 
back on again, you will not lose any 
printed data, but the printer will be si- 
lent for the duration that the interrupts 
were off. 

Following are several points to 
remember about the despooler pro- 
gram's operation. 

Do not reboot your computer while 
the despooler is printing. If you do, 
you will have to restart despooling of 
the spool file. 

Do not try to print anything in the 
conventional manner while the de- 
spooler is operational. This will result 
in a mix of the despooled and the real- 
time print data. You can, however, 
spool additional Scripsit files while the 
despooler is operational. 

During the time the despooler reads 
the disk, the keyboard will become mo- 
mentarily disabled. Care must be taken 
to prevent characters you type from 
being lost during these times. 

While the despooler is active, an as- 
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To Celebrate Computer Shacks 1st 
anniversary, we have tested many hardware 
and software products and have sleeted these 
outstanding values to be given away in a draw- 
ing on December 1 5th. All gifts will be delivered 
by Christmas. 

Our Grand Prize will be a Super Spooler by 
COMPULINK. The best 16k print buffer on the 
market. (List price S349.00) The next two lucky 
winners will receive copies of LazyWnter, the 
finest word processor for the TRS-80. (List 
price $175.00). We also have two copies of 
MULTIDOS. the Dos with the BEST BASIC (List 
price $79.95). Two Copies of SUPERUTILITY 
PLUS The original disk fixer upper (Retail $79) 
One copy of Z Basic the best compiher Four 
copies of SuperDirectory the best Directory. 
Boxes of WABASH FLIPPY DISKS the first flip- 
pys made by a Major disk manufacture. Plus 
many games and other programs. 

Any person who buys a product, or orders a catalog, from Computer Shack between 
now and Dec. 1 5, has a chance to receive some of these great prizes. 
We at Computer Shack are trying to be the best mail order computer supplier there 
is. During the month of September we filled over 90% of our orders within 24 hours. 
We strive to give you good service, good quality and good prices. We will never 
advertise or sell any product unless we test it and it meets our standards. All of our 
products are sold with a money back guarantee to work as advertised and you must 
be happy with it or you can send it back. (10% restocking fee) 

* COLOR COMPUTER GOODIES • 
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KEYS OF THE WIZARD best new adventure 
game available for the color computer. Over 
200 rooms filled with creatures, tricks, treas- 
ures, magic spells. Cassette save feature built 

in (19.95) 

PHANTOM SLAYER they are mutant phantoms 
You are the Phantom Slayer. Enter the deadly 
catacombs and destroy the phantoms Wield 
your laser pistor and attend to your proximity 
detector. Phantom slayer is a real-time game 
executed with full screen, three dimensional 

graphics (19.95) 

STARFIRE one of our favorite games for the 
color computer. Based on the arcade game 
Defender' it has excellent graphics, sound and 

controls (19.95/24.95 

GHOST GOBBLER an exciting version of the 
popular PACMAN~ game with power dots 
COLOR SCARFMAN a 4K version of the excit- 
ing PACMAN' type game (21.95/19.95) 



COLOR TAPE COPY at last a copy program 
that works. Color tape copy by Bob Withers will 
copy any tape for the color computer! Machine 
language, basic or even Data tapes. Very easy 

to use (15.95) 

COLOR INTENSIFIER if your TV gives you 
washed out colors order one of our color 
intensifier's. They really work deepens and 
darkens all colors Money back guarantee if 
not totally happy with it Stock size is 13 X 10 
for $1 9.95. Other sizes may be specially ordered. 
MASTER CONTROL our best selling program 
for the color computer. Comes with a overlay 
for the keyboard. Makes programming a snap. 
List price $24.95 CS PRICE $19.95 

COLOR DFT a great terminal program that will 
download or send machine language, text or 
basic programs without any conversion routines 
DFT will convert Model I and III basic programs 
to run on the Color Computer (1 9.95) 



COMPUTER SHACK 

1691 Eason • Pontiac Michigan 48054 ^ my 

Info (313)673-2224 • Orders (800)392-8881 

Master Cnarge and VISA OK PieaseaddSaoO'orsnippinginUSA -S5 00 for Canada or Mexico- 

Proper postage outside of U S - Canada • Mexico 

Dealers: We are distributors tor all items in this ad Write for our catalog and price list 
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THE TRS-80 
USERS JOURNAL 

If you own a TRS-80® Model 

I. Model II. Model III, Color 

Computer or Pocket Computer, 

YOU NEED 
80-U.S. JOURNAL! 

80-U.S. Journal has 

programs for your enjoyment 
and enlightenment Every 
monthly issue contains several 
BASIC or machine language 
program listings It contains 
business articles and tutorials 
There is something for YOU in 
80-U.S. Journal 

and . . . 

80-U.S. Journal contains re- 
views of hardware and soft- 
ware. Our evaluations and re- 
views will help you to make the 
best choice in selecting addi- 
tions to your system. 

Please send a D new □ renewal 
subscription to 80-U.S. Jour- 
nal for □ 1 year ($16), D 2 years 
($31). n 3 years ($45) — U.S. 
residents only 



Nam* 




Address _ __ 




City 


State 


Zip 


Visa MC . _ 




Exp 





80-U.S Journal, 3838 S. Warnar 

Straat. Ticomi, WA 98409, 

(206) 476-2219 



Daalar Inquiriaa Invftad 



^329 

8M 



Lining 1 ctmlinm 


il 






7FBF C34752 


01460 
01470 ; 


JP 


5247H ; START OVER 


7FC2 21C97A 


014 80 TODl 


LD 


HL.DISKIO ;I/0 BUFFER 


7FC5 22A67A 


01490 


LD 


(BUFPTR),HL ; INITIALIZE PTR AGAIN 


7FC8 AF 


01500 


XOR 


A ; CLEAR "A" 


7FC9 32A87A 


01510 


LD 


(COUNT) , A ;COUNT-0 


7FCC 18D6 


01520 
01530 ; 


JR 


GONE ; END 




015 50 ; UNDERLINE ON/OFF ROUTINE 












01570 ; 






7FCE E5 


01580 L'NDRLN 


PUSH 


HL ;SAVE REG 


7FCF FE40 


01590 


CP 


40H ;0 7 


7FD1 2015 


01600 


JR 


NZ,l'N2 ;IF NOT THEN 


7FD3 21DD7B 


01610 


LD 


HL,UNDFLG ;CET UNDERLINE FLAG 


7FD6 CB46 


01620 


BIT 


0,(HL) ;IS FUNCTION ON ? 


7FD8 2808 


01630 


JR 


Z,UN1 ;IF NOT THEN 


7FDA CB86 


01640 


RES 


0,(HL) ; IP ON - TURN OFF 


7FDC 21DE7B 


01650 


LD 


HL,UNDOFF j PT AT UNDERLINE OFF CODE 


7FDF 7E 


01660 


LD 


A,(HL) ;GET FUNCTION CHAR 


7FE0 1806 


01670 


JR 


UN2 


7FE2 CBC6 


01680 UNI 


SET 


0»(HL) ;IF OFF - TURN ON 


7FE4 21DF7B 


01690 


LD 


HL,UNDON ;PT AT UNDERLINE ON CODE 


7FE7 7E 


01700 


LD 


A,(HL) ;GET FUNCTION CHAR 


7FE8 CD8E7F 


01710 UN2 


CALL 


SPOOL j OUTPUT NORMAL CHAR TO 




01720 




;THE SPOOL FILE 


7FEB El 


01730 


POP 


HL {RESTORE REG 


7FEC C3745F 


01740 

01750 j 


JP 


5F74H ;BACK TO SCRIPS IT 




01770 >THIS ROUTINE 


CHECKS EACH VIDEO OUTPUT CHAR TO SEE IF 




01780 ;IT IS 


AN £ CHAR. IF IT IS THE VIDEO IS SENT AN 




01790 UNDERSCORE CHAR INSTEAD. 












01810 ; 






7FEF FE40 


01820 VUNDRL 


CP 


40H ;§ CHAR ? 


7FF1 2004 


01830 


JR 


NZ,VUl ;IF NOT THEN 


7FF3 2B 


01840 


DEC 


HL (BACK UP CURSOR 


7FF4 365F 


11851 


LD 


(HL),5FH /REPLACE CHAR 


7PF6 23 


01860 


INC 


HL 


7FF7 FD3406 


01870 VU1 


INC 


(IY+6) 


7FFA C3B25F 


01860 
01890 ; 


JP 


5FB2H 




01900 ;*****•*»•* 






01910 jSYSTEM 


MESSAGES 




01920 ;******•«*« 






01930 ; 






7FFD 593C 


01940 MSG1 


DEFW 


3C59H 


7FFF 54 


01950 


DEFM 


'TRS-80 MODEL I' 


800E 03 


01960 


DEFB 


3 


800F 953C 


01970 HSG2 


DEFW 


3C95H 


6011 53 


01980 


DEFM 


'SCRIPSIT FILE SPOOLER' 


8028 0D 


01990 


DEFB 


13 


8029 03 


02000 


DEFB 


3 


802A DE3C 


02010 


DEFW 


3 CD EH 


802C 56 


02020 


DEFM 


■VI. 0' 


8030 03 


02030 


DEFB 


3 


8031 4D3F 


02040 


DCFW 


3F4DH 


8033 43 


02050 


DEFM 


•COPYRIGHT (C) 1981 bY CRAIG A. LINDLEY' 


S059 03 


02060 


DEFB 


3 


805„ 873F 


02070 


DEFW 


3F87H 


805C 2A 


02080 


DEFM 


'** UNAUTHORIZED DUPLICATION IS ' 


807B 50 


02090 


DEFM 


'PROHIBITED BY L,vW ••■ 


808F 00 


02100 
02110 ; 


DEFB 





8090 0D 


02120 MSG3 


DEFB 


13 


8091 43 


02130 


DEFM 


•CREATE SPOOL FILE ON DRIVE (0*-3): ■ 


80B4 00 


02140 
02150 ; 


DEFB 





80B5 0D 


02160 MSG4 


DEFB 


13 


80B6 4? 


02170 


DEFM 


■CREATING FILE: ' 


30C5 00 


02180 
02190 ; 


DEFB 





80C6 0D 


02200 HSG5 


DEFB 


13 


80C7 4E 


02210 


DEFM 


■NUMBER OF COPIES (l*-9)i ' 


30E0 00 


02220 
02230 ; 


DEFB 





30E1 0D 


02240 HSG6 


DEFB 


13 


80E2 41 


02250 


DEFM 


'ARE THESE CORRECT (Y*/N) t ' 


80FC 00 


02260 
02270 ; 


DEFB 





30FD 2A 


02280 MSG7 


DEFM 


'** SCRIPSIT SPOOLER PROGRAM ** ' 


811D 42 


02290 
02300 ; 


DEFM 


'BY CRAIG A. LINDLEY' 




023 20 ; SYSTEM 


ERROR 


MESSAGES 












023 40 | 






8130 0D 


023 50 EMSG1 


DEFB 


13 


8131 2A 


02360 


DEFM 


'*• SCRIPSIT PROGRAM NOT FOUND •*' 


8151 0D 


02370 


DEFB 


13 


8152 00 


023 80 
023 90 ; 


DEFB 


1 












02410 ; PROGRAM SUBROUTINES 




02430 ; 








02440 ; INSTRUCTION MOVE ROUTINE 




02450 ; 






8153 E5 


02460 INSMV 


PUSH 


HL j SAVE INSTRUCTION PTR 


8154 010300 


02470 


LD 


BC,3 /BYTES TO MOVE 


8157 EDB0 


02480 


LDIR 


;MOVE IT 

Lisiint 1 continues 
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terisk will blink in the upper right cor- 
ner of the display at the end of every 
print line to indicate proper operation. 
At any time you can abort the despool 
process by holding down the left and 
right arrow keys simultaneously. The 
despooler will disconnect itself from 
the operating system and display an 
"abort" message. If the despooler runs 
to completion, a "print complete" mes- 
sage will appear on the display. 

Despooling Theory 

Study Program Listing 2. When exe- 
cuted, this program also begins execu- 
tion at the label Start on the listing. 
The despooler first protects itself from 
Basic and DOS by modifying the DOS 
top of memory pointer at 4049H. This 
memory pointer is saved so the full 
memory area can be restored when the 
despool process is complete. The pro- 
gram then requests a filespec from the 
operator. A default is available. When 
a valid filespec is input, the file is 
opened and the first record is read into 
the disk I/O buffer located at FFOOH. 
The first byte of the first buffer con- 
tains the number-of-copies byte which 
is then transferred into memory for 
later use. By setting the NRN (next rec- 
ord number) to 0000H, the next read 
will again read the first record of the 
file. The despooler then patches itself 
into the operating system interrupt 
task table and the keyboard scan rou- 
tine. The address of the normal key- 
board driver is saved for restoration la- 
ter. It is used to modify the despool 
code so that calls can be made to it. 

The interrupt task table in the oper- 
ating system (located in SYSO/SYS at 
addresses 4500-45 17H) is a list of rou- 
tine addresses that are executed at in- 
terrupt time. Normally, this list is filled 
with the default address of 45A3H 
which tells the DOS interrupt handler 
not to do anything at the interrupt 
time. When you execute the DOS 
Debug, Trace or Clock functions, the 
operating system then places the ad- 
dresses of these routines into the task 
list so they are executed each interrupt 
time. 1 placed a pointer to my own in- 
terrupt task (HANDLR) into the task 
table (at an ordinarily empty location) 
so it gets executed each interrupt time 
also. By doing this, no other interrupt 
tasks are disturbed so Debug, Clock 
and Trace can run along with the de- 
spooler if desired. 

HANDLR checks the line-printer 
status to see if it is ready for another 
character and checks if another charac- 
ter is ready to be output to the printer. 
It also performs numerous housekeep- 



COMPUTER SHACK 



Double Sided Disks $1 .48 A Side 

Double Density Disks $2.19 

• GUARANTEED 5 YEARS • 

Each month our disk sales have doubled. 
Now we are buying thousands a week. Our 
sales are so great we are getting our own 
label. 

Now COMPUTER SHACK DISKS. These 
are quality disks that are guaranteed for 5 
years. Computer Shack's special vinyl sle- 
eves are available for an additional ten 
cents a disk or at no charge if you order 30 
or more disks. If at anytime in the next 5 
years you get a bad track or sector you 
simply send the disk back to us and we will 
replace it. 
Doubli Ointlty 1 Ilia 35/40 Trick Drlvtf 

$21.99 

DmM OMSlty 2 SMM 38/40 track FLIPPY DISKS 

$29.95 

DaaMa Daaslty 1 SMaMTrack Disks. .... $25.99 
Daaata Daaslty 2 SMa 90 Track FLIPPY DISKS 

$30.95 

Tkasa artcss ara tar 10 disks. 



Three Great New 
Products From 

MULTIDOS 



A NEW version of Multi Dos with Great NEW 
EASY ZAP and NEW TAPE UTILITY with the 
absolutely best BASIC in the industry and 
it's still under a hundred dollars. 

If you already have Multi Dos. Add NEW E 
BASIC to your MULTIDOS and you will be in 
seventh heaven. Makes the regular basics 
look old fashioned. If s like moving up from 
TRS-DOS to Multi Dos all over again. Has 
new graphics and basic commands. 

NEW ZDOS have you ever wondered why 
people spent from 1 00 to 200 dollars for a 
DOS when they got TRS-DOS for nothing? 
Now you can find out for only $39.95. New 
ZDOS has many of the features of MULTI- 
DOS (but not by any means all) for only 
$39.95. 



MULTI DOS $00.05 E BASIC $29.05 

ZOOS $30.05 SUPER DOS $19.05 

DOS PLUS 3.4 $110.00 LOOS $1 19.00 

DOS PLUS FOP. THE MODEL III $220.05 

IMPROVE YOUR TRS-DOS WITH SUPER DOS 

NEW!! IF you like TRS-DOS on the Model III we can make it even better. Some of the 
exciting changes: Fast boot (5 times faster then TRS-DOS). Short Directory from Dos, 
Unlimited backup of Visicalc, Scripsit ect. No more passwords. All known errors are 
patched, new copy of HIBUG, Format has been improved, Error codes spelled out: To 
mention only a few $19.95 

-SUPER DIRECTORY- 

- Aatamatte density racaa nltlsn • Automatic track count rscoa nltlon - 

- Automatic dot racoflnlttan • THa Bast Directory On Tha Markatl - 

- By Mark Faldman - 

AGreat new Directory program with its own operating system written by Vernon Hestor. This 
one program will read any dos as it is delivered by it's publishers except for Tandys new 
model I double density operating system. There is even compatibility between Model I and II. 
The Model I SuperDircan read most Model III disksandthe Model III SuperDircan read most 
Model I disks. SuperDir can even read double density 80 track disks. 
Now with version 23 you can SEARCH the catalog by program name, disc number, extension 
(/cmd), or even do a STRING SEARCH (find all occurences of any combination of letters). It 
will SORT (in seconds) on disc number, program name, remarks, extensions, or catagories. 
You can even add a 25 character description of each program. SPECIAL PRINT ROUTINES 
for Different printers. DISPLAY SCROLLS up and down by line or by the entire screen. 
It has a direct SCREEN EDITOR that almost eliminates typing. SuperDir keeps track of the 
FREE SPACE on your disks. SuperDir is the FASTEST.the EASIEST to use and the ONLY 
directory able to read multiple dos's on the market $39.95 

NEW ORANGE MONITOR. We are a official dealer for the Langly St. Clair replacement CRT 
for the TRS-80. We have put them in our computers here in the office and love them. 
Definitely worth $99.95 



COMPUTER SHACK 

1691 Eason • Pontiac Michigan 48054 ^«53 

Info (313)673-2224 • Orders (800)392-8881 
Master Charge and VISA OK P ease add S3 00 loi shipping mu sa Si' 00 for Canada or Mexico- 
Proper postage outside of U S Canada ■ Mexico 
Dealers: We arc distributors for all items in this ad Write lor our catalog and price list 
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The 

Lawyer's 

Microcomputer™ 

A Newsletter for Lawyers 

Using the TRS-80* 

Seminar 

St. Thomas 

U.S. Virgin Islands 

January 3-10, 1983 

For Lawyers Using 

Radio Shack Computers 

For Details: 

Call Toll Free: 

800-821-6129 

A New Monthly Newsletter 

For Lawyers 

Send $28 For A 

One Year Subscript ton 

The Lawyer's Microcomputer™ 

Post Office Box 1046A 
Lexington, S.C. 29072 



^iSSS"" 



PROFESSIONAL 
FEDERAL INCOME TAX 
PROGRAMS 

FOR TRS-80 MODEL I, II OR III 

Cuts manual production time by as 
much as 75%. 

Determines least tax quickly. 
Saves input information on disk— auto- 
matic transfer of essential information. 
Batch processing possible. 
Uses IRS prescribed computer generated 
print outs. 

Prohibits bypassing of mandatory entries. 
Accuracy assured by triple check logic. 
Enter only pertinent lines-faster than 
line by line. 

Single line correction with automatic 
update of succeeding totals. 
Professionally used-nationally advertised. 
Overlays available. 
Requires 2 disk drives & 48K. 

• BASIC TAX PACKAGE $165.00 • 
INCLUDES 1040, 1040A, 1040EZ 

AND SCHEDULES A&B 

OTHER SCHEDULES $35.00 EACH 

MANUAL $5.00 



MICRO-TAX ^^* 

P.O. Box 4262, Mountain View, CA 94040 

Call: (415) 964-2843 ^339 



/ tiling I continued 



8159 El 
815A C9 



815B 7E 
815C B7 
81SD C8 
815E FE03 

8160 C8 

8161 CD3300 

8164 23 

8165 18F4 



8167 D5 
9168 C5 
8169 3F.0F 
816B CD3300 
816E 112040 
8171 010200 
817 4 EOB0 
8176 CD5B81 

8179 23 

817A B7 

817B 20F1 

817D 3E0E 

817F CD3300 

8182 CI 

8183 Dl 

8184 C9 



8185 CDC901 

8188 AF 

8189 321543 
818C 21FD7F 
818F CD6781 

8192 11A97A 
8195 CD3044 
8198 280C 
819A CDC901 
819D 213081 
81A0 CD5B81 
81A3 C32D40 

81A6 CD2844 



81A9 21FD80 
81AC 11P757 

81AF 013300 
81B2 EDB0 



81B4 


21FD7F 


03160 


81B7 


227752 


03170 


81BA 


221654 


03180 


81BD 


223255 


03190 


81C0 


229359 


03200 


81C3 


22CB59 


03210 


81C6 


22B65D 


03220 


81C9 


221663 


03230 


81CC 


225263 


03240 


81CF 


22DF66 


03250 


81D2 


22B469 


03260 


81D5 


22256E 


03270 


81D8 


221A74 


03280 


81DB 


222874 


03290 
03300 ; 
03310 ; 

03320 ; 


81DE 


3EC3 


03330 


81E0 


32E85F 


03340 


81E3 


329E7A 


03350 


81E6 


32AF5F 


03360 
03370 / 
03380 ; 
03390 / 


81E9 


21857F 


03400 


B1EC 


22E95F 


03410 


81EF 


21CE7F 


03420 


81F2 


229F7A 


03430 


81F5 


21EF7F 


03440 


81F8 


22B05F 


83450 



81rB AF 
81PC 32C852 



02498 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

026 80 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

27 80 

02790 

02800 

02810 

02820 

02830 

02840 

02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03080 

03890 

03100 

03110 

03120 

03130 

03140 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 

03290 

03300 

03310 

03320 

03330 

03340 

03350 

03360 

03370 

03380 

03390 

03400 

03410 

03420 

03430 

03440 

03450 

03460 

03470 

03480 

03490 

I3S0I 

03510 



POP 

RET 



HL 



; 

; SINGLE LINE MESSAGE OUTPUT ROUTINE 
I 



LD 

OR 

RET 

CP 

RET 

CALL 

INC 

JR 



A, (HL) 

A 

Z 

3 

Z 

CHROUT 

HL 

LOUT 



; GET CHAR 
j IS IT ? 
7 IF YES THEN 
/OTHER TERMINATOR 
I IP YES THEN 
/DISPLAY IT 
;NEXT CHAR 
/UNTIL FINISHED 



/MULTIPLE LINE MESSAGE OUTPUT ROUTINE 



» 

MSGOUT 



PUSH 

PUSH 

LD 

CALL 

LD 

LD 

LDIR 

CALL 

INC 

OR 

JR 

LD 

CALL 

POP 

POP 

RET 



DE 

BC 

A, 15 

CHROUT 

DE, CURSOR 

BC,2 

LOUT 
HL 

A 

NZ,MSG01 

A, 14 

CHROUT 

BC 

DE 



START OF THE MAIN PROGRAM 



CALL 

XOR 

LD 

LD 

CALL 

LD 

CALL 

JR 

CALL 

LD 

CALL 

JP 

CALL 



CLRSCN 
A 

(4315H) ,A 

HL,MSG1 
MSGOUT 

DE,DCB 
LOAD 

Z , CONT 
CLRSCN 

HL,EMSG1 

LOUT 

OPSYS 

CLOSE 



/SAVE REGISTERS 

/CURSOR OFF CODE 

/OUTPUT IT 

/CURR CURSOR STORAGE 

•MOVE ADDRESS 

/INTO CURSOR STORAGE 

/DISPLAY HSG LINE 

/"A" REG HAS TERM. CHAR 

/PT AT NEXT SCREEN ADDR. 

/END OF COMPLETE HSG 7 

/LOOP UNTIL FINISHED 

/CURSOR ON CHAR 

/DO IT 

/RESTORE REGISTERS 



/CLEAR DISPLAY 
/CLEAR "A" 
/DEBUG OPP 
/SIGN ON MSG 
/DISPLAY IT 

/PT AT SCRIPS IT DCB 

/LOAD PILE 

/IF NOT AVALIABLE THEN 

/CLEAR DISPLAY 

/NOT POUND HSG 

/DISPLAY IT 



/CLOSE FILE 



/OVERLAY SCRIPSIT SIGN ON MSG WITH A NEW ONE 



LD HL,MSG7 

LD DE,57P7H 

LD BC,51 
LDIR 



/PT AT NEW SIGN ON HSG 
/HOVE INTO PLACE 



/PATCH SCRIPSIT 



; .......... 

I 

/CHANGE LOCATION OF TXTBUP TO HAKE ROOH FOR SPOOLER 



LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 



HL,HSG1 
(5277H) ,HL 
(5416H) ,HL 
(5532B) ,HL 
(5993H) ,HL 
(59CBH) ,HL 
(5DB6H) ,HL 
(6316H) ,HL 
(6352H) ,BL 
(66DPH) ,HL 
(69B4H) ,HL 
(6E25H) ,HL 
(741AH) ,HL 
(7428H) ,HL 



/START OP NEW TXTBUF 



: INSERT LONG JUMP CODE FOR PATCH INSERTION INTO SCRIPSIT 

LD A,0C3H /LONG JMP CODE 

LD (5PE8H),A /PATCH KEYBOARD ROUTINE 

LD (7A9EH) ,A /UNDERLINE ROUTINE 

LD (5FAPH),A /VIDEO UNDERSCORE 

/STORE PATCH ROUTINE ADDRESSES IN SCRIPSIT 



LD 
LD 
LD 
LD 
LD 
LD 

XOR 
LD 



HL,KEYMOD 
(5PE9H) ,HL 
HL.UNDRLN 
(7A9FH) ,HL 
HL,VUNDRL 
(5FB0H) ,HL 



(52C0H) ,A 
PATCH PRINTER I/O TO SPOOLER 



/CLEAR *A" 

/NOP DI INSTRUCTION 



listing I iiinlinun 
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MODEL III DISK DRIVE EXPANSION KITS 
High Qualrty,Low Prices 
/ > / " Dont Be Fooled By The Competition 

Ml fcn« NiHConUin • •SmtchMf Pmi Supply • Dw*l* Natit) Duk CmUpHm. 
3« Ih . AH CjMct iimJ Ptottur, Hara.jr, . *.< jh 
last.Natra. M*mii I That i » S».pl* ** tn, (• Um . 

Drive kit withone 40 track TM- 100- 1 drive 180 KB $479. 
Drive kit withtwo 40 track TM- 100 1 drives 360 KB $699. 
Drive kit with two 40 track TM 100 2 drives 720 KB$899. 
Drive kit with two 80 track TM100-4drives 1.4MB$1099. 






NEWHARD DRIVE 
INTERNAL Model III 
KIT $1745. 



Everything; You Need to upgrade a One Drive Model I 
with a 5 Meg Hard Disk Including DOSPLUS 4.0 
SAVE $70, with a oneDrive Kit, both for only $2 154 



Other Kits 

Model III Green CRT Kit 

Model III RS232 Kit 



IB 



[uxi»&««i 34 $135. 



C.IT0H PRINTERS 

Parallel 
Prowriter 
Prowriter2 
F10 40CI 

F10 55C| 

EPSON PRINTERS 



Paralk 

u" m 

>CDS S1449 
icps $1699 



Serial 




MX80 $ 498 

MX 80 ft $ 559 

MX100 $ 727 
all with Graf trax 

OKIDATA PRINTERS 

NEC PRINTERS /COMPUTERS 
SMITH CORONA TP1 $64a 
VERBATIM DISKETTES 



48K MODEL III $17955>o 

with two double sided drives $1995.°° 

Includes a 48K Model III with Two Tandon Disk Drives. 
Ready to plug in go. 

One Drive 48K Starter System $1595. 

Options For Our Systems with Free Installation 
Green CRT $89 RS232C $89 DOSPLUS 3.4$ 100 



NEWHARD DRIVE 
MODELIII $3295. 

Includes a 48K Model III with one Double Sided Disk 
Drive, a SMegabyte Hard Drive System, and DOSPLUS 4.01 



TANDON DISK DRIVES 

TMlOO-1 4OTrack Single Sided $199 

TMIOO-2 40Track DouMeSided $299 



CASES, POWER SUPPLIES and CABLES 

onedrive case with power supply $4955 

2 drive cable 

drive extender cable 

printer cable 

astec power supply 






NEW EXTERNAL 

MODELIII HARD DISK $1849. 

INCLUDES DOSPLUS 4.0, READY TO PLUG IN, 5 MEG 

OPTIONS INCLUDE MULTIUSER CAPABILITIES, 
UPTO 120MEG.REMGVEABLE HARD DRIVE, ANd 
STREAMER BACKUP SYSTEMS 




713-474-7342 
713-480-6000 

MAIL • P.O.BOX 306 KEMAH ,TEX AS 77565 
Ofl VISIT OUR SHOWROOM IN HOUSTON 

16206 HICKORY KNOLL 

CLOSE TO JOHNSON SPACE CENTER 

DEALERS COAST TO COAST 
COMPUTER KIT BOCA RATON FLORIDA 
KIT N COMPUTERS DACOMA WASHINGTON 



WE SERVICE WHAT WE SELL! 



\- 



6?4^0?/r/ 3^s=- 



FREE SHIPPING 120DAY WARRANTY 



:'.Ve accept :Vica MasterCard Certified Checks Money Orders 
!and CaO.D. . C.C.J, add 81.50, Air UPS extra. 



^455 



■=^-*CSSir 



Hfe 









DECIPHER 

If you need to learn 
assembly language 

Without DECIPHER, you can write 
programs in assembly language, but 
you can't read them-unless you 
memorize 3 or 4 hundred number 
codes. If you can't read what others 
have written, learning becomes al- 
most impossible, DECIPHER trans- 
lates the number codes back to the 
original-such as statements like 
CALL nnnn & IP nnnn (equivalent to 
Basic COSUB & GOTO) DECIPHER 
also has an extensive array of other 
features for testing, modifying, print- 
ing, I O etc. 

for TRS-80 Model II w/64k $48 

ALDEVCO (513) 561-7671 

5725 Dragon Way 
Cincinnati, Ohio 45227 



MEMOREX 

FLEXIBLE DISCS 

WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for prices and information Dealer 
inquiries invited and COD's 
accepted 




2^3 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo CA 
93401 In Cal call 
(800)592-5935 or 
805)543-1037 

^207 



H OPTIONS-BO, NOW FOR 
■ A ppLE S. TRS-80 




OPTION 
INVESTING 


H1rF*OC3R«I"1 analyses 
1 return from 1— i sted 
b stock opt i oim 

b! investing 




1 HANDLES CALLS, PUTS, SPREADS, IN 

■ AND OUT i COMMISSIONS, RISK, COST 
1 OF MONEY, DIVIDENDS. TABLES AND 
1 BRAPH8. PRINTS, STORES TO DISK. 
1 INDEXED MANUAL A COMPLETE BUI DC 
|TO OPTION INVESTING. H/C «■ VISA. 

■ •129. SEND FOR FREE BROCHURE. 

■ OPT IONS — SO 9 BOX 471 

■ CONCORD, MASS 01742 

M'thmoww \m\ caw *imt*m mu cawrti, at 
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81FF 


21D47B 


03520 




LD 


HL,IN 


;PT AT STATUS IN INST. 


8202 


11635F 


03530 




LD 


DE,5F63H 


;PATCi: POINT 11 


8205 


CD53B1 


03540 




CALL 


INSMV 




8208 


113F66 


03550 




vo 


DE,663FH 


;PATCH POINT »2 


820B 


CDS3 81 


03560 




CALL 


INSMV 




B20E 


115066 


03570 




LD 


DE,6650H 


; PATCH POINT #3 


8211 


CD53 81 


03580 




CALL 


INSMV 




8214 


21DA7B 


03590 




LD 


HL,O0T 


; PT AT PRT OUT INST. 


8217 


114452 


03600 




LD 


DE,5244H 


; PATCH POINT 4 4 


821A 


CD53 81 


03612 




CALL 


INSMV 




821D 


115E66 


03620 




LD 


DE,665EH 


/PATCH POINT #5 


8220 


CD5381 


03630 




CALL 


INSMV 




8223 


112267 


03640 




LD 


DE,6722H 


;PATCH POINT 46 


8226 


CD5381 


03650 




CALL 


INSMV 




8229 


11977A 


03660 




LD 


DE,7A97H 


; PATCH POINT #7 


822C 


CD5381 


03670 
03680 


1 


CALL 


INSMV 








03690 


/PATCH 


SCRIPSIT 


MEMORY SIZE 


ROUTINE 






03700 


1 








822P 


21D77B 


03710 




LD 


HL,MEM 


;PT AT MEM LIMIT INST. 


8232 


116052 


03720 




LD 


DE,5260B 


; PATCH POINT 4 8 


8235 


CD5381 


03730 
03740 


» 


CALL 


INSMV 








03750 


j PATCH 


SCRIPSIT 


END ROUTINE 








03760 


> 








8238 


21627F 


03770 




LD 


HL,C SPOOL 


; CLOSE SPOOL FILE 


823B 


229565 


03780 
03790 
03800 


1 


LD 


(6595H) ,BL 


1 STORE IN "END" ROUTINE 


















03810 
03820 


> ON WITH THE SHOW 




















03830 


1 








823E 


CDC901 


03840 


INPARM 


CALL 


CLRSCN 


/CLEAR SCREEN 


8241 


211180 


03850 




LD 


HL,MSG2*2 


; PROGRAM NAME 


8244 


CD5B81 


03860 




CALL 


LOUT 




8247 


2190B0 


03870 




LD 


HL.MSG3 


; DRIVE • MSG 


824A 


CD5B81 


03880 




CALL 


LOUT 




8240 


CD4900 


03890 




CALL 


KEYIN 


;GET RESPONSE 


8250 


FE0D 


03900 




CP 


13 


t DEFAULT 7 


8252 


280E 


03910 




JR 


Z.INl 


;IF YES THEN 


8254 


FE30 


03920 




CP 


i . 


1 CHECK RANGE 


8256 


38E6 


03930 




JR 


C, INPARM 




8258 


FE34 


03940 




CP 


■4« 




B25A 


30E2 


03950 




JR 


NC, INPARM 


/IF IN RANGE CONTINUE 


B25C 


CD3300 


03960 




CALL 


CHROUT 


/DISPLAY SELECTION 


B25F 


32D17B 


03970 




LD 


(FNAME+9) ,A 


; STORE IN FILENAME 


8262 


21C87B 


03980 


INI 


LD 


HL,FNAME 


/PT AT FILENAME 


8265 


11A97A 


03990 




LD 


DE,DCB 


; DCB STORAGE 


8268 


CD1C44 


04000 




CALL 


PARSE 


;MOVE INTO PLACE 


826B 


21C97A 


04010 




LD 


HL,DISKIO 


/DISK I/O BUFFER 


826E 


0600 


04020 




LD 


B,0 


/LRL-256 


8270 


CD2044 


04030 




CALL 


INIT 


/INITIALIZE FILE 


8273 


C28182 


04040 




JP 


NZ, ERROR 


> IF PROBLEM THEN 


8276 


381E 


04050 




JR 


C,NEW 


J IF NEW FILE THEN 


8278 


CD2844 


04060 




CALL 


CLOSE 


;ELSE CLOSE OLD FILE 


827B 


21CB7B 


04070 




LD 


HL,FNAME+3 


/PT AT FILE VER • 


827E 


34 


040B0 




INC 


(HL) 


> UPDATE IT 


827F 


18E1 


04090 
04100 




JR 


INI 


/TRY AGAIN FOR NEW FILE 






04110 


; REPORT DISK I/O ERROR 








04120 


1 








8281 


F5 


04130 


ERROR 


PUSH 


AF 


/SAVE ERROR CODE 


8282 


3E0D 


04140 




LD 


A, 13 


jCR TO DISPLAY 


8284 


CD3300 


04150 




CALL 


CHROUT 




8287 


Fl 


04160 




POP 


AF 


/RESTORE ERROR CODE 


8288 


F6C0 


04170 




OR 


0C0H 


/SHORT ERROR MSG 


828A 


CD0944 


04180 




CALL 


ERROUT 




828D 


11A97A 


04190 


DONE 


LD 


DE , DCB 


/PT AT DISK DCB 


B290 


CD2844 


04200 




CALL 


CLOSE 


/CLOSE FILE 


8293 


C32D40 


04210 
04220 


f 


JP 


OPSYS 


/BACK TO OS 






04230 


;JUMP HERE WHEN 


NEW FILE IS 


CREATED 






04240 


t 








8296 


21B580 


04250 


NEW 


LD 


HL,MSG4 


/FILE CREATE MSG 


8299 


CD5B81 


04260 




CALL 


LOUT 




829C 


21C87B 


04270 




LD 


HL.PNAME 


>PT AT FILE NAME 


829F 


CD5B81 


04280 




CALL 


LOUT 


/DISPLAY IT 


82A2 


21C680 


04290 


NEWl 


LD 


HL,MSG5 


»PT AT • OP COPYS MSG 


82A5 


CD5B81 


04300 




CALL 


LOUT 




82A8 


CD4900 


04310 




CALL 


KEYIN 


/INPUT 0-9 


82AB 


CD3300 


04320 




CALL 


CHROUT 


/DISPLAY ANSWER 


82AE 


FE0D 


04330 




CP 


13 


/DEFAULT 7 


82 B0 


280A 


04340 




JR 


Z , NEW2 


/IF YES THEN 


82B2 


D630 


04350 




SUB 


30H 


/CHK LOWER BOUND 


82B4 


3 SEC 


04360 




JR 


CNEWl 


/IF < 30H THEN ASK AGAIN 


82B6 


FE0A 


04370 




CP 


0AH 


/CHK UPPER BOUND 


82B8 


30E8 


04380 




JR 


NCNEWl 


/IF > 39H THEN ASK AGAIN 


82BA 


1802 


04390 




JR 


NEW3 




82BC 


3E01 


04400 


NEW2 


LD 


A,l 


/DEFALUT - 1 COPY 


82BE 


32C97A 


04410 
04420 


NEW3 


LD 


(DISKIO) f A 


/STORE * IN 
/DISK I/O BUF 


82C1 


21E180 


04430 




LD 


HL,HSG6 


/CORRECT MSG 


82C4 


CD5B81 


04440 




CALL 


LOUT 




82C7 


CD4900 


04450 




CALL 


KEYIN 


/GET RESPONSE 


82CA 


CBAF 


04460 




RES 


5, A 


/CONV TO UC 


82CC 


FE4E 


04470 




CP 


•N' 


; ANSWER NO ? 


82CE 


C23F52 


04480 
04490 


1 


JP 


NZ,WP 


/IF NOT EXECUTE SCRIPSIT 


82D1 


11A97A 


04500 




LD 


DE,DCB 


/IF INCORRECT KILL FILE 


82D4 


CD2C44 


04510 




CALL 


KILL 




82D7 


C33E82 


04520 
04530 
04540 


; 
i 


JP 


INPARM 


/GO ASK AGAIN 


8185 




04550 




END 


START 




00000 TOTAL 


ERRORS 
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irS YOUR MOVE 

MAKE YOUR MOVE NOW ON COMPUTER SUPPLIES 

FROM CHECK-MATE™ A K 



RADIO SHACK' 

LINE PRINTER 

RIBBONS 



¥ 



EPSON 
RIBBONS 



KIBBUN5 MX - 80 

THE EPSON MX - 80 CARTRIDGE 

LINE PRINTERS 1 ,11 & IV mm J"V ^ 

(Radio Shack P/N's 26-1150 26-1152,26-1154) |\/|yV- lOO 

2.99 Ed. 31.99 DOZ. ZIP BOX REFILLS DESIGNED TO FIT 

THE EPSON MX - 100 REFILLABLE CARTRIDGE 

LINE PRJNTER Ml & V « 9 . 95 Ea. »1 07.46 Doz. 

(Radio Shack P N 26-1414) 

$ 6.49Ea. $ 73.99Doz. 

rjA|CV WHFFI LAbtL Or tUIALv) 

UM, ° f «nttL. 3 1/2x15/16" 1-up pin-feed Labels 

LINE PRINTER NOW $ 2.99/M (SM Minimum) 

(Radio Shack P N) 

26-1419 Multi Strike 3 1/2 x 15/16" CONTINUOUS LABELS 

26-1449 Nylon O.APOnQQ OM Q -UO" PiyPn PARRIPR 



LABEL SPECIALS 

3 1/2x15/16" 1-up pin-feed Labels 
NOW $ 2.99/M (5M Minimum) 

3 1/2 x 15/16" CONTINUOUS LABELS 
2-ACROSS ON 9 1/2" FIXED CARRIER 



$ 6.49 Ea. $ 73.99 Doz. A NOW '3.99/M 



(10M Minimum) 



ALL PRICES INCLUDE SHIPPING IN CONTINENTAL U.S. (MASS. RESIDENTS ADD 5% SALES TAX) 

MINIMUM ORDER FOR RIBBONS $ 29.85 

"RADIO SHACK IS A REGISTERED TRADEMARK OF THE TANDY CORP. 



Check-Mate 



POST OFFICE BOX 103 RANDOLPH, MA 02368 

CALL TOLL FREE (800) 343-7706 ' IN MASSACHUSETS (617) 963-7694 

CALL OR WRITE FOR OUR FREE CATALOG 



ing tasks including incrementing and 
decrementing pointers and counters. It 
also polls a flag (Flag) to determine if 
the byte to be output is the number-of- 
copies byte and if so, skips it. 

The other interface for the despooler 
is the keyboard driver. Every time the 
keyboard is scanned for an input char- 
acter, all other despooler housekeeping 
tasks are performed. During these 
times the spool file is read into the disk 
I/O buffer if more characters are need- 
ed for the printer. The abort function 
is also checked during each of the key- 
board scan times. 

Getting the Programs to Work 

Type the source code provided into 
an editor/assembler. This makes it 
easy to relocate the despool program 
for your correct memory size. The de- 
spooler should reside at the top of your 
memory, with the ORGs for the vari- 
ous memory sizes shown in Listing 2. 
The spooler program must be assem- 
bled at the origin location shown in 
Listing 1 regardless of memory size. I 
used the filenames SSPOOL/CMD for 
the spooler program and DESPOOL/ 
CMD for the despooler program. I 
called it SSPOOL, for Scripsit Spool- 
er, to distinguish it from NSPOOL, 




TEACH YOUR 
CHILDREN 



ALPHA— Our best seller. Enhanced with larger letters 
and three excercises. Alphabet recognition tor pre 
schoolers. 



ALPHA II— More alphabet excercises. Find the dupli 
cate letters; letters before and after; put in alpha 
betical order. 



SIGMA— Addition problems for grades 1-3. 



SIQMA-EX— Addition problems for the younger or 
slower learner 



SIQMA-12— Addition, subtraction, multiplication and 
division Nine speed levels Time left and total time 
constantly displayed. 

SPE-L— Spelling practice for grades 2-4. 



Learning to Count Money— A THREE PROGRAM 
SYSTEM THAT TEACHES THE IMPORTANT SKILL OF 
COUNTING MONEY. SUPERIOR GRAPHICS (SOLD 
BY THE SET ONLY) 



Available on cassette only for TRS-80 Models I and III 
$6.95 each, two for 012.00. four for S21.00 Learning to 
Count Money— 819.95 



Add S1.00 fo total order tor tirst class shipment 

^188 



n 



Mercer System* Inc. 

07 Scooter Lane 

Hlcktvllle. N.V. I I Ml 



which is a spooler I have also written to 
use with Basic and all other print 
sources that use the printer device con- 
trol block for channeling of printer 
I/O. I will present this program in a fu- 



ture article. The despooler presented in 
this article works with both spoolers. ■ 

Craig Lindley can he reached at P.O. 
Box 704, Colorado Springs, CO 80901. 









Program Listing 2. Despooler 








00100 














00110 


;*•* 


PRINT 


SPOOLER UTILITY 


• •• 






00120 


»•*• 


DESPOOLER VI. 


• *• 






00130 


,... 


NOVEMBER 11, 1981 


**• 






00140 


,... 




BY 


**• 






00150 
00160 
00170 


»••* 


CRAIG A. LINDLEY 


• •• 






; 












00160 














00190 


(SYSTEM 


EQUATES 










00200 














00210 


1 








J840 




00220 


ARROWS 


EQU 


3840H 


(CURSOR ARROWS KEY ADDR 


022C 




00230 


BLINK 


EQU 


022CH 


(BLINK "*" ROUTINE 


0033 




00240 


CHROUT 


EQU 


.0033H 


;CHAR OUT ROUTINE 


4020 




00250 


CURSOR 


EQU 


4020H 


; CURSOR STORAGE 


0060 




00260 


DELAY 


EQU 


0060H 


(ROM DELAY ROUTINE 


4510 




00270 


INT25 


EQU 


4510H 


(INTERRUPT TABLE ADDR 


4016 




00280 


KEYDCB 


EQU 


4016H 


1 KEYBOARD DCB 


05D9 




00290 


LINEIN 


EQU 


05D9H 


(ROM LINE INPUT ROUTINE 


44CF 




00300 


LOUT 


EQU 


44CPH 


(DOS LINE OUT ROUTINE 


4424 




00310 


OPEN 


EQU 


4424H 


(OPEN DISK FILE 


40 2D 




0B320 


OPSYS 


EQU 


402DH 


(REENTER DOS 


441C 




00330 


PARSE 


EQU 


441CH 


(PARSE F1LESPEC ROUTINE 


4436 




00340 


READ 


EQU 


4436H 


(READ DISK FILE 


4049 




00350 

00360 


TOPMEM 


EQU 


4049H 


(DOS TOP OF MEM PTR 


FD20 




00370 

00380 


1 


ORG 


0FD20H 








00390 


. •••**•**** 










00400 


I SYSTEM 


STORAGE 


LOCATIONS 








00410 


• **•»** 


• *** 










00420 


1 








0020 




00430 


DCB 


DEFS 


32 


(FILESPEC STORAGE 


FD28 




00440 


EOF 


EQU 


DCB+8 


(EOF STORAGE IN DCB 


FD2C 




00450 


ERN 


EQU 


DCB+12 


(END REC. NUMBER IN DCB 


FD2A 




00460 


NRN 


EQU 


DCB+10 


(NEXT REC. NUMBER IN DCB 


FD40 


00FF 


00470 


BUFPTR 


DEFW 


DISK 10 


(POINTER TO DATA BUFFER 


FD42 


0000 


00480 


CHRCNT 


DEFW 





(BUFFER CHAR COUNT 


0001 




00490 


COPYS 


DEFS 


1 


(• OF COPIES STORAGE 


0001 




00500 


EOFCNT 


DEFS 


1 


(EOF SECTOR BYTE COUNT 


PD46 


00 


00510 
00520 


FLAG 
1 


DEFB 


1 


(1ST CHAR OF FILE FLAG 


FD47 


50 


00530 


FNAME 


DEFM 


'PRT1/DAT 1 


(DEFAULT FILESPEC 


FD4F 


0D 


00540 




DEFB 


13 




FD50 


Be 


00550 

00560 




DEFB 


8 




0002 




00570 


KEYDVR 


DEFS 


2 


(KEYBOARD DVR STORAGE 


0002 




00580 


KEMSIZ 


DEFS 


2 


(TRUE MEM SIZE STORAGE 


0002 




00590 


SAVTSK 


DEFS 


2 


(INTERRUPT TASK STORAGE 


FD57 


0000 


0B60B 
00610 
00620 
00630 


RECNUN 


DEFW 


8 


(CURRENT SECTOR RECORD 






(SYSTEM 


MESSAGES 








00640 














00650 


1 








FD59 


46 


00660 


HSG1 


DEFM 


'FILEj ' 




FD5F 


03 


00670 
00680 


» 


DEFB 


3 




FD60 


46 


00690 


MSG2 


DEFM 


•FILE NOT FOUND 


1' 


?D70 


0D 


00700 
00710 


» 


DEFB 


13 




FD71 


46 


00720 


NSG3 


DEFM 


•FILE COPIES: ' 




PD7E 


03 


00730 

00740 


1 


DEFB 


3 




FD7F 


41 


00750 


NSG4 


DEFM 


' ABORTED ' 




FD86 


0D 


00760 
00770 


1 


DEFB 


13 




FD87 


SB 


00780 


NSG5 


DEFM 


'PRINT COMPLETE 




FD95 


BD 


B079B 

00800 
00810 


; 


DEFB 


13 




















00820 
00830 
00840 


(START 


OP THE MAIN PROGRAM 








; 








FD96 


2A4940 


00850 


START 


LD 


HL, (TOPMEM) 


(GET TRUE TOP OF MEM 


FD99 


2253FD 


00860 




LD 


(MEMSIZ) ,HL 


(STORE FOR LATER 


FD9C 


2116FD 


00870 




LD 


HL,DCB-10 


(MEMORY PROTECT LIMIT 


FD9F 


224940 


00880 
00B90 


; 


LD 


(TOPMEM) ,HL 


(DOS TOP OF MEM PTR 


FDA2 


2120FD 


00900 


ASK 


LD 


HL,DCB 


;PT AT INPUT BUFFER 


FDA 5 


cs 


00910 




PUSH 


HL 


(SAVE ADDRESS 


FDA 6 


0620 


00920 




LD 


B,32 


1 STORE 32 


FDA 8 


3E20 


0093B 




LD 


A,20H 


(SPACE CODES FOR DCB 


FDAA 


77 


00940 


FILL 


LD 


(HL),A 


(STORE SPACE 


FDAB 


23 


00950 




INC 


HL 




FDAC 


10FC 


00960 
00970 




DJNZ 


FILL 


(DO ALL 32 


FDAE 


2159FD 


00980 




LD 


HL.MSG1 


(SIGN ON MSG 


FDB1 


CDCF44 


00990 




CALL 


LOUT 


/DISPLAY MSG 


FDB4 


El 


01000 




POP 


HL 


(RESTORE BUF ADDRESS 
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FDB5 


•620 


01110 




LD 


B,32 


;32 CHAR MAX FILESPEC 


FDB7 


CDD905 


01020 




CALL 


LINEIN 


(GET FILESPEC 


PDBA 


78 


01030 




LD 


A,B 


;GET INPUT LENGTH 


PDBB 


B7 


01040 




OR 


A 


;USER FILESPEC ? 


PDBC 


20BC 


01058 
81868 


! 


JR 


Nl, DOPEN 


(IF YES THEN 






81878 


(USE DEFAULT 


FILES PEC 








81888 


1 








PDBB 


1147FD 


01898 




LD 


DE,FNAME 


;PT AT DEFAULT SPEC 


PDC1 


EB 


01100 




EX 


DE,HL 




FDC2 


ES 


01110 




PUSH 


HL 


;PT AT FNAME 


PDC3 


CD1C44 


01120 




CALL 


PARSE 


(MOVE SPEC INTO DCB 


FDC6 


El 


01130 




POP 


HL 




FDC7 


CDCF44 


01140 
01150 


1 


CALL 


LOUT 


; DISPLAY DEFAULT 






01160 


• »»»•*»••»* 










01170 


;OPEN 


THE SPOOL FILE 








01188 


.»*•******« 










81198 


1 








FDCA 


2100PF 


01200 


DOPEN 


LD 


HL.DZSKIO 


;DISK I/O BUFFER 


FDCD 


1120PD 


01210 




LD 


DE,DCB 


;PT AT DCB 


FDD0 


•611 


01220 




LD 


B,0 


;LRL-fl 


PDD2 


CD2444 


01230 




CALL 


OPEN 


;OPEN SPOOL PILE 


FDD5 


28IP 


01240 




JR 


Z,CONT 


(IF ALLRIGHT THEN 


FDD7 


216BPD 


01250 




LD 


BL,MSG2 


(DISK ERROR MSG 


FDDA 


CDCP44 


01260 




CALL 


LOUT 


(DISPLAY IT 


FDDD 


2A53PD 


01270 




LD 


HL, (MEMSIZ) 


(GET FULL MEMORY SIZE 


FDEI 


224941 


01288 




LD 


(TOPMEM) ,HL 


(STORE FOR DOS 


FDE3 


C32D40 


01290 
01300 


DOS 

; 


JP 


OPSYS 


(BACK TO DOS 






01310 














01320 

01330 


J LINK 


UP INTERRUPT HANDLER 




















01340 


1 








FDE6 


2171PD 


01350 


CONT 


LD 


HL,MSG3 


(COPIES MSG 


FDE9 


CDCP44 


01360 




CALL 


LOUT 




FDEC 


1120FD 


01370 




LD 


DE,DCB 


(POINT AT DCB 


FDEF 


CD3644 


01380 




CALL 


READ 


(READ 1ST RECORD FOR 


FDF2 


3A00FF 


01390 




LD 


A, (DISKIO) 


(FOR COPY COUNT 


FDf5 


3244PD 


01400 




LD 


(COPYS) ,A 


(STORE IN MEMORY 


POPS 


C630 


01410 




ADD 


A,30H 


(CONVERT TO ASCII 


PDPA 


CD3300 


01420 
01430 




CALL 


CHROUT 


(DISPLAY 
(AND DISPLAY 


FDFD 


218080 


01440 




LD 


HL,0 


(REWIND FILE DCB 


PECO 


222AFD 


01450 
01460 




LD 


(NRN) ,HL 


(STORE IN DCB 


FE03 


F3 


01470 




DI 




(DISABLE INTERRUPTS 


FE04 


2A1045 


01480 




LD 


HL, (INT25) 


(GET TABLE DATA 


FE07 


2255FD 


01490 




LD 


(SAVTSK) ,HL 


;AND SAVE 


FE0A 


2128PE 


01500 




LD 


HL, PRTINT 


(POINTER TO PRT ROUTINE 


FE0D 


221045 


01510 




LD 


(INT25),HL 


(INTO INTERRUPT TABLE 


FEU 


3A28FD 


01520 




LD 


A, (EOF) 


(EOF BYTE COUNT FROM DCB 


FE13 


324SFO 


01530 




LD 


(EOFCNT) ,A 


(STORE IN MEMORY 


FE16 


2A1640 


01540 




LD 


HL, (KEYDCB) 


(GET KEY DVR ADDR 


FE19 


2251PD 


01550 




LD 


(KEYDVR) , HL 


(STORE IN MEMORY 


FE1C 


228BFE 


01560 




LD 


(KEY+1) ,HL 


(STORE FOR JUMP 


FE1F 


2163FE 


01570 




LD 


HL, NEWDVR 


(KEY SCAN ROUTINE 


FE22 


221640 


01580 




LD 


(KEYDCB) ,HL 


(INTO DCB 


FE25 


PB 


01590 




EI 




(INTERRUPTS ON 


FE26 


18BB 


81680 
81618 
81628 


l 


JR 


DOS 


(BACK TO DOS WITH 
(INTERRUPT TASK ENABLED 






81638 














81648 
81658 


; INTERRUPT HANDLER ROUTINE 




















81668 


; 








FE2B 


2AFE 


81678 
01680 


PRTINT 


DEPW 


HANDLR 


(POINTER TO INTERRUPT 
(HANDLER 


PE2A 


F5 


01690 


BANDLR 


PUSH 


AF 


(SAVE REGS 


FE2B 


E5 


01700 




PUSH 


HL 




FE2C 


DDES 


01710 




PUSH 


IX 




PE2E 


DD2146PD 


01720 




LD 


IX, FLAG 


(PT AT 1ST CHAR FLAG 


PE32 


3AE837 


01730 




LD 


A,(37E8H) 


(READ PRT STATUS 


FE35 


CB7P 


01740 




BIT 


7, A 


(RDY ? 


FE37 


2025 


01750 




JR 


NX, DONE 


(IF NOT THEN 


PE39 


2A42PD 


01760 




LD 


HL, (CBRCNT) 


(GET CHAR COUNT 


FE3C 


7D 


01770 




LD 


A,L 


(TEST POR ZERO 


PE3D 


B4 


01780 




OR 


B 




FE3E 


281E 


01790 




JR 


2, DONE 


(IF ZERO THEN 


FE40 


2B 


01800 




DEC 


HL 


(DEC CHAR COUNT 


PE41 


2242PD 


01810 




LD 


(CHRCNT) ,HL 


(STORE NEW COUNT 


FE44 


2A40PD 


01820 




LD 


HL, (BUFFTR) 


(GET CHAR ADDRESS 


FE47 


7E 


01830 




LD 


A, (HL) 


(GET CHAR 


PE4B 


DDCB0046 


01B40 




BIT 


•MIX) 


(• OP COPYS BYTE ? 


PE4C 


2803 


01858 




JR 


Z,SKIP 


(IF YES THEN 


FE4E 


32E837 


01860 




LD 


(37E8B) ,A 


(OUTPUT TO PRINTER 


FE51 


DDCB00C6 


01870 


SKIP 


SET 


8, (IX) 


(SET FLAG 


FE55 


PE0D 


01888 




CP 


13 


(DATA - CR ? 


PE57 


CC2C02 


■91890 




CALL 


Z, BLINK 


(BLINK ••" 


PE5A 


23 


01900 




INC 


HL 


(BUMP PTR 


FE5B 


2240FD 


01918 




LD 


(BUFPTR) ,HL 


(STORE NEW PTR 


FE5E 


DDE1 


81928 


DONE 


POP 


IX 


(RESTORE REGS 


FE60 


El 


81930 




POP 


HL 




mi 


Fl 


01940 




POP 


AF 




FE62 


C9 


01950 
01960 
01970 


; 


RET 






















01980 
81990 


(LINK 


TO KEYBOARD SCAN 




















82000 


1 








FE63 


3A4038 


02010 


NEWDVR 


LD 


A, (ARROWS) 


(ADDRESS OF <- AND -> 


IBM 


r&ci 


12820 




CP 


SIB 


(MANUAL ABORT 7 


PE6 8 


2819 


02030 




JR 


NZ.NEWl 


(IF NOT THEN 

Listing 2 continues 



tJttMG 

FOR YOUNG CHILDREN 



Nine educational and entertaining 
games controlled by a single pro- 
gram. Even very young children can 
select a game, play it, and select a 
difterent game. ALL BY THEMSELVES! 

• PICTURE MENU GIVES CHILDREN 
CONTROL 

• MATCH NUMBERS AND LETTERS 

• COUNT COLORFUL BLOCKS 

• ADD AND SUBTRACT STACKS OF 
BLOCKS 

• LEARN THE ALPHABET 

• PRACTICE SPELLING NAMES 

• COMPARE SHAPES 

• DRAW AND SAVE COLORFUL PIC- 
TURES 

The large numbers and letters till the 
screen with color. Children enter 
single key stroke responses and get 
immediate visual and musical feed- 
back. Hints are provided when ap- 
propriate. Beyond just teaching 
children basic skills. EARLY GAMES 
makes them feel comfortable as they 
control the computer. Designed for 
children ages 2V» to 6 years old. 

EARLY GAMES otters the child a 
diverse selection ot activities which 
stimulate the process ot problem 
solving as well as foster individual 
creativity. 

Pamela Bach, Director 
Youth World Day Care Center 

I took EARLY GAMES home for my kids 
and they really liked it! It held their at- 
tention and they learned trom it! 

Jeannette Fritze 
Computer Saleswoman 

EARLY GAMES can help children 
learn new concepts, information, 
and skills and also introduce them to 
the joys and benefits of home com- 
puters. 

Peter Clark, faculty 

Institute of Child Development 

University of Minnesota 

All nine games for $29.95 

(Minnesota residents add 5% sales fax) 

IBM Personal Computer, 

Apple II Plus 

TRS80 Color Computer 16K Disk or Cassette 

Model I and III 32K Disk or 16K Cassette 
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VISAJMasterCard 

LEARNING TOOLS INC 

educational software 

Suite 140E 
Shelard Plaza North 
Minneapolis. MN 55426 
1-800-328-1223 

Minnesota 'esiaents call 

612-544-4720 - 402 
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CANADIANS 

NOW IN STOCK 

ADVENTURE INTERNATIONAL 

ACORN SOFTWARE 

APPARATINC. 

BIG FIVE 

COMPUTERWARE 

EPSON PRINTERS 

INSTANT SOFTWARE 

MARK DATA 

MED SYSTEMS 

FANTASTIC SOFTWARE 

SPECTRAL 

WORD PROCESSORS 

BOOKS 

DISK DRIVES 

DISKETTES 

LOWER CASE MOD — MOD I 
$29.95 + S2.00S&H 

AND MORE 

MODI • MOD III • COLOR 

Visa & Mastercard 

Phone or Write for Catalogue 
(403)423-3919 

CMD MICRO 

10546- 106 Street 

Edmonton, Alberta 

T5H 2X6 



• 181 




First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge). 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random vanate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
plete documentation. 

Complete package with manual — $125 

To order, send payment plus $2,00 shipping 
and handling to: 

Quant Systems 

P.O. Box 628 

Charleston, S.C 29402 ^ ig4 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 



/ ISIing 
FE6A 


.' continued 
21C03F 


02040 




LC 


HL,3PC0H 


;POS CUROSR ON LAST 


FE6D 


222040 


02050 




LD 


(CURSOR) ,HL 


jLINE 


FE70 


217FFD 


02060 




LD 


HL.MSG4 


; ABORT MSG 


FE73 


COCF44 


02070 




CALL 


LOUT 


.•DISPLAY MSG 


FE76 


CDB4FE 


02080 




CALL 


DISCON 


; DISCONNECT FROM OS 


FE79 


C5 


02090 




PUSH 


BC 


;SAVE REG 


FE7A 


010000 


02100 




LD 


BC,0 


; DELAY COUNT 


FE7D 


CD6000 


02110 




CALL 


DELAY 




FE80 


CI 


02120 




POP 


BC 




FE81 


AF 


02130 




XOR 


A 


;*A" - 


FE82 


C9 


02140 
02150 
02160 


I 
;***** 


RET 










02170 


;JUMP 


HERE IF 


NOT MANUAL ABORT 








02180 














02190 


; 








FE83 


2A42FD 


02200 


NEWl 


LD 


HL, (CHRCNT) 


;GET CHAR COUNT 


FE86 


7D 


02210 




LD 


A,L 


;TEST FOR ZERO 


FE87 


B4 


02220 




OR 


H 




FE88 


2803 


02230 




JR 


Z, RDISK 


;IF ZERO - READ DISK 


FE8A 


C30000 


02240 

02250 
02260 


KEY 


JP 


S-S 


;TO NORMAL KEY ROUTINE 


















02270 


;READ 


DISK RECORD 








02280 














02290 










FE8D 


1120FD 


02300 


RDISK 


LD 


DE,DCB 


;PT AT DCB 


FE90 


CD3644 


02310 




CALL 


READ 


;READ RECORD 


FE93 


2840 


02320 
02330 
02340 




JR 


Z,ROK 


j IF ALLRIGHT THEN 


















02350 


; CHECK 


FOR MULT IP IK COPIES 








02360 














02370 


; 








FE95 


PE1C 


02380 




CP 


1CH 


;EOF ERROR CODE ? 


FE97 


2017 


02390 




JR 


NZ, ABORT 


;IF NOT - REAL PROBLEM 


FE99 


2144FD 


02400 




LD 


HL,COPYS 


jPT AT I OF COPIES 


FE9C 


35 


02410 




DEC 


(HL) 


1-1 


FE9D 


2811 


02420 




JR 


Z, ABORT 


;IF ALL DONE THEN 


FE9P 


210000 


02430 




LD 


HL,0 


.•PREPARE TO REWIND 


FEA2 


222AFD 


02440 




LD 


(NRN) ,HL 


jFILE TO BEGINNING 


FF.A5 


2257FD 


02450 




LD 


(RECNUM) ,HL 


} CURRENT SEC RECORD - 


FEA8 


3A28FD 


02460 




LD 


A, (EOF) 


>GET EOF COUNT 


FEAB 


3245FD 


02470 




LD 


(EOFCNT) ,A 




FEAE 


18DA 


02480 
02490 
02500 


; 


JR 


KEY 








02510 


fIF ERROR OR 


FINISHED - DISCONNECT EVERYTHING 






02520 


. ••»*•*«»** 










02530 


; 








FEB0 


218AFE 


02540 


ABORT 


LD 


HL,KEY 


jCONT ADDR ON STACK 


FEB3 


ES 


02550 




PUSH 


HL 




FEB4 


F3 


02560 


DISCON 


DI 




; DISABLE INTERRUPTS 


PEB5 


2A55FD 


02570 




LD 


HL, (SAVTSK) 


;GET INTERRUPT TASK 


FEB8 


221045 


02580 




LD 


(INT25) ,HL 


; BACK INTO OS 


FEBB 


2A51FD 


02590 




LD 


HL, (KEYDVR) 


;NORM KEY DRIVER 


FEBE 


221640 


02600 




LD 


(KEYDCB) ,HL 


;INTO DCB 


FECI 


2A53FD 


02610 




LD 


HL, (MEMSIZ) 


;GET TRUE MEM SIZE 


FEC4 


224940 


02620 




LC 


(TOPMEM) ,HL 


7 STORE FOR DOS 


FEC7 


21C03F 


02630 




LD 


HL.3FC0H 


;POS CURSOR ON LAST 


FECA 


222040 


02640 




LD 


(CURSOR) ,HL 


;LINE 


FECD 


2187FD 


02650 




LD 


HL,MSG5 


; COMPLETE MSG 


FEDfl 


CDCF44 


02660 




CALL 


LOUT 


; DISPLAY MSG 


FED3 


FB 


02670 




EI 




/INTERRUPTS ON 


FED4 


C9 


02680 
02690 
02700 


J 


RET 






















02710 


;READ 


OK SET 


UP CHRCNT AND RETURN 






02720 














02730 


1 








FED5 


2100FF 


02740 


ROK 


LD 


HL, DISKIO 


;PT AT DISK BUFFER 


FED8 


2240FD 


02750 




LD 


(BUFPTR) ,HL 


; RESET PTR TO BUFFER 


FEDB 


2A57FD 


02760 




LD 


HL, (RECNUM) 


; CURRENT REC • 


FEDE 


ED5B2CFD 


02770 




LD 


DE,(ERN) 


jMAX RECORD • 


FEE2 


DF 


02780 




RST 


18H 


.-ARE THEY EQUAL ? 


FEE3 


200B 


02790 
02800 
02810 


; 


JR 


NZ,MORE 


;IF NOT EOF THEN 


















02820 


;IF SECTOR IS 


ZERO USE EOP COUNT NOT 256 






02830 


j •••»•»»*** 










02840 


; 








FEE5 


3A45FD 


02850 




LD 


A, (EOFCNT) 


;GET EOF BYTE COUNT 


FEE8 


6F 


02860 




LD 


L,A 


;INTO HL 


FEE9 


2600 


02870 




LD 


H,0 




FEEB 


2242FD 


02880 




LD 


(CHRCNT) ,HL 


; STORE FOR CHRCNT 


FEEE 


189A 


02890 
02900 
02910 


1 


JR 


KEY 




















02920 
02930 
02940 


; NORMAL 256 BYTE SECTOR COUNT 








I 








FEF0 


23 


02950 


MORE 


INC 


HL 


;INC SECTOR COUNT 


FEF1 


2257FD 


02960 




LD 


(RECNUM) ,HL 


; STORE UPDATED VALUE 


FEF4 


210001 


02970 




LD 


HL,256 


; SECTOR DATA CHAR COUNT 


FEF7 


2242FD 


02980 




LD 


(CHRCNT) ,HL 


; STORE FOR CHRCNT 


FEFA 


188E 


02990 
03000 




J P. 


KEY 


.-EXIT 


FF00 




03010 

03020 




ORG 


0FF00H 




FFB0 




03030 
03040 


DISKIO 


EQU 


S 




FD96 




03050 




END 


START 




00000 TOTAL ERRORS 
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ESTATE PLANNING MODEL ^ ■ 
SAVE TIME AND MONEY 

by using your TRS-80* Model II, 64 K computer 
for professional estate analysis. 

•& Marital Deduction Formula Analysis Reports 

analyze six formula bequests for both husband 
and wife for both orders of death. 

t> Estate Tax Return Report computerizes estate 
tax planning for decedents' estates. 

£ Client-Ready Reports printed. 

•& State (Ohio) and Federal Taxes computed. 

it Free Updates to reflect legislative changes 
for one year. 

i: Sold and maintained by author: an attorney 
and estate planning professional. 

t> ALREADY REVISED to comply with 1981 
TAX REDUCTION ACT. 

YES, please send me more information on the 
Estate Planning Model. 

Name 

Name of Firm . 

Street 

City 



State 



Zip 



Mail to: Beard Software Development Co. 
59 Skyline Avenue 
Canfield. Ohio 44406 



'TRS-80 is a trademark ot Tandy Radio Snack 



DC/CMD 

DISK CATALOGUE 



Finally, after more than nine 
months, of development, a 
universal diskette management 
system. A software package 
designed to keep track of all of 
your diskettes and programs. 



Contains. 

* Quick sort routine for sorting by 
program name, or program ex- 
tension, or disk number, or a 
combination ol inter-woven sorts. 

* 2550isk/51fJsidestoragecapac 
ity per data file. 

* Virtually unlimited printing and 
data access parameters. 

* Pays for itself the first week. 

(TRS MODELS I & III Only) 




LlUii 
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P & P CORPORATION 

POBox 362* HADDONFIELD NJ 08033 

gK-NKE 800-257-6170 

in New jersey 609-428-3900 



COMPUTER KITS- FROM $69.95 




LNW SEMI-KITS can save you hundreds of dollars. By obtaining your own parts at the lowest 
possible cost and assembling the LNW SEMI-KITS, you can have the most highly acclaimed 
microcomputer in the industry- the LNW80. The LNW SEMI-KITS are affordable modules. You 
can start with a modest cassette system and expand to a full 4Mhz TRS-80 compatible system with 
5 or 8 inch double density disks and color at any time. 

A. LNW80 CPU - Made of high quality FR4 glass epoxy double sided circuit material, with plated- 
through holes and gold edge connector It is fully solder-masked and silk screened. Here are just 
some of the outstanding features you will have when your .LNW80 CPU board is fully assembled: 
• 1 6K RAM • Color and black and white video • 480 x 1 92 high resolution graphics • 64 and 80 
column video • 4 Mhz Z80A CPU • Upper and lower case display • 500 and 1 0OO baud cassette 
I/O -S89.95 

B. SYSTEM EXPANSION -Expand the LNW80 computer board. TRS-80and PMC-80 computer 
with the following features • 32K memory ■ Serial RS232C and 20Ma port • Real time clock • 
Parallel printer port • 5 inch single density disk controller • Expansion busiscreen printer port) • 
Onboard powersuppiy • Solder-masked and silk screened legend- S69. 95 (tin plated contacts) - 
$84.95 (gold plated contacts) 

C. KEYBOARD- 74 key expanded professional keyboard -includes 12 key numeric keypad. Fully 
assembled and tested. - $99. 95 

D. COMPUTER CASE - This stylish instrument-quality solid steel case and hardware kit gives your 
LNW80 that professional factory-built appearance. - S84.95 Add S12.00 for shipping. 

E. SYSTEM EXPANSION CASE - This stylish mst ru ment-quality solid steel case and hardware kit 
gives your SYSTEM EXPANSION interface that professional factory-built appearance. - $59.95 
Add $10.00 for shipping. 

F. LNW80 CPU - HARD TO FIND PARTS KIT - 882.00 

G. LNW80 VIDEO - HARD TO FIND PARTS KIT - 831 .00 

H. SYSTEM EXPANSION - HARD TO FIND PARTS KIT - 827.50 
I. LEVEL II ROM set (6 chip set) - 8120.00 

VISA and MasterCard accepted Add S3. 00 for shipping plus S1.00 for each additional item. All 
shipments via UPS surface. AddS2 00 for U S Mail. Shipments outside continental U S funds must 
be U.S. dollars. Sufficient shipping costs must be included with payment. 

ORDERS 8 INFORMATION - (714) 544-5744 
SERVICE - (714) 841-8850 



LNW Research Corp. 

2621) WALNUT Tustin, C.\. 92680 



*-S»e List of Advertisers on Page 451 
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The facts. 
And nothing but the facts. 

Epson. 
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Our MX Series printers are the best-selling 
dot matrix printers in the entire world. This 
is why. 

Fact One: We've got your type. 

Epson invented correspondence quality 
printing. And we still do it better than any- 
body. 

But more importantly, we do more of it than 
anybody. On every Epson MX printer, you 
get a choice of sixty-six different type styles, 
including italics, a handy subscript and 
superscript for scientific notation and small 
print, enough international symbols to print 
most Western languages, and one-pass 
underscore. All in a tack-sharp, easy-to-read 
9x9 matrix with full descenders. 

If print quality is important to you, your 
next printer is an Epson. 

Fact Two: Ultra-high resolution graphics. 

There simply is no higher resolution graphics 
than GRAFTRAX-PLUS. And it comes stan- 
dard on every MX. 

You get bit image graphics free of wander, 
walk and jitter; graphics with blacker blacks 
and better definition because you can pre- 
cisely place a dot at any of 25,920 positions 
inside a square inch (that's 120 DPI h x 216 
DPI v); graphics that make our printers rival 
plotters. 

If graphics is what you want, your next 
printer is an Epson. 

Fact Three: Feature shock. 

The Epson MX Series is packed with the fea- 
tures printer fanatics want most. A bidirec- 
tional print head with logical seeking of the 
shortest line. Programmable tab, form length 
and right margin. Top of forms recognition. 
Skip over perf. Software printer reset. True 



"In my judgment, 
this is the 
best printer 
you can buy." 



backspace. Self test. The world's only dispos- 
able print head. And more. Lots more. On 
our MX-100 and MX-80 F/T, you even get 
both friction and tractor paper feed. 

If you want performance, your next printer 
is an Epson. 

Fact Four: Incredible reliability. 

Epson MX Series printers are the most reli- 
able printers ever made. And the reason is 
precision. 

Take a look inside one and you'll under- 
stand. Notice the simplicity, the fit, the 
finish. That's why Epson has an out-of-box 
reliability rate others can only envy: 98%. 
And why our mean cycles between failures 
(MCBF) is over five million lines. 

The whole package is neatly wrapped in a 
rugged plastic injection-molded case de- 
signed to look good — and stay looking good. 

If you want a printer that works, and keeps 
on working, your next printer is an Epson. 

Fact Five: World's best seller. Period. 

Within months after we introduced the Epson 
MX-80, it was the best selling dot matrix 
printer in the world. It still is. Not because of 
anything we said, but because tens of thou- 
sands of computer enthusiasts went out and 
did some serious comparison shopping. They 
decided it was the best printer for the money 
they could buy. And who are we to argue? 

If you want the world's best seller, your 
next printer is an Epson. 

Fact Six: Quality doesn't cost more. 

Don't take our word for it. Check it out. Look 
at what they give you. Then look at what we 
give you. Then look at the price. 

There is only one logical choice. Epson. 

And that's the truth. 

Your next printer. 

EPSON 

EPSON AMERICA, INC . 

COMPUTER PRODUCTS DIVISION 

3415 Kashiwa Street 
Torrance, California 90505 
(213) 539-9140 




•See Lisl of Advertisers on Page 451 
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UTILITY 



LOAD 80 



A Matter of Compatibility 



by Art Huston 



M 



ake your program submissions to 80 Micro 
compatible with other sytems with this short 
routine. Your readers will appreciate it. 



Imagine the frustration of a first-time 
reader who types in a long program on- 
ly to come up with an undefined user 
function or Level III error. Maybe the 
author states, "1 have a 16K Model I, 
but this program can easily be changed 
to work on a 48K Model III with 
disks." But he doesn't explain further, 
because he doesn't have the machine to 
test the change. 

The Problem 

This occurs most often when the pro- 
gram is written in Basic with machine- 
language routines read from data state- 
ments and POKEd into RAM. All too 
often the author only makes provisions 
for the program run under his system. 

For example, let's say an author has a 
16K, Level II Model I and he POKEs a 
routine into high RAM. For a 68-byte 
routine, he would probably choose to 
POKE the routine in starting at 32700 



and ending at 32767: 



10 for x 
X,Y:NEXT 



32700 TO 32767: READ Y:POKE 



Then he would tell the Basic interpreter 
what address to branch to when en- 
countering a USR statement. He would 
do this by POKEing the address into 
16526 and 16527: 

20 X = 32700:X2 = X/256:X1=X-X2'256: 
POKE16526,Xl:POKE16527,X2 

Later in the program he would have a 
line that would call the machine-lan- 
guage routine: 

100 X = USR(0) 

If a relative newcomer to computers 
tries to use this program on a 48K 
Model III under Disk Basic, he will 



10 REM ** UNIPOKE ** 

20 INfUT"Number of bytes to POKE";NB 

30 Z2«PEEK(16561)+256*PEEK(16562) 'Z2=last byte Basic will use 

40 Zl-Z2-NB+l'Zl«beginning POKE location 

50 Z-Zl-l:Z4=INT(Z/256) : Z3-Z-Z4*256 :POKE16561,Z3: POKE16562, Z4 : 

'last byte used by Basic is one below start of routine 
60 FOR Z = Zl TO Z2:READ ZZ:POKE Z+ ( Z>32767) *65536 , ZZ :NEXT 

'POKE in the routine 
70 IFPEEK(16396) -201THEN90 'Test for Cassette Basic 
80 DEFUSR=Zl+(Zl>32767) *65536:GOTO100 'Entry to USR for disk 
90 Z4«=INT(Zl/256) : Z3 = Z1-256*Z4:P0KE16526 ,Z3 :POKEl6527 ,Z4 

'Entry to User for cassette 
100 CLEAR50: 

'Clear string space. ROM routine corrects amt. of MEM 
and string storage to agree with 16561,16562 
110 •**** Here Begins the Rest of the program **** 

Program Listing 1 



meet up with only frustration and prob- 
ably give up. 

When he runs the program, it will 
quickly crash with a UL or syntax error. 
A listing of the program shows that 
some of the lines are pure gibberish, 
whereas before the run they were per- 
fectly normal. What happened? 

Our newcomer is unaware that Disk 
Basic takes up space in memory. A pro- 
gram that loads in at 17129 under Level 
II (17385 for Model III) loads in at 
around 28000 under Disk Basic. When 
it POKEs a routine in at 32000, it over- 
writes itself. The result is a scrambled 
listing. 

The new reader perseveres. He sum- 
mons a friend and between them they 
manage to move the POKE routine into 
high memory for 48K. Line 10 now 
reads: 

10 FOR X = 65468 TO 65535:READ Y:POKE 
X,Y:NEXT 

When the program is run again, the 
screen says, "Overflow error in 10." 
The user begins to pull his hair out. 

His friend says, "When you POKE 
above 32767, you have to subtract 
65536 from the location you're POKE- 
ing." After much trial and error they 
come up with: 

10 FORX = 65468 TO 65535:READ Y:POKE 
X-65536,Y:NEXT 

This seems to work just fine, and 
hope begins to dawn for our computer 
neophyte. Then, suddenly, the comput- 
er reports an undefined user function in 
100. Faced with this ultimate insult, our 
user gives up. 

How is our would-be computerist 
to know that a DEFUSR is all that's 
needed? He only needs to tell the Basic 
interpreter where the routine is located 
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If you're tired of playing 
games with your TRS-80- 




Turn it into a high 
power computer! 

Now you can give full CP/M 
capabilities to your TRS-80. 

Announcing the new 
Compactor family from 
Hurricane Laboratories. We know 
limitations are a reality but we put 
on our thinking caps and did 
something about it. The new 
Compactor II ( 1 12K) gives CP/M 
2.2 capabilities to the Model III 



without altering the TRSDOS and 
TRS-Basic environment. It's fast, 
it's easy to install and needs no 
extra hardware. The Compact IV 
enhances the video display to 80 x 
24. In short, Compactors make 
your Model III an intelligent and 
powerful computer. So why not 
quit playing games and put that 
TRS-80 to work! It's as simple as 
saying, "...Compactors by 
Hurricane Labs." 



30-day money-back guarantee on 
Compactor II if not totally satisfied. 



85 ^> 

HURRICANE 




5149 MOORPARK AVENUE. SUITE 105 



- abora!ories !nr 



TV 



**Sa« Listot Adwrtiswson Page <5' 



Write to us or ask your TRS-JM) dealt r for all the facto 
about the new Compactor Family from Hurricane Labs. 

SAN JOSE, CALIFORNIA . (408)257-8676 
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and the program will run correctly: 

20 DEFUSR = 65468 - 65536 

Let's be kind to this individual and 
try to ease his way into programming. 
After all, POKEs, PEEKs, and 
DEFUSRs are advanced stuff that he 
won't use for years. The key to helping 
him is to make the programs as compat- 
ible as possible. 

A Routine for All Systems 

A routine that would work with 16K, 
32K, or 48K, disk or cassette, Model I 
or Model III would end the beginner's 
frustration. Such a routine would check 
for the top of memory and POKE the 
routine in. Then it would check for a 
disk or cassette system and do a 
DEFUSR or POKE the correct address 
in. Last, it would reset memory size to 
protect the machine-language routine. 

To do these tasks we need the follow- 
ing information: 

• Locations 16561 and 16562 point at 
the highest memory location usable by 
Basic on both the Model I and Model 
III. Changing these locations is equiva- 
lent to setting the memory size. 

• IF PEEK( 16396) = 201* then cassette 
Basic is in operation, else we are in Disk 
Basic. 

• Cassette Basic on the Model I and III 
POKEs the starting address of the ma- 
chine-language routine into 16526 and 
16527. 

• Disk Basic on the Model I and III 
uses a DEFUSR statement to determine 
the start of the machine-language 
routine. 

Program Listing 1, UNIPOKE, is a 
routine to do all the above. Program 
Listing 2 is a compressed version, and 
Listing 3 demonstrates how it works. If 
you use UNIPOKE to POKE in your 
machine language, there should be no 
problems with DEFUSRs or moving 
POKEs higher or lower. 

In Listing 1, line 20 is a dummy line 
that you should take out of your pro- 
grams. It simply asks for the number of 
bytes you wish to POKE into memory. 
!n your programs you should set NB 
equal to the number of bytes in your 
machine-language routine. 

Line 30 sets Z2 equal to the highest 
location usable by Basic. Line 40 sets Zl 
equal to the address at which to begin 
POKEing. Z2 will be the last location. 

In line 50, Z is set equal to one byte 
below the routine. Then the value of Z 
is POKEd into 16561 and 16562. These 
locations tell Basic the highest location 
it can use and protect the machine-lan- 
guage routine from being overwritten. 
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10 REM ** UNIPOKE compressed version** 






20 INPUT"Number of bytes to P0KE";NB 






30 Z2=PEEK(16 561) +256 *PEEK ( 16 562) :Zl=Z2-NB+l 


Z=Z1-1 


Z4=INT(Z/256 


) :Z3=Z-Z4*256 : POKE16 561 ,Z3 : P0KE1 6562 , Z4: F0RZ= 


=Z1T0Z2 


READZZ:POKEZ 


+(Z>327 67) *65 536, ZZ: NEXT 






40 IFPEEK(16396) =201THENZ4=INT ( Zl/ 256 ) :Z3=Z1- 


-256*Z4 


POKE16526,Z3 


:P0KE16 526 , Z4 ELSEDEFUSR=Z1+ ( Zl >327 67) *6 5536 






50 CLEAR50 






Program Listing 2 







10 REM ** UN 
20 CLS:CLEAR 
) +256*PEEK(1 
Last Byte av 
30 INPUT"Num 
40 Z2=PEEK(1 
50 Z1«=Z2-NB+ 
60 Z=Z1-1:Z4 
'last byt 
80 IFPEEK(16 
90 DEFUSR-Z1 
100 Z4=INT(Z 
'Entry to Us 
110 CLEAR50: 
'Clear s 
and str 
120 PRINT"ME 
16545)+1" 
Last Byte av 
String spc m 
130 IFINKEYS 



IDEMO (Demonstrates how UNIPOKE works) ** 

50:PRINT"MEM = "MEM, "String Space starts afPEEK ( 16544 

6545) +1," 

ail to Basic="PEEK(16561) +256 *PEEK ( 16562) 

ber of bytes to POKE";NB 

6561) +256*PEEK(16562) 'Z2=last byte Basic will use 

1 ' Zl=beginning POKE location 

= INT (Z/ 256) :Z3=Z-Z4*256:POKE16561,Z3:POKE16 56 2,Z4: 

e used by Basic is one below start of routine 

396) =201THEN100 'Test for Cassette Basic 

+(Z1>32767) *65536:GOTO110 'Entry to USR for disk 

1/2 56) :Z3 = Zl-256*Z4:POKEl6 526,Z3:POKE16527 ,Z4 

er for cassette 

tring space. ROM routine corrects amt. of MEM 

ing storage to agree with 16561,16562 

M="MEM, "String space starts at"PEEK ( 16544) +256*PEEK ( 

ail to Basic="PEEK(16561)+256*PEEK(16562) " 

oved lower to make room" : PRINTQ896 , "Press ANY key" 

= ""THEN130ELSERL'N 

Program Listing 3 



Line 60 actually POKEs the routine 
in. The statement POKE Z + (Z>32767) 
*65536,ZZ looks complicated, but 
isn't. The phrase in the parentheses, 
Z>32767, is checked to see if it is true or 
false. If it is false, it has a value of and 
the entire statement reduces to POKE 
Z,ZZ. If it is true, it has a value of -1 
and the statement reduces to POKE 
Z-65536,ZZ. This routine is used to 
handle POKEs above 32767. 

Line 70 checks PEEK( 16396) to see 
if it is operating in cassette Basic. If so, 
the program jumps to 90. 

Line 80 tells Disk Basic where to find 
the machine-language routine. Line 90 
does the same for cassette Basic. 

Line 100 clears string space. It must 
be a CLEARnnn statement, not just 
Clear. This allows the Basic interpreter 
to check the contents of 16561 and 
16562 and adjust other pointers accord- 
ingly. It also frees up all variable space, 
so that the variables in UNIPOKE will 
not take up any room. 

Restrictions and Alternatives 

This routine respects the top-of- 
memory setting when you enter 
Basic — it will not overwrite anything 
already in high memory (like a 
keyboard debounce routine). This 
means, however, that each time the 
routine is executed it will set the top of 



memory lower and lower, eventually 
resulting in an out-of-memory error. If 
you use Run to restart a program, be 
sure it is Run nnnn, where nnnn is the 
first line number after this routine. 

Using this routine will ensure that 
program users will not have to relocate 
machine language, change DEFUSRs 
to POKEs, or POKEs to DEFUSRs. It 
will make your program user-oriented 
in the best sense of the word. 

This routine will not make all pro- 
grams compatible with all systems. It 
will not make a program with disk in- 
put/output work correctly on a cassette 
system. If a Model I machine-language 
routine calls locations in ROM, it may 
crash on the Model III. Changes like 
these will always require you to tinker. 

Programs that POKE the machine 
language into strings or into remark 
statements will only need lines 70-90 of 
UNIPOKE. These lines simply do a 
DEFUSR or POKEs, depending on 
whether the system is cassette or disk. In 
line 60, set Zl equal to the location of 
the machine-language routine. 

If you don't include this routine at 
the beginning of your program, include 
the changes for other systems some- 
where in your article. ■ 

Art Huston is a technical editor for 
80 Micro. 



NEW for the Color Computer TR5-80 

COCOCASSETTF SUBSCRIPTION SOFTWARE 




ENJOY A MONTHLY COLLECTION OF fl-10 PROGRAMS! 



Including gomes education home finance and more 
on cossette for os low os (5.00 a month! Add some oc 
tion ond imagmotion to your Color Computer Best of 
all we do the work 1 



PRICES 

1 YfX (1 2 ISSUES) 
6 MO (6 ISSUES) 
SINGLF COPIES 

-MICHIGAN RESIDENTS ADD 4% TO ORDER 
OVERSEAS ADO ViOOO TO SOOSCRIPTiOn ANf 
SiNCriE COPIES 



S55 00 
S30 00 
S 6 00 



616 396-7577 




PAOGRamS ARF FOR 
f XTfNDED DASIC 
mODFa Only ISSUES 

ARE SENT FIRST CLASS 



~ SUBSCRIPTION SOFTWARE 



SEND CHECK OR MONEY ORDER TO 



VISA' 



T b D SOFTWARE P.O. BOX 256-C • HOLLAND. MICH 49423 



EPSON MX- 100 III. MX 80 -FT III. MX 80 IU CALL FOR PRICE 

Okidata 80 Printer 80 CPS. List $449 $330.00 

Okidata 82A Printer 1 20 CPS. List $649 $440.00 

Okidata 83A Printer 1 20 CPS, List $1,119 $675.00 

Oktdata 84 Printer (parallel) 1 32 column. 200 CPS $980.00 

Okidata 84 Printer (serial) 1 32 column. 200 CPS $1050.00 

Okidata 2350 Printer (parallel) 132 column, 350 CPS two color 

ribbon, List $2,800 $1860.00 

Smith Corona TP-1 Daisy wheel printer, parallel or serial. 10 or 

12 pitch. List $895 $615.00 

BMC 1 2AU 1 2 inch 1 5 MHZ, green on black monitor $95.00 

BMC 1 2EU 1 2 inch 20 MHZ. green monitor with non glare screen $129.00 

DC Hayes Smartmodem (300 & 1 200 BAUD) List $699 $505.00 

OC Hayes Smartmodem. List $279 $219.00 

Diskette storage case for 5'A inch diskettes (holds 1 00 diskettes) $18.00 
Practical Peripherals Epson Buffer (parallel 16K) for Apple II or 

Radio Shack. List $159 $125.00 

Percom Doubler II $149.00 
Practical Peripherals Micro Buffer Inline 32K (specify serial or 

parallel) $244.00 

Tandon 40 Track Drive complete w/case & power supply $255.00 

CASH ONLY PMCE MCLUOES money order. certified company i personal chock « COD. 
Personal and company checks take two 
weeks to dear. 

Shipping A Handling Charge on hght 

items $2.50. Prices subject to change 

without notice. NJ residents add 5% 

sales tax. 

HOURS: 10 AM to 5 PM Weekdays 

After 5 PM and Weekend i 

Questionable 



Send for 
COMPLETE 





fjitit 



P-0. BOX 1449 • B10OMFICLD • NJ • 07003 f 




circular 901-751-8444 



COPY MODEL HI, SCRIPSIT/ V1SICALC 



Only $20 



Works with all model III Visicalc/Scripsit and allows unlimited backups of master disks. Works 
even if you're already backed up twice. Simple, 17 line program. 

And look at these other outstanding valnesl 



APPARATS 

NEWDOS/80® , 2.0 

$129.95 

Convert Model I Scripsit and Visicalc to 
Model III. plus Renumber program lines 
-move program lines - move blocks of pro- 
gram lines duplicate program lines selec 
tive variable clearing program single step 
ping - memory sort multi dimensioned ar- 
rays - swap variables read and write to 
model I disks - reference keywords - spool 
printing change disk speeds - disable 
BREAK and CLEAR Much, much more' 

FREE "Layman'. Guide to 

Newdos 80" included with this 
purchase. 



Use VISA Mastercard Money Orders 
Allow 2 weeks for personal checks 
Kansas residents add 3.5% sales tax 



HAYES SMARTMODEM!.. 
$249.95 

Talk with other computers over regular 
telephone lines SMARTMODEM can auto 
dial auto answer repeat allow for audio 
monitoring programmable is ECC ap 
proved direct connect full or half duplex 
capability. 0-300 baud RS-232C interface 
seven status LED's 

VERBATIM 9 
DATALIFE DISKETTES 

5 diskettes come in a reusable plastic 
storage box 

CALL TOLL FREE! 
1 - 800 - 835-0071 

IN KANSAS: 
316-665-3611 



ST80 HIT.. S 129.95 

Smart terminal communications package 
Allows file uploading/downloading 
Emulates many different terminals Total 
operator control (Written by Lance 
Micklus ) 

FREE 
Catalog price list 

of all Sales Data Direct-Order merchan 
d'se available upon request Super prices 
Rapid delivery Quality products 




526 E. 4th Hutchinson. Kansas 67501 
316/665-3611 

Dealest; Inquiries Invited. 

Phone or write Sales Data, Inc 



• See List 0/ A dvertisers on Page 45 1 
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TECHNIQUE 



Tracking Lobster 



by William F. Kaczor 



Searching for lobster-pot buoys in 
ideal conditions is hard enough — forget 
it in bad weather. Not only that, but try- 
ing to remember where the pots are, 
when they were last hauled, what the 
catch was, and how good the catch was 
is no easy task when you have almost 
100 pots spread over four square miles 
of ocean. 

A Better Way 

Now my micro catches the lobsters. 
Well, not physically, but it does make 
lobster catching much easier. 

Prior to this series of programs, my 
friend had been relying on his memory 
to keep track of how well each area was 
doing and where his pots were. (In 
"lobsterese," a pot is a trap set on the 
ocean bottom. This pot, or a string of 
pots tied together, is tied to a floating 
buoy marking its location.) 

Also left to his memory was how 
good or bad the catch was in each area, 
the total caught for the day, and when 
the area was last worked. I was sure the 
computer's memory could do a much 
better job. 

Laying the Ground Rules 

We decided the micro should 
generate a map of each area where he 
works his pots (six areas). Each map 
should show all navigational buoys and 



The Key Box 

Model I or ID 
48KRAM 
Disk Basic 
One Disk Drive 
Printer 



Your TRS-80 can't bait 
a hook, but it can 
help you trap a lobster 
using maps and graphs. 

markers, compass headings, and, of 
course, where the pots are. The maps 
will also show the types of pots (single 
wire, double wire, wood) and the serial 
number of each pot. 

The program should provide a 
tabulated printout grouped together by 
each of the six areas, which lists the 
following: 

• It shows all the pots in that area, 
showing the code for each pot (ex- 
plained later), the amount of "shorts" 
(lobsters too small) in each pot, the 
amount of "keepers" (legal-sized 
lobsters) in each pot, the total for the 
area, the percentage of keepers versus 
total pots worked for each area. Some 
of this data will be used for migration 
tracking and prediction of the most ac- 
tive areas. 

• This printout also shows a total of 
keepers and shorts for all six areas com- 
bined, date worked, and a year-to-date 
total of keepers and shorts for all areas. 

• If there is no data available for 
a given area, the printout should indi- 
cate it. 

The program should also produce a 
bar-graph printout showing keepers 
and shorts per area for each date 
worked. 

Developing the Program 

The program runs slowly, not 
because of Basic, but because my Cen- 
tronics 737 printer is slow. Although it 
is not a graphics printer, all the neces- 



sary map features are recognizable. To 
circumvent its slowness, I set the pro- 
gram up so that once the week's data is 
entered, the whole process runs without 
operator intervention until complete. 

The final outcome is nine separate 
programs producing eight printouts. 
Each program runs the next in proper 
order. All that is required of the opera- 
tor is to enter the initial data, set the 
printer to the top of the page, and start 
the program. 

Computer-generated Maps j 

We used a pantograph to scale the ac- 
tual marine maps to fit on single-sheet, 
tractor-feed printer paper. I set up a 
grid of 64 by 80 columns to aid in the 
programming design of each map. To 
ease the weekly entering of data coordi- 
nates for each pot, we divided each map 
into 20 sections labeled A-T (the printer 
outlines each sector with dots and labels 
each one) and allocated 20 possible pot 
positions in each section. That's 400 
possible pot locations per map, six 
maps total. 

Also included was the date, map and 
island titles, and to make things pretty, 
the name of the business (I changed the 
name in the example for privacy). See 
Figs. 1-6 for a look at each map. We in- 
cluded all necessary navigational bea- 
cons and markers along with arrow 
compass heading pointing north. 

The Pots 

Each pot has a serial number. There 
are three different types of pots: single 
wire, double wire, and wood (coded 
SW, DW, and W respectively). We at- 
tach a location code to each pot show- 
ing what sector and position within the 
sector each pot is in. A pot code might 
read C10DW36, meaning sector C, pot 
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Expensive 




EXPENSIVE The LNW 
System Expansion II and built-in '■'-•/1/^-\' 1 
comes with a full 32K of 200ns RAM,V?£" ' 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors. FR-2 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price. I.NW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS, is 
100S TRS-80 Model I compatible and it works 
'right out of the box". If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #7 Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 
(714)641-8850 (714)544-5744 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model I computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LNDoubler 5/8 
option*. Now you can have any combination of 
single- or double-density, single- or double sided. 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or 1,182,720 bytes 77-track 
double-density, double-sided. 

The LNDuubler's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS*- 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track. single-sided 5- inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80'. increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage that's more storage 
than a Model II or Model III! 



^32 




*k" drive operation require* npecial cable, S 
double-density require* S.MMHz CPU -peed up 
modification ..r LNW-80 4MH7 computer 



position 10, double wire, serial number 
36. When printed on the map, it's 
shown with an asterisk, *C10DW36. 

As each map is printed, the program 
checks the data file for that map, and by 
the code assigned to each pot, prints the 
pot in its proper place on the map. 

Entering Data 

I wrote a file editor to modify data 
files. A typical session at each map area 
includes loading last week's data, en- 
tering the current date, telling the editor 
to set the keepers/ shorts file to zero 
(previous data had already been added 
to the year-to-date file at the end of the 
last run). 

Now, with a new file date, we delete 
or move any pots necessary, then enter 



the new date, keepers/shorts for each pot. 

When writing the editor, I used IN- 
KEY$ as much as possible — the fewer 
the keystrokes the better. A listing to 
screen, showing the pots in each area 
and pot codes, aids in the efficient up- 
date of each file. 

After entering each map's data, the 
file is saved to disk for later use. When 
all six map files have been updated, we 
start the first print routine and then go 
about our business. The routine will 
now run itself: printing out each map 
while accessing the proper data file put- 
ting the pots on each map in the proper 
location; printing out a copy of all the 
pot information on a tabulation sheet 
showing each pot code, shorts, keepers, 
and percentage caught versus traps 
worked, totals for each area, and year- 



to-date totals; printing out a bar graph 
of the shorts versus keepers for each 
map. This allows us, at a quick glance, 
to see how each area is doing. 

Success 

Now it's easy to locate traps. We can 
study the maps, data printouts, and bar 
graph to see what areas are producing 
and which are not. Then decisions can be 
made for moving pots into other areas. 

We hope to see migration trends 
from the gathered data or at least try to 
predict which areas to move the pots to 
and increase the catch. 

My friend says life is much easier 
now. He spends much less time hunting 
for pots. On bad days when he can't go 
out, he studies his data. ■ 



Program Listing 1 



3 CLEAR32BB:ON ERROR GOTO 355BiDEPSTRV,H,N,D,A:DEPINTO,B,0,X:DIN 
ZS(2I,2I) ■ H-'l*:A-*I*iV-*i*iH-*.*iCLS:PRINTM65, 'WORKING FILENAM 

E *,CHR$(34) j 'BAKERS*, CHRS(34) :GOSUB35MiGOT08 

5 LPRINTTAB(l)DljTAB(16)D2,TAB(19)V,TAB(21)D3|TAB(3B)D4rTAB(39)V 
jTAB(41)D5|TAB(SB)D6,TAB(59)V|TAB(61)D7;STRINGS(78-PEEF.(16539) ,3 
2) tDSiRETURN 

7 LPRINTTAB(19)V|TAB(39)V > TAB(S9)ViRmjRN 

8 GOSOB7:LPRINTSTRINGS(8B,H) iGOSUB2IM: S-l i L-l 

II LPRINT*(A)*|TAB(3)*I*>TAB(19)V,*(B)*,TAB(39)V>*(C)*;TAB(59)V| 
*(D)*:Ul-B:GOSUB18BB 

2B LPKlNTTAB(2)"IIII"(TAB(lB]D2jT»B(19)V,- "D3 j TAB ( 38) DA , TAB ( J 9) 
V,* *D5»TAB(5B)D6»TAB(59)V;* *D7 | STRINGS (7B-PEEK ( 16539) , 32) i D8 : G 
OSUB1MI 

38 LPRINTTAB(4)*I*>TAB(1B)D2»TAB(19)V,* *D3jTAB(3B)D4>TAB(39) Vj ■ 
*D5,TAB(5B)D6;TAB(59)V»* "D7 1 STRINGS! 7B-PEBKU6539) ,32);D8iU5-B 
|06-B:GOSUB1BBB 

41 LPRINTTAB(ll)D2jTAB(19)V;* *D3jTAB(3B)D4»TAB(39) VjTAB(43) ■• P 
L 4 SEC";TAB(59)V,* "D7 i STRINGS (71-PEEK ( 16539) ,32) | D8:GOSUB18ll 
58 LPRINTTAB(5)*I*>TAB(1B)D2|TAB(19)V(* *D3|TAB( 38) D4;TAB( 39) V(T 
AB(44)*9 BELL* i TAB ( 59) V,* *D7(STRINGS(7B-PEEK(16539) ,32) |D8t05-l 
1O6-I 1GOSUBI888 
68 01-* *iGOSUB5iGOSUB188B 

78 LPRINTTAB(6)A;TAB(18)|D2»TAB(19)V|* *D3|TA8( 38) D4»TAB( 39) V f * 
*D5|TAB(5B)D6|TAB(59)V>* *D7, STRINGS (7S-PEBK( 18539) ,32) |D8:G0S0B 
2888iGOSUB188S 
88 GOSOB5iGOSUB1888 
98 GOSUB5iGOSUB188S 
188 GOSUB5:GOSUB18IB 
118 GOS0B5:GOSUBlB8B 
128 LPRINTSTRINGS(8S,B) :S-2iL-l 

138 LPRINT* (E)*,TAB( 19) V»*(P)*,TAB(39)V,*(G)*,TAB<59)V,*(H)*i05- 
8tU6-StGOSDB188S 

148 GOSUB39BB:LPRINTTAB(39)V,TAB(43)M,N,N,N|M,* *|N|N|N|N|TAB( 5 
9)V, * *D7 f STRING$(7B-PEEK<16539) ,32) ,D8:GOSOB18BB 

158 GOSUB3BBB«LPRINTTAB(39)V,TAB<42)N»TAB(48)M»M|TAB(S4)N|N,TAB( 
59)V f * *D7jSTRINGS(78-PEEK(16539) ,32) |D8tGOSOB1888 
168 GOSUB3BBB:LPRINTTAB(39)V,TAB(42)N,TAB(56)N|Pi," *»V>* *D7»STR 
ING$(7B-PEEK<16539) ,32) 1D81UI-B1GOSUBIBSB 

178 LPRINT** RN2*,TAB(1B)D2>TAB(19)V,* *D3|TAB(3B) D4jTAB( 39) V,TA 
B(42)N|TAB(53)***|TAB(58)NjV|* *D7»STRINGS(7B-PEEK(16539) ,32) ;D8 
i07-BiUl-l:GOSUB18B8 

188 GOSUB38BB:LPRINTTAB(39)V|TAB(41)N|TAB(46)*LIGBTHOOSE'|TAB(59 
)N|N|H>H|H|STRING$(7B-PEEK(16S39) ,32) 1D8.GOSUBISSI 
198 GOSUB3BB8iLPRINTTAB(39)VrTAB(41)N|STRINGS(64-PEEK(16539) ,32) 
»M|M|* '1D81GOSUBIB8B 

288 GOSUB3B88tLPRINTTAB<39)V,M|STRINC*(66-PEEK<16S39),32)ill,* 
*;D8iGOSUBlSI8 

218 GOSOB3BBB:LPRINTTAB{39)V,N,STRINGS(67-PEEK(16539) ,32) »N," * 
|D8tGOS0B18BB 

228 GOSUB38BBtLPRINTTAB(39)V,* * , N, STRINGS (66-PEEI ( 16539) ,32) lM| 
" *|D8:GOSUB18BB 

238 GOSOB3BB8:LPRINTTAB(39)V»* * ( N| STRINGS (67-PEEK( 16539) ,32) |Hi 
* *iD8 

24B LPRINT8TRING$(39,H)|NrM l H|TAB{48) 'BAKERS ISLAND* (STRINGS (68- 
PEEKI16S39) ,32) >M,STRINCS(11,H) iGOSUB28BBi S-3 iL-1 

258 LPRINT*<I)*,TAB(19)V,*(J)*,TAB<37)HfN,STRIllGS(69-PEEK(16539) 
,32) ,*,* (L) *:U8-B:U5-8:U6-8:U7-B:GOSOBlBBB 

268 GOSUB3BBB:LPRINTTAB(39)H|ll,N,TAB(5B)DATESiSTRINGS(69-PEEK(16 
539) ,32) ;N|M:U2-8:GOSUB188S 

278 LPRINT* *D1|TAB(12) *• C3* |TAB( 19) V| * *D3 jTABt 38) |D4;TAB( 48) H 

|STRING$(68-PEEK(16539) ,32) >M|Ni08-li02-liGOSUB18BB 

288 GOSUB3888:LPRINTTAB(39)N>STRINGS(67-PEEK(16539) ,32) I N(N|* *D 

81GOSVBII88 

298 GOSUB3BBB:LPRINTTAB(38)NrSTRINGS(65-PEEK<14539) ,32) ;M,M,* 

•jD8iGOSUB1888 

388 GOSOB38B8 1 LPRINTTAB{ 38) N>TAB(62)N>N|M|N» STRINGS (78-PEEK( 1653 

9) ,32)|D8iGOSUB188l 

318 GOSOB3888:LPRINTTAB(38)ll»TAB(5e)N|N|N,«»ll|8TRIIIGS(7B-PEEK(16 

539) ,32) )D8tU7-liGOSUB1888 

328 GOSOB3888iLPRINTTAB(38)N»TAB(57)»(|N»V|* •B7|8Tmi«8(7l-PEBK( 

16539) ,32) 1D81GO8UBIH8 

338 Q08UB3888iLPRINTTAB(38)ll,TAB(5«)l»|* *|V|* *07|8TRmg|(7l-PB 

EK(16539) ,32) ( D8iGOSUB1888 

348 GOSUB3888iLPRIirTTAB(37)NiTAB(55)H|" "|V«" * |D7» STRINGS (78- 

PEKK(16S39) ,32) 1D81GOSUBI868 



358 GOSOB3888iLPRINTTAB(38)H|N l TAB(54)N(" (K)*|V|* *)D7;STRINGS( 

78-PEBK(16539) ,32) »D8iGOSUB1888 

368 LPRINTSTRINGS(48,H) )N»TAB( 54) «| STRINGS ( 25, H) :GOSUB2889:U5-8i 

06-8 1 S-4 1 L-l 

378 LPRINT"(N)"jTAB(19)V;*(N) *»TAB(39)V|* * i«)TAB( 47) K| * *jNiN| 

H|*l" "l - (0)*»TAB(59)V|*(P)*iGOSOB18BB 

388 GOSUB3BBBiLPRINTTAB(39)V|* * t N|" *|N»H»* "|M;* *|N|N|TAB( 59) 

V|* *|D7|STRINGS(7B-PEEK(16539) ,32) »D8i06-l 1GOSOBIB88 

398 GOSOB3SBBiLPRINTTAB(39)V>* *jM;N(* *|H|H|TAB(5S)D6>TAB( 59) V 

I* * 1 D7 1 STRINGS (78-PEEK( 1653 9) ,32) |D8:GOSOB2BBB:GOSOB1BBB 

4BB GOSOB5iGOSUB18IB 

418 GOSUBSiGOSUBlBSB 

428 GOSOB5:GOSOB1B8B 

438 GOSUB5iGOSUBl8M 

448 GOSOB5i01-8i02-B:GOSOBlflB8 

458 LPRINTTAB(5)N)TAB(19)V(" *03|TAB(3B)D4»TAB(39) V>* *05|TAB(5B 

)D6)TAB(59)V;" 'D7,STRINGS(78-PEEK(16539) ,32) D8:GOSOB1B8» 

468 LPRINT** C5*|Nf* *|M|* POPE HEAD*»TAB( 19) V> * *D3;TAB(3B) D4jT 

AB{39)V;* *,D5iTAB( 58) D6;TAB(59) V; * •D7(STRINGS(7B-PEEK(16539) ,3 

2) 1D81GOSOBIBBB 

478 LPR1NT*< *»* *»N»TAB(19) V; * *D3;TAB(3B)D4;TAB(39) V; * *D5;T 

AB(58)D6|TAB(59)V|* *D7| STRINGS (7B-PEEK (16539) ,32) ;D8:GOSOB2BBB 

488 LPRINTSTRINGS(8B,H) iS-5iL-1 

498 LPRINT*(0)*,TAB(19)V;*(R)*;TAB(39)Vj*(S)*iTAB(59)V|*(T)*:GOS 

0B1B8S 

588 GOS0B5i03-8:GOS0B18BB 

518 LPRINT* *D1|TAB(18)D2|TAB(18)N;H;* *D3»TAB(3B)D4»TAB(39) V; * 

*D5;TAB(5B)D6;TAB(59)V;* *D7> STRINGS (7B-PEEK ( 16539) , 32) ;D8 :GOSOB 

1888 

528 LPRINT* *D1|TAB(18) D2jTAB(17) N; * *iH|" NORTH* »TAB(38) D4)TAB 

(39)V|* *D5|TAB(5B)D6|TAB(59)V;* *D7|STRINGS(7B-PEEK(16539) ,32) > 

D8i04-8:GOSOB1B8B 

538 LPRINT* ■D1>TAB(1B)D2|TAB(17)N»" *»«;" GOOSEBERRY * ; TAB ( 3 9 ) V 

I* "D5;TAB(5B)D6»TAB(59)V»* *D7 jSTRINGS(7B-PEEK(16539) ,32) >D8:GO 

SOB1BB8 

548 LPRINT* *D1»TAB( IB) D2»TAB(1B)N| * *»N;* ISLAND* ;TAB( 39) V; * * 

D5/TAB(5B)D6|TAB(59)V|* *D7;STRINGS(7fl-PEEK(16539) ,32) jD8:GOSOB2 

SS8:GOSUB18BB 

558 LPRINT* *Dl|TAB(18)D2|TAB(18)N|MjH( * *D3;TAB(3B) D4;TAB(39) V; 

* *D5jTAB(5B)D6|TAB(59)Vj* *D7|STRINGS(78-PEEK(16539) ,32) |D8:GOS 

0B1BBB 

568 GOSUBSiGOSUBlBBB 
578 GOSOB5iGOSOB18B8 
588 GOSOB5iGOSOB18BB 
598 GOSOBSiGOSUBlBSB 
688 LPRINTSTRINGS(8B,H) iGOS0B7:GOTO 4888 

1888 REM ASSIGN D1>D8 HERE 

1818 IPL-lTHENBl-l:B2-28ELSEIPL-2THENBl-2:B2-19ELSEIFL-3THENBl-3 

iB2-18BLSEIPL-4THENBl-4tB2-17ELSEIPL-5THENBl-5iB2-16 

1828 IPL-6THENBl-6:B2-15ELSEIPL-7THENBl-7iB2-14ELSEIFL-8THENBl-e 

iB2-13ELSEIPL-9THENBl-9iB2-12ELSEIPL-18THENBl-lB:B2-ll 

1838 IPS-1THEN01-B i02-l :03-2:04-3 1GOTOIB8B 

1848 IPS-2THEN01-3i02-4i03-5i04-6iGOTO1B8S 

1858 IPS-3THEN01-6i02-7:03-8:04-9:GOT01B8S 

1868 IPS-4THEN01-9 1 02-18 ■ 03-11:04-1 2 sGOTOlBBB 

1878 01-12:02-13t03-14:04-15 

1888 E$(1)-X$(S+01,B1) :ES(2)-XST*H01,B2) : ES( 3) -ZS (S+02 , Bl) :E$(4) 

-XS(S+02,B2) tE$(5)-Z$(S+03,Bl) : E$(6) -ZS (S+03 ,B2) 1 ES( 7) -ZS(S+04 ,B 

1) :E$(8)-I$(S+04,B2) 

1882 FOR X-l TO 8:IPE$(X)-"THEN1891ELSET$-RIGHT$(E$(X) ,LEN(E$(X 

))-2) iGOTO 1098 

1888 T$-RIGBTS(E$(X) ,LEN(E$(X) )-3) 

1898 OS-LEFTS (TS,1) 1 IPCS-*S*ORCS-*D*ORCS-*W*THENES(X) -***+TS 

:G0T01891ELSEGOTOlB88 

1891 NEXT X 

1895 Dl-ES(l) iD2-E$(2) iD3-E$(3) :D4-E$(4) iD5-E$(5) :D6-E$(6) 1D7-ES 

(7) |D8-ES(8) iL-L+liRETORN 

28SB 01-1 1 02-1 t 03-1 t 04-1 t 05-1 1 06-1: 07-1 1 08-1 1 RETURN 

3888 LPRINT* *D1|TAB(18)D2»TAB(19) V| * *D3|TAB(38)D4| :RETORN 

3588 OPEN" I* , 1 , 'BAKERS/DAT' t INPUTI1 .DATES 

3S1I rORX-lTO2| 1 PORXI-lT02»:INPUT»l > Z5(X,Xl) ,NEXTX1 :HEXTX 

3528 CLOSE 1 RETURN 

35S8 CLOSE 1 END 

4888 LPRINTSTRING$(3,138) iRON'CAT' 
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Program Listing 2 



1 ONERRORGOT03B58iCLEAR32flBiDEPSTRV,H,H,D,AiDEPlNTU,B,0,XiDIHZ$( 
28,28) :M-"fiA-"I , iV- , ! *iH-'. , tCLSfPHINT*465,"WORJCING FILENAME. . 
..■;CHR$(34)|-CAT'iCHR$(34) iG0SUB3BBBiG0TO9 

2 LPRINTTABd)Dl>TAB(lB)D2|TAB(19)V;iR£TURN 

3 LPRINTTAB(19)V|' "D3;TAB( 38) 04|TAB ( 39) V| ■ "D5 jTAB( 5B) D6 J TAB ( 59 
)V| ' "D7,STRINCS(7B-PEEX(16539) ,32) rD8iRETURN 

4 LPRINTTAB(41)D5;TAB(5B)D6,TAB(59)V;* "D7| STRINGS(7B-PEEX (16539 
) ,32) ;D8iRETURN 

5 LPRINTTAB(1)D1;TAB(18)D2|TAB(19)V;' "D3 | TAB (38) D4fTAB( 39) V; • * 
D5»TAB(58)D6)TAB(59) V;" "D7 > STRINGS ( 7B-PEEK ( 16539) ,32) ;DBiRETURN 

6 LPRINTTAB(1)D1;TAB(1B)D2|TAB(19)V|* 'D3,TAB( 38) D4, i RETURN 

7 LPRINTTAB^JV,' 'DS,TAB( 58) D6 ;TAB( 59) V; i RETURN 

8 GOSUB6iGOSUB7: RETURN 

9 LPKINTTAB(19)V|TAB(39)V;TAB(59)V:LPRINTSTRINGS(8B,H) :GOSUB28B8 
:U2-liGOSUB188B 

IB LPRINT'(A)-TAB(8)A|TAB(19)V;'(B) ";TAB(39) V; ■ (C) " jTAB( 59) V| " (D 

) ":S-1:L-1:GOSUB18BB:GOT028 

11 LPRINTTAB(58)D6|TAB(59)V;" "D7» STRINGS ( 7B-PEEE (16539) ,32) ,D8i 

RETURN 

28 LPRINTTAB(1)D1|TAB(8)A|A| IG0SUB3 :GOSUBlB8B 

38 LPRINTTAB(1)D1;TAB(9) A| IGOSUB3 iU7"fl IUB"B|G0SUB1BBB 

48 LPRINTTAB(1)D1|TAB(19)V;' • ,D3 >TAB( 38) D4»TAB( 39) V» ■ 'DSjTABlS 

B)D6;TAB(59)ViSTRINGS(67-PEEX(16539) ,32) ) '•CS" .-U7-1 IU8-1 iGOSUBIB 

88 

58 LPRINTTAB ( 1 ) Dl j TAB ( 1 8 ) A ) : G0SUB3 i GOSUB18 88 

68 LPRINTTAB! 1)D1 | :GOSUB3:GOSUB188B 

78 LPRINTTAB(l)DljTAB(ll) A; iGOSUB3:GOSUBlB8B 

88 PORC-lT04iGOSUB5iGOSUBlBBB:NEXTC:LPRINTSTRINGS(88,H) iLPRINT'( 

E)'jTAB(19)Vi-(P)- ; TAB(39)Vj-(G)-jTAB(59)V;*(H)':S-2:L-l!GOSUB2B 

88:GOSUB1888 

148 GOSUB5iU4-8iGOSUB10BB 

15B GOSUB2iLPRINTTAB(21)D3,TA8(28)HiM>" • ;H;H;M,NiH;TAB( 39) V; :G0 

SUB4:GOSUB18B8 

168 GOSUB2iLPRINTTAB(27)H»TAB(3B)M;TAB(36)M;TAB(39)Vj:GOSUB4:U5- 

i:GOSUB18BB 

178 GOSUB2i LPRINTTAB! 23) M,K|H»MjTAB( 35) N;TAB( 39) V(M|H|TAB( 58) D6» 

TAB(59)V;' "D7)STRINGS(7B-PEEX(16539) ,32) ; D8 iGOSUBlBBB 

188 GOSUB2iLPRINTTAB(22)HjTAB(36)HjTAB(39)V»M,' " ;M ,H, iGOSUBl 1 :G 

0SUB1MI 

198 GOSUB2: LPRINTTAB ( 23) N»TAB( 36) H,N>TAB( 39) V» TAB ( 41 )H,l<;M,iGOSU 

BlliU5-liGOSUB18BB 

288 GOSUB2:LPRINTTAB(24)«;TAB(38)M)M; :GOSUB4 1GOSUBI8BB 

218 GOSUB2iLPRINTTAB(25)M,TAB(27)"CAT ISLAND" ; TAB (39) N, iGOSUB4 iG 

OSUB1888 

228 GOSUB2iLPRINTTAB(24)N,TAB(48)M,TAB(42)D5i:GOSUBll!U5-8tGOSUB 
1888 

238 GOSUB2iLPRINTTAB(25)M|N|TAB(38)DATES|TAB(41)H,M»M(M;iGOSUBll 

:G0SUB1B88 

249 LPRINTSTRINGS(27,H) ,H;M( N;M| TAB( 44) M|M; STRINGS! 33 ,H) 

258 LPRINT"(I)-,TAB(19)V | -(J)'|TAB(31)N;M|TAB(46)Ni" (K)',TAB<59 

) V) " (L) * i GOSUB2B 88 :U 4-8 iU5-BiS-3!L-l iGOSUBlBBB 

268 GOSUB2iLPRINTTAB(21)D3|TAB(33)N>TAB(47)K,iGOSUBlliU2-BiGOSUB 

1BBB 

278 LPRINTTABdlDliTABdSlHiMjTABdgjV;' -D3 f TAB ( 34] HiHiHiN.KiTA 

B(48)H|:GOSUBlliU4-liGOSUB188e 

288 LPRIHTTABd)Dl|TABd5)Hl((,TAB(19)V,■ , D3 ) TAB(3I)D4|TAB(39)M, 

TAB(48)H| iGOSUBlliU2-liGOSUBlB8e 

298 GOSUB2 : LPRINTTAB! 21) D3/TAB) 38) D4|TAB( 48) H, TAB ( 48) M,K, TAB (51) 

D6»TAB(59) V;- 'D7»STRINGS (78-PEEX (16539) , 32) »D8iUl-B>U7-B iGOSUBl 

3BB LPRINT" RN2" ;TAB( IB) D2| TAB(19) V( ■ "D3,TAB(3B) D4| TAB (38)M>M,H 
»TAB(58)K," ■)D6|TAB(58)K|N;M;STRINGS(7B-PEEK(16539) ,32) jD8iU6-B 
iU2-BiGOSUB1B88 

31B LPRINT'< •»TAB|12)M|MfTAB(19)V,- "D3 |TAB(38) D4,TAB( 38) Ml * 

";H»TAB(51)H|TAB{57)H|TAB(6i)M|TAB(63)' ■ 1M1M1H1H, " 'DBjUl-liGO 

SUB1BB8 

328 LPRINTTAB(1)D1;TAB(11)M,- ■ ,H|TAB(19) V| * "D3/TAB ( 38) D4;TAB( 3 

9)V|" ■^^>TAB(S2)N^N|H,N,II,TAB(62)H>■ "/Nj' ■»N|Ki- "iDSiGOSUBIB 

88 

338 LPRINTTABdlDliTABdBJMfTABtMJKiTABdgiV;' , D3jTAB(3B)D4|TA 

B(39)V|TAB(42)H|TAB(63)M, - -,H;M|' ' ,D8iU8-8 iGOSUBlBBB 

348 LPRINTTAB(1)D1,TAB(11)N,H,' ■ ;*>TAB (19) V> * *D3,TAB( 38) D4»TAB 

(39)V|TAB(43)M|TAB(47)"CAT ISLAND" | STRINGS! 6 4-PEEX (16539) .32) ;H, 

STRINGS(69-PEEK(16539) ,32) | H, HlGOSUBlBBB 

358 LPRINTTAB(l)Dl|TABd3)H»NrTAB(19)V,* -D3|TAB( 38) D4»TAB( 39) V| 

TAB(43)N,TAB(63)* ■,NtGOSUB2B8B 

368 LPRINTSTRINGS(44,H) ;N,TAB( 49) DATES|TAB(63) N;STRINGS< 14 ,H) 

378 LPRINT'(N)',TAB(19)Vj'(N)"|TAB(3B)M>M;TAB(39)V,"(0) - ,TAB(45) 

N,H|TAB(63)H," (P) ■iU4-8iU5-8iU6-BiU7"BiS»4iL"l:GOSUB18B8 

388 GOSUB2 i LPRINTTAB ( 21 )D3; TAB ( 38) H»N|TAB( 39) V|TAB( 47) N;TAB( 55) H 

(TAB(63)K)' *|N|II|" " |D8 iU4-l iGOSUBlBBB 

3»B GOSUB6iLPRINTTAB(39)V,TAB(45)N,«," ' ,N|M,TAB( 54) H, ' "|M|TAB( 

63)' ";H;H,- '»«;' ■ )D8 iGOSUBlBBB 

488 GOSUB6 : LPRINTTAB ( 39) VjTAB( 45) H;NjTAB( 58) MjH;TAB{ 54) M, TAB (57) 

Nf STRINGS! 6 8-PEEK (16539) ,32) ;Mj* " ;D8 iGOSUBlBBB 

418 GOSUB61 LPRINTTAB ( 39) V, TAB ( 52) N»M»TAB( 58) M;K,N,I«; STRINGS (67-P 

EEX(16539) ,32) j*,' " jD8«U5-l :U6-1 iGOSUBlBBB 

428 GOSUB8iLPRINTTAB(61)H>STRINGS(66-PEEX(16539) ,32) iMiHiMi' VD 

8 iGOSUBlBBB 

43B GOSUB8tLPRINTN,STRINGS(66-PEEX<16539),32),N,' '/DBiGOSUBlB 
88 

448 GOSUB8iLPRINTN,STRINGS(65-PEER(16539) ,32),N,' -jOSiGOSUBl 

888 

458 GOSUB8iLPRINTTAB(61)H,H|H,H," a |M|II| a *|D8 iGOSUBlBBB 

468 GOSUB8iLPRINTSTRINGS(66-PEEX(16539) ,32)»H|M|' *,D8iGOSUB18B 

8 

478 GOSUB8iLPRINTSTRINGS(7B-PEEX(16539) ,32) |D8 

488 LPRINTSTRINGS(88,H)iLPRINT-(Q)-|TAB(19)V|-(R)',TAB(39)V,"(S) 

"lTAB(59)V|TAB(63)N|NiH,- (T) • iGOSUB28B8iU7-8 1U8-B 1 S-5i L-l iGOSU 

B1BSB 

588 GOSUB8iLPRINTTAB(62)Hi" "»H»H;* " |D8 iGOSUBlBBB 

518 GOSUB8iLPRINTTAB(62)N,STRINGS(68-PEEX(16539) ,32);N|N,«|- '.D 

8iUB-BiGOSUB188B 

528 GOSUB8iLPRINTTAB(62)M,H|M,STRINGS(71-PEEX(16539) ,32)>NiGOSUB 

538 GOSUB8iLPRINTTAB(6 3) ' * ,H, STRINGS ( 71-PEEX (16539) ,32) iNtU8-l t 
GOSUB18BB 

54B GOSUB8iLPRINTSTRINGS(65-PEEX(16539) ,32)Ni* "iMi" "iDBiUS- 

8 iGOSUBlBBB 

558 GOSUB8iLPRINTSTRINGS(66-PEEX(16539) ,32)M|' " lNiUB-1 iGOSUB 

till 

568 GOSUB8iLPRINTSTRINGS(66-PEEX(16539),32)M," ■,*,- -,08107-1 

: GOSUBl 000 



578 GOSUB8iLPRINTTAB(61)D7;STRINGS(67-PEEX(16539),32)N|M|K,* ", 

D8 ■ GOSUB2SBB iGOSUBlBBB 

588 GOSUB 5 iGOSUBlBBB 

598 GOSUB 5 iGOSUBlBBB 

688 I.PRINTSTRINGS(88,H) i LPRINTTAB (19) V t TAB) 39) V r TAB( 59) ViG0TO48B 

B 

1888 REM LOAD D1>D8 HERE 

1818 IFL-lTHENBl-liB2-2BELSEIFL-2THENBl-2iB2-19ELSEIPL-3THENBl-3 

iB2-lBELSEIFL-4THENBl«4iB2-17ELSEIPL-5THENBl-5iB2-16 

1828 IPL-6THENBl-6iB2-15ELSEIPL-7THENBl-7iB2-14ELSEIPL-8THENBl-B 

iB2.13ELSEIPL-9THENB1.9iB2-12ELSEIPL-lBTHENBl-lBiB2-ll 

1838 IPS-1THEN01-B 102-1 i03-2 i 04-3 iGOTOlBSB 

1848 IPS-2THEN01-3i02-4i03-5i04-6iGOT01B88 

1B5B IPS"3THBN01»6i02«7i03»8i 04-9 iGOTOl 888 

1B68 IPS-4THEN01-9 1 02-18 103-11 i 04-1 2 IGOT01B8B 

1878 01-12i02-13iO3-14iO4-15 

1888 ES(1)-ZS(S+01,B1) i ES(2) -ZS(S*01 ,B2) iES(3) -ZS(S+02 ,B1) tES(4) 

-ZS(S+02,B2) iES(5)-ZS(S+03,Bl) iES(6) -ZS(S*03 ,B2) iES(7) -ISIS+04 ,B 

1) tES(8)-ZS(S*04,B2) 

1882 P0R X-l TO 8iIFES(X)-"THEN1891ELSETS-RIGHTS(ES(X) ,LEN(ES(X 

))-2) iGOTO 1898 

1888 TS-RIGBTS(ES(X) ,LEN(ES(X) )-3) 

1898 CS-LEPT$(TS,1) I IPCS-'S^ORCS-'D'ORCS-'WTHENEStX) -••'♦TS 

:GOT01891ELSEGOT01888 

1B91 NEXT X 

1895 Dl-ES(l) iD2-ES(2) iD3-ES(3) iD4-ES(4) iD5-ES(5) iD6-E$(6) ID7-ES 

(7) iD8-ES(8) iL-L-Hi RETURN 

28BB Ul-liU2-liU3-ltU4-ltU5-liU6-liU7-liU8.il RETURN 

3BBB OPEN * I ",1," CAT/DAT* i INPUT 81, DATES 

3818 P0RX-lT02BiF0RXl-lTO2BtINPUTIl,Z$(X,Xl) 1NEXTXI1NEXTX 

3B28 CLOSE! RETURN 

3858 CLOSE ■ END 

4BB8 LPRINTSTRING$(3,138) iRUN*EAGLE* 
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Program Listing 3 

1 CLEAR32BBiON ERROR GOTO 3858 iDEFSTRV, H ,M,D, AiDEPINTU, B,0,X i DIN 
Z$(2B,2B) iN- , I"iA-"I*iV-*i"iH-'.'iCLSiPRINT8465, , »ORXING PILENAM 
E....">CHRS(34) )*EAGLE'|CHRS(34) iGOSUB3BBB 1GOTO8 

2 LPRINTTAB) 19) V," "D3 ,TAB(3B) D4;TAB( 39) V, ■ -D5,TAB( 58) D6,TAB(59 
)V, D7,STRINGS(78-PEEX(16539) ,32) ;D8iRETURN 

3 LPRINTTAB(39)V,' *D5,TAB( 58) D6,TAB( 59) V; " 'D7 , STRINGS (7B-PEEX ( 
16539) ,32) ,D8iRETURN 

4 LPRINTTAB) 59) V, * "D7| STRINGS (78-PEEX ( 16539) ,32) |D8l RETURN 

5 LPRINTTAB(1)D1;TAB(1B)D2;TAB(19)V;' "D3 ,TAB( 38) D4| TAB( 39) V, ■ " 
D5jTAB(5B)D6»TAB(59)V>' -D7; STRINGS 1 78-PEEX ( 16539) ,32) ,D8lRETURN 

7 LPRINTTAB(l)Dl|TAB(18)D2;TAB(19)V|iRETURN 

8 LPRINTTAB(19)V,TAB(39)V|TAB(59)ViLPRINTSTRINGS(8B,H) IG0SUB2BBB 

/ utmg J continues 
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Listing i continued 



1S-I1L-I 

II LP«IIIT'(A) , ;TAB(19)V»*(B) , |TAB(39)V»"(C) , »TAB(59)V» , (D)"jUl-» 

: 1)2-8 iGOSUBlSBI 

21 LPRINT'* R'jTAB(8)A|iGOSUB2iGOSUBlBB8 

3t LPRINT' N6';TAB(8)A»A|iGOSOB2:GOSUBlBBB 

41 LPRIWT'< •iTAB(9)A;:GOSOB2:GOSUBll«« 

SI GOSUB2iGOSUB18B6 

61 LPRINTTAB(lB)A|lG0SUB2:GOSUBllll 

71 GOSOB2:U1-1jU2-1iGOSUB1III 

88 P0RC-lTO4:G0SUB5«GOSUBlBBBiNEXTC:S-2:L-liLPRINTSTRINGS(62,B) ; 

M|M|H|M|H|M| STRINGS ( 12, B) 

131 LPRINT'(E)'>TAB(19)V>'(P)'»TAB(39)V»'(G)")TAB(5B)H»N|TAB(59) 

V|" ■|NjSTRINGS(6B-PEEK(16539) ,32) |M|MjM," (H) ■ iU5-8iU6-B:U7-BiU 

8-BsGOSUBlBBB 

141 GOSOB7iLPRUrrTAB{21)D3tTAB(3l)D4|TAB(39)ViTAB(44)K»M ( «|H|H|M 

»TAB( 52) H|TAB( 59) M;H| STRINGS (7B-PEEK( 16539) ,32)N,MiGOSUBlBBB 

151 OOSUB7lLPRINTTAB(21)D3|TAB(3i)D4|TAB(39)V»M|MjM|M»TAB(52)l1|T 

AB(57)H|NfSTRINGS(71-PEEK(16539) ,32) »H|MiGOSUB188B 

161 GOSUB7iLPRINTTAB{21)D3;TAB(3l)D4iTAB(37)MiK|M|TAB(53)M,HiM,>l 

; STRINGS ( 7 2-PEEK (16539), 32) H|U4-B|G0SUB1BBB 

17t GOSUB7iLPRINTTAB(21)D3»TAB(35)M,M(STRINGS(71-PEEK(16539) ,32) 

iHiGOBOBllll 

181 GOSUB7iLPRINTTAB{21)D3jTAB(33)N|N|STRINGS(69-PEEK(16539) ,32) 

|N|MiU8-llGOSUBlBBB 

191 GOSUB7iLPRINTTAB(21)D3|TAB(31)N;M;STRING$(67-PEEK(16539) ,32) 

|HjH|* "DSiGOSUBllll 

2IB G0SUB7|LPRINTTAB(21)D3|TAB(3B)H|STRINGS(65-PEEK(16539) ,32)H> 

M|* *|l>B:GOSUBiaM 

211 GOS0B7iLPRINTTAB(21)D3»TAB(28)M»K|TAB(63)H|H;STRINGS(7B-PEEK 

(16S39) ,32) |D8:03-iiGOSUBieiB 

22t GOSOB7jLPRINTTAB(27)H>TAB(61)H»M;STRING$(7B-PEEK(16539) ,32) > 

DBiGOSOBllll 

23 B GOSUB7iLPRINTTAB(25)N»NiTAB(59)M|M(STRINGS(78-PEEK(16539) ,32 

) jDBiGOSOBUM 

241 LPRINTSTRING$(23,B) |M|H|TAB(58)H>STRING$(2B,H) :S-3:L»1 

258 LPRINT*(I)*;TAB(19)V|* *|M|H|TAB( 57)N» " ' ;V| * (L) * iGOSUB28BI : 

U3-BiU4«l:U5-l:U6«6:GOSUB18BB 

268 LPRINTTAB(l)Dl)TAB(18)D2;TAB(18)H;NjN;TAB(56)H! :GOSUB4:GOSUB 

1MB 

27B LPRINTTAB(1)D1|TAB(18)D2|TAB(16)M;K;TAB(S5)H;'(K)"»V;' "D7jS 

THINGS (7I-PEEK(16539) ,32) |DB|U2-B|G0SUB18B8 

2H LPRINTTAB(l)Dl»TAB(13)N;H)N;TAB(54)N|!GOSUB4iGOSUB18B8 

294 LPRINTTAB(l)Dl|TAB(lB)H;K>N>TAB(S3)NjiGOSUB4tGOSUBlB88 

388 LPRINTTAB(l)Dl|TAB(8)H|NtTAB(S2)H>iGOSUB4iUl>B:GOSUB188B 

311 lprinttab(5)nin;h>tab(22) 'eagle island'»ta8(5b)m>m; :gosub4:g 
osobimi 

328 LPRINTTAB(4)N|TAB(49)MiiGOSOB4iU6-l:GOSUB188B 

338 LPRINTTAB(3)K»TAB(22)DATESlTAB(48)«rTAB(5B)D6i:GOSUB4tGOSUBl 

III 

341 LPRINTTAB(4)H|TAB(46)M|K;TAB(5B)D6mG0SUB4iG08UB1BBB 

351 LPRINTTAB(4)N|TAB(44)N|N|TAB(5l)D6|iGOSUB4iGOSDBllll 

361 LPRINTB|H|B|N|TAB(42)H|N>STRING$(35,H) :S"4:L"1 

371 LPRINT"(N)",H)TAB(39)M|MiH|* (0) ";TAB( 59) V; * (P) " 1GOSUBI8B8 

381 LPRINTTAB(3)N»TAB(37)H|HiV;TAB(5B)D6llGOSUB4i05-liGOSUB188B 

391 LPRINTTAB(3)M;TAB(35)M|H|iGOSUB3iGOSUBllll 

411 LPRINTTAB(4)N|TAB(33)ll|N|*(N) , |iGOSOB3iGOSUB188B 

418 LPRINTTAB(4)NfMfH|TAB(32)H|iGOSUB3iGOSUB1888 

421 LPRINTTAB(7)H|II i M|TAB(31)H > iGOSUB3iGOSUB1BII 

431 LPRINTTAB(1I)M;TAB(3I)HmGOSUB3iU4-1iGOSUB1III 

441 LPRINTTAB(18)II;IAB(29)N»TAB(31)D4»iGOSUB3iGOSUB18BB 

458 LPRIRTTAB(18)N|TAB(28)N;TAB(38)D4|iGOSUB3iGOSUBlBIB 

468 LPRIRTTAB(ll)N|TAB(27)N|TAB(38)D4|iCOSUB3tGOSUBlB6B 

471 L»IMTTAB(ll)N|TAB(26)lt|TAB(3B)D4>iGOSUB3iGOSUBlBBB 

481 LPRIRTSTRING$(11,B) jN;TAB(25)N|STRINGS(53 ,B) iS-5iL«1 

491 LPRINT'(Q)'|TAB(11)M|TAB(21)H»H|N|N)' (R) •>TAB(39)V| " (S) " >TA 

B( 59) V|*(T)*|GOSOB2III iD2-l iU3-B iGOSUBlBBB 

588 LP»INTTAB(l)Dl|TAB(ll)NjNM«l«»TAB(18)ll)M|«;TAB(3B)D4|:GOSUB 

3i03-llGOSOB18B8 

518 LniNTTAB(l)Dl|TAB(14)N|ll|H;H|tGOSUB2iGOSUBlSBB 

521 LPRIIRTAB(l)01|tGOSOB2lGOSOB2BB6iGOSDB16B8 

538 PORC-lT07iGOSUBSiGOSUBllll!NEXTC:LPRINTSTRING$(8l,B) 

541 LPRIMT'«PL R4 SEC; TAB (19) V|TAB(39) VjTAB(59) ViGOT04B8B 

1811 REM ASSIGN D1>DB BERE 

111! IPL>lTHENBl'liB2>2BBLSEIPL-2THENBl-2:B2-19ELSEIPL-3THENBl-3 

iB2-iaBLSEIPL-4TBBHBl>4:B2-17ELSEIPL-STBBNBl-5:B2-16 

1828 IPL-6THEml-6iB2»lSELSBIPL-7TBENBl-7 :B2-14ELSEIPL-8THENBl-8 

|B2-13ELSEIPL-9THENB1-9:B2-12BLSEIPL-1BTHENB1-1S:B2>11 

1131 IPS-lTHENOl-l 102-1 i03-2 |04»3 1GOTOI8BB 

1141 IPS-2TBEN01-3 102-4 103-5 1 04-6 iGOTOl 888 

1151 IPS-3TBEN01-6i02-7i03-8i04-9iGOT01B88 

1161 IPS-4TBEN01-9i02-18 103-11 104-12 iGOTOlBBB 

1171 01-12 102-13 i03-14i04-15 

1181 E$(1)-IS(S+01,B1) :BS(2)-IS(S+01,B2) :ES(3) -ZS(S*02 ,B1) iE$(4) 
-ZJ(S+02,B2) |E$(5)-Z$(S*03,B1) >E$(6) -I$(S+03,B2) : ES(7) -ZSIS+04 , B 
1)|ES(B)-IS(S+04,B2) 

1182 POR X-l TO 8|IPES(X)""THEN1S91ELSBTS-RIGHTS(ES(X) ,LEN(ES(X 
))-2) iGOTO 1191 

1118 T$-RIGBT$(E$(X) ,LEN(E$ (X) ) -3) 

IBM C»-LEPT$(T$,1) iIPCS-"S*ORCS-"D , ORCS-'W'THBNES(X)-"*'+TS 

■GOT01B91ELSEGOT01I88 

1191 NEXT X 

1195 Dl-ES(l) |D2»E$(2) iD3-ES(3) :D4-ES(4) iD5-ES(5) iD6-ES(6) :D7-ES 

(7) |DB-ES(8) iL»L*l I RETURN 

2111 Ul-liU2-l«U3-l:U4-liC5-liU6-liU7-l:U8-li RETURN 

3111 OPBN'I* , 1 , •EAGLE/DAT* i IHP0T41 , DATES 

3111 PORX»lT028lPORXl"lTO28iINP0T#l,Z$(X,Xl) iNEXTXliNEXTX 

3121 CLOSE i RETURN 

3151 CLOSE i END 

4MB LPRINTSTRING$(3,138) iRUN'HARBLE" 
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Program Listing 4 

3 CLEAR 32BBiCLSiPRINTM65, 'WORKING PILENANE. . . . *,CBRS(34) | 'MARB 
LE')CBRI(34) 

4 ON ERROR GOTO 3858 

5 DBPSTR V,B,N r DiN- , #'tV-'i'iB-'.*iDEPINTU,B,0,XiDINZS(2l,2l) iGO 
STJB3III 

8 LPRINTTAB(19)V)TAB(39)V)TAB(59)V|LPRINTSTRINGS(88,H) 

Listing 4 continues 



Figure 3 
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If You Do A Lot Of Editing Of 

Your BASIC Programs, Then 

This Is The Editor For You!!! 



The Full Screen Text Editor for BASIC, we were the first to give 
the TRS-80 this indispensable ability. What ability? The ability 
to edit your BASIC program with the ease of word processing. 
It is a type of word processor specifically designed to handle 
BASIC programs instead of letters and documents. 



The capability to change, insert and 
delete a character or characters: 

Simply position the cursor over the 
character that you wish to change and 
type in the new one. Another handy feature 
is Insert Mode, this is used to add text in the 
middle of a program line. 

Extend a line or Insert new lines: 

Extending a line is as simple as two 
keystrokes, instantly the cursor jumps to the 
end of the program line and the editor is 
placed in the insert mode. 

Delete, copy or move statements: 

All you have to do is mark the line or block 
of lines and then tell the editor where to 
move or copy them. 

Global Search and/or change any 
specified string: 

Have you ever needed to change a lot of 
PRINT statements to LPRINTs? 

Macro key facility: 

Macro keys can cut your programming 
time in half. You can define each of the 26 
letter keys (A-Z) to represent BASIC 
keywords, or any letter or number 
combination up to 6 characters per key. 

I Renumber commands: 

Whats so special about this renumber 
facility? Not only can it renumber selected 
portions of your program, it also checks all 
GOTO, GOSUB, THEN and ELSE statements 
and updates them as needed! 



You may have seen other Editor programs 
advertized that give you one, maybe two 
of these features. You may have also seen 
some of these features sold as separate 
utility programs. 

Only CAU offers a complete editing system, 
not just a word processor patched up to 
handle line numbers. 



You can order the BASIC Editor directly from 
Computer Applications Unlimited or ask your 
local computer store. 

;at# 1210-20 for 



-80 Mod1&3 



29.95 



The Editor is supplied on tape with complete 
instructions to move it to disk. If you wish us to 
send the editor on disk please add $5.00 
and ask for a DISK DUMP 

Add $2.00 for shipping in the U.S. and 
Canada, $10.00 outside USA 
N.Y. State Residents add applicable Sales Tax. 
Dealer Inquiries Invited, r A. 



r * 1 



Computer Applications Unlimited 
P.O. Box 214, Dept FSBE, Rye, N.Y. 10580 
(914)937-6286 

• 120 

ril I COMPUTER 
ML /APPLICATIONS 
USUJ UNLIMITED 

• «v. 1 CAU. kM. 



TRS-80 is a TM of Tandy Corp 
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take it 
with you 



kbcki 



STES 



UJA 




The totally PORTABLE, 
totally COMPATIBLE, 

Model III in a 
Briefcase 

ADCOCK& JOHNSON 



F O DKAWKH M77H KORT WOKTII. TEXAS 7UII* 

ORDERS AND INFORMATION 
^536 (817) 429-5131 



Listing 4 continued 

19 LPRINT* (A) * r TAB(15)** Cl*|V| a (B) *rTAB(39)V;" (C) *|TAB(59)V,* (D 
) " iGOSUB2999 1 8-1 « L-l iD2-9 i GOSUB1999 

29 LPRINT - *D1|TAB(12)*II*|TAB(19)V|* *D3|TAB(39)D4>TAB(39) V| ' * 
D5|TAB(59)D6»TAB(59)V»* *D7| STRI1IG$(79-PBEK< 16 539) ,32) •MtQMOBl 
•If 

39 LPRINT* *D1»TAB(11)*I I I*|TAB(19)V|* *D3|TAB(39)D4»TAB(39) Vi 
* *D5fTAB(59)D6|TAB(59)V|* 'D7| STRINGS(7B-PEEK ( 16 539] , 32) i D8 : COS 
UB1999 

49 LPRINT* *D1|TAB(19)"I I I"|TAB(19) Vj • *D3|TAB(39)D4|TAB(39) 
V;* *D5|TAB(59)D6»TAB(59)V»" *D7rSTRING$(79-PEEK(16539) ,32) |D8iG 
08UB1999 

59 LPRINT" *DlfTAB(14)*I*|TAB(19)V|* *D3 j TAB ( 3 1) D4 j TAB ( 39) V; ' *D 
5>TAB(59)D6|TAB(59)V)* *D7> STRINGS (79-PEEK (16 53 9) ,32) 1D81GOSOBI8 
•• 

69 LPRINT* *DliTAB(15)*I a |TAB(19)V|* *D3|TAB(3I)D4»TAB(39) V| a "D 
5)TAB(59)D6;TAB(59)Vj* *D7»STRING$(79-PEEK(16539) ,32) |D8iGOSUB19 
■I 

71 LPRINT* *D1|TAB(16)*I*|TAB(19) |Vr* "D3|TAB(39)D4|TAB(39)V|* ■ 
D5)TAB(59)D6|TAB(59)Vj* *D7j STRINGS (79-PBEI (1653 9) ,32) jDBiGOSUBl 
■99 

89 LPRINT* *D1|TAB(19)V|* *D3|TAB(39)D4|TAB(39) V» " *D5|TAB(59) D6 
|TAB(59)V|* 'D7 (STRINGS (79-PEEK (16539) ,32) >D8iGOSUB1999 
99 LPRINT* *D1|TAB(19)V»* *D3|TAB(39)D4|TAB(39) V»* *D5;TAB(S9)D6 
|TAB(59)V|* *D7> STRINGS (79-PEBK( 16539), 32) ;D8iGOSUB1999 
199 LPRINT* a Dl|TAB(19)V|* *D3|TAB(39)D4;TAB(39) Vf * *DS|TAB(S9)D 
6|TAB(S9)V|* *P7rSTRING$(79-PBBR(16539),32)|DBiGOSUB1999 
119 LPRINT* *D1|TAB(19)V»* *D3 |TAB(39)D4|TAB(39) Vr * *D5|TAB(59)D 
6;TAB(59)V|* 'D7; STRINGS (7B-PE£K(16539) ,32) rD8tGOSUB1999 
129 LPRINT STRING$(88,B)iU2-liS-2iL-l 

139 LPRINT* (B)* > TAB(19)V| a (P)* ) TAB(39)V|*(G)*|TAB(59)Vf*(B)*|D(4 
) IGOSUB1999 

149 LPRINT* *Dl|TAB(9)D2>TAB(19)Vy* *D3»TAB(39) D4>TAB(39) V, ■ 'D5 
|TAB(59)D6|TAB(59)V|* *D7| STRING* (79-PBBR(16539) ,32) |D8:GOSOB199 
■ 

159 LPRINT* *D1|TAB(9)D2|TAB(19)V|* *D3»TAB(39) D4»TAB(39) V| * *DS 
|TAB(S9)D6|TAB(59)V|* *D7|STRING$(79-PEEK(16539) ,32) |D8iGOSUB199 
9 

169 LPRINT* *DlrTAB(9)D2|TAB(19)V|* *D3|TAB(39)D4fTAB(37)H|H|Hr * 
*D5|TAB(59)D6fTAB(59)V»* *D7| STRINGS (79-PBBK( 16539) ,32) >D8iU4-9 
|05-9|GOSUB1999 

179 LPRINT' *D1|TAB(9)D2|TAB(19)V|* *D3jTAB{36)H|TAB(49)K|TAB(46 
)N;M|H>N|" *D6»TAB(59)V|" *D7|STRINGS(79-PBEK(16539) ,32) ;D8iGOSU 
B1999 

189 LPRINT* *DlrTAB(9)D2rTAB(19)V|* "D3|TAB( 35) "I, TAB ( 41 ) «,;M;K|M; 
N|TAB(S9)N|* 'D6;TAB(59)V|* -D7| STRINGS (79-PEEK (16539) ,32) |D8iGO 
SUB1999 

199 LPRINT* *D1|TAB(9)D2|TAB(19)V|* *D3, TAB( 34) H,TAB ( 51 ) NsM,H| TA 
B(59)V|* *D7|STRINC$(79-PtBK(16539) ,32) » D8iGOSUB1999 
299 LPRINT* *D1;TAB( 9) D2;TAfl(19) V; * *D3»TAB( 32) Nf N|TAB(54) H|TAB( 
59) Vi" *D7|STRINGS(79-PBBK(16S39),32)|D8iGOSUB1999 
219 LPRINT* *Dl|TAB(9)D2fTAB(19)V| * *D3;TAB(31)H;TAB(55)H|TAB(59 
)Vf a *D7|STRING$(79-PBBX(16539) ,32) |D8iGOSDB1999 

229 LPRINT* *D1;TAB(9)D2|TAB(19) Vj * *D3|TAB(39)N|TAVS6)H|TAB(59 
)V;* *D7rSTRINGI(79-PEBK(16539),32)|D8iGOSUB1999 

239 LPRINT* "Dl |TAB( 9) 02, TAB 1 19) V| * "D3 ; TAB ( 3i> K > TAB ( 36 ) 'NARBLEH 
BAD ROCX*|TA8(57)H>TAB(59)V|* *D7| STRINGS (79-PEEK (16 539) ,32) |D9i 
GOSUB1999 

249 LPRINTSTRINC$(39,B);*i|TAB(S8)N>* ■ | STRINGS ( 28 ,B) : S-3 il.-l 
259 LPRINT*(I)" f TAB(19)Vj*(J)* J TAB(31)HjTAB(39)DATESjTAB(59)HjTA 
B(61)*(L)*tGOSUB2999iU4-9iU5>9iU6-9iGOSUB1999 

269 LPRINT* "D1,TAB(9)D2|TAB(19)V|" *D3|TAB(32)H|TAB(59)N(TAB(63 
)* *D7 I STRINGS (79-PEEK (16539) ,32) ;D8iGOSUB2BBBiU4-9 i05-9 1U6-61GO 
SDB1999 

279 LPRINT* *D1»TAB(9)D2|TAB(19)V, ■ *D3|TAB(33)H|TAB(69)M|TAB(63 
)* *(D7|STRING$(79-PBBK(16S39) ,32) >D8iU4-l>GOSUB1899 
289 LPRINT* *Dl|TAB(9)D2jTAB(19)Vj* *D3|TAB(29)D4rTAB(34)N»TAB(6 
1)N|TAB(63)* *D7| STRINGS (79-PEEK (1653 9) ,32) |D8iGOSUBllil 
299 LPRINT* *Dlf TAB(9)D2;TAB(19) V»* *D3|TAB(29)D4>TAB(34)N|TAB(6 
2)HtTAB(63) ' "D7f STRING$(79-PEBK(16S39) ,32) ;D8 iGOSUBUBi 
399 LPRINT* *D1|TAB(9)D2|TAB(19) V» * *D3|TAB(29)D4|TAB(34)H;TAB(6 
2)H|TAB(63) * *D7|STRING$(79-PEBR(16539) ,32) ;D8:03»8iU4-9iGOSUB19 
99 

319 LPRINT* ■D1|TAB(9)D2|TAB(17)H|N|H|TAB(3S)M|TAB(62)H;* *D7|ST 
RINGS (79-PEEK (16539) ,32) |D8iGOSUB2B99iD3-9iU4-9iU5-9iU6-9iGOSUBl 
999 

329 LPRINT* *DlfTAB(9)D2|TAB(16)N|TAB(29)N|HfH|H|TAB(29)H|N|NtH| 
TAB(35)HrTAB(61)N|TAB(63) * 'D7;STRINGS(79-PEEK(16S39) ,32) jDBiGOS 
UB1999 

339 LPRINT* *DlrTAB(9)D2|TAB(17)H|TAB(24)H;H|H;N;H;TAB(33)H|l(|TA 
B(S6)HiN|N|TAB(61)H|TAB(63) * *D7 | STRINGS (79-PEEK (16539) ,32) jDBiC 
OSUB1999 

349 LPRINT* *D1»TAB(9)D2;TAB(17)H,TAB(41)M,M,TAB(55)H,TAB(59)M,M 
>TAB(63) ' *D7jSTRING$(79-PEEK<16539) ,32) |DBiGOSUB1999 
359 LPRINT' *Dl|TAB(9)D2|TAB(16)H|TAB(49)M|TAB(43)M|HrTAB(53)N|M 
|TAB(S9)V|TAB(63)* *D7»STRING$(79-PEEK(16539) ,32) >D* 
369 LPRINTSTRINGS(16,B) |H(TAB( 49) N;B|H|B)B)M;TAB(51) H| HfSTRINGS ( 
27,B) iS-4iL-l 

379 LPRINT*(H)*|TAB(17)MjTAB(49)H;*(0)*|TAB(46)M|TAB(59)M|TAB(59 
)V»*(P)*iGOSCB1999 

389 LPRINT' *D1|TAB(9)D2;TAB(18)N|TAB(38)M|H|TAB(47)N;N|N|TAB(S9 
)V»" *D7|STRING$(79-PEEK(16539) ,32) |DBiD6-liGOSDB1999 
399 LPRINT" *D1;TAB(9)D2|TAB(19)H|M|TAB(37)N|TAB(39) V»* ';K|H|TA 
B(59)D4»TAB(59)V|* *t>7»STRINGS(79-PEEK(16539) ,32) >D8iGOSUB1899 
499 LPRINT* ■DljTAB(9)D2|TAB(19) V 1 TAB ( 21 ) H 1 M , TAB ( 36 ) M j TAB ( 3 9 ) V|M 
|TAB(43)N|TAB(59)D6|TAB(59)V|" "D7, STRINGS ( 79-PEEK (16539) ,32) |DB 
IGOSUB199B 

419 LPRINT* *DlrTAB(9)D2|TAB(19)V|TAB(23)H|N|TAB(3S)HrTAB(39)V l * 
*|H|H|TAB(S9)D6|TAB(S9)V;* 'D7, STRINGS (79-PEEK ( 16539) ,32) |D8:GO 
SUB1B9I 

429 LPRINT* *01|TAB(9)D2|TAB(19) Vf * (N) *»TAB(25)H»R|N f TAB(34)N»TA 
B(39)V>TAB(59)D6|TAB(S9)Vf* *D7| STRINGS (79-PEEK (1653 9) ,32)|D8i03 
-liGOSUB1999 

439 LPRINT* *Dl>TAB(9)D2jTAB(19> V| ' "D3;TAB( 28) MjTAB( 33) N,TAB( 39 
)V|" *D5|TAB(59)D6>TAB(59)V|* *D7|STRING$(79-PEEK (16539) ,32) ;D8i 
GOSUB1999 

449 LPRINT* "D1»TAB(9)D2|TAB(19)V| * ■D3|TAB(29)N>K|H>H|TAB(39)V| 
* *DS|TAB(S9)D6>TAB(59)V|* *D7|STRING$(79-PEEK(16539) ,32) 1DB1GOS 
UB2999iU4-9iGOSUB1999 

459 LPRINT* *D1|TAB(9)D2|TAB(19) V| * *D3|TAB(39)V> * *DS|TAB(59)D6 
;TAB(59)V|* 'D7|STRINGS(79-PEEK(16539) ,32) »D8iGOSUB1999 
469 LPRINT* *D1|TAB(9)D2»TAB(19)V|* *D3)TAB(39)D4>TAB(39) V| * *D5 
|TAB(59)D6>TAB(59)V|* *D7|STRINCS( 79-PEEK (1653 9) ,32) |D8iGOSDB199 



479 LPRINT* *D1>TAB(9)D2|TAB(19) V| * *D3;TAB(39)D4»TAB(39) Vj * 
»TAB(59)D6»TAB(59)V f * *D7jSTRINGS(79-PEBK(16539) ,32) ;D8 
489 LPRINTSTRINGS(8B,B)iS-5iL-l 



■D5 



Listing 4 continues 
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Listing 4 continued 

HI LPRINT'(Q)-,TAB(19)V; , (R)";TAB(39)V;*(S) , ;TAB(59)V| , (T) , iGOS 

UB1IM 

5M FORC-lTOliiLPRINT* "Dl ;TAB( 9) D2|TAB(19) V; " "D3;TAB ( 38) D4 F TAB 

(39)V»" "D5|TAB(5i)D6>TAB(59)V»" "D7)STRING$(7»-PEEK(16539) ,32) ; 

D81GOSUBIIM1NEXTC 

511 LPRINTSTRIHG$(88,H) 

528 LPRINTTAB(19)V;TAB(39)V I TAB(S9)V 

531 GOTO 4MI 

ltff REM ASSIGN D1>D8 HERE 

1819 IFL-1THENB1-1iB2-2IELSEIFL-2THENB1-2:B2-19ELSEIPL-3THEMB1-3 

:B2-18ELSEIPL-4THENB1-4iB2-17ELSEIFL-5THENB1-5iB2-16 

1121 IFL-6TBENB1-6iB2'15BLSEIPL>7THENB1-7:B2-14ELSEIPL-8THENB1-8 

I B2- 1 1 ELSEI FL- 9THENB1-9 I B2-1 2ELSEI FL-1 9THENB1 -lit B2-1 1 

1131 IFS-lTHEN01-i:02-li03-2i04-3iGOTOia8B 

1148 IFS-2THENOl-3:02-4:O3-5iO4-6iGOTOlB8i 

10 59 IFS-3TBEN01-6 (02-7 i03-8i04-9:GOTOliBi 

1B6 8 IFS-4THEN01 -9 i 02-18:03-11: 04-12 iGOTOltBI 

lilt Ol-l2i02-13iO3-14:O4-15 

H8f E$(1)-ZS(S-K)1,B1) :E$(2)-Z$(S+01,B2) t E$ ( 3) -X$(S+02 ,B1) :E$(4) 

-IS(S+02,B2) :ES(5)-Z$(S+03,B1) :ES(6) -I$(S+03,B2) :E$(7) -I$(S+04,B 

1) iE$(8)-IS(S+04,B2) 

1(82 FOR X-l TO 8!lFE$(X)- , *TBEHli91ELSET$-RIGBTS(E$(X) ,LEK(E$(X 

))-2) :GOT0 1191 

1988 T$-RIGHT$(ES(X) ,LEN(E$(X) ) -3) 

HM C$-LEFT$(T$,1) :IFC$- , S , ORCS-"D"ORCS-*M , THEMBS(X)- , * , *T$ 

1GOT01891ELSEGOTO1888 

1991 NEXT X 

1195 Dl-ES(l) iD2-ES(2) tD3-E$(3) tD4-E$(4) :D5-E$(5) :D6-E$(6) :D7-ES 

(7) |D8-E$(8) iL-L+liRETURN 

2118 Ul-1 102-1 iU3-liU4-l:U5-l«U6-liU7-l i 08«li RETURN 

3998 OPEN" I • , 1 , 'MARBLE/DAT* i INP0T91 , DATES 

3918 FORX-lT028:FORXl-lT028:INPtrr#l,X$(X,Xl) 1 NEXTX 1 : NEXTX 

3929 CLOSE ■ RETURN 

3151 CLOSE i END 

4818 LPRINTSTRINGJ(3,138) lRUN'MISERY* 
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Figure 4 



Program Listing 5 

3 CLEAR3288:C* ERROR GOTO 3559 iDEFSTRV, H,M,D, A: DEFINTTJ ,B,0,X:DIH 
X$(29,28) :M-"#' iA-'I':V-- • ■:H-". , iCLS:PRINT9465, 'WORXING PILBMUI 

E "jCHRS (34) , -MISERY', CHRS(34) iGOSUB3588 :GOT08 

5 U>HINTTAB<1)D1>TAB(18)D2|TAB<19)V|TAB(21)D3>TAB(38)D4|TAB<39)V 
»TAB(41)D5»TAB( 58) D6|TAB( 59) V,TAB(61)D7| STRINGS (78-PEEK( 16539), 3 
2) iDSiRETURN 

7 LPRINTTAB(19)V|TAB(39)V|TAB(59)ViWJTURN 

8 G0S0B7iLPRIMTSTRING$(89,B) iGOSUB2IBB,S-liL-l 

\% L»*mT«\X)*,TABU9)V, 1l {B) , ,TAB(39)V;'(C)',TAB(59)V|-(D)',GOSO 

Listing 5 continues 
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SOFTWARE CONCEPTS 
DALLAS TEXAS 



SPECIAL DELIVERY 

Now is the time to turn your TRS-80 and 
your text editor into a REAL word processing 
machine. 

EXCELLENT... Creative Computing Review. 
State of the Art... 80 Microcomputing 
Review. 

• Maintain your mail list 

• Print personalized FORM letters. 

• Free format labels 

• 100% machine language 

• Enter names at typist speeds 

• Use with Scripsit, Lazywriter, Electric Pencil 

(we sell them all!) 

• Extract selected names 

• Boldface & underscore 

• Get your form letters past the secretary's desk! 

XTRA Special Delivery Includes 
all of the above PLUS: 

• Disk Sorts 

• Multi Label printer 

• Key definitions 

This is the LAST mailing list you 
will ever have to buy!! 

FOR YOUR MODEL I OR III: 

(requires minimum 32K & single drive) 

SPECIAL DELIVERY tips 

XTRA SPRCIAL DELIVERY ..J.ZZZZZZZ $199 

TOR TOUR MODEL II 

(requires Scripsit 2.0) 

SPECIAL DELIVERY $199 

Over 2800 satisfied customers 
(plus 12 that won't speak to us any more) 

Electric Pencil 2.0 $80.00 

Lazywriter $165.00 

Scripsit $95.00 

(Most TRS software available at similar discounts CALL!) 

SOFTWARE CONCEPTS 

105 Preston Valley Shopping Center 
Dallas, Texas 75230 

Our retail store is located at the SW corner of 
Preston & LBJ 

(214) 458-0330 

MasterCard, Visa, American Express, COD 

*•» 43 
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PREMIUM 

CASSETTES 

COMPUTER GRADE 

100% ERROR-FREE 

FULLY GUARANTEED 
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The Micro-Trac™ Generation 

• High Frequency Response •Wide Dynamic Range* 

• Used by Software Firms & Computer Hobbyists • 

• Choice of School Districts Nationwide • 



LENGTH 12-PAK 24-PAK 

C-05 $ .69 $ .59 

C-10 $ .79 $ .69 

C-20 $ .99 $ .89 

C-30 $1.19 $1.09 

C-60 $1 .49 $1 .39 

C-90 $1 79 $1 .69 

•CASES $ .21 $.20 

'Cases recommended to protect sensitive cassettes. 



— UPS SHIPPING— 

(No P.O. Boxes please) 

$2.00 (12-pak) $3.00 (24-pak) 

—Canadian shipping multiply by 2— 

#1 COMPUTER TAPE 
IN THE USA! 

— write for volume prices— 



TOLL-FREE 

(orders only) 

^ 1-800-528-6050 . 

ext. 3005 

In Arizona State 

1-800-352-0458 

ext. 3005 

MICRO-80-INC. 

E 2665 Busby Road 

Oak Hartx>r, WA 98277 

—Distributors Wanted— 
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Figure 5 



Listing 5 continued 

15 GOSUB5:GOSUB1000 

20 GOSUB5:GOSUB1000 

30 GOSU35iGOSUB1000 

41 GOSUB5iGOSUB1000 

50 GOSUB5iU3-iiGOSUB10B0 

60 LPRINT* *D1;TAB(10)D2|TAB(19)** CI" >TAB( 30) D4 |TAB(39) V; " *D5r 

TAB(50)D6|TAB(59)V|* *D7| STRINGS (70-PEEK (16539) ,32) »D8iU3-l :G0SU 

B1000 

70 GOSUB5iGOSUB1000 

•0 GOSOB5iGOSCB1000 

90 «3OSDB5iGOSUB1000 

100 GOSOB5 

110 LFRINTSTRINGS(41 ,H) ;MjH; " ' |H| STRINGS ( 34 , H) : U5-0 I S-2 I L-l 

120 LPRINT*(i)"jTAB(19)V|'(F)*jTAB(38)M;M»M|Mf* *|M|Mj" "»M|* (G 

)*|TAB(59)V|*(H)*iGOSUB1000 

130 GOSUB3000I LPRINT* *D3;TAB(30)D4(TAB(37) M|M|M>TAB(45) M»M;TAB( 

50)D6>TAB(59)Vj* "D7 ; STRINGS ! 70-PEEK ( 1653 9) ,32) >D8iU4-0j(J5-0 iGOS 

UB1000 

140 GOSUB3000ILPRINT" *D3|TAB( 36) M|TAB(44) M;TAB( 50) D6 |TAB( 59) Vj " 

■D7|STRINGS(70-PEEK(16539) ,32) |D8iGOSUB1000 
150 GOSUB3000ILPRINT* *D3;TAB(35)M|TAB(44)M;TAB(50) D6>TAB( 59) V> * 

■D7jSTRINGS(70-PEEK(16539) ,32) ; D8 : U3*0 : G0SUB1 000 
1(0 GOSUB3000iLPRINTTAB(25)H>M|TAB(3S)M;TAB(43)H|TAB(50)D6;TAB(5 
9) V," *D7|STRING$(70-PEEK(16539) ,32) ;D8:GOSUB1000 

170 GOSUB3000|LPRINTTAB(23)M|M>* *,M;M;M;M;* * ;H;TAB( 44) H;H;H 
|TAB(50)D6jTAB(59)V»' *D7;STRING$(70-PEEK(16539) ,32) jD8:GOSUB100 


180 GOSUB3000»LPRINTTAB(22)M»TAB(31)M|M|MjTAB(46)M|TAB(50)D6>TAB 
(59)V>* ■D7»STRING$(70-PEBK(16539) ,32) »D8iU6"0:GOSUB1000 
190 GOSUB3000tLPRINTTAB(21)H|TAB(46)H)H;H)TAB(59)V| a *D7;STRING$ 
(70-PEEK(16539) ,32) 1 D8 :U7-Bi GOSUB1000 

200 GOSUB3000iLPRINTTAB(21)M;TAB(49)M|TAB(55)M|M|M|M|M>STRING$(7 
0-PEEK( 16539) ,32) |D8:U8-0iGOSUB1000 

210 GOSUB3000iLPRINTTAB(22) »M»M»M>M|TAB(50)M»* * )M;TAB(60) M»M; 
* LITTLE* iGOSUB1000 

220 GOSUB3000lLPRINTTAB(26)M|H|M;H)' GREAT MISERY" , TAB! 50 ) M, TAB 
(55)M;TAB(62)M; " MISERY ISLAND* 

230 LPRINTSTRING$(29,H) |Mj* ISLAND* )TAB( 49) |M;H| H;H| H;H|M)TAB 
(62)M I STRING$(17,H) 1U8-I : S-3 : L=l 

240 LPRINT*(I)*|TAB(19)V|*(J)"|TAB(29)M)TAB(48)M,* (K) * ,TAB( 56) M 
|TAB(62)H)M|* (L) *iGOSUBl000 

250 GOSUB3000iLPRINTTAB(29)M)TAB(33)DATESjTAB(47)M;TAB(56)M|TAB( 
63) ' " i Mj STRINGS! 70-PEEK(16539) ,32) 1 D8 : GOSUB100 

260 GOSUB3000iLPRINTTAB(25)M|M;M)H;H;TAB(46)M;TAB(S7)M;H;M;TAB(6 
3)* *;Mj STRINGS (70-PEEK (16539) , 3 2 ) 1 D8 ; U6-1 : GOSUB1 000 
270 GOSUB3000iLPRINTTAB(21)N)MjHfM;TAB(46)M»TAB(50)D6|TAB(60)M|M 
|M;MjSTRINGS(70-PEEK(16539) ,32) ; D8 : GOSUB1 000 

280 GOSUB3000tLPRINTTAB(21)M>TAB(46)H>TAB(50)D6;TAB(S9)V;STRING$ 
( 70-PEEK (16539) ,32) |D8|U7-1|GOSUB1000 

290 GOSUB3000iLPRINTMrTAB(45)K;TAB(50)D6;TAB(59)V|* *D7|STRING$( 
70-PEEK (16539) ,32) j D8 : G0SUB1 000 

300 GOSUB3000«LPRINTH»TAB(43)M;M»TAB(50)D6»TAB(59)V»* *D7»STRING 
$(70-PBBK(16539) ,32) ;D8iGOSUB1000 
310 GO8UB3000ILPRINT* *M»TAB(43)H»TAB(50) D6;TAB( 59) V; * *D7jSTRIN 

Listing 5 continues 
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Listing 5 continued 

G$(78-PEEX(1653») ,32)|DBi08-BiGOSUBllll 

321 OOSUB3fffiLnZIR1liTAB(44)ll|TAB(5l)I>«fTAB(S9)V ( a •D7|STRING$( 

t»-PEW(16539) ,32) i** c MB* iGOSUBlSBB 

331 LPUVT* a 01|TKB(ll)D2|TAB(lB)H|l(|TAB(44)H|TAB(St)D6|TAB(5l)V 

t m ■|D7ilJ»-l l GOSUBllH 

348 LFRIHT* •Dl»TAB(ai)D2»TAB(18)MiTAB(4*)N;TAB(Si)D6|TAB(5»)V|- 

■ l D7;8TRINGS(7t-PBBX(leS39) ,32) >D8 
358 LPRINT8TOING8 (17, H) |H|TJLB(44) |M|STRINC$(3S,B) >8-4lL-l 
368 LPRIHT* (K) a ;TAB(lC)M|TAB( 25) HjHjMjTAB(45)M» ■ (O) *;TAB(59> V; • 

(P) a lGOflUB18BB 
378 LPRIHT* *D1>TAB(1S)M|TAB(23)M|N|* ' ,«|H,M,TAB( 44)«)TAB( 58) 
D6|TAB(5»)Vj* a 07|STRIHG$(7S-PEEK(16539) ,32) |D8iGOSOB18B8 
381 LPHIRT* *D1|TAB(16)R|I(|H(H|I(|H;II|TAB(31)H|H|H|I < |H|H|II|" " 

)RlB|TAB(58)D6iTAB(5»)V|" a D7f STRIHG$(7S-PEBX(16539) ,32) |D8:GOSU 
B18S8 

398 GOSUB3 888 i LPRIHT - (N) ■ | TAB(3S)HrH|HfR|TAB(SS)D6rTAB(59) Vi ■ * 
D7|STRIMG${78-PBU(lt539) ,32) f 08iGOSOB2B8SiGOSOBlSBB 
488 GOSOB5iGOSUB188B 
418 GOSUB5iGOSUB18B8 
428 GOSUBSiGOSOBlSBB 
438 OOSDB5iGOSDB1888 
448 GO80B5iGOSUB1888 
458 GOSUB5iGOSUB188f 
468 G080B5iGOBOB188B 
478 LPRimSTRIF»8(B8,B) iS-5iL-1 

468 LPRIHT*(0)*|TkB(19)V|*(R) a tTAB(39)V| a (6)'|TAB(59)Vr*(T)*iGOS 
UB1888 

498 GOSt)B5iOOSUB18B8 
588 GOSUB5s01-BlU2-8iGOSUBlaaB 

518 LPRIBTTAB(12)A|TAB(19)V|* *D3rTAB(38)D4|TAB(39)V|* 'D5|TAB(5 
8>D«fTAB(S9)Vr* a D7| STRINGS (78-PEBK( 16539) .32) |D8iGOSUB1888 
528 LPRIRTTAB(«)A|" "A|TA8<19)V| " *D3|TAB(38)D4|TAB(39) V| " "D5»T 
AB(5S)M|TAB(59)V| a a D7|STRIRG$(78-P8n (16539) ,32) |D8lGOSUB18S8 
538 LPRIHTTAB(S)A|A|TAB(19)V; a *D3;TAB(39)D4pTAB(39)V| a *D5»TAB( 
58)D6|TM(S9)V| a •D7|STRIHG$<7B-PEEB(16539) ,32) jD8iGOSUB2668:GOS 



UB1688 

548 GOSUB5iGO50B1686 

558 GOSUBSiOOSUBlBBB 

568 GOSUB5iGOSDB1888 

578 <30SUB5|GOSUB1B88 

588 GOSUB5iGOSOB188B 

598 LPRINTSTRING$(8B,B)iGOSDB7iOOT04B88 

1886 REM ASSIGN D1>D8 HERE 

1616 IPL-lTHENBl-ll82-26ELSEIPL-2THBHBl-2!B2-19RLSBIPL"3TB«ll»l-3 

iB2-18BLBEIPL-4THEIJBl-4lB2-17BLSEIPL-5TBBHBl»5iB2»16 

1626 IPL-6TBEMBl-6lB2-15EXSBIPL-7TBEllBl-7iB2-14fLSIIPL-8TIHIBl-l 

:B2-13ELSBIPL-9THEMBl-9lB2-12BLSBIPL'16TBBMBl-16iB2>ll 

1636 1 rS- lTHRBOl-6 1 02-1 1 03 - 2 1 04-3 1 0OT01 688 

1646 IPS-2TBBBOl-3i02-4i03-5i04-6sGOT01686 

1656 IPS-3THEM01-6 102-7 i03-Bi 04-9 1 BOTO1686 

1666 IPS-4TBEH01-9i02-16 |03-11 i 04-12 1OOTOI686 

1676 01-12i02-13i03-14i04-15 

1686 E8(l)-*8(frK>l,Bl) iB$(2)-I$(S*01,B2) xBS(3) -I$(B*02,B1) iBI(4) 

-S8(S*02,B2) :E8(5)-I$(S*03,B1) :ES16) -I$(S+03,B2) 1 B|(7) -1818+04 ,B 

1) :ES(B)-IS(S-K)4,B2) 

1882 FOR X-l TO 8t IPE$(X) - aa TBBN1691BLSET$-RIGBT$(E|(Z) ,LBII(lf (X 

))-2) iGOTO 1696 

1688 T$-RIGBT$(E$(X) ,LEH(E«(X))-3) 

1696 C$-LEPT8(T$,1) lIPC$- a S*ORC8- a D , ORC$-'l» , "niBllB8(X)-'* , +T| 

1 GOT01 8 91 ELSEGOTOl 6 8 8 

1691 NEXT X 

1695 D1-E*<1) |D2-B$(2) iD3-B$(3) tD4-E$(4) :D5-B*(5) |D6-B>(6) iD7-Bf 

(7) iDB-E((8) 1 L-L+li RETURN 

2MB Ul-liU2-lsU3-liU4-l!US-l:06-liU7-liUB-liRETURM 

3866 LPRINTTAB(l)Dl|TAB(16)D2rTAB(19)V|iRETUni 

3586 OPEN * I ' , 1 , "NISBRY/DAT - ■ INPUT* 1 , DATE $ 

3516 F0RX-lT026iF0RXl-lT026iIHPUTIl,I$(X,Xl) 1 NBXTX 1 ■ NBXTX 

3526 CLOSE 1 RETURN 

3556 CLOSE 1 END 

4666 LPRINTSTRING$(3,138)<RUN a PEACH* 



Program Listing 6 

1 CLEAR32B8iON ERROR GOTO 3656iDEPSTRV,H,H,D,AiDBPINTD,B,0,XiDIN 
I$(26,26) iN-*l a iA- a I*iV-*i'iB- a .*iCLSiPRINT6465, a H0RXING PILENAN 
E ",CHRS(34) t a PEACH a |CBR$(34) iGOSOB3S86iGOT08 

2 LPRINTTAB(19)V|TAB(23)D3|TAB(36)D4|TAB(39)V|* a D5|TAB(56)D6(TA 
B(59)Vr iRETURN 

3 LPRINTTAB(36)D4|TAB(39)V|* a DS|TAB(56)D6|TAB(59) V|" *D7|STRING 
$(76-PBBK(16S39) ,32) |D8i RETURN 

4 LPR1NTTAB(39)V|* a D5|TAB(5B)D6|TAB(59) V» * a D7| STRINGS ( 7 B-PEEK( 
16539) ,32) | D8i RETURN 

5 LPRINTTAB(1)D1|TAB(16)D2|TAB(19)V;* a D3|TAB(36)D4|TAB(39) V| * * 



DSjTABlSBlDJjTABISJlVi' a D7rSTIlIllej6(7B-PSBK(l«539) ,32) ;D8il 

7 LPRINTTAB(19)VrTAB{39)V|TAB(S9)ViRBTURM 

8 GOSUB7iLPRINTSTTaNC*(66,8) IGOSUB2666 

16 LPRINTTAB(23)H>* (B) a |TAB(39) |V| *(C) *|TAB(59)V| a (D) *|U1-6|U2- 

6iS-liL-liGOSUB1666 

26 LPKIRTTAB(26)H|H|N|* *D3» iGOSUB3iGOSUB1666 

38 LPRINTTAB(19)N|TAB(23)D3»«GOSUB3iGOSUB1666 

46 LPRINTTAB(26)N|N|TAB(23)D3r iG08CB3iG08UB1B68 

56 LPRINTTAB(17)N|N»N»N|N|TAB(23)D3|tOOSUB3iGOSUB1666 

66 LPRINTTAB(16)H,TAB(19)ViTAB(23)D3|iOOSUB3lU7-6iD8-6iGO«UB166e 

Listing 6 continues 





1 
J 




: 
l 




1 

1 




1 




1 




! 


<E> 


: (f ) 


«0W1S 


KG) 
88* 




: <h> 






• 5 S 1 1 * 






: ■SMI? 


t 


•••*« 


• 






i 


• 

8* 




• •• 

• 






t 


• 




• 




: 


• 






• 




: >dwi& 


» nARfclEHEAD 


»0CK 


• : 














(I) 


:<j> 


» 


06 • 02/O." 




* CL> 




t 


I 






• 




: 


« 






• 




i 

: 


• 
• 

* 






t 
• 
• 




868 


• 






• 




* •••• 


till • 






6 




• •«*•* •» 






• •* • 




• 




• • 


• •• 




» 




» »• 


• • 
















<H) 


* 




• <0) « 


• 


HP) 




• 




88 


• *• 






88 




• : s» 




l 




: »» 


• 1* * 




: 




• t 


• 


: •• 




I 




:in) ••• 


» 






1 




1 * » 


1 




1 




s 


***» 


1 




! 




! 




l 




1 




: 




; 




1 
1 


(Q> 


MR) 

: 

: 
i 

« 
» 
I 
s 

: 




US) 

1 
: 
: 
: 

: 
: 

: 




: (T> 

: 
: 

: 
t 
: 

: 
t 
i 



Figure 6 



V-fPlON introduces the 

INTERSTELLAR 




Introductory 
Price SI 095. 

plus tax and shipping 



SEND FOR 

FREE 

BROCHURE 

Identify your model. 



A si) lid state 

lisk emulator for your 

Apple*, TRS 80". SI 00. 

or SS50 computer 



Minicomputer speeds 
at Microcomputer Prices 



• A FAST mass storage device Speeds up 
payrolls, receivables, word processing, or 
any program requiring disk storage. 

• No moving parts Eliminates waiting on 
slow mechanical drives. 

• Standard 256K bytes of storage expandable 
to 1 megabyte. 

• Independent regulated power supply. 
•Automatic power failure detect and battery 

backup, 

• Hardware error detection and write protect. 

• Drivers, diagnostics and utilities software- 
provided. 

• Certified to comply with Class B limits 
Part 1 5 of FCC rules. 

INC. 



■ S»* List of Advertisers on Pege 451 



PIOIM, INC. Tel. (61 7)648- 

74 Appleton St., Arlington, MA 021 74 

Trade Mark Apple Tndt Mark Tandy Corp. 
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MAXPRIN 



F=»R INTER DRIVER UTILITY 
FOR THE STANDARD EPSON nx-M PRINTER 




BUPPORTB ALL MX-80 PRINT STYLES 
WORDPROCEBBING TEXT CONTROL MODE 
MENU MODE FOR BENERAL «F»F»I_ I C**T I ON 
TRUE RRORORT IONAL J LIST I R" I CAT I ON 

• "NKRllNES. ANVMH^RE • CENTERS TITLES 

• SUBSCRIPTS • 9UPER SCRIPTS 

• DYNAMIC CONTROL OF LINE SPACIN8 IN 1/72 IN. INCREMENTS 

• ITALICS KITH HM-00 BSflfJfinn 
* MORKS MITH HOST PROORAHS INCLUDING SCRIPSIt'" 



Maicprint 19 
progr4* whi 



rxtr 



J*»r Or ivtittfd pr » 
wilict an y RI 

Jfi a '-narai tfp £ 
»1*<print also ft 

thin a Dl ut I u+ % 

ion«J dpptM' jnct. 



Mithin Mor d processing text 
right urgin jubtifuition 
your printout a truly proti 

The standard rU.print »or 1 s mi th all BASIC proqraras. Adaptr 
programs available tor SCKIPSII. PENLll. and IA/YMRITEK. Hi n 1 mu 
vrvtwa '«quk » » »n t> *r e a '...•» Model 1 or Model III aitn 
drive. (Model III n»fl, (mo drives to convert only.' 



si 



Unl«*ih tn? true- cotfi't i*i of.vc 
on dish mi th Manual, adapter pre 



<M 80. Maxpr i nl 
aes . and tiuppi 



suppl 



'27.» 



TO ORDER ■ Call (MS) 737-2233 V» sa / Mastercard 
Send check or eoney order toi 
P»Qoycr-on lem, 
381 First Street, Suit* 3147 
tot Altom, California "4*22 • 333 



TRS-80™ Model 1 & 3 Software 

SYSTEM DIAGNOSTIC $99.95 

Tests every Component Of yOUl TRS-80 Model 1 or I: ROM. RAM, Video 
Display. Keyboard. C assette Kei order, Line Printer. Disk Drives (single 
or double density, J5, 40, oc 80-track drives). RS 2 32-1. Interface. 

SMART TERMINAL $74.95 

Model II CP/M Version $79.95 

The intelligent telecommunic ation program. Automatu transmission 
and reception ol tiles. T rue BR£ AK key (. assette and disk tiles i ompatible 
with both SC RIPS IT "and I lee tin Pencil \ Same program supports both 
cassette and disk systems. 

HOME BUDGET $49.95 

Cassette Version $29.95 

Analyses your income and expenditures, and prints monthly and year- 
to-date summaries showing income tax deductions. I omplete instruc- 
tions on customizing to your own budget. 

SMALL BUSINESS ACCOUNTING $59.95 

Cassette Version $29.95 

Based on Dome Bookkeepin , Record #612, keeps track ot income, 
expenditures, and payroll for a small business. Income and expenses 
can be entered on a daily, weekly, or monthly basis. Program c om pules 
monthly, through last month, and year-to-date summaries 

MAILING LIST $69.95 

Maintains mailing lists ot up to 1 i2b names on a single- formatted diskette 
Add, change, delete, find names, sort by information in any held, print 
up to 4- line labels ot J 2 characters per line on 1,2. J, or 4 column labels 

Documentation to any program can be purchased separately tor 
$10.00, deductible from later software order. 

Specify TRS-80 Model 1 or 3. 

Add Si. 00 tor postage and handling 
New York State residents add 4 '/*"/<, sales tax. 

HOWE SOFTWARE 

14 Lexington Road, New C ity. NY 10956 

(914) 634-1821 
Visa and MasterCard accepted. 

TKi 80 is a renisteied trademark ui Tandy ( orp "' 



I nil, 



tui .; 



76 LPRINTTAB(15)H>iGOSUB2iLPRINTSTRING$(76-PEEK(16539) ,32) jAjA:G 

OSUB1666 

88 LPRINTTAB(15)H>iGOSUB2iLPRINTSTRINGS(73-PEEK(16539) ,32) ,A|A:G 

0SUBHII 

91 LPRINTTAB(15)HiiGOSUB2iLPRINTSTRINGS(69-PEEK(16539) ,32))A«U9- 

I1U8-I1GOSUBI8B8 

lit LPRINTTAB(1S)M|TAB(19) jV|TAB(23)D3,iGOSUB3iGOSUB1IM 

111 LPRINTTAB(16)H>TAB(19)V,TAB(23)D3»iGOSUB3 

121 LPR:HTTAB(17)K,* *,STRING$(66,H) iS-2iL-1 

136 LPRINTTAB(18)H;" * » * (P) *|TAB(39) V; ■ (G) '(TABt 59) V» * (H) ' :G0SUB 

2668iUl-6iU2-6iGOSUB1666 

141 LPRINTTAB(19)H|TAB(23)D3|iGOSUB3!GOSUB1666 

158 LPRIMTTAB(28)N|TAB(23)D3;tGOSDB3iGOSUB1888 

168 LPRINTTAB(21)M;TAB(23)D3,:GOSUB3iGOSUB1866 

178 LPRINTTAB(21)H|TAB(23)D3,iGOSUB3iGOSUB1666 

188 LPRINTTAB(21)HiTAB(23)D3|iGOSUB3iU3-8iGOSuB188B 

19B LPRINTTAB(22)H|M|iGOSUB3iGOSUB18BB 

288 LPRINTTAB(24)HjH;:GOSUB3iU6-BiGOSUB166B 

21B LPRINTTAB(26)NiTAB(36)D4iTAB(39)V," "D5)TAB(5B)D6jTAB( 59) V; " 

"D7|STRING$(76-PEEK(16539) ,32) ;"C1 •■ I U7-6:GOSUB1666 
228 LPRINTTAB(27)H;Hi" "D4|TAB(39) Vf " "D5jTAB(56)D6;TAB( 59) V; " E 
NDEAVORS* ■ U4-S I GOSUB1SBB 
238 LPRINTTAB(29)H f H,TAB(39)Vi" "DS;TAB( 56)D6,TAB( 59) V;TAB(62) "• 

RM*iGOSUB188B 
248 LPRINTTAB(3B)M,STRINGS(32,H)»" BN "(STRINGS(13,H) :S-3iL-l 
258 LPRINTTAB(3B)Hi" ( J) ',TAB( 39) V) " (K) * )TAB( 59) V| " (L) " iGOSUB2BB 
BiUl-BiU2-BiU3«8iU4-fl:GOSUBiaee 

268 LPRINTTAB(1)H|H,H»TAB(1B) "PEACH POINT" iTAB (38) M> iC0SUB4iUB-B 
iGOSUBlBBB 
278 LPRINTTAB(3)MiM,TAB(31)H;TAB(39)Vi" "DSiTABISBJDSiTABI 59) V; * 

■D7)STRIHG$(76-PEEK(16539) ,32) | "RN2«" :GOSUB1868 
288 LPRINT*tI) , ) TAB(5)M|TAB(12)DATE5|TAB(32)H»TAB(39)V;' "D5;TAB 

(5B)D6|TAB(59)V»' *D7|STRING$(76-PEEK(16539) ,32) ;* >":U8«l:GOS 

UB18B8 

298 LPRINTTAB(6)H,TAB(27)H)M|H,* ";Hj :GOSUB4:GOSUB1666 

3BB LPRINTTAB(3)H»M,M,TAB(26)H)TAB(36)N,H>iGOSUB4:U4-l I GOSUB16BB 

318 LPRINTTAB(3)M|M;M;MiTAB(25)H;iGOSUB3iGOSUB1668 

328 LPRINTTAB<7)H|M;H>H|H,TAB(25)H|rGOSUB3:GOSUBlB8e 

338 LPRINTTAB(4)H|H|TAB(12);STRINGS(18,H) ;* ",H» !GOS0B3iGOSUBlB 

348 LPRINTTAB(8)H|H,H,TAB(19)V»TAB(22)MiH|:GOSUB3:GOSUBlB8e 
358 LPRINTTAB(12)H,K,M|TAB(19)V;:GOSUB3 
36S LPRINTSTRING$(8B,H) :GOSUB2666:S-4 : L-l 

378 LPRINT"(H) , |TAB(19)V,'(N)";TAB<39)Vj , (0) , iTAB(59)V."(P)" ! GOS 
UB1SB8 

388 P0RC-lTO18iGOSUB5:GOSUB18BB:NEXTC 

488 LPRIHTSTRING$(88,U) tS-5iL-l 

498 LPRINT"(Q)",TAB(.19)V;"(R)"iTAB(39)V|"(S)";TAB(59)V|"(T)":GOS 

UB1888 

5BB FORC-lT05iGOSUB5iGOSUBlBflB:NEXTCiGOSUB5:U4-B:GOSUBlBBfl 

568 LPRINT" "D1)TAB(18) D2jTAB( 19) Vi * "D3»TAB< 38) "RH • BN"iTAB<39 

)V»" ■D5»TAB(5B)D6iTAB(59)V»" •D7jSTRINGS(7B-PEEK(16539) ,32) iD8: 

G0SUB1BBB 

578 LPRINTTAB(l)Dl|TAB(16)D2»TAB(19)Vi" "D3|TAB(27) "KETTLEBOTTOH 

*;V|* *D5iTAB(5B)D6jTAB(59)V|" •D7|STRINGS(76-PEEK(16539) ,32) ;D8 

:GOSUB2BBB:GOSUBlB68 

588 GOSUB5iGOSUB1666 

598 GOSUB5iLPRINTSTRINGS(8B,H) : G0SUB7 : GOTQ4 B 8 B 

1888 REM ASSIGN D1>D8 HERE 

1811 lFL-lTHENBl-liB2»26ELSEIFL-2THENBl-2:B2-19ELSEIFL-3THENB1.3 

:B2-18ELSEIFL-4THENBl-4iB2-17ELSEIPL-5THENBl-5:B2«16 

1828 IPL-6THENBl-6:B2«15ELSEIFL-7THENBl-7:B2-14ELSEIFL-8THENBl-8 

:B2-13ELSEIFL»9THENB1»9:B2-12ELSEIPL-1BTHENB1-1B:B2-11 

1836 IPS-lTHEN01-6i02-li 03-2: 04-3 iGOTOl 688 

1848 IPS- 2THENOl-3:02«4i03-5 104-6 :GOT01B86 

1858 IFS-3THEN01-6i02-7:03-8:04-9iGOT01S86 

1866 IFS-4THEN01-9 102-16: 03-11 i04>12 ■ GGT01B 88 

1878 01-l2i02>13i03-14t04-15 

1888 ESU)-Z$(S*01,B1) :ES(2)-ZS(S+01,B2) :ES<3) -ZS(S+02,B1) :E$(«) 

-Z$(S+02,B2) iES(5)-ZS(S-t03,B1) sE$(6) -ZS(S+03 ,B2) i E$< 7) -Z$ (S+04 ,B 

1) |ES(8)-ZS(S-K>4,B2) 

1B82 FOR X-l TO B:IFE$(X) -"THEN1B91ELSET$-RIGHT$(E$(X) ,LEN(ES(X 

))-2):GOTO 1696 

1688 TS-RIGHT$(E$(X) ,LEN(ES(X) ) -3) 

1696 CS-LEPTS(TS,1) : IFCS-*S'0RCS-"D"0RCS-"WTHENES(X) -•••♦T$ 

: GOT01 8 91 ELSEGOT01 888 

1691 NEXT X 

1695 Dl-ES(l) :D2-E$(2) :D3-ES(3) :D4-E$(4) :D5-ES(5) :D6-E$(6) :D7-E$ 

(7) :D8-E$(8) :L-L+1 : RETURN 

2666 Ul-liU2-liU3«l i U4-liU5-liU6-liU7-l!U8-li RETURN 

3868 OPEN* I ",1," PEACH/DAT" iINPUTIl, DATES 

3618 F0RX-lT028tF0RXl«lTO2BiINPUTIl,Z$(X,Xl) : NEXTX1 I NEXTX 

382B CLOSE I RETURN 

38SB CLOSEtEND 

4BBB LPRINTSTRINGS(3,138) iRUN"DAT/C0L" 



Program Listing 7 



IBB REM 

118 ON ERROR GOTO 378 

126 CLEAR 56S6iDINZ$(26,28) ,D$(2B,26) jCLSiU-1 :V-448:GOSUB396 

136 GOSUB476 i PRINT«6,": INPUT'ENTER NAP NAME' ; HAP $: IF RAPS-*CAT* 

0RMAPS-" EAGLE "ORMAPS-' BAKERS ■0RHAP$-'HARBLE*0RMAP$« , HISERY , 0RMAP 

$-"PEACU"THEN146ELSEPRINT«8, STRINGS (63," ') :GOT0138 

148 GOSUB478iPRINT8192,*READ DATA DISK 7 (Y OR N) * :G0SUB5BB: IFSS 

- " Y * TH ENGOSUB4 3 6 

156 GOSUB476:PRINT6192,**| i INPUT'ENTER DATE OR (ENTER) HN/DD/YY" 

|A$:IFA$<>""THENDATES-A$:GOSUB31BELSEGOSUB316 

166 GOSUB476tPRINT8192, 'ERASE KEEPERS 77 (Y OR N) " :GOSUB5B6: IFSS 

-*Y*TBEN466ELSEIFS$-*N*THEN176ELSE166 

176 CLS: PR I NT 68, 'DATA INPUT ROUTINE FOR HAP DESIG. *}CHR$(34) jHA 

PS 

CHR$(34) iTAB(53) ; DATES : PRINTSTRINGS (63 , "-" ) 

186 GOSUB47B:PRINTP192, "ENTER SECTOR OR COMMAND LETTER" iGOSUB568 

■IF SS-"" THEN188ELSEIFASC(SS)->65ANDASC(SS) <-84 AND LEN(S$)-1 T 

HEN198 ELSEIFSS-"W"THEN33BELSEPRINT6192,STRINGS(63," ") iGOTOlSB 

19B U-l:P0RX-lTO26:PO-XiIFZS(ASC(SS)-64,X)-""TBEN26BELSEG0SUB4B6 



I isiinit fcxHUimtes 
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/ Minx " i tmnnurd 

: IPU-STHENU-1ELSEU-B 

201 NEXT XtPO-8 

214 PRINT?192,STRINGS(63," " ) i PRINTB192 , "WORKING * |CHRS ( 34) ;S$)C 

HRS(34)|* SECTOR ' 

221 GOSUB47iiPRINT#32l,""»:INPUT"POSIT », POT CODE, SHORTS/KEEPE 

RS (PO,CO,SU/KB)*|PO,PC$,K$ 

23i IP PO>iANDPO<-2tTHEN24iELSEIPPO>2»ORPO-»ANDPCS<>"THENGOSUB3 

2liCOT022liELSEIPPO-tANDPC$-"THENaOSUB32t:PRINT9192,STRING$(63, 

* ") >U-liV-448sGOS0B428iGOTO18S 

241 IP PCS-'"THENGOSUB32B:GOT022B 

258 IPPCS-"NA"THENX$(ASC(SS)-64,P0)-""iD$(ASC(S5)-64,PO)-"iP0-« 

:PC$-* a tU-liV-44eiG0SUB32liGOSUB42a:G0TO19B 

264 IS-LEPTS(PC$,2) t IPIS-'DW , 0RIS-*SW*THEN28BELSE27i 

278 I$-LEPT$(PC$,1) tIF I S-*W'THEN28»ELSEPCS-"" :GOSUB32B iGOT022B 

288 GOSUB388iGOSUB4BS 

290 IPU-8THENU-1ELSEU-B 

381 PO-0iPC$-"iGOSUB328iCOTO228 

318 PRINT8192, STRINGS (63," "):RETURN 

328 PRINT8328,STRINGS(«4," ")):RETURN 

338 MAPS-NAP$+"/DAT , !OPEN"0",2,MM'$iPRINT»2,DATES 

348 PORX-1TO20:FORX1-1TO2B!PRINTI2,ZS(X,X1) : NEXTXl : NEXTX 

358 PORX-lT028tPORXl-lT028iPRINT42,0$(X,Xl) : NEXTXl : NEXTX 

368 CLOSE i END 

378 CLOSE:RESTOREi0UT2S4,liV-448:GOSUB42SiG0TO128 

388 IS(ASC<SS)-64,PO)-S$*RIGBT$<STRS(PO) ,LEN(STRS(PO) ) -1) +PC$iD$ 

( ABC ( SS) -64, PO)»K$i RETURN 

398 OUT2S4,8 t P0RX-lTO2B:P0RXl-lTO2SiZ$(X,Xl)-"" i NEXTXl i NEXTX: RES 

TORE i OU T2 5 4 , 1 J RETURN 

488 IPU-1THEN PRINT8V,l$(ASC(SS) -64, PO) |TAB(9) I "S/K-" , D$ ( ASC ( SJ) 

-64, PO) i RETURN 

418 PRINT8V+32,Z$(ASC(SS)-64,PO) |TAB(41) | "S/K-" ;D$lASC(SS)-64,PO 

) iV-V+64 i RETURN 

428 PRINT(V,STRING$(63," ") j : IFV-96BTHENV«448tRETURNELSEV-V+64:G 

OT042S 

438 OPEN* I ",1, NAP$+ "/DAT": INPUT! 1,DATE$ 

448 PORX-1TO20:PORX1-1TO2B|INPUTI1,Z$(X,X1) iNEXTXl : NEXTX 

4Sf PORX-lT02BiPORXl>lT02SiINPUTtl,D$(X,Xl) I NEXTXl t NEXTXl CLOSE iR 

ETORN 

468 PORX-1T02B sPORXl-lT02B;D$(X, XI )»""i NEXTXl: NEXTX tGOT0178 

478 OUT 2S5,ltPOR X-lTO18B:NEXTX:0UT 255,8:RETURN 

5ii SS-INXEX$i IFS$-"THEN58BELSERETURN 



Jill IAMS - US 



i3 : SSSSSS', 



I AG 1 AF, 

MAP AREA nrSIRNAHONS 



Figure 7 



Program Listing 8 

188 ON ERROR GOTO 458: REM FILENAME 'DAT/COL* 

118 CLEAR 5888iDEPINTX,K,CiDIMP$(6,5B) ,ZS(28,28) ,DS(28,28) ,ES(18 

■ ) 

128 DATA BAKERS/DAT, CAT/DAT, EAGLE/DAT, MARBLE/DAT, MISERY/DAT, PEAC 

B/DAT 

138 DATABA,CA,£A,NA,KI,PE 

148 REM INPUT THE SIX PILES AND ASSIGN TO PS ARRAY 

Listing M continues 



BASF-DPS 

WORLD STANDARD TAPE 



premium s-scnew 

SHELL FITS ALL 
STANDARD RECORDERS 



MONEY BACK 
^r— GUARANTEE 

COMPUTER GRADE 
BLANK CASSETTES 



DATA TRAC / C-05, C-10, C-20 




CASSETTE STORAGE CAOOY 

ORGANIZE 
YOUR TAPES! 



THACTOA FEtD 

HE-CUT BLANK 

CASSETTE LABEL! 



I 



INTRODUCTORY OFFER! 

ORDER 2 DOZ CASSETTES. ORDER 1 CADDY 

GET 1 CADDY FREE! ' 



OMXft * 002 CAlStTTES ADO 
1 CAMUS - Bf I 2 FREE 



I 



erfyo" 



SBS? 



ABOUT 



YORK 



•fi^^^-BffJKS. 



***»*! 









^ 



Be* 



Merlon. 



Madison 



OH 



-YOU'VE TRIED THE REST. 
NOW BUY THE BEST' 



foc IMMEDIATE shipment 
on Credit Card Order*. 



Call: 213/710-1430 
ORDER NOW... VORKK) Computer wore 




MAIL TO' 24573 Kittndge St #80N Lanoga PdiK. CA 91307 

mm bbb Baa ORDER FORM ■■«BiB»aBai 



ITEM 1 DOZEN 2 DOZEN 


TOTAL 


C05 , 7 50 _ 13 50 




C 10 ^800 1**0 




C-20 10 00 _ 18 00 




Hard Box ) 2 50 , * 00 








FREE Quant.N 




Blank labels j 4 00/100 Q 30 00/1000 


— 


sua TOTAL 


CaM res.flwts add 6*. sales tax 




Shipping handling 1 do; %2 2 do* S3 50 
3 do; S* 50. oacfi additional do; $ 50 




For Parcel Post instead oi UPS ADO $1 




Outside Conbnemal USA. ADO $2 




! TOTAL 






Check or MO 
enclosed 



Charge to 
Credit Card: 



VISA . . MASTERCARD 
PLEASE SEND QUANTITY DISCOUNTS 



Ed-.' cassette 
includes fmo YORK 
10 labels only 
Boies are sold 
separately Ship 
menls ire by 
UPS unless 
Pircel Post '( 
quested Boies 
adttas and hM 
labels are tree ot 
shipping charges 
•Tien oifleiefl *it' 
cassettes When 
oideied without 
cassettes shipping 
crti'ges Boies 
5' OOdoi 
Cadd es St 00 
each MINIMUM 
SHIPPING 
HANDLING ON 
ANY ORDER 

800 



Card No. 



Exp. 



Name 




State /Zip 



Sig natur e 



Computer make & mode) 



.Disk?(y/n) 



■See List of Advertisers on Page 45' 
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Creative Computer 



Department 80 

1236 E. Colonial Drive 

Orlando, Florida 32803 USA 



In Florida call 
305-8940789 





RIBBONS ! 




PRINTER 


EZ • 

RELOAD l 


CARTRIDGES 
NEW 


RADIO SHACK 
PRINTERS 






Daisy II Black 

Brown/Blue/ Red 

LP 1-2-4 

LP3&5 

LP6&8 


10 For 24.95 
6 For 24.95 
4 For 18.95 
3 For 13.95 
3 For 13.95 


6 for 29.95 

N/A 


EPSON /IBM 




EPSON BRAND 


MX-70/80/80F/T 
MX- 100 


3 For 16.95 
3 For 18.95 


18.95 
29.95 


OKIDATA 






80-82-83-84 




3 For 11.95 


CENTRONICS 






700/730/737/739/779 
ZIP PAK 


4 For 18.95 





RADIO SHACK 
MODEL I & III 



NEWDOS80 2.0 $139 

LDOS5.1 105 

Maxi-Manager 84 

Maxi-CRAS 89 

Electric Pencil II 79 

Superscript 44 

Business Pac 100 94 

Library 100 39 

Money Manager 36 

GAMES 



Adventure International 



Big Five 

Avalon Hill 

Med System 

Acorn 

Epyx and Others 



1-5% Off 
2-10% Off 
3-15% Off 
5-20% Off 



RADIO SHACK 
MODEL II 



Racet Fast back . 
Business Pac 100 



$ 69 

144 



Over 100 Items 

We'll Beat Any Price 

On CP/M Items 



HARDWARE 



PRINTERS 

Epson MX 100 $ 749 

Epson MX SOFT 579 

Epson MX 80 474 

Okidata 80 349 

Okidata82A 469 

Okidata 83A 719 

Okidata 84 Par 1049 

Okidata 84 Serial 1149 

C. ltohF10-40CPS .... 1399 

C. Itoh Prowriter Par . . . 495 

C. Itoh Prowriter Serial . 649 

Smith Corona TP 1 . . . . 649 

MODEMS 

Hayes Smart Modem . . . $245 
Hayes Clock-Cronograph 235 



Plastic File Box 50-5 •/« " $19.00 



Library Case 5 Vt" . . . 


300 


Library Case 8" 


4.00 


Head Clean Kit 


23.00 


Floppy Saver 


11.95 


Floppy Saver Rings . . 


6.95 


Green Screen I, II, III . . 


12.00 


Mailing Labels 5000 . . 


$16.00 



CREATIVE COMPUTER 

Asset Depreciation . . $350/25 

Account Payable 495/25 

Account Receivable . . 495/25 

General Ledger 495/25 

Inventory Control 495/25 

Order Entry/Invoicing . 395/25 

Job Costing 495/25 

Yahtzee 24.95 + shipping 

Buy 3 and get 20% off KK * 

CALL TOLL FREE- 800-327-9294 

Write For Free Catalog 

Over 600 items in Diskettes, Paper, Lables, Ribbons, Checks. 
Storage Boxes. Furniture. Binders and Hardware. ' -Mfg. 
Trademark. Florida plus 5% tax. 

FREE SHIPPING except hardware. 

Most orders out in 24 hours with VISA M/C, Money Order, 
Cashier Check, Bar* Wire and C.O.D. Personal check over 
$150 allow 10-14 days. Mail order only. Prices subject to 
change 94 Monday-Friday, 9-6 Saturday. ^ 190 



■ » WILLIAMS -- FISH ( LOBSTERS ■ m 



06/12/82 



MAF DFSIG 

L7DW36»2/1 

H13SWi9»2/2 

019SW33»3/0 



BAKERS TIL'S. . 



BAKERS 

L9DW3S«9/1 L12M29«0/0 I 180M37I4/1 H3SM48*0/0 Hl«SM30i0/0 

N13DM30'7/0 N19DM29»2/2 060H31H/I OlWHl/1 0170M32'3/2 

P10H3«"2/3 F'6M32>0/0 P17DH26«3/1 P20M27M/I 



POTS- 17 SHORTS- 43 KEEPERS- 13 RATIO KPRS/POTS.. 0.9 



MAP DESIC 

C12DM24I3/I 
L13DM10M3/0 
O12OH6I2/0 



CAT TTL'S. . 



CAT 

CMOM13I1/1 C2IDMI4M/1 I1OW1BI2/0 

H20M1M/1 HI7OM2*0/0 N3OM3I6/0 

P13DW?«7/0 S160U7X3/1 T9DM8H/3 



SHORTS- 57 KEEPERS- 11 RATIO KPRS/POTS.. 1.7 



HAP DESIC 

D9M38»0/0 

ni8omi«.'i 



EAGLE TTL'S.. 



EACLE 

O17OU38I0/0 
O1SU47M/0 



N11DM43M/0 



POTS- 11 SHORTS- 10 KEEPERS- 3 RATIO KrRI/POTS.. i.5 



HAP DESIC MARBLE HEAD 

F3DM17»1/1 F10DM16«3/1 F20DM13H/0 



MARBLEHEAD TTL'S.. POTS- 



KEEPERS- 2 RATIO KPRS/POTS.. 0.7 



MISERY TTL'S.. 



POTS- SHORTS- 



KEEPERS- RATIO KPRS/POTS.. 



MAP DESIC PEACH 

C13M60B0/0 H3DW23«7/1 H3OM23«3/0 
K20SM53«0/0 LlSM34«0/0 L2DH2H3/2 
S7SW36«l/0 



PEACH TTL'S.. POTS- 13 SHORTS- 22 KEEPERS- 
TOTALS FOR PERIOO 06/02/82 ALL AREAS 

TOTAL POTS UORKED 60 TOTAL SHORTS 127 

Z KEEPERS US. TOTAL 23 SHORTS/POT... 2.12 

1982 TO DATE TOTALS TTO SHORTS 1102 



H14SM33al/0 H13SM59H/1 
L7DM19m«/i L9SM37M/0 



RATIO KPRS/POTS.. 0.4 



TOTAL KEEPERS 38 
KEEPERS/POT... 0.63 
TTO KEEPERS 262 



Figure 8 



Listing N continued 

158 PORX-lT06jREADTSiCLSiPRINT8448 f CHR$(23) i "WORKING PILE-NAME ■ 

|T$iG0STJB4SttOl 

161 OPBM a I* f l f T$ 

178 INPUTIl,DATESiIFX-lTHENHS-DATES 

181 IP DATESOBSTBBWGOT045S 

198 PORXl-lTO2BiPORX2-lT026iINPUT»l,XS(Xl,X2) |NEXTX2|NEXTX1 

211 POR Xl-iT028iF0RX2-lTO2B.INPUT61,DS(Xl,X2) iNBXTX2tNBXTXl 

211 CLOSE 

228 F0RXl-lTO26iFORX2-lTO26iIFXS(Xl,X2)-'"'TBEN236ELSE266 
238 NBXT X2 

248 NBXT XI 

258 NEXTX|G0T0278 

268 P9(X,C)-X*{Xl,X2)+-»"+D8(Xl,X2)iC-C+liGOT0236 

278 REM ASSIGN FILENAME PROM DATES 

288 A*-LEFT$(DATE8,2) |C$-MID$(DATE$,4 ,2) ♦" il", IFAS- a B4*THEMB$-«A 

PR/D"+C$iGOT0376 

298 IFA$-"B5"TBENB$-.'NAY/D*+C$ t GOT037B 

388 IFAS-'Be'THEiraS-'JUN/D'+CSiGOTcmB 

318 IPA$»*87*TBEHB$-'J0L/D*+C5:GOTO37 8 

328 IFA8-*68"THENBS-"AUG/D"+CSiGOT037B 

338 IFA8-*B9"TBBNBS-"SEP/D"+C$iGOT037e 

348 IPA$-*18 , THB1tB8- , 0CT/D , +C$iG0T0378 

358 IPA»-*11 , TBENB$-*NOV/D , -K:$iGOT0378 

368 GOTO 458 

378 IBM OUTPUT TO DISK 

388 CLS i PRINTM68, 'PACKING DATA TO DRIVE #1.."jBS 

398 OPEN*0*,2,B$ I PRINT*2, DATES 

488 POR X-l TO 61XI-1 1 REACTS 

418 irPS(X,Xl)-"TBEll 428 ELSE PRINT»2,T$*PS(X,X1) |X1-X1+1«G0T04 

428 NEXT X 

438 CLOSEtCLSiGOT052B 

448 G0SUB48S|PRINT8464,CBR$(23) J ' JOB COMPLETE" :FORJ-lT05«B: NEXTJ 
iPRINTS464,STRINGS(12," ") iGOT0446 
458 REM ERROR ROUTINE 
468 CLOSE 1 CLS 

478 GOSUB486iPRINT6464,CHRS(23) ;"E R R O R" iPORJ-lT0566iNEXTJiPR 
IirTM64,STRING$(12,* *) |G0T0476 
488 REM BEEP 

498 OUT255,liFORJ-lT05BiMEXTJiOUT255,BlR£TURM 
588 REM RBAD . LPRINT TOTAL DATA POR TBE WEEK 
516 CLSiINPUT'ENTER DATA PILE TO READ",BS 

526 CLS1PRINTM66,"* * READING BACK '|B$y* TO CHECK • •*:G0SUB49 
6 

536 X-liOPEN"I",l,BSiINPUT#l, DATES 
546 IPBOP(l)TBEH566i "CHECK POR END OP PILE 

558 INPUT#1,ES(X) iX-X+liGOT054Bi 'INPUT COMPRESSED PILE INTO E$(X 
) 

566 CLOSE. F0RC-1TO6.F0RC1-1TO5B. PS (C, CI) -"" iNEXTCliNEXTCi 'NOLL A 
LL PS 

578 C1-1:C2-1iC3-1iC4-1iC5-1iC6-1 

586 CLSiPBINT*165,"« • STRIPPING STRINGS * *"iGOSUB496 
598 PORK-lTOX-liGOSUBaieiHBXTKi'LOOP 6 PROM RBAD COMPRESSED PILE 
- SUB9B6 TO SEPARATE COMPRESSED PILE INTO 8BCTORS 

Listing 8 continues 
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You could spend hours 
typing in your programs, 

Or you 
could get 




With LOAD 80 

you'll avoid all the hassles 

while enjoying all the benefits 



ALL THE MAJOR 

PROGRAM LISTINGS 

FROM EACH MONTH 

OF 80 MICRO ON 

CASSETTE OR DISK 



What exactly is LOAD 80? Simply put, it is a monthly dump of 
the major program listings in each issue of 80 MICRO. Since it 
was introduced in April of 1981, hundreds of TRS-80* users like 
yourself have discovered the advantages and benefits of LOAD 
80. This comes as no surprise to Wayne Green, the innovative 
publisher who created LOAD 80. He knew from experience how 
frustrating and time consuming it was to keyboard and debug 
even a single published program, let alone all the major pro- 
gram listings in an issue of 80 MICRO. He was sure that a great 
many people were just as frustrated as he was and would jump 
at the opportunity to have those programs available in "ready- 
to-load" form. 

Wayne couldn't have been more right. LOAD 80 has been a 
boom to TRS-80 users, allowing them to spend more time ac- 
tually using their computers, while at the same time saving 
them a lot of aggravation and a good deal of money. 



And now you can enjoy all the benefits of the major program 
listings in 80 MICRO without the aggravation of kevboarding 
and debugging them. Start your subscription to LOAD 80 with 
this month s issue and save close to 30% on the monthly price. 
And with a year's subscription, your cost per month (for an 
average of 10 programs per cassette or disk) is about what it 
would cost you to purchase one program at retail prices. Plus 
you get the extra added advantage of having the complete 
documentation for the major programs in that month's issue of 
80 MICRO, so loading your cassette or booting up your disk 
should present no problem at all. 

To order your LOAD 80 subscription, or this month's issue 
only, simply fill in the attached card or the coupon below (a pho- 
tocopy is acceptable) and send it to: LOAD 80, 80 Pine Street, 
Peterborough, NH 03458. You can also order back issues of 
LOAD 80. For complete details, look for the LOAD 80 back 
issues advertisement in this magazine, or see your local dealer. 



LOAD 80 disks are TRSDOS 2.3 formatted, single density and floppy-sided. They will not contain an operating system. Sin- 
gle drive users need a copy utility; Model III users need the TRSDOS 1.2/1.3 Convert utility. Source code files may not be use- 
able on the Model III. 



Yes, I want December LOAD 80 



YES. I want to save money. I'll subscribe lo LOAD 80 
on disk beginning with this month's Issue . $199.97 

YES, I want a cassette of this month's LOAD 80 'or 
$9.97 each (plus $1 50 per tape for postage and 
handling). 



Vita Am. Ex I MasterCard 

□ Check/Money order 



YES. I want to save money. Sign me up tor a year ol 
LOAD 80 beginning with this month's cassette . 
$99.97 (or 12 issues. 

YES. I want this months LOAD 80 on disk tor $19.97 
each (plus $1.50 per disk for postage and handling). 



Name: 

Address:. 
City: 



State: 



Signature: 



Card# 



Zip: 

Exp. Date: 



8 



LOAD 80 is manufactured by Instant Software, a subsidiary of WAYNE GREEN INC.. 80 Pine St.. Peterborough. NH 03458 There is no warranty cs| 
expressed or implied that LOAD 80 will do anything other than save you typing. Foreion air mail D lease inauire 



"TRS-80 is a trademark of Tandy Corp 
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Let's get personal 



try out the in-stock selection of Heath/ 
Zenith microcomputers, peripherals, 
accessories and software. 

Now available at your nearby Heathkit 
Electronic Center, or through the Heathkit 
mail order catalog. 

You get more with a Heath/Zenith per- 
sonal microcomputer system! We offer: 

I.Proven high-performance hardware: 

Thousands of our microcomputers prove 
themselves daily, in the field. 



2. Vast software library: Three operating 
systems (including CP/M), languages, word 
processors, an electronic spreadsheet, ver- 
satile utilities and the 500-program Heath 
Users' Group software library. 

3. Self-instruction courses: Evaluation 
and programming courses from Heathkit/ 
Zenith Educational Systems. 

4. Service support: Before and after the 
sale consultation by phone, carry-in 
service by trained technicians. 



Test run one of our microcomputers 
at any of the more than 60 convenient 
Heathkit Electronic Centers in the U.S. 



Heathkit 

ELECTRONIC CENTERS 

See the white pages of your telephone book t^f*\ 
for store locations and telephone numbers. [M^g. 

•Units of Veritecnnology Electronics Corporation in the U.S. 




Listing 8 continued 

611 REM LPRINT ROUTINE 

61* CLSlPRIHTI46l,"* * PRINTING POT INFORMATION • *'iCOSUB499 

62* DATA BAKERS, CAT, EAGLE, MARBLEHEAO, MISERY, PEACH 

638 LPRINT TAB(2i)** * WILLIAMS — PISH t LOBSTERS * "(STRINGS 

(7§-PEEK(16539) ,32) iDATES 

641 LPRINTSTRINGSiei,'*') 

658 F0RX-1TC6:R£AD MA?S:C-B 

661 LPRINT'MAP DESIG 'iMAMlIPPStX, 1) -"THENLPRINT'NO 

DATA AVAILABLE FOR '; MAP SiG0TO68ii "CHECK FOR NULL 
67i LPRINT TAB(2)iPS(X,l*C)»TAB(15) »P$(X,2+C)|TAB(28)»P${X,3*C), 
TAB ( 41) |PS(X,4+C) |TAB(S4) (PS(X,5*C) ) STRINGS (67-PEEX ( 16539) ,32) |P 

5(x,«*c) 

68t C-C*6iIPC-36THEN69«ELSE67«i 'CHECK POR SIXTH LINE 

69f GOSUB89■lLPRINTMAPS|■ TTL' S. . ';TAB( 21) | 'POTS-* ;K|TAB( 31) i •SH 

ORTS-* ( SS| TAB ( 43) | 'KEEPERS-', SI ( TAB ( 57) | "RATIO KPRS/POTS. . ■ ; 1 22$ 

■'M.filF K-B THEN LPRINTKELSELPRINTUSINGX2S|SK/KiGOSUB93l 

7M Sl(X)-8SiKl(X)-SIi 'SS-SECTOR SHORTS SK-SECTOR KEEPERS 

711 LPRINTSTRINGS(8l,*- a ) iK-liSS-liSK-liNEXT X 

721 LPRINT'TOTALS POR PERIOD ',DATES»' ALL AREAS 

..." I LPRINT" " 

73i LPRINT'TOTAL POTS WORKED"|TP»TAB(3f) ; "TOTAL SHORTS " i TS , TAB ( 6 

I) I "TOTAL KEEPERS" | TK 

741 Z2$>"tl.tt"iLPRINT" *|LPRINT"% KEEPERS VS. TOTAL', INT( Hi" (T 

K/(TK+TS) ) ) >TAB(3f) » 'SHORTS/POT. ..', iLPRINTUSINGX2$,TS/TP, iLPRIN 

TTAB(6I) I "KEEPERS/POT..." ; i LPRINTUSINGZ2S; TK/TP 

751 OPEN'I',l,'YBAR/TTL'iIHPrjT*l,YEAR$i , YS-TOTAL YEAR SHORTS YK 

-TOTAL YEAR KEEPERS 

76i PORX-lTO«iINPUTtl,YS(X) ,YK(X) iNEXTXi 'INPUT TOTALS PROM FILE 

77( CLOSE 

781 F0RX-1TO6.YS(X)-YS(X)+S1(X)iYK(X)-YK(X)+K1(X).NEXTXi 'ADD EAC 

H SECTOR TOTAL TO YEAR TOTAL 

791 LPRINT" ' i LPRINT YEARS; * TO DATE TOTALS "|TAB( 38) ; "YT 

D SBORTS"|YS(l)+YS(2)+YS(3)-fYS(4)+YS(5)+YS(«)»TAB(6«)»"YTD KEEPE 

Rfl"lTI(l)*r«(2)*YI(3)*YlK4)*YK(5)*YK(6) 

881 LPRINT STRING$(2,138) 1GOTOI8BB 

819 REM - ASSIGN C 4 PS 

828 X$-L*PT$(ES(K) ,2) tIFX$""BA"THENC-liP$(C,Cl) -RIGHTS(ES(K) ,LBN 

(E$(K))-2)iCl-Cl+ltRETURN 

838 IFXS-"CA"THENC-2iPS(C,C2)-RIGHTS(ES(K) ,LEN(ES(K) ) -2) iC2-C2*l 

1 RETURN 

849 IFX$-"EA"TBENC-3iPS(C,C3)-RIGHTS(ES(K) ,LEN(ES(K) ) -2) «C3»C3*1 
I RETURN 

859 IFIS-"MA"THENC-4iPS(C,C4)-RIGHTS(ES(K),LEN(ES(K))-2)iC4-C4+l 
: RETURN 

868 IFXS-"MI"THENC-5iPS(C,C5)-RIGHTS(ES(K) ,LEN(ES(K) ) -2) IC5-C5+1 
1 RETURN 

879 IFXS-"PE"THENC-6iP$(C,C6)-RIGHTS(ES(K),LEN(ES(K))-2):C6-C6*l 



: RETURN 

889 IPES(K)>"BMD"THEN468 

899 REM ASSIGN SS-SK 

999 IFPS(X,l)-""THENSS-9tSK-9iRETURNELSEIFX-lTBENK-Cl-lELSEIFX-2 

THENK>C2-1ELSEIFX-3THENK-C3-1ELSEIFX-4THENK-C4-1ELSEIFX-5THENK-C 

5-1 ELSE IFX-6THENK-C6-1 

919 ?0RKl-lTOKiSK-SK*VAL(RIGHTS!?S(X,Kl: ,1) ) iTMS-RIGBTS (PS (X,K1) 

,3) : SS-SS*VAL( LEFTS (TMS.D) 

929 NEXTK1 1 RETURN 

939 TP-TP+KiTS-TS*SSiTK«TK+SKiRETURN 

949 REM OUTPUT TO DISK YTD TOTALS 

959 CLSiPRINTI469,"" • UPDATING YTD FILES • ""iGOSUB499 

969 OPEN"0",2,"YEAR/TTL"iPRINTl2,YEARS 

979 FORX-1T06 

989 PRINT«2,YS(X),YK(X)iNEXTXi'YS-YEAR TOTAL SHORTS YK-YEAR TOT 

AL KEEPERS 

999 CLOSE1CLS1GOTO449 

1999 REM START OF GRAPH 

1919 LPRINTSTRINGS(2,138) :V$-":",HS-"."iAS-" " iG1S-"SSSSSSS"iG2S 

-'KKKKKKR'^GSS-** •" >G4$'*BBBBBBB* iG5S-"B B" 

1828 LPRINTTAB! 21), '• • WILLIAMS — F*SH t LOBSTERS * *", STRINGS 

(78-PEEK(16539) ,32) » DATE $1 LPRINT" " iLPRINTSTRINGS(89, "•") iLPRINT 

" "iL-59 

1939 GOSUB1129 1 LPRINTTAB ( 2) L» TAB ( 5) , V$, IGOSUB1189 1 L-L-l : IFL-39TH 

EN1B49ELSE1939 

1949 READA$iGOSUB1129lLPRINTA$|TAB(2) ; I.; TAB (5) ; VS; : GOSUB1180 1 L-L 

-1iIFL"11THEN1959ELSE194I 

1959 A8-" •|GOSUB1129:LPRINTTAB(2)L|VS|iGOSUB1189iL-L-liIFL-9THE 

N1969ELSE1959 

1969 GOSUB1129iLPRINTTAB(3)LjTAB(5) |VS; 1GOSUBIIBB1 L-L-l 1 IFL-8THE 

N197BELSE1B6S 

1979 LPRINTTABi 6) STRINGS (64, HSi 

1988 LPRINTTAB(11)"BAK"|TAB(21)|"CAT"|TAB(31)|"EAG";TAB(41))"NAR 

•;TAB(51)i"MIS",STRINGS(61-PEEK{16539),32)|"PEA"iLPRINT" * 

1698 LPRINTTAB (25) 1 "• • MAP AREA DESIGNATIONS • •■ 

1189 LPRINTSTRINGJ(52,138)iGOT094B 

1118 DATA*,,*,,A,,R,,E,,A,,,T,,0,,T,,A,,L,,S,,*,,* 

1128 F0RN-1TO6 1 REM ASSIGN AS(1)>AS(6) 

1138 IFSl(N)-Kl(N)ANDSl(N)-LTHENAS(N)-G4$iGOT0117B 

1148 IFSl(N)-Kl(N)AMDSl(N)>LTBENA$(N)-GS$iGOT01176 

1159 IFSl(N)-LTHENA$(N)-Gl$ELSEIFKl(N)-LTHENA$(N)-G2SiGOT01176 

1169 IF S1(N)>L OR K1(N)>L THEN AS(N)-G3$ 

1179 NEXTNiRETURN 

1189 REM PRINT LINE 

1199 LPKINTTAB(9)»AS(1)|TAB(19) jAS(2)»TAB(29)»AS(3)(TAB(39)|AS(4 
) iTAB(49) »AS(5) ,TAB(59) » AS (6) ; STRINGS (69-PEEK ( 16539) ,32) |VSrLi" 

1288 RETURN 



FREE SHIPPING 



TRS -80 MOD III" ■ TPS " 8 ' isk Controller 




W/48K, 2 TANDON 

5 1 V DISK DRIVES 

INCLUDES TRS DOS 



1N0 RS 232 



RS232 $99.95 

Instructions Included 



$1725 




Includes Disk Controller, Switching 
Power Supply, Mounting 
Hardware, Cables and 
Instruction Manuals 



$269 ft 



COMPLETE 




ADD COLOR to your Model I & III - $169 

TRS80 MOD III Disk Controller w/ 5 'A & 8 Capability, RS232 and COLOR — $345 




PRINTERS 



MX80 
MX80F/T 
MX 100 



Call 

$535 

685 



SMITH-CORONA TP-1 585 

(Letter Quality Daisy Wheel Printer) 

Printer Cable $26.95 ($20 w/purchase of printer) 



TM 100-1 Single 40 Track Drive $199 

With Cabinet & Power Supply $249 

TM100-2 Double 40 Track Drive $269 

TM100-3 Single 80 Track Drive $289 
TM 100-4 Double 80 Track Drive $399 



8 Dual Slim Line Drive Power Supply & Cabinet $249 
Sfik" External Drive Power Supply & Cabinet 49 




VISA, MASTERCARD isioo Mln, Add 2%) 
Or Certified Check 
90 Day Warranty (Parts & Labor) 

TRS 80 is a Registered Trademark, Tandy Corp. 
Prices Subject to Change Without Notice 



DATA— MAIL 

P.O. Box818. Reseda. CA91 335 



FREE SHIPPING IN CONTINENTAL U S 
(TRS-SO MOD ill EXCEPTED) 

(213) 993-4804 
Toll Free (800) 635-5555 



—Circle 47 on Reader Service card 
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GENERAL 



Build an ideal workplace for your TRS-80 



$30 System Desk 



Sanford J. Asman 

59 Willis Drive 

West Trenton, NJ 08628 



After accumulating the 
various components of my 
TRS-80 computer system (a 
Level II Model I with an expan- 
sion interface and 48K of RAM, 
an MPI disk drive, and an 
Anderson-Jacobson AJ841 
printer) I realized the office desk 
the components had been ac- 
cumulating on was becoming 
less and less accessible. In ad- 
dition, it was harder and harder 
to avoid tripping over the rats 
nest of wiring created by six 
power cords plugged into var- 
ious wall outlets. Finally, the 
computer itself had never been 
at an ideal height; the desk top 
was too high for convenient key- 
board entry or for viewing the 
elevated monitor. The system, 
expanded from the original 16K 
computer, had clearly outgrown 
the desk on which it was sitting. 
I began looking for an alter- 
native arrangement. My first 
thought was that the $200 
system desk sold by Radio 
Shack, while not an insignifi- 
cant investment, might be 
worthwhile. However, because 
Radio Shack designed their 
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system desk with the computer 
and expansion interface open- 
ings on its left side, the desk 
would not fit in the location I in- 
tended to place it. Also, its 
modern appearance did not fit 
the decor of the room, it did not 
eliminate the multiple electrical 
outlets required to operate the 
system components, and I did 
not like placing the disk drive in- 
to a cubby hole. The price tag 
was steep for a desk that failed 
to be ideal. 

On the other hand, the open- 
ings in the Radio Shack system 
desk would eliminate much of 
the visible wiring and would pro- 
vide for free air circulation 
around the computer and ex- 
pansion interface, both of which 
are cooled solely by convection. 

My Own Design 

I decided to build my own com- 
puter system desk. I created a 
design I like and which is a part 
of the system, as well. It provides 
recesses for the computer and 
the expansion interface which 
allow for hidden wiring and ade- 
quate convection cooling, and 
the need for multiple power 
outlets is eliminated by including 
a six electrical outlet unit con- 
trolled by a single switch. The 
unit has a single power cord go- 
ing from the desk to a wall outlet; 
thus, the entire system is turned 
on or off with one switch. There is 



space on the desk for my printer, 
disk drive, and floppy disk 
storage, and the desk fits the 
room decor. Best of all, the desk 
was simple to build, and the 
wood cost less than $30. 

I have learned to build things 
that don't require exacting mea- 
surements. Rather than mea- 
suring, I mark one piece directly 
against the piece with which it 
fits, so the fit is certain and I 
needn't worry about whether I 
can measure accurately. Where 
measurements are absolutely re- 
quired, I make them as uncritical 
as possible. 

I decided to incorporate the 
openings of the Radio Shack 
system desk, but to make the 
desk in the form of a Parson's 
table. This leaves room on the 
left side of the computer for the 
printer and on the right side for 
the disk drive and disk storage. 
The tape recorder can occupy 
space behind the disk drive. The 
only important dimensions were 
the overall size of the desk top 
and the height of the desk (low 
enough to type comfortably, 
high enough to fit my knees 
under it). 

The result is shown in the 
photograph and described more 
fully in the plans. While I have in- 
cluded the actual measurements 
of my desk, you should follow the 
general principles rather than the 
specifics to get the desk that 



completes your system. 

Non-Critical Cuts 

I wanted a top surface of 49% 
inches by 28 % inches. The top is 
made out of a piece of 5/8 inch 
particle board, an extremely 
hard, dense material which 
comes in 4 foot by 8 foot sheets 
selling for about $6 per sheet. To 
keep things simple while pro- 
viding a finished edge (apron), I 
sawed a 26% inch piece off one 
end of a sheet of particle board. 
The 48 inch by 26% inch piece 
would provide me with the de- 
sired top surface after the apron 
was added. To ensure a straight 
cut, saw the top from the sheet 
using a sabre saw guided along a 
straight board clamped to the 
sheet by a pair of C-clamps or ad- 
justable wood clamps. 

After cutting the desk top from 
the sheet, make the openings for 
the computer and the expan s ion 
interface. Lay out the openings in 
the top and follow the lines with a 
hand-guided sabre saw. Start the 
cuts by drilling a hole some place 
within the openings or by using a 
plunge cut with the sabre saw. A 



The Key Box 

Model I 
Expansion Interf a ce 

Printer 



plunge cut is made by starting 
the saw and then tilting it into the 
waste area of the opening. The 
openings for the computer and 
the expansion interface are sized 
to allow wires to pass through 
and are not critical, so do not 
worry if your measurements are 
off; just try to keep the cuts fairly 
straight. I rounded the corners by 
drawing arcs with a quarter. With- 
out a single critical cut or mea- 
surement, the top is complete. 

I selected poplar for the apron; 
clear pine could be used and is 
more widely available, but I 
prefer to use hardwoods and 
suggest poplar, walnut, maple, or 
oak. The width of the apron is not 
critical, but for best appearance 
it should be approximately the 
same as the legs, which are 
made of square stock. I chose to 
use stock that was 7/8 inch thick 
by 2% inches wide, but these di- 
mensions are not critical. 1 by 3 
clear pine, which has actual di- 
mensions of V* inch by about 2 'A 
inches, could also be used. 

Next the end pieces are cut to 
length. Since they should be the 
same length as the ends of the 
desk top, mark them off directly 
against the desk top and cut 
them to length. The front and 
back apron pieces are cut to 
equal the lengths of the front 
and the back of the desk top 
(which might not be exactly 
equal) plus twice the thickness 
of the apron material. 



After the apron pieces have 
been cut to size, the legs are cut 
to length from square stock. I 
used 2 Va inch square poplar, but 
3 by 3 fir can be used. The length 
of the legs is equal to the height 
of the desk top, minus the final 
thickness of the top. My desk 
has a top that is 5/8 inch thick 
and legs that are 25V4 inches 
long. This provides me with ade- 
quate knee clearance under the 
front apron (23Vz inches), while 
keeping the keyboard and 
monitor at comfortable typing 
and viewing heights (on a desk 
25-7/8 inches high). 

The tops of the legs have to be 
dadoed on two adjacent sides to 
receive the aprons. The depth of 
the dadoes equals the thickness 
of the apron material (7/8 inch 
for my desk). The dadoes extend 
down from the tops of the legs 
by an amount equal to the width 
of the apron material minus the 
final thickness of the top (1 % in- 
ches for my desk). The dadoes 
are most easily cut on a radial 
arm saw or on a table saw, but a 
hand saw, a router, or a circular 
saw could be used instead. 

Begin assembling the desk by 
attaching the aprons to the legs. 
Make sure the legs are square to 
the aprons and to the ground. 
The desk can be assembled us- 
ing finishing nails or screws, or 
glue and clamps. The top should 
fit into the assembled frame, 
resting on the tops of the legs. 




Photo 1. The finished desk. 

• See List of Advertisers on Page 4b1 
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TSHARE 2.0 MULTI-USER 

SYSTEM 
TRS-80 1 



Hardware 
and 
Software 

Products for the TRS BO* 
Models I & III 




MODELS I & III 

SPECIFICATIONS: 
TSHARE is a multi-tasking operating system tor 
two users It patches Use t to your NEWDOS : 
TRSDOS SYSTEM TSHARE allows simultane- 
ous and separate operations lor two users with- 
in a single computer 

AVAILABLE USER MEMORY 
ABOVE 7F80 HEX 

•32K'RS-8C - 6KfREE 

•48KTRS-BC 32K fREE 

TIMESHARING MODES 

• SIMPLEX MODE With TSHARE 13 

ana 2A Only 
•STANDARD MODE With Ail Systems 

SUPPORT EQUIPMENT: 
• I - J.s- Dnve 
•32K + Memory 
SIMPLEX MODE STANDARD MODE 

•A Printer »A Terminal 

• T RS ?3? (optwal 1 »RS ?3? 

EXECUTION SPEED 
STANDARD MODE: 
(Without Clock Speedup Mods) 
MARK e«ecuiea oy 2 simultaneous 
users 37 sec 

•BENCHMARK executed once Dy standard 
TRS 80 14 sec 

FEATURES. 

• Type ahead during Disk I/O (V? Only) 
•Communicat'ons between users 
•Concurrent execution o! single program 
•foreground 'Background task design 
•Address up to two printers 

PRICES: 

tT S 13 tor TRSDOS? 3 $89 (MOO I) 

fTS 13 lor NEWDOS 2 t $89 (MOD I) 

fTS 2Alor NEWDOS VI $99 (MOD I ; 

• TS-2B tor NEWOOS V2 S99(M00I] 
#1S-2BIII tor NEWDOS V2 $99 (MOO Ml; 



SERIAL I/O 
MPR 232 



AT LAST! A se'ial imput 
out put interlace designed 
tor connection to the 
TRS80 Model I with or 
without an expansion in 
tertace 

MPR232 Specifications 
•Glitch !>ee operation 
•Connects with card edge connector 
•Baud rates 75 19 200 are switch selectable 
•Integral Power Suppply included' 
•May Be daisy chained wif other MPR 232s 

PRICES 
•MPR232I $1?9 00(MC 

•MPR 232m ^~s,^ $139 00|MC 



CSTOCK 
S99 

A| CSTOCK main- 
tains i securities 
data base 

• Maintains data 

on up to 3 sloe" 

market indexes 
•Weekly Stock 

Data (Price Vol 

P'E and Yield) 
•Weekly Stoc« Option Dili 
•Two years ol continuous data per stock 
B) CSTOCK is a professional technical tool 
•Stock and market averages highs and lows | 

with respect to any time span 
•Lmear regression analysis ol stock behavior 

versus any ol 3 market indexes 
•Short term Betas computed i stock volatility in | 

terms ol market return) 
•Data plotting capabilities 

C| CSTOCK provides a parametric portfolio 
selection system as an aid in evaluating 
investment strategies in relation to risk 



For Emc oj Use 

THE FILE CLERK 

TRS-80 Models I ft HI 

SPECIFICATIONS 

■ leature tue manager 
>PluS a simple data Base (multi fue data setsi 
•Pile handling capacity lor 12000 records 
■Up to 20 data fields 'record 

• MA« recorc and '.eld length ?SS 

■ MAX etlective record length w/indexmg 790b 
•Assembly language sons on single and cor 

bined data tods 
•Multiple search parameters and chained 

Querns 
•East 'KSAMi record retrieval on sorted key 

•ields 
•flexible report generator with Pagination & 

User tmes 

•Computational lields 
•files can exieno over several diskettes 
•A diskettes need not Be on ime 

AUTO M0UN1 REQUESTS 
•f eifls can be redefined deleted or added 

• 140 page manual 




DMB5 provides four aata management 

features 

A) A comprehensive FILE MANAGER lor 
defining your records data entry or 
edit, and general record retrieval 

B| A flexible REPORT GENERATOR lor 
information retrieval. 

C) A simple data base lor advanced ap- 
plications, where DATA SETS involv- 
ing die pairs can be defined 

D) A COPY file facility to transfer 
SORTS. SEARCHES, and transfer 
data to NEW formats 

PRICES 
#DB-bl S v <•'- 

•DB-bill SWiMODi.li 



VIEW 3.0 S49 

A SCREEN FORMATTER FOR DBMS 
• full CURSOR control 'or MASK design 
•Scieen design with keyboard GRAPHICS 
•Elegant & professional looks 
•File data entry inquiry & edit 
•Word processor style field editing 
•VEW is a stand alone data base 
COMPUTED FIELDS 
KSAM Master Keys 
Requires DBMS lor SORTS 

MPR 232 4 MERLIN TM of Micro Projects Eng 
TRS-80 TM of Radio Shack Tandy Corp 
NEWDOS80 TM ol Aoparat. Inc 
TRS232 TM ol Small System Software Co 



203 Ardtn Stmt 

Glendale California 91203 

(2131649-0369 ^'04 




just, 
out/ 



Merlin 
CT M 86jcr the 3KS-80 1 
8088 co-processor 
128K RAM (Expandable to 256K) 
Diskette compatibility with IBM PC 

(Available December 1982) 
Dealer inquiries 
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REAR 

APRON 



Because the top will sag from its 
own weight, support it from 
below with rails screwed to the 
inside of the front and back 
apron pieces. The support rails 
can be any available scrap 
material, but their dimensions 
do not matter. Place and clamp 
the support rails into position 
when the desk top is flush with 
the top of the apron. Then 
remove the desk top, and drill 
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pilot holes for screws through 
the support rails into the front 
and rear apron pieces. Mark 
locations for notches in which 
equipment support rails for the 
computer and expansion inter- 
face rest in the support rails. 
After the support rails are 



removed from the aprons and 
the notches are cut in them, 
screw them into place. Cut the 
equipment support rails to 
length, preferably from a sturdy 
material. I used oak VA Inches 
wide and 5/8 thick. Place them 
into position, and reinstall the 
desk top, completing assembly 
of the desk. 

I installed a switched six outlet 
unit on the inside of the right 
apron, and ran all the wires 
through the openings in the desk 
top. The outlet unit which I used 
includes a single switch that con- 
trols power to all the outlets; I 
can leave the computer, expan- 
sion interface, video monitor, 



cassette recorder, printer and 
disk drive power switches on, 
and turn on the whole system 
with a single switch. 

A variety of finishing tech- 
niques may be employed. The 
wood may be painted or stained, 
and the particle board top may 
be painted, stained, or covered 
with a plastic laminate. If a 
plastic laminate is used it should 
be applied after the top is cut out. 
The thickness of the laminate 
should be considered when the 
thickness of the top Is a factor in 
the construction of the desk (the 
length of the legs and the length 
of the dadoes in the legs will 
have to be decreased by the addi- 
tional thickness of the plastic 
laminate). ■ 



INCOME TAX OFFICES: 

MULTIPLY YOUR OUTPUT. 
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with TaxPro 




TM 



THE PROFESSIONAL INCOME TAX SYSTEM 



TAXPRO DOES MORE. 

Five years of successful use 
and system improvement 
has pushed TAXPRO far 
beyond Form 1040 and its 
supplemental schedules. This versatile system 
also totals W-2s, computes FICA overpayment, 
calculates tax alternatives . . . even prepares 
client billing. 

TAXPRO IS INTELLIGENT. It analyzes 
the client's tax picture, suggests the best 
route to go. Determines eligibility for special 
forms such as minimum/ 
maximum tax, income 
averaging, to name a few. 

TAXPRO IS EASY. 

Because it follows the tax 
forms line by line. Taxes 
are automatically figured, 
entered everywhere they 
apply. Change any entry, 
and all relevant data is 
automatically revised. 
Produces a printout that 
exactly fits 1040 and 




IRS-approved schedule forms. 

TAXPRO IS GUARANTEED. We stand 
behind TAXPRO completely. Full, no-charge 
support through the tax season. Inexpensive, 
yearly system updates. Over 5 million 
returns prepared with no reported errors. 

TAXPRO BUILDS PROFITS. The door is 
open to higher profits than you have ever 
enjoyed. Double, triple, or quadruple your 
output; pay for TAXPRO and the computer 
in one tax season. 
If you do income tax returns, you need 
TAXPRO, the truly 
professional, computerized 
income tax preparation 
system. 

Look into it today. 
Contract Services 
Associates, 
706 South Euclid, 
Anaheim, 
California 92802, 
[714] 635^055. 

45-PAGE DESCRIPTIVE 
SYSTEM MANUAL: $7.50 




CONTRACT SERVICES ASSOCIATES 
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Improving the bottom line. 
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We dorft care 

which computer you own. 

VWU help you 

get the most out of it. 



CompuServe puts 
a world of information, 
communications, and 
entertainment at your 
fingertips. 

CompuServe is the versatile, easy to use 
interactive videotex service designed especially 
for the personal computer user. It's dynamic, 
growing and changing daily to satisfy 
its subscribers' needs. It's an industry 
leader, created and managed by 
the same communications pro- 
fessionals who provide busi- 
ness information and -..— 
network services to 
over one fourth of 
the FORTUNE 500 
companies. 

From current events to current assets, 

CompuServe offers a wealth of useful, profitable 

■Mf ~ : i or just plain interesting information. 

\^/y ^j Electronic magazines and national 

news wires plus worldwide weather, 

current movie reviews, electronic 

banking and shop at home services, 

and some of the most sophisticated 

financial information available are 

all offered to current subscribers. 

From words to music. CompuServe offers 
a communications network that gives special 







interest groups from hardware enthusiasts to 
computer composers a chance to get 
together. There's a bulletin board 
for selling, swapping, and 
personal notices and a CB 
simulator for real-time com- 
munications between sub- 
scribers. There's electronic 
mail, the fastest, surest, way to 
communicate with other users across the street 
or across the country, plus file retention and 
editing, and lots, lots more. 

Fun and games are expected whenever 
computer users interact, and CompuServe has 
the best. Games you can play alone or with 
other CompuServe subscribers 
anywhere in the country. Classic 
puzzlers, sports and adventure 
games, and fantastic space games 
featuring MegaWars, the "ultimate 
computer conflict." 

But, that's just the tip of 
the chip. CompuServe offers a 
menu of thousands of items 
that make subscribing edu- 
cational, fun and sometimes downright profitable. 
If you'd like to know more about CompuServe, 
call toll free, 800-848-8990 to receive an illus- 
trated guide to the CompuServe Information 
Service. A videotex service for you no matter 
which computer you own. 

CompuServe 

PO Box 20212 

5000 Arlington Centre Blvd Columbus. Ohio 43220 

800-848-8990 

In Ohio call 614 457-8650 
An H&R Block Company 
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Verbatim Datalife™ flexible 
disks now come in a bold, 
new storage box. But more 
important, they now come to 
you with a five year warranty* 

We can give you a war- 
ranty this long because we're 
confident the way we make 
Datalife disks will make 
them perform better, last 
even longer. 

All bfour Datalife disks 
feature seven data-shielding 
advances for greater disk 
durability, longer data life. 
To protect your data from 
head-to-disk abrasion. To 
shield your data against loss 
due to environmental condi- 
tions. To insure a longer 
lifetime of trouble-free data 



recording, storage and 
retrieval. 

Every Datalife disk is 
extensively tested under the 
most extreme conditions. 
Critically-certified to be 100% 
error-free. Assuring you an 
added margin of perfor- 
mance, no matter what the 
operating conditions. 

And we back it up with 
a five year warranty. Five 
times longer than the in- 
dustry standard. Because 
Verbatim is the standard 
of excellence. 

For flexible disks you 
can depend on-a lot longer 
-call (800) 538- 1793. 
In California, or outside 
the US. call (408) 737-7771 



collect for the name of your 
Verbatim dealer. 

If you want longer data 
life, keep all your data on 
Verbatim Datalife. Our name 
is the promise. Our warranty 
is the proof. 
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Here's the most exciting part of 
Verbatim's new packaging. _ 
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HARDWARE 



Add a disk controller to your system. 



Hardware Hacker— Part III 



Philip M. Van Praag 

1630 West Jagged Rock Road 

Tucson, AZ 85704 

This article describes the 
design and construction of 
a disk drive controller for about 
$200. The controller is compat- 
ible with the TRS-80 Model I, 
does not require the Expansion 
Interface, and handles up to four 
5V* inch disk drives. Its features 
include integral double density 
data separation to eliminate a 
potential source of read errors, 
single and double density oper- 
ation to maintain compatibility 
with existing software and op- 
timize disk storage capacity, an 
operator-selected disk drive dis- 
able switch enabling normal use 
of the TRS-80's reset function, a 
fully buffered interface between 
the controller and the disk 
drives, a double density status 
indicator and digital write pre- 



compensation to optimize data 
recovery accuracy. 

The main logic board includes 
a connector card edge for 
mating to the standard disk 
drive ribbon cable assembly. 
The controller does not require 
any modification to the TRS-80 
and may be combined with the 
32K Memory Mod or the Cen- 
tronics-compatible printer inter- 
face (presented in previous 
articles) or both if you desire 
those additional features. 

The disk controller's most 
useful feature may be its ability 
to operate in double density 
mode. Although you must pur- 
chase a double density DOS to 
use this feature, it doubles the 
storage capacity of your disk, 
eventually reimbursing you for 
the purchase. This is accom- 
plished by virtually eliminating 
clock bits (interspersed with 
data bits in single density opera- 



tion) and doubling the data 
transfer rate. 

Requirements 

The heart of the disk con- 
troller is a large-scale inte- 
grated circuit (LSI) called a 
floppy disk controller (FDC). As 
the key link between the TRS-80 
and the disk drives, it performs 
two major tasks: first, coordin- 
ating the writing and reading of 
data; and second, supervising, 
interpreting and in some cases 
generating the control signals 
necessary for disk operation. 
Although the processes by 
which the FDC performs these 
functions become rather com- 
plex, all functions fall within 
these two general categories. 

The TRS-80 always manipu- 
lates data in a parallel mode; 
that is, all eight data bits defin- 
ing a character or instruction 
are presented on the eight-line 



data bus simultaneously. The 
disk drives, however, must 
handle data serially (one bit at a 
time). The FDC converts parallel 
data to a serial form before writ- 
ing it onto the disk, and converts 
serial data from the disk to 
parallel before sending it back 
to the TRS-80. A data register 
within the FDC holds the parallel- 
form data, and a data shift reg- 
ister converts it from parallel to 
serial and vice versa (see Fig. 1). 
In addition, the data must be pre- 
cisely clocked when in the write 
mode, and this clocking must be 
properly interpreted when read- 
ing data from the disk. 

The FDC's clock bit/data for- 
mats are referred to as frequen- 
cy modulation (FM) in the single 
density mode, and modified fre- 
quency modulation (MFM) in the 
double density mode. These for- 
mats are illustrated in Fig. 2. To 
understand how these FM sys- 
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Fig. 1. Internal functional diagram and pin assignments for FDC 
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terns operate, let's look at how 
the disk is magnetically divided 
to store data. 

Five levels of data organiza- 
tion are defined and controlled 
by hardware and software de- 
sign. In order of size, these are 
tracks, granules, sectors, bytes 
and bit cells. 

Figure 3 shows two levels of 
data organization on the disk: 
tracks (concentric rings around 
the disk center) and sectors 
(which divide the tracks into 
discrete pieces). A small hole 
in the disk (not shown) defines 
the relative position of the sec- 
tors around the tracks. Gran- 
ules, a specific number of sec- 
tors determined by the DOS. 
define the smallest accessible 
block of data when writing to or 
reading from the disk. (For ex- 
ample. TRSDOS uses five sec- 
tors per granule, defining the 
smallest possible file size.) The 
smallest level of division is the 
bit cell. Each byte contains eight 
data bits. 

This brings us back to Fig. 2. 
Each bit cell recorded on the 
disk contains two pieces of in- 
formation: definition of the 
physical boundaries of that bit 
cell, and the data bit (a binary 
logic level high or low). In the 
single density mode, both data 
bits and clock bits are recorded. 
A pulse between two clock pul- 
ses defines a logic high for the 
bit cell. If no pulse exists, a logic 
low is defined for that cell. In the 
double density mode, clock bits 
are not required at each bit cell 
location. Instead, the relative 
position (or in some cases, the 
lack) of a logic high level bit at 
each bit cell location defines the 
cell and determines whether the 
cell data is a logic high or low. 
The rules of MFM data bit place- 
ment are in Fig. 2. 

To summarize data organ- 
ization on the disk, consider a 
few examples. In single density 
mode using a 35-track single- 
sided disk drive, there are 8 bit 
cells to define each byte of data, 
a 256 byte capacity in each sec- 
tor. 10 sectors within each track, 
and a total of 35 tracks. Multiply- 
ing, we have 8 times 256 times 
10 times 35, or 716,800 defined 
bit cell locations. In double den- 
sity mode using a 40-track sin- 
gle-sided drive, there are 8 bit 
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cells per byte, 256 bytes per 
sector, 18 sectors per track and 
40 tracks. This translates to 
1,474,560 defined bit cell loca- 
tions! Although disk storage ca- 
pacity is usually specified in 
bytes, remember that the small- 
est unit of division is really the 
individual bit cell. 

The FDC processes three gen- 
eral categories of signals: TRS- 
80-generated data, address bus 
codes and control signals, disk 
drive-generated data/feedback 
signals, and FDC-generated 
control and feedback signals. 

Table 1 lists the TRS-80-g.en- 
erated addresses decoded by 
the FDC and support circuitry. 
These decoded addresses per- 
form two basic functions: sup- 
plying DOS commands to oper- 
ate the drives and perform 
housekeeping chores for FDC 
support circuitry: and furnishing 
TRS-80 memory locations (ac- 
tually accessed FDC registers 
providing information back to 
the TRS-80). The TRS-80 pro- 
vides read (RD), write (WR), and 
system reset (SYSRES) control 
signals. The read and write 
signals define the function of 
the TRS-80 addresses listed in 
Table 1 as well as provide read/ 
write disk drive mode instruc- 
tion to the FDC. System reset, 
used during TRS-80 power up 



and reset modes, clears the FDC and performs other initialization 

status register, establishes chores in the FDC. 

single density operating mode Disk drive-generated data and 
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Fig. 2. Single density (FM) and double density (MFM) recording 

formats 




Fig. 3. Disk data organization (single-density track standard shown) 
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Fig. 4. Disk controller logic circuitry 



Your best 

Model l/lll 

peripheral buy 

is a modem. 



Your best 

Model l/lll 

modem buy 

is LYNX. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit. 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than. say. joy- 
sticks, or a voice box. or a printer 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you. in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 
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The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding It 
makes your microcomputer a whole new animal. 




OLYNX.© 



123 LOCUST STREET LANCASTER, PENNSYLVANIA 17602 
Phono 717/291-1116 

TRS-80 is a trademark of the Radio Shack Division ol Tandy Corporation. 
FCC Registration Number: A909KE-68171-DM-N 



re- 



m- 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
9 and III. 

• No separate purchases 
quired. 

• One-year warranty. 

• Auto dial auto answer. 

• Works with any software, 
eluding ST-80 by Micklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 



.49 



Consult your local microcomputer retailer, or call one of these LYNX handlers today— TOLL FREE: 



THE BOTTOM LINE 
Milford, NH 
800/343-0726 

B. T. ENTERPRISES 
Centereach, NY 
516/981-8568 



BREEZE/QSD 
Dallas, TX 
214/484-2976 

COMPUTER PLUS 
Littleton, MA 
800/343-8124 



THE PROGRAM STORE 
Washington, DC 
800/424-2738 

STEVENS COMPUTERS 
Phoenixville, PA 
800/345-6279 



SIMUTEK 
Tucson, AZ 
800/528-1149 

PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 



SOFT SECTOR MARKETING 
Garden City, Ml 
800/521-6504 



vSee List ol Advertisers on Page 451 
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Fig. 5a. Logic circuitry 



feedback include read data (RD 
DATA), track zero (TROO), index 
pulse (IP), and write protect 
(WPRT) signals. The read data 
signal contains serial clock and 
data bit pulses. The track zero 
signal indicates when the 
read/write head is positioned on 
the outermost track (track zero). 
The index pulse signal provides 
disk sector identification by pro- 
ducing a pulse once per rev- 



olution when the index hole is 
sensed. If the disk is write pro- 
tected the Write command is 
terminated. This line is sampled 
every time the TRS-80 issues a 
Write command. 

The FDC and its support cir- 
cuitry generate the following 
control and feedback signals: 
interrupt request (INT RQ), in- 
terrupt (INT), and various reg- 
ister output signals going to 



the TRS-80, as well as step 
(STEP), direction (DIRC), write 
gate (WG), and write data (WD) 
signals going to the disk drives. 
VFO enable (VFO E), EARLY, 
LATE, head load timing (HLT), 
ready (RDY) and read clock (R 
CLK) signals are used for inter- 
nal control. Additional FDC I/O 
capabilities not used in this 
project will not be discussed. 
First, let's discuss FDC sig- 



nals going to the TRS-80. An in- 
terrupt request signal is gene- 
rated whenever an FDC opera- 
tion is completed, and is reset 
when a new command is loaded 
into the command register. The 
interrupt request is sent to the 
TRS-80 on the bit-6 data line 
when 37EORD is present. Its 
presence also causes an inter- 
rupt signal to be generated. The 
interrupt signal is reset at the 



176 • 80 Micro, December 1982 



[&!# 



©- 



©- 



*e §6> i 

9 ? 9 



© 9 9 £ 




©- 



©- 




I -v«— ^ 



i2si — -, "71 







Y 



y 



% 



Y 



a 



' w^[> ■ -v~-£> i ^v^-£> 



~i 



33 



i4 



iS 



■Y 



&r 



Y 



^ 



I -VW-^ I "-•WW — ^ (h^A^r^ 



Y 



^A 



termination of 37EORD. 

The five FDC registers listed 
in Table 1 communicate with 
the TRS-80 via the bidirectional 
data bus. The TRS-80 selects a 
particular register by providing 
a unique address (listed in the 
table). These addresses share 
the same binary address code 
except for the two least signifi- 
cant bits. Table 2 illustrates 
this relationship. 



Now, consider FDC signals 
going to the disk drive. The step 
and direction signals control 
movement of the head stepping 
motor. A high level on the direc- 
tion line sets the head inward 
toward the higher track num- 
bers, while a low level sets the 
head outward. High level 
pulses on the step line move 
the head in increments of one 
track per step pulse. The write 



gate essentially gives permis- 
sion for data to be written onto 
the disk, while the actual com- 
posite data (clock and data 
bits) is sent to the disk drives 
on the write data line. 

Finally, let's look at FDC 
signals used for internal control. 
VFO enable indicates that the 
disk head is in contact with the 
disk and data pulses are being 
received. It disconnects read 



clock pulses when these condi- 
tions are not met, preventing 
read-data-line noise from affect- 
ing the FDC during non-read op- 
erations. Early and Late, gen- 
erated by an FDC algorithm dur- 
ing write mode, aid write pre- 
compensation efforts. HLT and 
RDY inform the FDC that the 
disk drive is ready for read or 
write operations. 
Table 3 summarizes the sig- 

80 Micro, December 1982 • 177 




Ready to Run Software 

from Canadian Computer Services 

Data Management Systems - Including the Data' 

RETRIEVAL SYSTEM 80 

Instantaneous access to all of the articles and 
programs in the magazine for TRS-80* users 

Fast Random Access Retrieval 

Super Fast Z80" Index Search and Scan 

Index Search by One to Three Criteria Keys 

Key Reference Help Page. Hardcopy and Sound 

Easy to Use Single Entry Menu Commands 

ARCHIVE RETRIEVAL SYSTEM 

Create and maintain your own magazine archives 
with all of the above great features, plus 

User Defined Search Keys 

Z80 Data Entry and Edit Routines 

Super Fast In-Memory Key File Sorting 

600 1200 Model I III Records Per Data Disk 

READY TO RUN DATA DISKS 

No Typing Necessary 

1980. 1981 and NEW 1982 80 micro" Data Disks 

Covers Every Article and Program Published 

General and Programmers Archives Disks 

For Use with Both of the Above Programs 



Retrieval System 80 

Archive Retrieval System 
General Data 80. 81 & 82 
Program Data 80. 81 & 82 



S29 95 

S44 95 

each S29 95 
each S29 95 



For 48K 2 Disk TRS-80 Model I and III Computers 

Mail Orders Rainbow Software Services Ltd 

7070B Farrell Road Southeast 
Calgary. AB . T2H 0T2 Canada 

Card Orders Action Line 1 (403) 253-6142 

Dealer, distributor and club ingumes welcomed 
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Fig. 5b. Disk controller piggyback board 
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Fig. 6a. +5 V power supply 



nals necessary to provide data 
and control for the disk drives. 

How the Circuit Works 

Figure 4 contains a block dia- 
gram and Fig. 5 schematic dia- 
grams of the disk controller log- 
ic circuitry. Table 4 contains all 
the miscellaneous circuit con- 
nections not shown in Fig. 5, 
including IC power/ground re- 
quirements and terminations for 
unused IC sections. 

The address and read/write 
decoder function is accomp- 
lished by U2 through U8. U3, a 
4-bit magnitude comparator, is 
the central focus of the decoder. 
It provides a high level logic 
signal at pin 6 whenever its two 



sets of 4-bit inputs are identical. 
Following address bus logic 
levels through the input gating, 
pin 6 of U3 will be high when 
37E0.1.2.3,C,D,E. or F appears. 
The presence of read and write 
signals, plus the gating of U7 
and U8. yields the four desired 
outputs: 37EOWR, 37EORD. 
37ECWR, and 37ECRD. A0 and 
A1 address lines go directly into 
the FDC to be used for register 
access together with the de- 
coded 37ECWR and 37ECRD 
signals (see Table 2). The 
decoder does not need the A4 
address line as it is always 
assumed low. (If it were high, 
with all other disk-related ad- 
dresses set for disk operations, 
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an address in the 37FX range 
not used for any TRS-80 func- 
tion would result). Switch S1 
breaks the read communication 
link between the TRS-80 and the 
disk controller when in Reset 
Enable mode, fooling the 
TRS-80 into believing the con- 
troller is disconnected. This 
achieves normal operation of 
the Reset button on the back of 
the keyboard. 

FDC timing and TRS-80 clock 
signals are provided by U9 
through U12, U21 and U22. U9 
functions as a 4 MHz crystal- 
controlled oscillator. This signal 
is the basis for all timing signals 
produced by the disk controller, 
including a 1 MHz FDC clock 
signal, a 40 Hz TRS-80 clock sig- 
nal, a 4 MHz write precompensa- 
tor signal and an 8 MHz timing 
signal used by the data separ- 
ator. The 4 MHz clock is divided 
by two via a section of U12 and 
again by two using part of U21, 
producing the 1 MHz FDC clock. 
The 4 MHz clock is also divided 
by 10 in U12, by 100 in U11, and 
again by 100 in U10 to produce 
the 40 Hz clock signal used by 
the TRS-80's internal clock dis- 
play routine. The 8 MHz timing 
signal produced by U22 func- 
tions as a frequency doubler. 
U22-1 1 . U22-8, and U22-6 provide 
a phase-delayed 4 MHz signal to 
one input of U22-3. C5 and R11 
produce a differentiated version 
of this signal for the other input. 
The exclusive-or function of 
U22-3 produces a high level out- 
put when its inputs are at dif- 
ferent logic levels. In this ap- 
plication, that occurs once for 
every half-cycle of the 4 MHz 
clock, thus producing pulses at 
an 8 MHz rate. 

U13 and its related logic cir- 
cuitry—portions of 114.6,14,15. 
and 19— produce interrupt and 
interrupt-request signals. This 
circuitry receives two input sig- 
nals: interrupt request as gen- 
erated by the FDC, and the 40 Hz 
clock signal from U10-1. When 
U1-39 goes high, an interrupt 
signal is produced at U6-2. An in- 
terrupt is also produced when a 
40 Hz signal occurs, as long as 
37EORD is not active. The 
37EORD signal also gates the 
status of the 40 Hz latch (U13-5) 
to the D7 data bus line, and 
gates INT RQ to the D6 data 



bus line. The termination of 
37EORD, a positive-going edge, 
clocks a low level through U13-9 
which resets the interrupt signal 
and, via U19-3, resets U13-5. 

U14 through U17 buffer the bi- 
directional data bus between 
the TRS-80 and the FDC. These 
are tri-state buffers: Their out- 
puts assume a high impedance 
state as long as they are dis- 
abled. All input buffers have one 
common enable line 37ECWR), 
as do all output buffers 
(37ECRD). The address 37EC is a 
memory location in the TRS-80 
system to which data can be 
written or from which data can 
be read. Remember, however, 
that the A0 and A1 address lines 
are not part of the 37EC signal 
decoder. Therefore, enabling of 
the buffers also occurs for ad- 
dresses 37ED, 37EE, and 37EF 
(see Table 2). The A0 and A1 
lines, going directly to the FDC, 
determine which FDC registers 
will be accessed. 

The data separator function, 
including U20, 21. and 23, is 
used in double density mode. (I 
didn't include a single density 
data separator. Considering the 
greater efficiency of double den- 
sity, you are likely to use single 
density only while converting 
your existing programs to dou- 
ble density. If interest is suf- 
ficient, I will design a single 
density separator for a later arti- 
cle.) It works with two input sig- 
nals—read data and a clock sig- 
nal—and produces two output 
signals— raw read (RAW RD) 
and read clock. The term "data 
separator" as used with the 
1791 is actually a misnomer as it 
does not separate data and 
clock bits. Rather, it is a data 
recovery system which outputs 
both data and clock bits on the 
raw read line to the FDC, and 
also provides a strobe or win- 
dow signal for U1's R CLK to 
clock the raw read pulses. If a 
raw read pulse occurs outside 
the window, it will cause an FDC 
read error. The data separator 
exploits the relatively pre- 
dictable recurrence of data bits 
to produce a clocking window 
which predicts the occurrence 
of the next data bit. The phase of 
the window is continuously cor- 
rected to compensate for motor 
speed variation and read cir- 




THE MOST POWERFUL WORD PROCESSOR AND ALL PUR- 
POSE COMPUTER PROGRAM AVAILABLE FOR THE TRS-80 

LOOK AT ALL THESE FEATURES 

1 INSERT characters, words, lines, paragraphs or other files. 

2. DELETE characters, words, lines, paragraphs 

3. COLUMNS. CopyArt II can be instructed to print your text Irom one to 
sii columns. Super easy to use! No complicated commands. Great for 
doing newsletters, magazine layouts etc NO MORE CUT AND PASTE! 

4. SORTING. Sort lines of text by any field. Sorts up to 650 items In less 
then 7 seconds. Sort indices, table of contents, names, words or whatever 
in descending or ascending order. Used with CopyArt s math function it is 
great for small Inventories. Receivables. Payables etc. 

5. Screen widths from 32-255 characters wide Screen widths can be 
changed to allow formatting your text as you want 

6 MATH. Built in MATH function for doing calculations on columns or 
rows. Used with the SORT command. CopyArt II can do a small inventory 
of 200-300 items, or keep track of small receivables or payables, general 
ledgers or home financial reports. Super floating point precision up to 32 
digits! 

7 'GRAPHICS. CopyArt has a built in graphics program that allows in- 
serting graphics within your text. Orawings. graphs, illustrations, car- 
toons etc may be used within newsletters or company reports. Graphics 
commands include: Plot between points. Circles. Squares. Fill. Erase. 
Draw. Move, Pixel cursor controls and more. 

8 'GRAPHIC CHARACTERS. CopyArt has a built in graphics character 
generator Used for typesetting large letters from 3 to 25 times normal 
size! Yes. you can even print characters down the page as well as across. 
Black on white or white on black. 

9. JUSTIFICATION Is fully supported 'Proportional spaced justify is sup- 
ported. 

10. 'SUPER or SUB-SCRIPT 
11. UNDERLINING. 
12 B0LDFACTING. 

13. 'CHANGE CHARACTER SIZE or PITCH within your document Charac- 
ter size changes lor dot matrix printers with capability. Pitch change tor 
daisy wheel printers with capability. 

14 HELP Help Is available for all the commands at the touch ol a key 
while using the word processor. Super for training inexperienced sec- 
retaries. Great reminder for experienced people as well MENU DRIVEN 
Help for over 45 commands. 



DOES ALL THIS... 
& MUCH, MUCH MORE! 
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CALL TOLL FREE to order 
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cuitry phase shifts. Remember 
that the read clock signal is not 
the clock bit signal coming off 
the disk. 

1120-4,13 is a monostable os- 
cillator which produces fixed- 
duration pulses for the FDC 
based on incoming read data 
bits. U23 is a 4-bit count-down 



Fig. 6b. + 12/ -5 V power supply 

counter that is continually 
clocked at an 8 MHz rate. U21-9 
divides the counter output by 
two, forming the read clock 
signal. However, this signal is 
terminated when the system is 
not in read mode by controlling 
U21's reset input with U1's 
VFOE signal. 



When nothing is present on 
the read data line, U23 divides 
the incoming clock by 16. Thus, 
read clock signals arrive at the 
FDC at a 250 KHz rate. When a 
pulse occurs on the read data 
line, U20-4 goes low, which 
loads a 5 into the counter. As- 
suming the pulse occurs during 



a window period, this loading 
action ensures that the window 
remains open long enough to 
admit the entire pulse. The load- 
ing action also phases the clock 
signal to the read data rate by 
adjusting the period of the win- 
dow (and the length of time 
before another window opens) 
to suit the incoming data. This 
error-correcting phasing action 
is the essence of accurate data 
recovery. 

Write precompensation is ac- 
complished by U26 and portions 
of U19 and U25. It is used only in 
double-density mode to en- 
hance data transfer accuracy. 
U26, a shift register, continually 
outputs a low level at pin 11 
when no write data is present. 
This is a result of being in the 
shift state with the J and K in- 
puts connected as shown. 
When a write data pulse occurs, 
U26 goes into the load state, 
during which one of the A, B, or 
C inputs receives a low level sig- 
nal. Termination of the write 
data pulse reinstates the shift 
mode resulting in that low level 
bit being stepped through the 




PRACTICAL PERIPHERALS 

BIFFERED PARALLEL INTERFACE 

FOR EPSON PRINTERS 



$159.95 

Plus Shipping 
And Applicable Tax 



The MBP-16K is an intelligent Centronics-compatible parallel interface 
tor the Epson MX-80. MX-80 F/T, and MX-100 printers, with 16,384 bytes of 
onboard RAM for data buffering. 

The buffering capability of the MBP-16K increases your data processing 
efficiency by eliminating the wait normally experienced while printing. An 
Epson printer prints at 80 characters per second: at this speed it takes 
about five minutes to print a 16,000 character document. During most of 
this time the computer is waiting for the Epson to finish one line so it can 
send the next. The computer can't do anything else during this period 
because its's tied to the printer. By using the MBP-16K it takes the 
computer only lour seconds to send a 16.000 character document. The net 
result is to eliminate the computer-waiting-for printer/prmter-waiting-for- 
computer bottleneck, and keep both working. Any program that involves 
printed output will be speeded up by using the MBP-16K. 

The MBP-16K supports all standard Epson Commands, is compatible 
with GRAFTRAX-80, and is plug compatible with the standard Epson cable 
The MPB-16K does not require any user software for control. 

The MBP-16K is easy to install — it simply plugs into the existing 
auxiliary interface connector inside the Epson without modification of the 
printer. 



"VIZ. A. CON." 

A CONSOLIDATION SYSTEM FOR VISICALC USERS 

NEW PRODLCT ADDS ^-DIMENSIONAL CAPABILITY FOR VISICALC MODELS. 

in the past, to do a consolidation with VISICALC. a user had to replicate the model m 
memory and laboriously build the formulas to sum the cells The first thing one 
discovers using this approach is that you quickly run out of memory The second is that 
recalculation time gets much longer The third is that you spend a lot of time operating 
and controlling the consolidation process 

Now with the help of VIZ. A CON. you can add a third dimension to your VISICALC 
models You can combine multiple pages ' of VISICALC data from a model for 
hierarchical consolidations (eg. Department. Division, Company, etc.) or for 
summations over periods ol time (eg Month, Quarter. Year-To Dale, etc.) 

VIZ A. CON creates data files usable with VISICALC. You can use VISICALC lor 
what if games at any level of your consolidation Then use VIZ A CON. to find out 
what happened at other levels 

VIZ A CON gives you the ability to set up special formulas (eg rations, 
percentages) that can be recalculated after a consolidation process You can customize 
titles, row and column headings, footnotes, etc for each report created by VIZ. A CON 
Reports can be automatically saved in standard ASCII form that can be used with a 
word processor VISICALC precision is maintained for an data 

TRS-80 Model Mil Disk SM.05 

TRS-M Modal II MK $119.85 

IBM PC 64K and above $119.95 



ASSET MANAGER 

ASSET SYSTEM" is a completely computerized asset depreciation system, 
particularly designed for the 48K TRS 80 Model III. DOSPLUS 3 4. and dot matrix prinler. 
The system 

1) assigns control numbers to each asset 

2) accumulates assets according to General Ledger codes 

3) computes depreciation expense on each asset 

The ASSET SYSTEM is comprised of Six primary programs 
1l Asset Sys'em Menu 4) Asset sort 

2) Properly 5) Search 

3) Reports 6) Delete 

The SYSTEM is configured to handle SOX) asset numbers Counters are displayed on 
the screen as the data is being entered This enables you to monitor your progress as 
data is entered. 

TRS80 MOD III Disk only $79.95 

Also available 

General Ladgar Program Disk Modal III $125.00 



MICRO SOLUTIONS, INC. Software Center 



Master Charge & Visa 
9949 Harwin, Houston, Texas 77036 



(713) 789-5443 or 1-800-231-6667 
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shift register. The bit is output at 
pin 1 1 as a high level pulse some 
time later. The delay between 
the occurrence of the FDC's 
write data pulse and the output 
at U26-1 1 is a function of which 
U26 input received a low level 
during the load operation. The 
FDC determines the optimum 
delay that should be given to the 
present data pulse, based on 
previous write data bit patterns. 
As a result, a LATE or EARLY 
signal may be sent to U26 along 
with the data pulse. If neither an 
EARLY nor LATE signal ap- 
pears, the B input (U26-5) will be 
low. This produces a nominal 
delay which would have been 
250 nanoseconds longer if a 
LATE pulse was desired, or 250 
nanoseconds shorter if an 
EARLY pulse was desired. 

The FDC write gate, step, di- 
rection, and write data output 
lines are incapable of tristate 
operation. Thus these outputs 
must be isolated between the 
two FDCs, accomplished by 
U36. Fortunately, these output 
lines go to a logic low level when 
not selected, making a simple 
OR gate configuration possible. 
There is one exception: After 
certain operating sequences, 
the direction output from the 
operating FDC remains at a high 
level after switching to the other 
FDC. To correct for this anoma- 
ly, the direction outputs are gat- 
ed with the chip select (CS) lines, 
ignoring the non-operating di- 
rection output line. 

U27 and U28, high-current TTL 
buffers between the FDC and 
the disk drives, are capable of 
driving four disk drives on the 
common output bus. U24 is a 
buffer containing Schmitt-trig- 
ger action at its input to opti- 
mize signal recovery. 

Switching between single and 
double density operation is ac- 
complished by U32-U35. U32 
through U34 form a simple de- 
coder similar to the read/write 
decoder discussed earlier. The 
primary difference is that here 
several data lines are decoded. 
DALO determines whether sin- 
gle or double density mode is se- 
lected. If DALO is high when 
U35-11 is clocked, single density 
is selected; if DALO is low, dou- 
ble density is selected. The 
master reset (MR) line, called 



SYSRES in the TRS-80, sets U35 
to single density at powerup and 
any time Reset is pressed. 
U18-11 provides a drive signal to 
an LED indicating double den- 
sity operation. 

The disk drive select circuitry 
activates the desired disk drive, 
informs the FDC when a drive 
is selected, and provides an 
enable signal with time-out pro- 
tection for the drive motors. 
U29 is a four section latch 
clocked by 37EOWR. If 37EOWR 
does not go low at least once 
every three seconds U20-5 will 
go low and U29 is cleared, turn- 
ing off the drive motors and the 
previously selected drive. When 
any drive is selected U8-6 will be 
high. 

Construction 

Table 5 contains the parts 
lists for this project. Use of 
printed circuit boards is almost 
mandatory due to circuit com- 
plexity. You might try wire-wrap 
if you have considerable ex- 
perience in this area, but wiring 
errors are difficult to dynamical- 
ly trace because most signals 
processed by the controller are 
non-recurrent. 

Figure 7 contains full-size, 
double-sided etch patterns for 
the disk controller and power 
supplies. If you choose to build 
your own board and cannot pro- 
vide plated-through holes, then 
you must not use IC sockets. 
Without plated-through holes, 
provide conductor path connec- 
tions from one side of the board 
to the other by inserting a wire 
through each hole and soldering 
the wire on both sides. Use of IC 
sockets precludes the possibil- 
ity of soldering to the donut 
pads on the component side of 
the board. All non-component 
holes (over 200!) require bare 
wires inserted, soldered on both 
sides, and then clipped short. It 
is really much easier to use a 
board that has plated-through 
holes. 

Figure 8 contains a parts 
layout guide for the PC boards. 
Be careful to orient the ICs, 
diodes, and capacitors as 
shown. If you use IC sockets, 
line up the dot or notch on the 
socket (indicating pin 1) with 
Fig. 8 to aid subsequent IC in- 
sertion. Use only a low-wattage 
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MORE REASONS YOU SHOULD CONSIDER 
MOVING UP TO OUR COMPREHENSIVE PROGRAM... 

15 SUPER EASY TO LEARN editing features. Logical key choices. 

16 Hyphenation 

17 SPELLING checkers like the 74.000 word Scripsit Dictionary work 
great with CopyArt II. 

18. CHAINING. Chain tiles together to make books or manuals hundreds 

of pages long. 

19. CENTERING. 

20. HEADERS and FOOTERS. You can even put graphics within headers 

lor super page layouts. 

21 PAGE NUMBERING. Page numbers can appear at the top or bottom 
otthe page. 

22 DOS COMMANDS trom within the editor. Kill files, check tree space 
or get directories easily. 

23. CUSTOMIZED PRINTER driver. Since your printer has features that 
other printers don't, CopyArt II will be supplied with the printer driver of 
your choice below. Each printer driver is custom made to provide you 
with commands for each of your printer's tine capabilities. If you have 
more than one printer, order other printer drivers lor only S19 95 each. 
Printer drivers are available for: 



Smith Corona Daisy Wheel TP-1 

Brother Daisy Wheel 

C-itoh Starwriters and 

Prowriters all. 

PMC Pinter 

Centronics 737. 739 

Diablo 620 



•RadbShackLPIV.V.VI, 
VII. VIII and Daisy Wheel II 

• Epson MX-80. MX-80/FT. MX-100 
with or without graftrax. 

• Okidata Microhne 80 82a 
83a and 84 

• NEC 8023 

OTHERS COMING SOON. Call if you don't see your printer' 
24. Unprotected diskette. Unlimited backups can be made 
25.MAILIST. MAILMERGE INCLUDED CopyArt II comes with a mailist 
program that stores over 2.000 names on a MOD III diskette. These 
names can be sorted by any field and have a special field for your code 
You can make PERSONALIZED FORM LETTERS that will take the follow- 
ing codes from the mailist and insert them in your text. FIELDS IN- 
CLUDE: Mr. or Ms Last name. First name. Business name. City. State, 
up to 9 digit ZIP code and your own special 2 character code. ANY OF 
THESE fields can be inserted within your form letter wherever you want. 
You can print form letters or mailing labels to all the people on your list 
or to specific codes only CopyArt makes it easy. 
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COD and Credit Cards 
CALL TOLL FREE to order: 

1-800-528-1149 




103 



SIMUTEK 

Computer Products Inc. 



SIMUTEK COMPUTED PRODUCTS INC., 4117 E. SPEEDWAT ILVD . TUCSON, « 4S712. (402) 323*311 

DEALER DISTRIBUTOR 4 PRINTER MANUFACTURER INQUIRIES INVITED 

TRS-80 ind Scripsit ire TM ol Radio Skick ■ Tandy corp 

•Indicalai printer mull na»t capability lo do lynction 



^S«M List ol Adwrtisws on Page 451 




SECONDARY 



Fig. 7a. Component side, main PC board 



iron (25 watts) with a fine tip, and 
.030 inch solder. 

The piggyback PC board con- 
nects to the main PC board via 
two 20-pin strips arranged in a 
40-pin-IC-style pattern. Insert 
and solder the shorter side of 
the pin strips at the second and 
fourth 20-pad rows from the left 
(see Fig. 8c) on the piggyback 
board. Insert the pins through 
the board trom the non-compo- 
nent side, allowing about 1/16 
inch of the pins to protrude 

182 • 80 Micro, December 1982 



above the component side; then 
solder in place. 

When all components except 
U1 and U31 are installed on the 
PC boards, take a few moments 
to carefully inspect your work. 
Use a magnifying glass and 
good lighting to check all solder 
connections, component place- 
ment, polarities, and so on. A 
few extra moments is good in- 
surance against trouble later on. 
When satisfied with your work, 
plug the piggyback board into 



the 40-pin socket on the main PC 
board, being careful to observe 
proper pin 1 orientation. Apply 
firm even force to avoid bending 
the pins. 

Three power supply voltages 
are required for this project: +5 
volts, + 12 volts, and -5 volts. 
The +5 volt supply is on the 
main PC board, except its power 
transformer (Tl), fuse and 
voltage regulator IC (U30). Since 
the case of U30 is at ground 
potential it can be mounted to 



whatever metal cabinet you 
choose to house the controller, 
eliminating the cost of a sep- 
arate heat sink. If you mount 
U30 to the cabinet, be sure to 
remove any paint from the regu- 
lator mounting surface, and use 
heat sink compound to optimize 
heat transfer. 

The +12 and -5 supply 
voltages are from a separate PC 
board (see Fig. 8d). (This is the 
same PC board used in the 32K 
Memory Mod project.) A few 



components are deleted from 
the 32K design. If you have 
already built the 32K Memory 
Mod, use its +12 and -5 volt 
outputs to power this project; 
there is more than enough cur- 
rent reserve for those voltages. 
However, the + 5 volt supply on 
the 32K mod version is not ade- 
quate to operate the disk con- 
troller, and should not be used 
for that purpose. (This is why the 
+ 5 volt components are not on 
this power supply board, and a 
+ 5 supply is included on the 
main PC board.) Mount R24 and 
R25 on the + 12/ -5 volt supply 
about 1/4 inch above the PC 
board to aid heat dissipation. 
Three wires ( + 12, -5 and 
ground) provide cabling from 
the +12 and -5 volt supply out- 
puts shown on Fig. 8d to the ap- 
propriate inputs on the main PC 
board as shown on Fig. 8a. U38 
may be heatsunk to the cabinet 
in the same manner as U30. 
since its mounting tab is at 
ground potential. 

The cabinet chosen for this 
project should be metal, prefer- 
ably aluminum for ease of cut- 
ting and drilling. The cabinet in 
Table 5 is all aluminum, large 
enough to accommodate the 
disk controller and the 32K 
Memory Mod and printer Inter- 
face projects presented pre- 
viously. Figure 9 illustrates the 
proper orientation and connec- 
tion of the TRS-80 interface rib- 
bon cable to the controller PC 
board. It also shows the proper 
orientation of the disk drive 
cable connector with respect to 
the output card edge. If the 
board is mounted in the cabinet 
as shown (with the component 
side facing down) the disk drive 
connector will be oriented in the 
traditional manner; that is, the 
ribbon cable will exit the bottom 



of the connector. 

If you use the ribbon cable 
and connector listed in Table 5 
first slip the cable through the 
slot in the connector rear. Then, 
while holding the cable straight, 
squeeze the connector closed 
using an ordinary vise. 

Finally you must add 10 ter- 
mination resistors at D0-D7, 
WR, and RD. Resistors R33-R42 
(shown in Fig. 5a) may be 
mounted on the underside of the 
main PC board (see Fig. 8b). If 
you intend to combine the disk 
controller with one or both of the 
previous projects, you may 
mount the resistors on the rib- 
bon cable PC board to be pre- 
sented in the next article. Even if 
you do not intend to add the 
other two projects at this time, 
you may prefer to include the 
cable PC board to allow future 
expansion and ease addition of 
the termination resistors. 

If you opt for adding resistors 
to the disk controller board, 
refer to Fig. 8b. Mount the 
resistors flat against the PC 
board, with one lead of each re- 
sistor soldered to an ap- 
propriate IC pad. The other 
leads of the resistors are 
soldered together and then to 
any convenient location on the 
ground bus running along the 
outer edge of the board. Use in- 
sulated wire to prevent inadver- 
tent shorting to the PC board. 

Installation and Operation 

Before inserting U1 and U31 it 
is wise to perform the following 
test. With all other ICs installed 
and double-checked for proper 
orientation, apply power to the 
circuit. The LED (D6) should il- 
luminate. If it does not, discon- 
nect power immediately and 
find the problem before reapply- 
ing power. A voltmeter/ohm- 



TRS40 

Addr.ii 
Coda 

37E0 WR 
37E0RD 
37EC WR 
37EC RD 
37ED WR/RD 
37EE WR/RD 
37EF WR/RD 



Function 

Supplies CLK siq to activate disk motor in selected drive 

Clks 40Hz Timing and INTRO sigs to TRS-80. then resets INT 

Writes TRS-80 data into FDC Command Register 

Resets INTRO and accesses FDC Status Register to TRS-80 

Accesses FDC Track Register to TRS-80 

Accesses FDC Sector Register to TRS-80 

Accesses FDC Data Register to TRS-80 



Table 1. Addresses used for disk operations 
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26. SIMPLE CURSOR commands Simply use the arrow keys to move 
your cursor around the text. The screen will scroll both vertically and 
horizontally. Shift arrows take you to the beginning or end instantly. 

27. SCREEN DUMP. Prints whatever is on the screen to the printer. 

28 COMPLETE MARGINS CONTROL. You tell CopyArt II what margins 
you desire. You can even change margins within the same text. You may 
also have parts of your text with 2 columns, some with one etc. It's 
super easy to use. 

29 BASIC PROGRAMS can be edited easily. CopyArt is really useful for 
inserting graphics within quoted strings to give your programs super 
animation without the hastle ol calculating the CHRS ol the graphics! 

30. VISICALC files can be loaded into CopyArt II to be manipulated 
easily. Great when you want to accompany your Visicalc reports with 
written reports. GRAPHS and BOLOFACING etc. Visicalc reports up to 
255 wide can be loaded. 

31 . SPECIAL SCRIPSIT FILE LOADER. Allows you to load your old Scrip- 
sit files without having to save them in ASCII. Copyart will also load 
Pencil files and other normal ASCII files. 

32. 'CUSTOM KEYS. Lets you make special keys tor special characters 
Allows for printing Spanish accents etc. 

33. CONTROL CODES Lets you insert special printer control codes in 
your text. CODES between and 255. 

34 BLOCK MOVE. Simple and powerful block move. Lets you move 
paragraphs or lines of text around easily No complicated marker set- 
tings required. 

35. FIND/REPLACE/REPEAT. Lets you tind a string ol characters and 
replace them with any other string ol characters up to 20.000 limes' 
WILDCARD search also supported. 

36. Professional Manual in easy to understand English. 

Copyart II requires a TRS-80 Model I or III. (or PMC-80 or LNW). 48k 
and 2 disk drives with Newdos-80. Ldos, Multidos. Oosplus or TRSD0S 
Double density disk drives recommended for the Model I. 

£CKF \J^ Tir\ L THiS PB0GRAM D0ES IT ALL! 

PLEASE SPECIFY which COMPUTER and PRINTER 
you have when ordering. 

Copyart II with one printer driver 149.99 

Additional printer drivers 19.95 each 

Scripsit Dictionary 139.95 




COD and Credit Cards 
CALL TOLL FREE to order 
1-800-528-1148 

Or send check or money 
order to: 




SIMUTEK 

Computer Products Inc. 



SIMUTEK COMPUTER P ROOUCTS IRC , 4117 E SPEE0RIAY HVO., TUCSOR. U 15712. (M2| 323 1311 

DEALER, DISTRIBUTOR 4 PRINTER/MANUFACTURER INQUIRIES INVITED 

TRS-80 and Scripsit ire TM ol Radio Shack a Tandy corp 

•Indicates printer mutt nave capability lo do (unction 



■ See List ol Advertisers on Page 451 




Fig. 7b. Reverse side, main PC board 




Maxell 
Diskettes 



The floppy disks that meet 
or exceed every standard 
of quality. Dealer inquiries 
invited 

Call Toll Free 
1-800-237-8931. 

In Florida, call 
813-577-2794. J 



V 



Tech • Data Corporation 

3251 Tech Drive North 

St. Petersburg. FL 33702 „ M 



Most Disk-Directories show only 
the filespecs plus some hard-to- 
understand superfluous infor- 
mation. Our 

DISK-MENU & 
DIRECTORY 

DISPLAYS DETAILED DESCRIPTION 

OF EACH PROGRAM 

ON A DISKETTE, 

f ilespec and date of creation. 

SELECT & RUN PROGRAMS 

INSTANTLY. 

(For Model l/lll, all systems) 



195 



+ 1 50 



C.\j " "t" I "" shipping & handling 

INTER NATIONAL 
COMPUTER PRODUCTS 

346 NO. WESTERN AVE. 
LOS ANGELES, CALIF. 90004 



— Meettije— 
Computer $9.95 




MEET THE 
COMPUTE* 



Teach youngsters simple 
programming for TRS-80. 

A 77-page Dook by Marine Crabbe. an 

experienced elementary teacher Easy to 

L-ders:a-2 iar^jage C ea- instructions 

child can follow with minimal supervision 

Upon completion ot suggested activities 

child should be capable ol writing own programs 

• Signihcant concepts set off in boxes to aid learning 

• important ideas repeated throughout text 

• 7-oage glossary with concise definitions. 

• Cross-'eferenced index. 

• Illustrated Bound with plastic binding lies fM 

To Order: Crabbe Associates -493 

212 W Graham Ave . Lomba'O. H 60148 

Send copies ol Meet The Computer ®S9 95 Add 



B 



50 lor shipping per copy Ninas residents ado sales tax 

Name . 

Street 

City State Zip. 
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Circle 84 on Reader Service card — 



You Are Being Attacked by a Raging . . . 



t 










1982 Soft Sector Marketing. Inc. 
Written by Larry Ashmun 



ALLilUA'A 



1 I I 



INCORPORATED 

P.O. Box34Q« Garden City, Ml 481 35 • BOO-5S1 -65D4/(31 3] 425-4020 



Prices per Game: TRS-80' 16K Level II Mod I/Mod III Cassette $15.95 

TRS-80* 32K Level II Mod I/ Mod III Diskette $19.95 

10% discount for 2 items, 15% for 3 or more. Please add $2 50 per order for postage & 
handling Michigan residents add 4% sales tax. Outside USA (except Canada) please 
add $10.00 per order for postage & handing. 



i-Ml+VII 



Only The Fast Survive! 




Talking and sound effects are playable through 
the cassette AUX plug. High scores are auto- 
matically saved after each game on disk 
version Joystick compatible. 
Call or write for our [ __ .'_ I 
complete catalog. | - r " 



8 



\ - 



M 



/ 






1982 Soft Sector Marketing. Inc 

Written by Larry Ashmun 



Defend Planet from 

6 Different Types of Alien Attacks 

1982 Soft Sector Marketing. Inc 
Written by Larry Ashmun 



2nd 


4 th 


PAD . 

ROW* 


PAD ft 
ROW* 



L^A 



C20 



L 




PVP 

*ADD THE 20-PIN HEADER STRIPS TO THESE TWO PAD ROWS (SEE TEXT) 

Fig. 7c. Component side, piggyback PC board 




/ Fig. Id. Reverse side, piggyback PC board 

D6 




XFMR SEC 
■CENTER TAP) 



XFMR SEC 
WINDING ENDS) 



meter is handy for this type of 
troubleshooting. Assuming the 
LED illuminates, leave the 
power on for 30 minutes and 
then touch the power trans- 
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Fig. 7e. + 121 -5 V power supply 

formers to see that they are 
moderately warm, not hot. If you 
have access to a voltmeter, 
check voltages at U31 socket 
pins 1 , 21 and 40 for - 5, + 5 and 



+ 12 volts respectively. Then 
shut off the power and install U1 
and U31. (Never install or re- 
move ICs while power is 
applied). Repeat the power sup- 



ply temperature test. If all is 
well, connect the disk controller 
to the TRS-80 and your disk 
drives. To keep things simple, it 
is best to test the system in 
single density mode (be sure to 
have S1 in the Disk Enable posi- 
tion). Do not use master disks 
until you are certain all func- 
tions are operating correctly. 

After everything is operating 
properly, proceed to the double 
density checkout using your 
double density DOS. The double 
density indicator LED can be 
used as an educational tool as 
well as a software troubleshoot- 
ing aid when operating in double 
density mode. The lighting se- 
quence provides insight into the 
way double density is im- 
plemented on the TRS-80. 

For example, what occurs 
during a double density system- 
backup operation? Assuming 
that the system disk boots prop- 
erly, the LED is on prior to the 
backup routine. When the ap- 
propriate backup command is 
entered, the program first for- 
mats the blank disk. The disk 
head/carriage assembly moves 
toward track zero to begin for- 
matting and then the LED goes 
off briefly. We are trying to 
reproduce a double density pro- 
gram on what will be a double- 
density formatted disk— why 
does this happen? By default, 
the TRS-80 system must go to 
single density on powerup and 
Reset modes to preserve com- 
patibility with all existing single 
density software. The command 
telling the system to go to dou- 
ble density must, itself, be writ- 
ten in single density! At 
powerup and Reset (via ROM) 
the disk drive reads track zero; 
track zero must be formatted for 
single density operation. Watch 
both the LED and the video mon- 
itor track indication. The LED 
goes back on at track one. 
Similarly, when formatting is 
complete and the write/read se- 
quence begins, the LED again 
shuts off at track zero. 

When S1 is switched to the 
Reset Enable position, the disk 
drives are disconnected as far 
as the TRS-80 is concerned, per- 
mitting normal operation of the 
Reset button. S1 must be in the 
Disk Enable position when the 
disk drives are to be used. 

Circle 85 on Reader Service card - 



MISSION: 
Destroy Enemy Base 



So* 



C T982 Soft Sector Marketing Inc. 
Written by Barlow .■*■'"' 



K 







» • V- 



I 



±LLUll^ f m^2±UJLlUllLtt£, 



1 I I 






iu@Lk 



ONOORPQRATI 



P.O. Box340« Garden City, Ml 481 35 • 8QQ-5S1 -65Q4/[31 3) 4S5-4QSQ 



Knees per bame: ikb-oU 16K Level II Mod I/Mod III Cassette $15.95 Talking and sound effects are playable through 

TRS-80* 32K Level II Mod I/Mod III Diskette $19.95 the cassette AUX plug High scores are auto 

matically saved after each game on disk 
10% discount for 2 items. 15% for 3 or more Please add $? 50 per order for postage & version Joystick compatible 
handling Michigan residents add 4% sales tax Outside USA (except Canada) please Call or write for our I — : — l 
add $10.00 per order for postage & handing complete catalog |*"'". n ' 
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Is There Nothing 
Sacred? 



J. Weaver 
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Don't Chicken Out! 

'1982 Factory Programming. Inc 
Written by J Weaver. Jr. 
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Address 








Binary Code 




















A15 


A14 


A13 


A12 A11 A 10 A9 


A8 


A7 


AS A5 


A4 


A3 


A2 


A1 


A0 


37EC 








1 


10 11 


1 


1 


1 1 





1 


1 








37 ED 








1 


10 11 


1 


1 


1 1 





1 


1 





1 


37EE 








1 


10 11 


1 


1 


1 1 





1 


1 


1 





37EF 








1 


10 11 


1 


1 


1 1 





1 


1 


1 


1 










Table 2. FDC register access codes 













Signal 


Source 


(Parallel) data 


TRS-80 


Address bus codes 




Read 




Write 




System Reset 




Read data 


Disk dnve(s) 


Track zero 




Index pulse 




Write protect 




Interrupt request 


FDC and support 




circuitry 


Interrupt 




Register outputs 




Step 




Direction 




Write gate 




Write data 




VFO enable 




Early 




Late 




Mead load timing 




Ready 




Read dock 




Table 3. Data/control 


signal summary 




Photo 1. Disk controller cabinet 



IC Power and Ground Connection* 


Additional IC Connections 


IC 


Type 


+ SV 


QND 


IC 


Pin 


Destination 


ur 


FD1791-02 


21 


20 


U4 


5 


GND 


U2 


74LS30 


14 


7 


U4 


6 


GND 


U3 


74LS85 


16 


8 


U4 


11 


GND 


U4 


74LS02 


14 


7 


U4 


12 


GND 


U5 


74LS86 


14 


7 


U5 


9 


+ 5 


U6 


74LS04 


14 


7 


U5 


10 


+ 5 


U7 


74LS10 


14 


7 


U5 


12 


+ 5 


ue 


74LS20 


14 


7 


U5 


13 


+ 5 


U9 


74LSO0 


14 


7 


U15 


12 


GND 


U10 


CD4518 


16 


8 


U16 


12 


GND 


U11 


CD4518 


16 


8 


U16 


14 


GND 


U12 


74LS90 


5 


10 


U16 


15 


GND 


U13 


74LS74 


14 


7 


U17 


12 


GND 


U14 


74LS367 


16 


8 


U17 


14 


GND 


U15 


74LS367 


16 


8 


U17 


15 


GND 


U16 


74LS367 


16 


8 


U19 


9 


+ 5 


U17 


74LS367 


16 


8 


U19 


10 


+ 5 


U16 


74LS00 


14 


7 


U19 


12 


+ 5 


U19 


74LSO0 


14 


7 


U19 


13 


+ 5 


U20 


74LS123 


16 


8 


U21 


1 


GND 


U21 


74LS74 


14 


7 


U25 


11 


GND 


U22 


74LS86 


14 


7 


U26 


13 


GND 


U23 


74LS193 


16 


8 


U28 


1 


♦ 5 


U24 


74LS14 


14 


7 


U28 


3 


+ 5 


U2S 


74LS04 


14 


7 


U28 


5 


+■5 


U26 


74LS195 


16 


8 


U32 


5 


GND 


U27 


7416 


14 


7 


U35 


4 


GND 


U28 


7416 


14 


7 








U29 


74LS175 


16 


8 








U30 


LM309K 


(see Fig. 8a i 








U3V 


1771-1 


21 


20 








U32 


74LS04 


14 


7 








U33 


74LS04 


14 


7 








U34 


74LS30 


14 


7 








U35 


74LS74 


14 


7 








U36 


74LS32 


14 


7 








U37 


LM311N 


(see Fig. 6b) 








U38 


LM340T-12 


(see Fig. 6b) 








•Pin 40: +12V 












"Pin 


: -5V. Pin 40: +12V 








Table 4. IC power, ground and 


additional 


connections 













Several good double density 
DOS programs are available. 
Percom's DBLDOS is a double 
density system operationally 
very similar to Radio Shack's 
TRSDOS. DBLDOS routines 
convert files from single to dou- 
ble density and vice versa. A 
more sophisticated DOS, 
NEWDOS80, is now available in 
a double density version. Other 
double density operating 
systems compatible with the 
hardware supported in these 
two systems should also work, 
but I have not used them. The 
disk controller can be used with 
any single density DOS com- 
patible with Radio Shack's Ex- 
pansion Interface. 



"Percom's 
DBLDOS is a 
double density 

system 

operationally 

very similar 

to Radio Shack's 

TRSDOS." 



Any double-density-rated 
Model l-compatible disk drives 
(such as Tandon's TM100-1) can 
be used with this system. 
Shugart SA400 disk drives 
(these are the Radio Shack-pro- 
vided Model I drives), probably 
operate properly in double den- 
sity; but they are officially rated 
only for single density. Shugart 




• Enclosures 
and power supplies 
with or without drives 
• Low minimum orders • At- 
tractive quantity pricing* Durable, 
textured, color-compatible finish 
looks great on your display counter! 
Fully engineered product— high reliabil- 
jAJ»>" ity design • All standard configurations, plus: 
j£l* Canon 2 h height, TEAC Vi height, mini- Winches- 
ter and Tandon 8" V2 height • Retail customers: 
send us the name of your local dealer 



Ann Arbor Precision 

7536 Jackson Road 
Ann Arbor, Ml 48103 
Order Desk: 9-5 EST 
(313)426-5477 Mon-Thu 




"Precision— Since 1977" 
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NEW BOOKS 



NEW from Larry Ashmun! 




His secrets are exposed 
in this new, super book. 

ALIEN DEFENSE 

The book contains 

1 COMPLETE SOURCE CODE LISTING of Alien Defense 
(Mod III tape version). 

2. Details of one approach to game writing. 

3. Explains some of the more complicated routines. 

4. You are informed of the concept behind the 
structure of the routines. 

Never Before Has Anyone 
Sold a Book Like This! 

If you write in Machine language; if you have 
thought of writing a Machine language game; if 
you ever just wondered what a Machine language 
program looked like in its uncompiled form - This is 
Your Book! 




Regularly $29.95 - INTRODUCTORY OFFER $24.95 



Save $5,00 - Order Today 

Offer Good fhru Dec 31, 1982 



Other Fine Books Sold by Soft Sector Marketing, Inc. 



Th.Powx.of VisiCalc 





m 



• .. 




$9.95 




I ..mm. nit I 

ntstKUt" «ow in. 

i g/tfc< -...'. m Al\Wy 
with a thtUlH t "" hi.it 

i „... iom< ..i tk* DOS i aJk 
IMpfui n u.catr c"«ir l... 

-»f>rru'f*«..l .. ... kk.i lanimn^t 

I kii • ; fVM 



$29.95 



- DEALER INQUIRIES WELCOME - 



SOFT SECTOR MARKETINi 

INCORPORATED 

P.O. Box 340 • Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 

■ See List ol Advertisers on Pege 451 




PA VMIMT-pavment accepted Pvchorgn pxv 

1<y COD only under the following cor*jit>ons Charges 
processed when sh©ped usually withm48 hoys Personal 
Check* .muv VNHurg ponding 3 weeks to cieot COD. 
».),-rb v . ..rtifioa c^ec* or cosh only add S1 50 Ml residents must add -1% sales fan 
SHIPPING » HANDLING - Shipping Charges: imounl 2% or S2 50 unless 



tQ 00 Overpayment will be refunded 



L 
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RB80N CABLE CONNECTIONS 
TO THE CONTROLLER BOARD 
WITH CABLE ANO BOARD 
ORIENTED AS SHOWN. 
FROM BOTTOM TO TOP 



M3 

A2 
GNO 
AI5 
ah 
an 
NC 

AB 

NC 

WR 

NC 

RO 
04 
OS 

D7 

NC 

Dl 

INT 

D6 

NC 

03 

AO 

05 

Al 

8? 

02 

NC 



A? 

A5 




Fig. 9. Ribbon Cable 




Photo 3. Detail of disk controller and ribbon cable PC boards 
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Photo 5. Disk controller. Reverse side of piggyback PC board 



BUSINESS 



u|» The Ultimate in Mailing Packages 
**° POSTMAN MASS MAILING SYSTEM 

"1982 Alger Software, Distributed exclusively by Soft Sector Marketing. Inc. 

For the serious businessman who has as little as 1 00 name mailing list or 200,000 names, 

THERE IS ONLY ONE SYSTEM FOR YOU! 

FEATURES OF THE NEW POSTMAN MASS MAIUNO SYSTEM 

The Postman system (version 2) is an almost COMPLETE rewrite, rethink, redesign of the original POSTMAN. The many features of the 
new POSTMAN system are quickly outlined below: 



MUin-INHVt - True multi-dive operation is possible POSTMAN will search oil drives for 
address fues and connect them together into one large file tor the duration of that session 
Once POSTMAN has tound the data files on the disks, the operator sees" just ONE 
CONTIGUOUS sorted list of addresses The operator does not need to tell POSTMAN when to 
"switch" dives ot monuolry "swap" sections of the data file in and out of the computer's 
memory This is the foremost among the list of features oecause o! its relative uniqueness 
among mail list handlers written for the TRS-80 

LAMf UtT SUPPOtT- The multi-drive operation allows the user to access data files on ALL 
configured drives CONCURRENTLY (at the SAME time) for truly orge mailing Wrs hies need 
not be sectioned into smaller oyte size" chunks to tit into memory 

HAH) MM tUPtOtn -(HARD CXSK POSIMAN only) The RILL utilization of the space and 
speed of the new hard disk drives is possible with POSIMAN For example, a 75 megabyte 
dnve con be configured to hold almost 60000 labels Murtple hard drives con be occessed 
CONCURRENT! Y allowing 200.000++ entry marfing lists 

KMHMIfmtCAMMUlY -With the purchase of the separate POSTRtTE program the user is 
provided with an easy to use form letter generator which will merge a generalised lette' 
produced Irom a word processing system (i.e LAZV WRITER, etc.). with the name and address 
information from me POSTMAN MASS MAILER data base POSTWRHER allows the user to 
insert any field from a POSTMAN label entry anywhere in the letter 

MENU OWAWOM * i you would in a restaurant, choose your dinner from a lot (or MENU) 
POSTMAN will allow you to direct its octions by selecting horn various menus that it will 
display A complete discussion of each menu is presented in the manual 
MMflf - New names can be puckty added to your list at any time The new addresses are 
placed into the file in their proper sorted order eliminating the need for o separate sort 
operation after entering a stack of new names POSTMAN will allow the operator to enter a 
"batch" of labels without returning to the control menu between eoch label insertion, thus 
speeding entry and reducing the aggravation of extra menu control keystrokes 
UUlll - Names can be removed at any lime when they ore no longer needed 
COIT— Information in any name entry can be quickly changed at will with "word processor" 
ease A 'transparent cursor simply is moved to the label displayed onthe computer screen 
and corrections ore |ust typed over the existing label if you happen to change a field which 
is also used as a sort key. POSTMAN will automatically move the changed lobel to its correct 
po sr tcn n the kst to maintain the sorted arrangement of the labels 
OVRLAV- When identical chonges ore needed on many addresses, the OVERLAY feature 
can moke them with one keystroke The needed changes which are common to many 
labels are entered mTo the "overlay mask" When you wisn to apply these common chonges 
to any lobel one command wil do it 

SOffT - Arrange your list in any alphabetic or numeric order The ordering may use one Or 
more fields to control the sort Amachineionguogeheapsortassuresfastexecution the sort 
need only be performed once, the sorted list win stay sorted through an subsequent 
insertions deletions and changes to existing labels NO NEED to leave the POSTMAN 
I ■iignj l lil' iiiwiil MH ' u w i l n I »i HJ" M I ' ti i ii nl in mi i li ill I Your data is sorted quickly and after 
sort completion POSTMW4 is ready for your next command 1 



WICU1 DM ADM E&S SOCT - For the user with many addresses on the some street 
POSTMAN will sort your entries by the house NUMBER after grouping those on the same street 
together Local city lists con be quickly sorted to aid post office dspotchmg 
fUROI - Unwanted duplicate addresses can be removed from your list outomoticoly or 
under operator control. 

SEARCH - Any address in youi list con be quickly found with fost search and positioning 
commands Three different types of searches ore provided A "fast" search which uses a 
hashing technique, o "selective sequential" search for labels with common fields, ond 
"quick" positxxMng utfng the Nst or major sort field to get you into the general "baHporir; of 
a lobel or sequence of laoets 

LUaNMIWO- One a few or all addresses in your lot con be printed on standard or non- 
standard label stock Up to 6 labels across con De printed with a format YOU can easily 
control TWO user definable ATTN lines are provided for any use Labels con be printed from 
mony of POSTMAN s menus search, edit, or during label nserton 
EFFICIENCY - POSTMAN is swiften in the machine's native language to gam the full 
advantage of the microcomputer's speed. Extensive use of program segmentation 
reduces the amount of use RAM needed to hold the program allowing a greater number 
labels to be kept m core, resulting in foster operation Little used routines need only be 
brought into memory when they are needed ond once through with men task, nkxin th o 
space bock to POSTMAN 

■PCM USTIM9S - A special program to produce columnar listings ot address data from 
your label data base is provided You con easily specify the information to be printed 
DATA DNK MRBIOMQ - Labels can be quickly transferred from one disk to onother with the 
PSTMERGE program callable tram the mom POSTMAN SYSTEM menu Source ond destination 
drives needed not be separate drives, prompts to exchange diskettes if the some drive rj 
used, ore provided 

DATA DtSK PREPARATION UTHJTY - Provided with POSTMAN is the DPREP program which 
allows the user to prepare a floppy/ hard disk for use with POSTMAN This easy to use utility con 
be told to prepare orty portion of the available Space on a disk 

DATA IMTtOMTY- Ail doto transfers to the disk files aie mode using spec oi write commands 
winch instructs the operating system to check the vakdity of EACH write to the disk 
DATA OOARIT - is o specoi programming technique amy offered bv Soft Sector 
Morketing mc If by chonce your mochine resets while verting information to the disk you 
only lose the information that you were writing Your files are always protected from the 
danger of losing all the work thot you have pu' in that day NO OXFR PROGRAM ON THE 
MARKET OFFERS THIS PROTECTION If you reset with ANYBODY" S MAILING PACKAGE DURNG 
WRITING you would destroy your ENTIRE doto disk We con' t stop your machine from failing 
but we can protect your dofa 



Length 


Nam* 


10 


Code 


15 


Lost Name 


15 


First Name 


26 


Company 


26 


Address 



Description of Label Record Fields: 
Description 

User defined printable field 
Lost name of addressee 
First name of addressee 
Name of company 
Street address 



Una* 


Name 


15 


City 


5 


State 


9 


Zip 


2 


Dotal 


5 


Data 2 



Description 

City, township, village 
State, province, territory 
Zip code. zone, route 
User definable field 
User definable field 



.IDEAL SYSTEM. 



Mod III 48K 1-40 Track Drive • 2-80 Track Dual Headed Drives • Dosplus or LDOS Operating Systems 
Gives space for over 1 1,000 names - 5 second average name insertion - time sorts all 1 1,000 names in less than 4 minutes 

'Special version to work on Dosplus 4.0 Hard Disk operating system. 



- Overview Available - 

The POSTMAN system requires Mod I or Mod III. 48K. 2 disk drives minimum. 



Standard Version 
Only $125.00 



Standard Version with 
POSTWRITER form letter writer 

$175.00 



For DOSPLUS Hard Disk4.0 Operating System 
& Radio Shack's Hard Drive System 

$225.00 



^87 



SOFT SECTOR MARKETING/ 

INCORPORATED 

P.O. Box 340 • Garden City. Michigan 48135 
Order Line 800-521-6504 

^ Michigan Orders & Questions 313-425-4020 

■ See List of Advertisers on Page 451 
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Personal 

COD. 
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Parts required for disk controller Including + S volt power supply: 
(Designator C6 Is not used.) 



U1 

U2.U34 

U3 

U4 

U5.U22 

U6.U25.U32.U33 

U7 

ue 

U9.U18.U19 

U10.U11 

U12 

U13.U21.U3S 
U14.U15.U16.U17 

too 

-23 

U2* 

U26 

U27.U28 

U29 

JX 

U31 

U36 

R1.R7.R33-R40.R42 

R2.R3.R12.R43 

R4.R6 

R5.RB.R9.R10.R14.R20.R21 

R11 

R13 

R15.R16.R17.R18 

R19 

R23.R41 

R22 

C1.C25 

C2 

C3.C7.C9 

C4 

C5 

C8 

C10-C19.C21.C23 

C20C26 
C22 

C24 

S1.S2 
D1-D4 
05 

F1 
XTAL 



FD1791-02IC 

74LS30 IC 

74LS85 IC 

74LS02 IC 

74LS86 IC 

74LS04 IC 

74LS10 IC 

74LS20 IC 

74LSO0 IC 

CD4518BE IC 

74LS90 IC 

74LS74 IC 

74LS368 IC 

74LS123 IC 

74LS193 IC 

74LS14 IC 

74LS195 IC 

7416 IC 

74LS175IC 

LM309K IC 

FD1771-01 or INS 1771-1 

74LS32 IC 

1.000 Ohm. v, w. 5°/i. resistor 

3.300 ohm. v. W, 5%. resistor 

4,700 Ohm, % W, 5%. resistor 

10.000 ohm. ''4 W. 5°'o. resistor 

8.200 ohm, 'iW, t'/a. resistor 

1.500 ohm, '.. W, 5%. resistor 

150 ohm, v. W, 5 v., resistor 

68.000 ohm, '4 W. 5'/ t , resistor 

470 Ohm. ' 4 W. 5"'t, resistor 

330 ohm, •■. W. 5%. resistor 

100 pF, ceramic disk capacitor 

200 pF. ceramic disk capacitor 

100 uF. 10 V. electrolytic capacitor 

47 pF, ceramic disk capacitor 

10 pF, ceramic disk capacitor 

4.500 uF. 10 V, electrolytic capacitor 

1 uF, 50 V, mylar capacitor 

.1 uF. 12 V, ceramic disk capacitor 

.001 uF, mylar capacitor 

10 uF. 16 V, electrolytic capacitor 

SPST toggle switch 

1 A, 100 PIV diode 

LED (Diglkey NSL5053 or equivalent) 

3/8 A, 3AG (fast acting) fuse 

4 MHz crystal. HC18/U style (NDK-040S or equivalent) 



Parts required for +12/ - 5 volt power supply: 

U37 LM3 1 1 N IC (do not subst I lu te) 

U38 LM340T-12 IC 

SCR1 R122B(R/S 276-1067 or equivalent) SCR 

D6 LED (Digikey NSL5053 or equivalent) 

Zl 5.1 V, 5%. 1/2 W(iN523lB)zener diode 

22 4.3 V, 5V 1/2 W (1N5229B) zener diode 

C27 1000 uF. 25 V. electrolytic capacitor 

C28 220 uF. 25 V. electrolytic capacitor 

C29 220 uF. 10 V, electrolytic capacitor 

C30 4.7 uF, 10 V, electrolytic capacitor 

C31 .001 uF. 25 V. ceramic disk capacitor 

C32-C34 1 uF. 50 V, ceramic disk capacitor 

C35 10 uF. 25 V, electrolytic capacitor 

R24.R25 390 ohm. 1;2 W resistor 

R26 2.2K ohm, tM W resistor 

R27 12K ohm, 1'4 W resistor 

R2S.R29 1K ohm. 1/4 W resistor 

R30 100K Ohm. 1/4 W resistor 

R31.R32 10K ohm, 1/4 W resistor 

D7-D9 1A, 100 PIV, diode (1N4002 or equivalent) 

T2 24 VAC. 8A center-tapped transformer 

(Burnstem Applebee 18A1833-3 or equivalent) 

F2 3/8A, 3AG (fast acting) fuse 

X1 MPS3705 transistor (general purpose. NPN) 

Miscellaneous 

PC board, in-line fusehoider, hardware 



T1 

Miscellaneous 



6.3 volt AC V2A •■filament" transformer 
(Triad F-14X or equivalent) 



PC boards cabinet (Bud AC412'BPA-1520 or equivalent— see text). AC line cord, two 20-pm male header strips (AP Products 
929834-06 or equivaienti. 40-conauctor nDbon cable with matching "TRS-80 keyboard card-edge compatible " connector (Radio 
Shack 278-771 276-1558 or equivalent), IC sockets tone of the 40-pm sockets must be capable 0' accepting 025 inch square 
posts— JDR Microdevices 40PIN-ST " is a good choice), hardware (including threaded standoffs to mount the PC boards). 

Table 5. Parts list 



believes all units after serial 
number 80000 are okay, as are 
about 80 percent of all those 
below 80000). I experimented 
with two very early units (serial 
numbers well below 10.000) and 
achieved partial compatibility. 
They boot the double-density 
DOS and perform flawlessly 
most of the time. However, they 
occasionally fail operations 
which involve writing and subse- 
quent read/verifying "worst 
case" data bit combinations (eg: 
6DB6H). 

It is best to apply power to the 
disk controller before turning on 
the keyboard. Reverse this se- 
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quence when removing power. 
Also, apply power to the con- 
troller before inserting disks and 
remove all disks before turning 
off power. That way, even if tran- 
sient voltages conspire against 
you, your disks will be safe. ■ 

Readers of 80 Micro are wel- 
come to use the etch patterns 
contained in this article to con- 
struct the Disk Controller for 
their personal use only. 

An etched and drilled epoxy- 
glass PC board set with plated- 
through holes as shown in Fig. 7 
is available for $54.95. A com- 



plete kit of parts is also avail- 
able, including PC boards, the 
1791/1771 controllers, cabinet 
(no holes or cutouts, but dimen- 
sional layout is included), IC 
sockets, and all other parts 
listed, including the +12/ -5 
volt power supply for $219.95. 
The 1791/1771 controller set is 
available separately for $69.95. 
(There will be a predrilled, 
punched, painted, and labelled 
version of the cabinet available 
for the complete system in the 
final article of this series. If you 
would like to order the kit of 
parts as above, but without the 
blank cabinet, deduct $20.00 



from the kit price.) 

If you have already built the 

+ 121-5 volt supply for the 32K 
memory mod project, you may 
order either the PC board set or 
parts kit for the disk controller 
without components for this 
supply. The PC board set 
without power supply board is 
$49.95, and the parts kit without 

+ 121-5 volt power supply com- 
ponents is $204.95. 

The above prices are pos tpaid 
in the continental U.S. Arizona 
residents add 4 percent sales 
tax. Order from PVP Industries, 
P.O. Box 35667, Tucson, AZ 
85740. 



COLOR COMPUTER 



MASTER CONTROL 

'1981 Soft Sector Marketing Inc. 
Written by A. Schwartz 

Requires 16-32K 



1. 50 preprogrammed command keys. Standard and 
Extended command. 

2. Direct control of motor, trace, and audio from 
keyboard. 

3. Automatic line numbering 

4. Programming line numbering. 

5 Direct Run Button 

6 Keyboard overlay for easy program use. 

7. Easy entry of entire commands into computer. 

Load Master Control into your machine then eithertype 
in a BASIC program or load one in from tape to edit 
Cuts programming time by 50% or more 



$24.95 



For The Radio Shack 
Color Computer* 




*&*** 




Written by E R I 



50 PROGRAMS 
IN ONE PACKAGE 

$49.95 

'Ihf i_.okx Compute* is a pcoou<'t of '?ad>o Shock d vistcr of fh© 'orxJv Corp 




GHOST GOBBLER 

16K- Machine Language 
Joystick Compatible 



TAPE DIRECTORY 

Copyright =1982 Soft Sector Marketing. Inc. 



\or. 






$21.95 




- For 4K Color Users - 

COLOR SCARFMAN 

GREAT GRAPHICS 
Machine Language 

Only$ 19.95 





Creates index 

or your 

programs 

for each tape, 
To screen 
or printer. 



A MUST FOR ALL 

COLOR COMPUTER 

USERS! 



SJ 



Cassette 



- DEALER INQUIRIES WELCOME - 




\ 



SOFT SECTOR MARKETING/ 

INCORPORATED 

P.O. Box 340 • Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 



Charges 

Personal 

COD 



SHIPPING & HANDLING - Snipping Charges 
collect Air Mail Shipping 



'See List ot Advertisers on Page 451 
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UTILITY 



LOAD 80 



Add search to Level II Basic. 



The Looking for Z$ Blues 



J. E. Hieber 

725 Idlewild Road 

Bel Air, MD 21014 



The lack of a search function 
is a serious limitation of the 
TRS-80 Level II cassette system. 
How often have you wanted to 
know even/ place a variable is 
used in a program? The only way 



The Key Box 

Basic Level II 

ModeH 

16KRAM 



is to eyeball the code line by line. 

The Assembly routine in the 
Program Listing adds the omit- 
ted search function. The pro- 
gram interfaces with Level ll's 
normal command structure; the 
new commands are entered 
from the Basic prompt. 

The search is executed from 



play forward or backward one 
line, the ability to reset the cur- 
rent line pointerto the beginning 
of the program, and theability to 
enter the Edit mode with an ab- 
breviated command. 

I thought the new commands 
should be meaningful, short, and 
handy. All commands end with 



"The length of the 

search argument should 

be limited to no more 

than 63 characters." 



the current line pointer toward 
the end of the Basic program in 
memory. If the search argument 
is found, the line is displayed 

and the current line pointer is 
set to that line. Continue the 
search by entering the search 
command with no argument. If 
the search argument is not 
found, the Basic Ready is dis- 
played and the current line 
pointer is not changed. 

Along with searching I added 
the ability to advance the dis- 



the enter key. Table 1 lists the 
commands. 

The quotation marks call the 
search function. This works well 
with variables and characters 
within REM statements. Basic 
keywords such as GOTO. IF. and 
SET cannot be found. These 
keywords are stored as single 
character tokens in program 
memory. An alternate search 
command, the colon, is used to 
search for the keywords. The 
length of the search argument 



should be no more than 63 char- 
acters. Excessively long search 
arguments can cause the sys- 
tem to bomb. 

The semicolon command ad- 
vances the display one line. 
Press the semicolon and enter 
keys repeatedly to step through 
a program. 

The minus sign steps the dis- 
play one line backward. Minus 
can also be hit repeatedly. 

The period resets the current 
line pointer to the first line of the 
program. This is handy to reset 
the pointer before a new search 
sequence. 

The edit command is entered 
with the first letter (E) reducing 
the keystrokes needed to enter 
the edit mode. The semicolon 
and minus commands can be 
appended to the edit abbrevia- 
tion to edit the next line and 
previous line, respectively. 

The at sign (@) displays the 
current line. 

The techniques and hooks in 
the program can be used to add 
other commands and features. ■ 

John Hieber, a graduate 
engineer and mathematician, first 
programmed an IBM 650 in 1963. 
He has owned a micro for about 
two years. 
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HARDWARE SPECIALS 
LYNX MODEM 

Auto Answer - Auto Dial 



Mod I & III 
No RS-232 
Board Required 

Shipping 
from Stock 

$218.00 




ORCHESTRA 85/90 

Stereo music synthesizer with 
percussion for your Mod I or II 

Was $149 95 

SPECIAL $99.95 

Please state Mod I or II & Cass, or Disk version 
Offer Good thru Dec 31. 198? 




RIBBONS 



MX-80 Replacement Cartridges 

2 for $15.00 
MX- 100 Replacement Cartridges 

2 for $20.00 

Offer Good thru Dec 31. 1982 




Our Catalog 

is Now 
Available! 



There Are Only 2 Ways to Increase the 
Processing Speed of Your Model III 



Other Brand 




The Right Way The Wrong Way 



We Offer Only The Quality Product 
But the Choice is Yours 



They both list for $99.95 assembled and 
Tested. 

They both speed up your machine. 

Holmes Other 

Board Brand 

Installation Time .... 15 min. 4 hrs. 

Requires Soldering NO YES 

Requires Cutting Traces ... NO YES 

Easily Removed if Logic 

Board Requires Repair ... YES NO 



c^ List $99.95 

^ Only $89.95 

Plus Shipping 
Offer Good Until Dec 31, 1982 



Si 



- DEALER INQUIRIES WELCOME - 



^ 



SOFT SECTOR MARKETING^ 

INCORPORATED 

PO. Box 340 • Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 

• See List ol Aavertisers on Page 451 



PAVMtNT- payment accepted Dy charge personal check 

I ot C O D only under the following conditions Chora** 
processed when shipped usuony with*! 48 hours portonal 
Chocks aeiay shipping pending 3 weeks to clear C.O.D. 
J,q e /j af P certified checK or cash onv odd $1 50 Mi residents must odd 4% sales tax 
SHIPPING * HANDLING - Shipping Chora**: Send the larger omount 7% or $2 50 unless 



collect Ak Moll Shipping outside oi North America please send the larger amount 10%or 
ln 00 Overpayment w" t>- refunded 
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SAT 

KrelTs College Board 



SAT* 

Preparation Series 



NEW FOR 
'82 



A COMPREHENSIVE PREPARATION 
PACKAGE / 30 PROGRAMS 

1 . Diagnostic analysis 

2. Prescription ot individual study plans 

3. Covorago of all SAT* skills 

4. Unlimited drill and practice 

5. SAT* Exam Question simulator 

6. AH questions in SAT* format and at 
SAT* difficulty level 

7. Instantaneous answers, explanations 
and scoring for problems 

8. Worksheet generation and performance 
monitoring • (optional) 

9. A complete record management systenv 
(optional) 

10. Systematic instruction in pertinent math, 
verbal & test taking skills • (optional) 
Krai's unique logical design provides personal- 
ized instruction for each student according to 
individual needs 

Krall's College Board SAT* 81/82 Prep. 
Series has demonstrated a mean com- 
bined math and verbal score increase ot 
more than 100 points by using sophis- 
ticated driH & practice techniques alone. 
This new series is much expanded and 
updated. In addition extra cost options 
are now available to provide worksheet 
generation, record management, and 
systematic instruction in all math and 
verbal areas tested by the SAT*. 

All versions of Krell College Board SAT* 
Preparation Series provide answers, 
explanations and instantaneous raw scor- 
ing. Standard package $299.95 

APPLE. ATARI COMMODORE. CP/M. IBM. 
AND RADIO SHACK* 

ALSO AVAILABLE 

Time Traveler / Odyssey In Time 

Competency/Proficiency Series 

Pythagoras and the Dragon 

Isaac and F.TB. Newton / Micro Doutsch 

Super Star Baseball / Sword of Zedek 

Krell Game Pack 

CALL FOR DETAILS AND PRICES 

• 51 



SOFTWARE CORR 

Jim sum olltw n m i cue Mar a compjonq 

1320 Stony Brook RoM Slony Broot NY 1 1 TO 

T«l«prton« 5'6 '51 5119 

«'»ii So'tMX Co>0 ms no ol'icw ties • '"> 'to Coneje 
•nt'jnce (aammjiion Bojrd 0' If* f8uc«KXHi 'estmj >fvce 

itieil >s fioww i suodi* o> oiofliicts to :to i ' S 
"'Wins o' »O0if Ump Co>0 tjifli Oo'O iommxlu't Co'D 

On'tH Rewci Co<0 i B M »w Coio 
»ROGR»MS »v*ll>8U 'OR IM( IRS 80 »RRU i Rf 1 »!»m 
"™ 1 » S res«nts joo iiin !»■ 
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Command 


Explanation 


"11 


Search for variable 1 1 (argument should be < 64 characters) 


:QOTO 


Search for keyword GOTO 




Reset current line pointer to first line of the program 


- 


Step display one line backward 


• 


Display current line 


; 


Step display one line forward 


E 


Edit current line 


E- 


Edit previous line 


E; 


Edit next line 




Table 1. New Level II Commands 







Program Listing 




00100 


;THIS ROUTINE ADDS A SEARCH FUNCTION TO LEVE 


L II, TO 










00110 


/PROVIDE THE FACILITY TO LOCATE GIVEN CHARACTER 




00120 


;STRINGS IN A BASIC PROGRAM. 




00130 


(THIS ROUTINE WILL ALSO PROVIDE SHORT NOTAT1 


ON FOR 










00140 


;LIST AND EDIT COMMANDS. THE ABILITY TO SIN 


GLE 










00150 


;STEP FORWARD AND BACKWARD THROUGH A PROGRAM IS 




00160 


; INCLUDED. 






00170 


* 






00180 


t WRITTEN 


BY: J.E. HIEBER 




00190 


f 


BEL AIR, MD. 21014 




00200 


f 






00210 


t COPYRIGHT APRIL 1981 




00220 


j 






00230 


;THE FOLLOWING 


[S A SUMMARY OF THE COMMANDS 


ADDED: 


00240 








00250 


; E; WILL EDIT 


NEXT LINE 




00260 


; E WILL EDIT 


THIS LINE 




00270 


E- WILL EDIT 


PREVIOUS LINE 




00280 


; WILL LIST 


NEXT LINE 




00290 


§ WILL LIST 


THIS LINE (AT SIGN) 




00300 


( - WILL LIST 


PREVIOUS LINE 




00310 


; . WILL SET 


THE POINTER TO START OF THE P 


ROGRAM 










00320 


; "CHARAC STRING KILL SEARCH THE BASIC PR (.GRAM 




00330 


; 


FOR A MATCH 




00340 


; : CHARAC STRING WILL SEARCH FOR BASIC KEY 


WORDS 










00350 




SUCH AS GOTO, IF, THEN, ETC. 




00360 


; " OR : WITH A 


NULL STRING WILL USE THE PRE 


VIOUS 










00370 


; STRING 


AND CONTINUE THE SEARCH 




00380 


j 




41B2 


00390 


CMDHK: EQU 


41B2H ;HOOK FROM ROM COMMAND 




00400 




; PROCESSOR 


1B2C 

DE 
40EC 


00410 


FLNO: EQU 


1B2CH (FIND THIS LINE NO = 


00420 


TLNO: EQU 


40ECH ;THIS LINE NO. 


06CC 


00430 


BASCE: EQU 


06CCH ;ROM BASIC ENTRY 


41E6 


00440 


BUFAD: EQU 


41E6H (COMMAND BUFFER 


40A4 


00450 


BASPT: EQU 


40A4H (BASIC PROG BUFFER 


403E 


00460 


PRVRQ: EQU 


403EH (PREV DEC SIZE 


4040 


00470 


STRLN : EQU 


4040H (STRING LENGTH 


4041 


00480 


LNPTR: EQU 


4041H (TEMP LINE POINTER 


4043 


00490 

00500 


STRING: EQU 

; 


4043H (SEARCH STRING 


7ECD 


00510 


ORG 


7ECDH ( 32461 


7ECD 21E37E 


00520 


JEHMN2: LD 


HL, START (SETUP HOOK 


ADDR 








7ED0 22B341 


00530 


LD 


(CMDHK+1) ,HL 


7ED3 3EC3 


00540 


LD 


A,0C3H (JP CMD TO ROUTINE 


7ED5 32B241 


00550 


LD 


(CMDHK) ,A 


7ED8 C3CC06 


00560 


JP 


BASCE (JUMP TO ROM BASIC 


7EDB 2AA440 


00570 


MOVTP : LD 


HL, (BASPT) ;PT TO BASIC 


BUFFER 








7EDE CD667F 


00580 


CALL 


LODLA (LOAD LINE NO OF FIR 


ST LINE 








7EE1 1834 


00590 


JR 


BLDC3 (LIST LINE 


7EE3 F5 


00600 


START: PUSH 


AF (SAVE REG 


7EE4 D5 


00610 


PUSH 


DE 


7EE5 E5 


00620 


PUSH 


HL 


7EE6 C5 


00630 


PUSH 


BC 


7EE7 3E05 


00632 


LD 


A, 5 (CHECK FOR NULL CMD 


7EE9 B9 


00634 


CP 


C (LINE NO WITH NO LINE 


7EEA 2867 


00636 


JR 


Z,EXIT3 (YES RETURN 


7EEC 23 


00638 


INC 


HL (POINT TO NEXT CHARA 


C IN CMD 








7EED 7E 


00640 


LD 


A,(HL) (LOAD 1ST BYTE 


7EEE FE22 


00650 


CP 


'"' (IS THIS A SEARCH RE 


QUEST 








7EF0 2802 


00660 


JR 


Z,PSRX (YES 


7EF2 FE3A 


00670 


CP 


' : ■ (IS THIS A PACKED SR 


CH REQ 








7EF4 CA8F7F 


00680 


PSRX: JP 


Z,PSRCH (YES 


7EF7 FE2E 


00690 


CP 


'.' (IS THIS A REQ FOR T 


OP OF BUF 








7EF9 28E0 


00700 


JR 


Z, MOVTP (YES 


7EFB FE45 


00710 


CP 


'E' (IS THIS AN EDIT REQ 


UEST 






Listing continues 



Still] Searching? 



What Does 
The Bible 



Where? 



III! 



Now you can use computer technology to search the Bible on any subject. With 
THE WORD processor (including a disk copy of the complete KJV Bible text) you 
can create indexes on keywords. Or phrases. Even on concepts. 

A full spectrum of text search functions allows detailed analysis for the real stu- 
dent of the Bible. 

Print or display selected verses and/or 
references for personal study or Bible 
classes. Build your own computerized 
library of research material. 



THE WORD 

processor m 



Bible Research Systems • 8804 Wildridge Drive • Austin, Texas 78759 • (512) 346-2181 

Requires 48K, 1 disk drive, APPLE, TRS-80, or IBM-PC* ' • Plus $2.50 postage/handling 

"Trademarks of APPLE Computer, Inc., Tandy Corp., and IBM Corp.. respectively. 



SPIKE-SPIKERS™ 

Protect-Control-Organize 

Computers 4 sensitive electronic equipment 

Helps prevent software "glitches", unexplained 

memory loss, and equipment damage 

PROTECTS with transient 
absorber *. dual five-stage 
filter. Absorbs power line 
transients ft filters out RH 
"hash." 

CONTROLS with a I ndivid- 
ually switched 1 20 vac 
grounded outlets. Main on- 
off switch, fuse ft indicator 
light 

Mm Power Console ORGANIZE your computer 
S79.95 » "'her equip power cords. 

No more overloaded octopus 
cube taps. 

2-Socket Plug-In Models 

MINI-I 

Transient absorber only 

$34.95 
MINI-II 

Transient absorber plus 
3-stageRFI"Hash" filter 

$44.95 

4-Sorket Plug-In Model with Light 

QUAD-I 

Transient absorber only 

$49.95 
QUAD-II 

Transient absorber plus 
dual 3-stage RFI •'Hash" filter 

$59.95 

blectronio C 0, In. 

Colony Drive Ind. I'aik mtttm pa Res add 6*» 

6584 Kuch Kd.. Dcpt. 80 COD Add 3.00 * Shipping 

%Jtcthlchcm. V\ 1801 7 





Order Factory Direct 

215-865-0006 
Uul of State Order Toll Free 
^_ R0O-52396«5 



Dealers Invited 



TRS-80 Model I is alive and well at the Micromint. 
We still have the expansion interfaces you need! 



Disk-80 
Expansion Interface 




As featured m Ciarcia's Circuit Cellar 
Byte Magazine. March 1981 

Reviewed in March 82 "80 Microcomputing' 



DSK01 Disk-80 Expansion interface 

with 3?k RAM A & I ... 
DSK02 Disk-80 Expansion interface 

with 32k RAM & Printer Port 

A&T 
DSK03 Disk 80 Complete Kit with 

32k RAM & Printer Port 
DSK04 Disk 80 Bare Printed 

Circuit Board 

DSK05 Printer/Power Supply 

Circuit Board 



$330.00 



380 00 

275.00 

48.00 

16.00 



The Disk-80 Expansion Interlace is the 
perfect peripheral for converting your TRS-80 
Model I into a professional computer system. 
The Disk-80 controls up to four 35 to 77 track 
mini-disk drives, and contains a hardware data 
separator which substantially increases the 
reliability of data transfers Attaches to the 
CPU/Keyboard connector and comes complete 
with mini-disk controller. 32K expansion 
memory, power supply, optional Centronics 
compatible printer port, real time clock and 
buffered bus expansion connector. 

"Reviewing Disk 80 is almost incongruous. 
because any comments can be summarized 
with the sentence, "It works " Dennis Bathory 
Kitsz, 80 Microcomputing, March 1982 

All interfaces are Radio Shack hardware and 
software compatible and carry a 60 day war- 
rantee including parts and labor 
All units include user s manual, power sup- 
ply & auxiliary TRS-BUS connector lor future 
expansion 

Dealer Inquires Invited 

NY State residents please add appropriate sales tax 



To Order: Call Toll Free: 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 

MICROMINT INC. 
917 Midway 
Woodmere, N.Y. 11598 




Comm-80 




As featured m Oarcia s Circuit Cellar 
Bvte Magazine May and June 1980 

The COMM-80 is the only interface you 
need to turn your TRS-80 Model I into a 
time sharing terminal with provisions for a 
printer. The COMM-80 combines the most 
used features of the RS expansion inter- 
face in a low cost unit containing a built-in 
RS-232-C interface, a full 8-bit parallel port 
and a 40 pin bus connector for future 
expanstion. Terminal software is included 
at no extra cost. 

• RS-232-C Serial output port (50-19200 baud) 
with standard DB25 connector. 

• Centronics compatible parallel printer port (34 
pin) 

• 40 pin card edge connector for bus expansion 

• Connects directly to CRT terminals modems, 
printers, other computers. 

• includes case, power supply & interconnecting 
cable 

CMOi COMM-80 Serial/Parallel 

I/O Interface A&T $150.00 

TRS-80 is a trademark of Tandy Corp. , 



■ See List ot Advertisers on Page 451 
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IXIILDCAT— 

Remarkable Disk Directory 

Catalog System 

For use on Radio Shack TRS-80 Model 

1 and 3 microcofMnters. 

Unique abstract feature permAC^beitkie fee Mm if i/i- 
cation. Catalog include* a HlMVMMNpril from ett&*4ype 
fl« Include* human wiildatyiiiaO^^ii r^aSnt cod* 
He*. Contain* ID. natidTdBte. m&^pace. HMpcc, and 
r.nwrV ^"' <\ * V- 

Read any *ize dimim/mth^mi 4jM«** dJth ol any (fami l y 
%Mth am, num(j*i4*i^K^ dfittanv rrajncWr of side*. Son by 

dnv field M*|[i-*>rnvi< pr\nl ir> «CTV M>ned order Single 

•heel or flDMinuoctf for*** S4*f*to disk option Very la*i 
machia*. tode H*/ **t>ra£**j*«." User friendr, Complete 
ej*4.t»> uiMeretatW oocamMniaiion 
" '--.lVeaw ^ecV MCVFI and tX>S when ordering 

Htqurrreiw o orne* MIN and 48 K HAM 

Satislactioq^ViiaYanteed Ten day return privilege 
$!-».*> ' $2.00 Shipping & Handling 
*Checm-__y Money Order Vi*o Mosfert horge" 

Don Fielding 
.2207 N.W. 61 Place □ Margate, hi 
(3051 972-6744 




4 MHz 



FOR THE 



MOD 3 



PC BOARD & DOC 



ONLY $19.95 



THIS EASY TO INSTALL KIT WILL 
DOUBLE THE SPEED OF YOUR MOD- 
EL III COMPUTER. 

COMPLETE KIT $59.95 

ASSEMBLED & TESTED $99.95 

CALL OR WRITE 
J.E.S. GRAPHICS 
P.O. BOX 2752 
TULSA. OK. 74101 

PHONE 19181 742-7104 ^202 



COLOR COMPUTER SOFTWARE 

16-K EXTENDED BASIC 

Adventure word games 

THE ALCHEMIST'S LABORATORY : $14.95 

mix the ingredients yoursel' 
LOKARS MAGIC STAFF $14.95 
f ive crystal statues, the magic sta'l and a castle 
tilled with wild animals 

NIGHT TOWER DESCENT $14.95 
ten doors o' danger treasure, and magic are be- 
tween you and treedom 

SQUEEZE $14.95 
arcade style game where aliens close in trom both 
sides at once 

GRAPHIC SCREEN EDITOR $16.95 
create pictures on the screen using joysticks or 
arrow keys save on tape erase paint and many 
other features 

COLOR SHOW DISPLAYS $8.95 
five graphics programs that create endless chanq 
ing patterns 

all programs 16 K extended basic cassette only 
Send for free catalogue. We accept checks, money 
orders, Visa and Mastercharge (no C.O.D.s). 
Please add $1.00 for shipping. Send to: 

REAL SOFTWARE CO. 

P.O. BOX 401 
HOPEDALE, MA 01747 

(617)393-6281 ^345 

Mass residents add 5"' i sales tax 

• dealer inquiries welcomed ' 
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7EFD 


2002 


00720 




JR 


NZ,CHK2 


CHECK FOR LIST REQ 


7EFF 

C 

7F00 


23 


00722 




INC 


HL 


POINT TO NEXT CHARA 


7E 


00730 




LD 


A,(KL) 


LOAD 2ND BYTE 


7FB1 


FE3B 


00740 


CHK2: 


CP 


' ; ' 


NEXT LINE REQ 


7F03 


2859 


00750 




JR 


Z,FNXT 


YES, FIND CURRENT L 


INE 














7FB5 


FECE 


00760 




CP 


0CEH 


PREV LINE REQ 


7F07 


286A 


00770 




JR 


Z, FPREV 


YES, FIND CUR LINE 


7F09 


FE40 


007 80 




CP 


•e 1 


THIS LINE REQ (AT S 


IGN) 














7F0B 


2803 


00790 




JR 


Z, BLDCM 


YES, BUILD CMD 


7F0D 


B7 


00800 




OR 


A 


THIS LINE REQ 


7F0E 


2043 


00810 




JR 


NZ,EXIT3 


;NOT A SHORT NOTAT 


ION 














7F10 
C 

7F13 


3AE641 


00820 


BLDCM: 


LD 


A, (BUFAD) (RESTORE 1ST CHARA 


FE45 


00830 




CP 


•E' 


•WAS THIS A EDIT REQ 


7F15 


2804 


00840 




JR 


Z,BLDC4 


;YES SET TOKEN 


7F17 


3EB4 


00850 


BLDC3 : 


LD 


A,0B4H 


;LIST TOKEN 


7F19 


1602 


00860 




JR 


BLDC6 




7F1B 


3E9D 


00870 


BLDC4: 


LD 


A,09DH 


;EDIT TOKEN 


7F1D 


21E641 


00880 


BLDC6 : 


LD 


HL, BUFAD 


; BUFFER 


7F20 


77 


00890 




LD 


(HL) ,A 


; STORE IT 


7F21 


23 


00900 




INC 


HL 




7F22 


3E2E 


00910 




LD 


A.2EH 


;THE PERIOD 


7F24 


77 


00920 




LD 


(HL) ,A 


; STORE IT 


7F25 


23 


00930 




INC 


HL 




7F26 


AF 


00940 




XOR 


A 


;LAST BYTE 


7F27 


77 


00950 




LD 


(HL) ,A 




7F28 


CI 


00960 




POP 


BC 


.•RESTORE STACK 


7F29 

T 

7F2D 

OR 

7F30 


ED4B3E40 


00970 




LD 


BC,(PRVRQ) ;PREV REQUES 


2A2040 


00980 




LD 


HL,(4020H) ; PROMPT CURS 


37 


00990 




SCF 






7F31 


3F 


01000 




CCF 






7F32 


ED42 


01010 




SBC 


HL,BC 


j DECR CURSOR POS. 


7F34 


7C 


01020 




LD 


A,H ;WAS DECR PAST START OF 


SCREEN 












7F35 


FE3C 


01030 




CP 


3CH 




7F37 

T 

7F39 


3803 


01040 




JR 


C, NOINC 


;DONT MOVE PAST STAR 


222040 


01050 




LD 


(4020H) , 


HL ; STORE IT 


7F3C 

D 

7F3F 


3AE641 


01060 


NOINC: 


LD 


A, (BUFAD) ;SAVE COMMAN 


218000 


01070 




LD 


HL,080H 


;DEC FOR LIST 


7F42 


FEB4 


01080 




CP 


0B4H 




7F44 


2803 


01090 




JR 


Z,EXIT0 




7F46 


214000 


01100 




LD 


HL,040H 


;DEC FOR EDIT 


7F49 


223E40 


01110 


EXIT0: 


LD 


(PRVRQ) , 


HL , STORE IT 


7F4C 


010700 


01120 




LD 


BC,7 


;SET CMD LENGTH 


7F4F 


El 


01130 


EXIT1: 


POP 


HL 


(RESTORE REGS 


7F50 


Dl 


01140 




POP 


DE 




7F51 


Fl 


01150 


EXIT4: 


POP 


AF 




7F52 


C9 


01160 




RET 




(RETURN TO ROM PROCE 


SSOR 














7F53 


CI 


01170 


EXIT3: 


POP 


BC 




7F54 


18F9 


01180 




JR 


EXITl 




7F56 


ED5BEC40 


01190 


FLINE: 


LD 


DE.(TLNO) ;FIND CURRENT LIN 


E NO 














7F5A 


CD2C1B 


01200 




CALL 


FLNO 


(USE ROM ROUTINE 


7F5D 


C9 


01210 




RET 






7F5E 


CD567F 


01220 


FNXT: 


CALL 


FLINE 


(FIND CUR LINE 


7F61 


CD667F 


01230 




CALL 


LODLA 


(INCR TO NEXT LINE 


7F64 


18AA 


01240 




JR 


BLDCM 


(BUILD LIST OR EDIT 


CMD 














7F66 

OG 

7F67 


7E 


01250 


LODLA: 


LD 


A, (HL) 


(CHECK FOR END OF PR 


23 


01260 




INC 


HL 


(POINT TO LINE NO. 


7F68 


B6 


01270 




OR 


(HL) 


(END IF ZERO 


7F69 


C8 


01280 




RET 


Z 


(END ENCOUNTERED 


7F6A 


23 


01290 


LODLN : 


INC 


HL 




7F6B 


4E 


01300 


LODLP : 


LD 


C,(HL) 


(LOAD LINE NO. 


7F6C 


23 


01310 




INC 


HL 




7F6D 


46 


01320 




LD 


B, (HL) 




7F6E 


ED43EC4C 


01330 




LD 


(TLNO) ,BC ; STORE IT 


7F72 


C9 


01340 




RET 






7F73 


CD567F 


01350 


FPREV: 


CALL 


FLINE 


(LOCATE CUR LINE 


7F76 


2AA44 


01360 




LD 


HL,(BASPT) ;POINT TO BASIC 


PROG 














7F79 


EB 


01370 




EX 


DE,HL 




7F7A 


EB 


01380 


FPRVl : 


EX 


DE,HL 




7F7B 


5E 


01390 




LD 


E, (HL) 


(LOAD POINTER 


7F7C 


23 


01400 




INC 


HL 




7F7D 


56 


01410 




LD 


D, (HL) 




7F7E 


7A 


01420 




LD 


A,D 


(COMPARE BC-DE 


7F7F 


90 


01430 




SUB 


B 




7F80 


38F8 


01440 




JR 


C, FPRVl 




7F82 


208C 


01450 




JR 


NZ, BLDCM 


7F84 


7B 


01460 




LD 


A,E 




7F85 


91 


01470 




SUB 


C 




7F86 


38F2 


01480 




JR 


C, FPRVl 




7F88 


2086 


01490 




JR 


NZ, BLDCM ;CANT FIND BUT SEND 


COMMAND 












7F8A 


CC6A7F 


01500 




CALL 


Z, LODLN 


(LOAD LINE NO 


7F8D 


1881 


01510 
01520 




JR 


BLDCM 


(BUILD COMMAND 






01530 


; ROUTINE TO 


SEARCH BASIC PROG BUFFER FOR 


GIVEN 
















01540 


; CHAR' STRING 








01550 


' • 
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7F8F 


79 


01560 


PSRCH: 


LD 


A,C 


WAS STRING INPUT 


7F9B 


FE06 


01570 




CP 


6 




7F92 


2053 


01580 




JR 


NZ, LODBF 


;YES LOAD BUFFER 


7F94 


CD567F 


01590 




CALL 


FLINE 


FIND CUR LINE 


7F97 


E5 


01600 




PUSH 


HL 


SAVE PTR 


7F98 


181B 


01610 




JR 


SRCHX 


CONT SEARCH 


7F9A 


CD567F 


01620 


PSRCX : 


CALL 


FLINE ;FIND LOC OF CURRENT L 


INE 




01630 








BC POINTS TO CURREN 


T LINE 
















01640 








HL POINTS TO THE NE 


XT LINE 












7F9D 


E5 


01650 


SRCHA: 


PUSH 


HL 


SAVE POINTER 


7F9E 


03 


01660 




INC 


BC 


SKIP PAST POINTER A 


DDR 














7F9F 


03 


01670 




INC 


BC 




7FA0 


ED434140 


01680 




LD 


(LNPTR) , 


3C ;SAVE POINTER TO 


LINE 


NO 


01690 








;FOR LATER USE ON 


MATCH 












7FA4 


03 


01700 




INC 


BC 


•ADJUST FOR LINE NO 


7FA5 


37 


01710 




SCF 






7FA6 


ED42 


01720 




SBC 


HL,BC 


;NO. OF CHARAC IN TH 


IS LINE 












7FA8 


03 


01730 




INC 


BC ;PT TO START OF LINE TEXT 


7FA9 


C5 


01740 




PUSH 


BC 


; EXCHANGE HL/BC 


7FAA 


E5 


01750 




PUSH 


HL 


; EXCHANGE HL/BC 


7 FAB 


CI 


81760 




POP 


BC 




7FAC 


El 


01770 




POP 


HL 


; RESTORE POINTER TO 


NEXT 


LINE 












7FAD 


114340 


01780 


SRCHK: 


LD 


DE,STRING ;ADDR OF SEARCH S 


TRINC 














7FBB 


1A 


01790 




LD 


A,(DE) 


;LOAD FIRST CHARAC 


7FB1 


EDB1 


01800 




CPIR 




; SEARCH FOR FIRST CH 


ABAC 














7FB3 


280E 


01810 




JR 


Z,SRCH2 


; MATCH FIRST CHARAC 


7FB5 


El 


01820 


SRCHX: 


POP 


HL 


; RESTORE POINTER TO 


NEXT 


LINE 












7FB6 


E5 


01830 




PUSH 


HL 




7FB7 


CI 


01840 




POP 


BC 




7FB8 


5E 


01850 




LD 


E, (HL) 


;LOAD NEXT POINTER 


7FB9 


23 


01860 




INC 


HL 




7FBA 


56 


01870 




LD 


D,(HL) 




7FBB 


EB 


01880 




EX 


DE,HL 


(EXCHANGE REGS 


7FBC 


7C 


01890 




LD 


A,H 


; CHECK FOR END OF BU 


FFER 














7FBD 


B5 


01900 




OR 


L 




7FBE 

H 

7FCB 


20DD 


01910 




JR 


NZ, SRCHA 


;N0, CONTINUE SEARC 


C3CC06 


01920 




JP 


06CCH 


; RETURN GO BASIC 


7FC3 


3A4040 


01930 


SRCH2: 


LD 


A,(STRLN) ;LOAD STRING 


LENGTH 












7FC6 


B7 


01940 




OR 


A 


;IS STRING A SINGLE 


CHARAC 












7FC7 


2B0B 


01950 




JR 


Z,SRCH4 


;YES 


7FC9 


47 


01960 




LD 


B,A 




7FCA 


E5 


01970 




PUSH 


HL 


;SAVE LINE POINTER 


7FCB 


13 


01980 


SRCH3 : 


INC 


DE 


;GET NEXT CHARAC 


7FCC 


1A 


01990 




LD 


A,(DE) 




7FCD 


BE 


02000 




CP 


(HL) 




7FCE 


23 


02010 




INC 


HL 




7FCF 


200D 


02020 




JR 


NZ,SRCH6 


;CONT SEARCH 


7FD1 


10F8 


02030 




DJNZ 


SRCH3 




7FD3 


El 


02040 




POP 


HL 


(RESTORE STACK 


7FD4 


El 


02050 


SRCH4: 


POP 


HL 




7FD5 

0. 

7FD8 


2A4140 


02060 




LD 


HL, (LNPTR) ;LOAD LINE N 


CD6B7F 


02070 




CALL 


LODLP 




7FDB 


C3177F 


02080 




JP 


BLDC3 


;REQUST LIST 


7FDE 


El 


02090 


SRCH6 


POP 


HL 


(RESTORE POINTER 


7FDF 


0600 


02100 




LD 


B,0 


(RESTORE COUNTER 


7FE1 


0D 


02110 




DEC 


C 


(MOVE SEARCH POINTER 


1 POS 












7FE2 


28D1 


02120 




JR 


Z, SRCHX 


(CONT SRCH 


7FE4 


23 


02130 




INC 


HL 


(MOVE POINTER 1 POS 


7FE5 


18C6 


02140 
02150 




JR 


SRCHK 


(CONT SRCH THIS LINE 






02160 


;LOAD 


SEARCH 


STRING BUFFER 






02170 










7FE7 


21E741 


02180 


LODBF 


LD 


HL,BUFAD+1 ; PC I ST TO BU 


FFER 














7FEA 


0600 


02190 




LD 


B,0 


(CLEAR COUNTER 


7FEC 


114340 


02200 




LD 


DE, STRING ;PT TO SRCH 


BUFFER 












7FEF 

ER 

7FF6 


7E 


02210 


LOADB 


LD 


A,(HL) 


(MOVE CHARAC TO BUFF 


B7 


02220 




OR 


A 


(CHECK FOB END 


7FF1 


2806 


02230 




JR 


Z, LOADM 




7FF3 


12 


02240 




LD 


(DE) ,A 


(STORE IT 


7FF4 


04 


02250 




INC 


B 




7FF5 


23 


02260 




INC 


HL 


;PT TO NEXT CHARAC 


7FF6 


13 


02270 




INC 


DE 


,-PT TO NEXT STRING C 


HARAC 












7FF7 


18F6 


02280 




JR 


LOADB 


(LOOP TIL END 


7FF9 


05 


02290 


LOADM 


DEC 


B 




7FFA 


78 


02300 




LD 


A,B 


(STORE STRING LEN 


7FFB 


324040 


02310 




LD 


(STRLN) 


A 


7FFE 


189A 


02320 




JR 


PSRCX 


;G0 SEARCH 


7ECD 




02330 




END 


JEHHN2 




00000 TOTAL 


ERRORS 











GUESS WHAT? 

Last month we Bold MX-80 Printer 

Ribbons for 814.00 each! 
this month we've Rone CRAZY1! 



MX-80 or MX-70 RIBBONS 

NOW 

2 for ^15.00 



DISKETTES 

VERBATEM DATA LIFE 
double density 40 track 
box of 10 827.00 a box 

2 or more boxes 825.00 u box 

NASHUA double density 40 track 
box of 10 £25.00 u box 

2 or more boxes 823.00 a box 

TRS-80* MODEL III 48K 2-40 track 
disk drives and a free eopy of 

MultidosorDosplus just 81,795.00 
plus shipping 



BAIIM HOUSE 

COMPUTER PRODUCTS 

950 Scott Lake Road 
Eon Mac, MI 48054 



WELCOME 
YISA/MASTERCARD/CHECKS/COO 



All Software orders subject to 33.00 
shipping unci handling 
313-H83-83HH Order Line 
313-682-9B50 Info Line 
313-683-0076 Out a Line 
MI residents add 4% sales tax 

•TKS-HH Is u l mclc murk of Tandy < orp 



■See List ot Advertisers on Page 451 
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HOME/HOBBY 



Morse Code in color. 



CCCQ 



Michael J. Chuck 

648 Longmeadow Drive 

Severna Park, MD 21146 



It was only a matter of time before I 
decided to merge my two hobbies — com- 
puters and amateur radio. The Radio Shack 
16K Extended Basic Color Computer, well 
shielded against radio frequency interfer- 
ence, makes a very good candidate for a 
Morse code terminal. 

My first step was defining the features I 
wanted in a Morse terminal. After studying 
many ads for Model I terminals, I came up 
with the following wish list for my system: 

• Code speeds of 5-60 words per minute 

• Automatic speed adjustment when re- 
ceiving 

• Split-screen operation 

• Reasonably low cost 



The Key Box 

Color Computer 
Extended Color Basic 
16K RAM 

Amateur radio receiver 
and transmitter 



• Ability to compose messages while re- 
ceiving 

• Menu-driven transmit for pre-made 
messages 

• Transmit buffer to allow typing ahead of 
the keyer 

• Automatic file handling of the QSO infor- 
mation 

• Ability to update the current QSO file 
while receiving 

• Morse code practice feature 

After many program edits, the wish list fi- 
nally became a reality and my Color Com- 
puter was operating on the air. I was so 
pleased with its performance that I decided 
to pass my ideas along to all you hams with 
Color Computers. 

System Description 

Both the transmit and receive routines 
are written in Assembly language to take 
advantage of the higher speed of execution. 
The transmit portion of the program uses a 
look-up table to convert ASCII code to the 
dots and dashes of Morse code. 

Since Morse consists of only dots and 
dashes, a binary number can represent the 
code sequence of a letter. The program 
uses one to represent a dash and zero to 
represent a dot. All code sequences must 
begin with one, however, to distinguish be- 
tween letters that start with dots in Morse. 
For example, the letter S can be repre- 
sented in a table by 00001000 and Z by 
00011100. By performing successive left 
shifts on the binary value, the dots and 
dashes can be peeled off after locating the 
leading one. 



The transmit table begins at hex 3B40, so 
by substituting the ASCII value of the letter 
to be transmitted for the least-significant 
byte (40) the decode address is formed. For 
example, the letter C is hex 43 in ASCII. 
Therefore, at address hex 3B43 the value 26 
is stored (binary 00011010). After removing 
the leading one the code 1010 remains, so 
the letter C (dash dot dash dot) would 
be sent. 

The actual keying is accomplished with 
the cassette motor control relay. By setting 
bit 3 at address FF21 (65313 decimal) the 
relay is energized. After waiting the appro- 
priate time for a dot or dash, bit 3 is reset to 
deenergize the relay. The computer relay 
output at the cassette motor control plug is 
capable of using my Heathkit electronic 
keyer directly. If you attempt to key a 
transmitter directly, however, use a low- 
voltage isolation relay to protect the com- 
puter relay. 

The receive portion of the program uses 
the serial I/O jack on the Color Computer to 
input Morse signals. If bit 1 at address 
65314 is set, data is present on the data in- 
put line (pin 2 of the connector). However, 
the computer requires a signal greater than 
+ 3 volts. An inexpensive two-transistor 
amplifier boosts the receiver phone jack 
signal to a higher level. Since the amplifier 
actually supplies a pulsating dc voltage, a 
digital filter (time delay) was incorporated 
into the receive routine. 

The purpose of the filter is to ensure that 
the computer disregards the high- 
frequency changes in the signal. A filter 
value of 30 is loaded initially. If on high- 
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40 

90 

110 300 

310-400 

410 

430-560 

570-660 

670-740 

750 830 

840 



Entry point o' the transmit mode 

Entry point of the message menu 

Decode of the menu selection 

Code practice generator section 

Entry point of the receive mode 

Store the transmit buffer and scanned 'He data when returm 

Calculate transmit speed factor and store 

Preview canned messages prior to transmission 

File update menu 

Beginning of file-handling routine 



Table 1. HAMSHACK functional-block line numbers 



to the transmit mode 



speed receiving some letters are lost, you 
can relax the filter. Enter Delay from the 
menu, and then a new lower value. The filter 
should be as high as possible (less than 
256) and yet receive properly. 

Decoding data-present signals from 
Morse to ASCII uses the same technique as 
the transmit portion. After loading a leading 
one and shifting left, a zero is loaded if the 
data is present less than two dot times, and 
a one is loaded if the data is present tor 
more than two dot times. A left shift is 
performed after each successive digit is 
loaded. During receive the dot time is 
dynamically adjusted. If data is not present 
for greater than two dot times, the letter is 
decoded and displayed on the upper por- 
tion of the screen. 

The table for decoding received signals is 
located at address hex 3F00. For example, 
the letter A is loaded as 00000101 during re- 
ceive (hex 05). By substituting into the table 
address, 3F05 becomes the decoder ad- 
dress. A PEEK to the decoder address will 
return the number 65, which is the value to 
be POKEd to video RAM to display the 
letter A. 



The Basic calling program is completely 
menu driven. The enter key is used as the 
transmit/receive switch and can be used to 
default to transmit mode from any menu. 
There are five message text buffers that can 
be pre-loaded and called up to transmit via 
the message menu. The up arrow key is 
used to enter the message menu from the 
transmit mode. Any message selected from 
the menu is displayed on the bottom por- 
tion of the screen for review before being 
transmitted. During review, if RST is to be 
sent, enter three numbers instead of a nor- 
mal review reply to change the RST report 
from 599 to the new numbers. 

Also callable from the message menu are 
three utility functions: 

• Speed allows entering a new transmit 
code speed 

• Delay allows entering a new receive filter 
delay value 

• Test sends random code for practice 
While in the transmit mode, the down ar- 
row calls up the current QSO log menu. You 
can make changes in any field from this 
menu. After a QSO is completed it can be 
saved to page 1 of video RAM from this 



Addraaa 

1536-3071 

3098-3327 

14653-15167 

15168-15231 

15232 

15233-15234 

16235-15236 

15237-15737 

15738-15978 

15981-15982 

15983-15984 

15985-15986 

15987-15988 

15989 

15990-15991 

15992-15993 

15994-15995 



15996- 

15998- 

16000 

16001 

16002- 

16004- 

16014- 

16016- 

16026- 

16028- 

1B127 



15997 
15999 



16003 
16013 
16015 
16025 
16027 
16126 
16383 



Usaga 

OSO file storage 

M6$ (line 7) used to store the transmit text composed during the receive mode 

Transmit routine 

Transmit conversion table (ASCII to Morse) 

Value to POKE to 65313 to turn on cassette relay 

Two times the transmit speed dot time 

Seven times the transmit speed dot time (word spacing) 

Receive routine 

Keyboard scan and character handling subroutine 

M6$ pointer (points to the next POKE position) 

"No data present" timer count on receive. Transmit pointer on transmit (points to posi 

tion of next letter position on the bottom of screen to be transmitted) 

Transmit buffer cursor counter (position on bottom of screen to display next letter from 

the keyboard) 

Top of screen cursor counter 

Value to POKE 65313 to turn off cassette relay 

Six times the receive dot time (used for word space) 

Four times the receive dot time lused as dash compare for automatic speed adjustment) 

Two times the received dot time (used for dot/dash selection and for element/character 

selection) 

Receive dot time (used tor automatic speed adiustment) 

Timing counter storage 

Received letter decoder value (value to display) 

ASCII value of last Key input 

Storage position pointer for scan of his name 

Name scan storage area 

Storage position pointer for scan of his call 

Call scan storage area 

Storage position pointer for scan of remarks 

Remarks scan storage area 

Receive Morse to ASCII decoder table 

Table 2. Memory use 



During transmit 

•—Call the message menu 
i— Call the current QSO file update menu 
•—Send AR 

S - Send a string of dots (errori 
& — Send SK 
Enter— Switch to the receive mode 

During racaive 

* — Start scanning his name 

t — Start scanning his call sign 

♦ — Start scanning his QTH 

Clear— Stop the scanning process 

Enter — Switch to the transmit mode 



Table 3. Key functions 



menu also. Depending on the amount of 
data in each field of the file, 15 to 30 files 
can be saved to RAM before taping and 
clearing the storage area. 

From the file update menu, reviews, tape 
saves, verifies and more can be done. A veri- 
fy must always be performed after a tape 
save to clear the file storage area. (Be sure 
to replace the cassette motor control plug 
into the cassette and remove this program 
before tape saves.) 

File data is saved to tape as a string with 
field separators as follows: 

STRINGS = "<" + T0$ + "%" + T1$ -»■•%■+ FQ$ + " %" 
HC$4 '%" + HNS + ••"/„•• + QTS+">" 
T0$ = OSO start time 
T1$ = OSO finish time 
FQS = Frequency used 
HC$ = His call sign (station worked) 
HNS ~ His name 
QT$ = His QTH and other remarks 

By performing string searches for the 
separators, the file data can be recovered. 
(How about a program to check for dupli- 
cate QSOs during a contest, or to print the 
log? The log data is all available on tape, so 
let your imagination go and program your 
computer to do a little more of your work.) 

To ease data entry into the log and the 
canned messages, three arrow keys can be 
pressed during receive to scan and file data 
as it is displayed. The other ham's call, 
name and remarks can be scanned by 
pressing i. t. — respectively. The received 
video will be displayed in the inverse mode 
to verify what is scanned. Pressing clear 
stops the scan. Scanning erases any data 
that was in the scanned field of the log from 
a previous receive mode, but it is cumula- 
tive during a given receive mode until re- 
turning to the transmit mode. For example, 
the QTH could be scanned and the scan- 
ning stopped. Later during the same receive 
mode, his rig description may be scanned 
into the same file field. 

While in the receive mode, a message 
can be composed on the bottom of the 
screen. Since this message is POKEd di- 
rectly into M6$ (line 7 of the program), you 
must keep the text in the correct area. Back- 
spacing beyond the start position (print po- 
sition 288) or entering characters beyond 
the end of screen can destroy the Basic pro- 
gram. The technique of POKEing directly to 
a string constant proved to be the fastest 
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method of handling the message when re- 
turning to the transmit mode. 

One of the five message buffer numbers 
may be selected for the text when returning 
to transmit. If none is selected (you press 
only enter) buffer 1 is used. Because of this 
default, message 1 should not be filled 
when starting the program if you plan to 
prepare text while receiving. You may, how- 
ever, change any message during program 
execution by typing during receive and 



Transistor 2N3906 


(RS #276 1604) 


Transistor 2N3904 


(RS #276 1603) 


Diode 1N914 


(RS #276 1620) 


LED and holder 


(RS #276-068) 


Capacitor 01ut 


(RS #272-131) 


Resistor 10K ohms 


(RS #271 034) 


Resistor 5.6K ohms 


(RS #271-031) 


Resistor 330 ohms 


(RS #271-017) 


Resistor 1K ohms 


(RS #271-023) 


Power switch 


(RS #275-602) 


Speaker 2 " 


(RS #40-245) 


DIN Plug 


(RS #26-3020) 


Phone plug '« " 


(RS #42-2377) 


Phone |ack '•« ' 


(RS #274 255) 


Mini box 


(RS #270-251) 


Component board 


(RS #276-160) 


9 volt battery 


(RS #23-464) 


Battery holder 


(RS #270-326) 


Battery clip 


(RS #270-325) 


Table 4. 


Parts list 




Fig. 1. Schematic diagram (see Table 4) 



specifying the appropriate buffer number to 
store the text in. 

If the radio receiver is inactive, press 
enter to return to the transmit mode. After 
a minute or two in the receive mode with 
no activity, the automatic speed compen- 
sation software may not recover properly. 
This is not a problem because the trans- 
mit mode is the desired standby mode. 
From transmit the menu calls are avail- 
able and pressing enter immediately 
switches to the receive mode. 

During transmit a wraparound buffer 
(the bottom portion of the screen) is used 



for typing. As the program sends a charac- 
ter it clears it from the bottom buffer and 
displays it on the top of the screen. This 
allows the typing to be more than 200 
characters ahead of the transmitter. The 
buffer turned out to be a real plus for a 
moderate typist working at five-words-per- 
minute code speed! 

The Interface Amplifier 

Since the audio signal of my radio 
receiver was too low to be detected by the 
RS-232 input, a simple amplifier was re- 
quired. I decided on a very simple circuit us- 



Extended BASIC 



TRS-80 Color Computer 



The Champagne of Software 
For a Beer Budget! 



Over 75 quality programs a year 



for under 75c each! 



Ah. CHROMASETTE Magazine, the toast of the holiday 
season and any season I A subscription to CHROMASETTE 
Magazine consists of 6 to 8 premium programs ON CASSETTE, 
delivered by First Class Mail to you and your computer every month! 
Tutorials, utilities, games, and practical programs to usher in a great 
new computing year I 

So. celebrate and get a subscription to CHROMASETTE 
Magazine' Or just take a little sip and try a back issue. 



The Bottom Line: 

I year (12 issues) $45 00 

6 months |6 issues) S25.00 
Single Copies S 5 00 



|l /(MPS 

North America — First Class postage mi luded 
Overseas — add sio to subscriptions^ < I 
Sent At. 



MasterCard' Visa 



The Fine Print: 

i is are for the Extended BASIC model and occasionally (or disks 



'Gfvtomc&ettE m 



agazine PO Box 1087 Santa Barbara, CA 93102 (805)963-1066 
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TRS-80 

Model I 



And In This Corner, 
Another Champion 

CLOAD'S DISK VERSION! 



TRS-80 
Model III 




Get 12 tapes OR disks a year containing over 75 quality programs — without knocking 
out your budget! 

We finally gave in . . . After over FOUR years of publishing some of the best (aren't 
we pompous), useful and fun programs on tape, we are now offering CLOAD 
Magazine on disk, too! 

A subscription to CLOAD Magazine (tape or disk) consists of 6 to 8 ready-to- load 
programs delivered by First Class Mail every month. What a winner' 

Fight high software prices — Get a subscription to CLOAD Magazine. Or just 

throw a single punch and try a back issue . . . 



The Bottom Line: 

1 year ( 1 2 issues) 
6 months (6 issues) 
Smgle Copies 
Back Issues 
Good Games # 1 
Adventures # 1 



T«pe 

$5000 
$3000 

$ 600 
$1200 
$13 00 



Disk 

$95 00 
$5500 

$11.00 
$2300 
$24 00 




(805) 962-6271 

P.O. Box 1448 
Santa Barbara, CA 
93102 



California residents add 6% to single copies. 

North America — F.rst Class postage included 

Overseas - add $ 10 to subscriptions and $ 1 to single copies Sent AO rate 

The Fine Print: 

All issues from Oct 78 available on tape Issues from Oct 82 available on disk, also Ask for list (24 Level I issues also available) 



MasterCard/ Visa 
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ing parts available from the local Radio 
Shack store. 

The two-transistor circuit rectifies and 
produces a positive output voltage 
whenever a tone is present at the radio 
receiver earphone jack. An LED gives a 
visual indication that the proper level of out- 
put voltage is being supplied to the com- 
puter. In operation the receiver gain is 
adjusted to a level to activate the LED as no 
gain control was placed in the interface 
amplifier circuit. 

Figure 1 shows the schematic for the cir- 
cuit. Table 4 lists the components required. 
I used a general-purpose circuit board and 
just started soldering. Layout is not critical. 
If you can read a simple schematic and do a 
little soldering, you will have no trouble with 
the interface. 

Program Entry 

Since QSO logs are saved in page 1 of the 
video RAM, always perform a PCLEAR1 
when turning on your computer. Hamload 
(Program Listing 1) is run prior to Hamshack 
(Program Listing 2) to load the transmit and 
receive routines. Since Hamload contains 
all of the Assembly-language data, it is a bit 
tedious to key in. Be patient! Errors in data 
statements are difficult to find and have di- 
sastrous results. 

I wrote Hamshack in a packed form to 
conserve memory, so it is also a bit tedious. 



When keying it in, enter lines 5 and 7 exactly 
as listed! The receive routine POKEs direct- 
ly to M6$ and adding a space or changing a 
line number to two digits will cause 
problems. 

Some user-specific information must be 
inserted in lines 130, 140 and 160. Also, 
there is room for two additional messages 
in the message menu. By studying lines 



110-190, the addition should be self- 
explanatory. 

If some day you hear KA9EQD calling CQ, 
please give me a call. My Color Computer 
has been dying to talk to one of his 
own kind!B 

Michael Chuck, a mechanical engineer, 
enjoys amateur radio and model rail- 
roading. 



Program Listing 1 

10 CLS: PRINT" ASSEMBLY LANGUAGE LOADER" :CLEAR10 ,14650:FORK-15237T 

015978:READ A:POKE K f A:PRINT3256 ,K,A:NEXTK 

20 FORK=15979T016127:POKE K, 0:PRINTe256 ,K,0:NEXTK 

30 F0RK=16157TO16382:P0KE K, 0:PRINT3256 ,K,0:NEXTK 

40 F0RK=16128TO16157:READ A:POKEK,A:PRINT@256 ,K,A:NEXTK:POKE1616 

0,53:POKE16161,52:POKE16163,51:POKE16167,50:POKE1616 8,43:POKE161 

70,35:POKE1617 5,49:POKE16176,54:POKE16177,45:POKE16178,47:POKE16 

184,55:POKE16188,56:POKE16190,57:POKE16191,48:POKE16197,38 

50 FORK«=14653T015231:READA:POKEK f A:PRINTe256 f K,A:NEXTK 

60 POKE16204,63:POKE16213.46:POKE16234,59:POKE16237,40:POKE16243 

,44:POKE16248,58:POKE16383,0:CLS:PRINT"LOAD AND RUN hamshack":EN 

D 

70 DATA2 

6,204,0, 

60,204,0 

80 DATA2 

15,134,0 

204,62,1 

90 DATA6 

3,62,111 

3,62,126 

Listing continues 




SAVE MONEY ON 
TRS-80® COMPUTERS 




We have the largest Inventory in the 
Central United States. Immediate 
shipment directly to you from our 
warehouse. 



^ Check with us and SAVE 



Call for our 
Prices! 

1-800-835-9056 

Kansas Residents: 
1-316-624-1919 (collect) 



TRS-80 is the registered trodemark of Tandy Corporation 



All Inventory 100% TRS-80" Equipment 



* Free Price List 

* No Out-Of-State Taxes 

* F-48 Warranty form 

* Immediate Shipment 



* Payment Methods 
>s Visa or Mastercard 
is Bank Cashier's Checks 
\s Bank Money Orders 
^ Bank Wire Transfers 

Jimscot, Inc. 

1023 N. Kansas — Box 607 
Liberal, Ks. 67901 



^254 
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Listing continued 

100 DATA189, 61, 122, 182, 62, 128, 182, 62, 126, 126, 59, 240, 189, 61, 122,1 

82,62,129,129,13,38,1,57,126,59,219,182,255,34,129,7,38,23,252,6 

2,111,195,0,1 

110 DATA253, 62, 111, 189, 61, 122, 102,62,129, 129, 13, 38, 1,57, 126, 60, 2 

6, 126, 59, 133, 18, 252, 62, 126, 179, 62, 122, 45, 8, 182, C2, 128, 139, 1,1 83, 

62,128,252,62,126 

120 DATA17 9, 62, 124, 46, 24, 252, 62, 126, 253, 62, 124, 243, 62, 126, 253, 62 

,122,243,62,122,253,62,120,243,62,122,253,62,118,252,62,126,179, 

62,120,45,43,252,62,126 

130 DATA253, 62, 120, 182, 62, 120, 6 8, 183, 62, 122, 182, 62, 121, 70, 183, 62 

,123,182,62,122,68,183,62,124,182,62,123,70,183,62,125,252,62,12 

0,243,62,122,253,62,118 

140 DATA252, 62, 111, 17 9, 62, 122, 45, 3, 126, 60, 182, 204, 0,0, 253, 62, 126 

,253,62,111,126,59,240,204,0,0,253,62,126,182,62,128,183,60,196, 

182,63,0 

150 DATA183, 62, 128, 182, 62, 129, 129, 94, 39, 26, 129, 10, 39, 49, 129, 9, 39 

,72,182,62,128,128,64,46,8,182,62,128,139,64,163,62,128,126,61,6 

5,252,62,130 

160 DATA253. 60, 255, 195, 0,1, 16, 131, 62, 142, 39 ,3, 253, 62, 130, 182, 62, 

128,183,0,0,126,61,55,252,62,142,253,61,26,195,0,1,16,131,62,154 

,39,3 

170 DATA253, 62, 142, 182, 62, 128, 183, 0,0, 126, 61, 55, 252, 62, 154, 253, 6 

1,53,195,0,1,16,131,63,0,39,3,253,62,154,182,62,128,183,0,0,182, 

62,128 

180 DATA128, 64, 45, 3, 183, 62, 128, 252, 62, 115, 253, 61, 90, 195, 0,1, 16,1 

31,5,0,38,3,204,4,0,253,62,115,182,62,128,183,0,0,252,62,111 

190 DATA17 9, 62, 11 8, 46, 14, 204, 0,0, 253, 62, 111, 134, 1,1 83, 62, 126, 126 

,59,240,134,1,183,62,128,126,59,169 

200 DATA189, 161. 193, 129, 0,39, 8, 183, 62, 129, 18, 18, 126, 61, 189, 182, 6 

2,129,129,0,39,42,129,94,39,19,129,10,39,17,129,9,3 9,15,129,13,3 

9,41 

210 DATA129, 12, 39, 14, 126, 61, 232, 30, 137, 30, 137, 30, 137, 30, 137, 126, 

61,212,134,0,183,62,129,126,61,212,204,0,1,30,137,3 0,137,30,137, 

30,137,18 

220 DATA126, 61, 212, 252, 62, 109, 253, 61, 210, 134, 62, 183, 0,0, 30, 137, 3 

0,137,30,137,30,137,30,137,30,137,30,137,204,0,1,30,137,57,129,8 

,39,79,128,64 

230 DATA45, 37, 252, 62, 109, 253, 62, 12, 195, 0,1, 253, 62, 109, 252, 62, 113 

,253,62,15,195,0,1,253,62,113,182,62,129,183,0,0,183,0,0,18,126, 

62,101 

240 DATA252, 62, 109, 253, 62, 49, 195, 0,1, 253, 62, 109, 252, 62, 113, 253, 6 

2,54,195,0,1,253,62,113,182,62,129,183,0,0,139,64,183,0,0,126,62 

,101 

250 DATA252, 62, 109, 131, 0,1, 253, 62, 77, 195, 0,0, 253, 62, 109, 134, 32,1 

83,0,0,252,62,113,131,0,1,253,62,97,195,0,0,253,62,113,134,96,18 

3,0,0 

260 DATA1 8, 18, 134, 0,1 83, 62, 129, 57 

270 DATA0, 32, 69, 84, 73, 65, 7 8, 77, 83, 85, 82, 87, 68, 7 5, 71, 7 9, 72, 86, 70, 

0,76,0,80,74,66,88,67,89,90,81 

280 DATA204, 12, 126, 253, 62, 109, 182, 6 2, 114, 177, 62, 112, 3 9, 57, 182, 62 

,112 ,183, 57 ,105, 183, 57, 97, 139*1,129, 255, 38 ,2, 134 ,32, 183, 62 ,112,1 

82,5,0,183,62,130,134,96,183,5,0 

290 DATA1 82, 62, 116, 183, 57, 128, 139, 1,129, 255, 38, 2, 134, 0,183, 62, 11 

6,182,62,130,183,4,0,126,57,166,189,61,122,182,62,129,129,13,39, 

23,129,10 

300 DATA39, 19, 129, 94, 39, 15, 182, 62, 114, 129, 255, 3 8, 5, 134, 32, 183, 62 

,114,126,57,61,57,182,62,130,183,57,174,182,59,0,183,62,130,120, 

62,130,37,76,120,62,130,37,84,120,62,130,37,92 

310 DATA120, 62, 130, 37, 100, 120, 62, 130, 37, 108, 120, 62, 130, 37, 116, 12 

0,62,130,37,124,204,0,0,195,0,1,253,62,126,189,61,122,182,62,129 

,129,94,39,14,182,62,114,129,255,3 8,5,134,32,183,62,114,32,1,57, 

252,62,126,16,179,59,131,38,216,126,57,61 

320 DATA120, 62, 130, 37, 5, 189, 58, 205, 32, 3, 189, 58, 148, 120, 62, 130, 37 

, 5, 189, 58, 205, 32, 3, 189, 58, 148, 120, C2, 130, 37, 5, 189, 5 8, 205, 32, 3, 18 

9,58,148 

330 DATA120, 62, 130, 37, 5, 189, 58, 205, 32, 3, 189, 58, 148, 120, 62, 130, 37 

,5,189,58,205,32,3,189,58,148,120,62,130,37,5,189,5 8,205,32,3,18 

9,58,148 

340 DATA120, 62, 130, 37, 5, 189, 58, 205, 32, 3, 189, 58, 148, 204, 0,0, 195,0 

, 1,253, 62, 126, 189, 61, 122, 1B2, 62, 129, 129, 13, 39, 22, 129, 10, 39, 18, 12 

9,94,39,14,182,62,114,129,255,38,5,134,32,183,62,114,32,1,57,252 

,62,126,16,179,59,129,38,208,126,57,61,182,59,128,183,255,33 

350 DATA204, 0,0, 195, 0,1, 253, 62, 126, 189, 61, 122, 182, 62, 129, 129, 13, 

39,22,129,10,39,18,129,94,39,14,182,62,114,129,255,38,5,134,32,1 

83,62,114,32,1,57,252,62,126,16,179,59,129,38,208,182,59,128,183 

,255,33,204,0,0,195,0,1,253,62,126,189,61,122,182,62,129,129 

360 DATA13, 39, 22, 129, 10, 39, 18, 129, 94, 39, 14, 182, 62, 114, 129, 255, 38 

,5,134,32,183,62,114,32,1,57,252,62,126,16,179,62,107,38,208,182 

,62,117,183,255,33,204,0,0 

370 DATA195, 0,1, 253, 62, 126, 189, 61, 122, 182, 62, 129, 129, 13, 39, 22, 12 

9,10,39,18,129,94,39,14,182,62,114,129,255,38,5,134,32,183,62,11 

4,32,1,57,252,62,126,16,179,62,107,38,208,57 

380 DATA128, 5, 24, 26, 12, 2, 18, 14, 16, 4, 23, 13, 20, 7, 6, 15, 22, 29, 10, 8, 3 

,9,17,11,25,27,28,0,0,0,0,0,0,85,0,42,0,0,69,0,109,109,0,40,115, 

49,85,58,63,47,39,35,33,32,48,56,60,62,120,106,0,0,0,76 

390 END 




THE KING 

OF 

UTILITIES 

SUPER UTILITY PLUS 

"/ believe 

SUPER UTILITY or 

SUPER UTILITY PLUS 

should be present at 

every TRS-80 disk 

installation. " 

We didn't say this; Paul Wiener did in 80 
Microcomputing, Jan. '82. ..but we sure 
agree with him! 

You heard about it! You read about it (80 
Microcomputing). Now get the "cadillac" 
at a special price! 

Compatible with MOD I, and MOD III, and 
all the current operating systems! Copy 
files from any DOS to any DOS, MOD I or 
III, without converting! 

Zap 
Purge 
Format 

Special Format 
Dick Repair 
Memory 
Hie Utility 
Tape Copy 
Format without erase 
Disk Copy 
Special Disk Copy 
Configurable System 
MUCH MORE Mod I & Mod III on Same Disk 

For MOD I/III . . . $74.95 

NEW 

Back up copy NOW included 

Also Available: 

Super (Kilty Plus Tech. Manual . . . $14.99 

"Inside Super UtUty Plus" $19.99 



A Division of Breeze/QSD. Inc. *" 
1 1500 Stemmons Fwy.. Dallas, Texas 75229 
To order call toU free 1-800-527 7432 
For product information (214) 484-2976 



^See List of Advertisers on Page 451 
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The Spelling Bee Is Over 



Listen. We're going to let you in on an 
industry secret: It's not hard to make a good 
spelling checker. 

You see, although spelling checking is new 
for microcomputers, it's been around on big 
computers for years. And when you get past all 
the talk, most spelling checkers work the same 
way. They compare what you've written with a 
dictionary -and report the errors. 

So is there any difference? You bet: the 
dictionary, and the price. 



Who Checks The Checker? 

The hardest part of a spelling checker to 
make is the dictionary. It's hard to pick the right 
words— and spell every one of mem perfectly. 
That's why some popular spelling checkers don't 
even contain real dictionaries. They use formulas 
called 'hash tables." Which make a hash 
out of your spelling some of 
the time. 

Other spelling 
checkers "borrow" 
their words from 
printed dictionaries 
—or copy them 
from old word 
lists. Or give 
a programmer 
who can't spell 
"programmer" 
a chance to write his 
first dictionary. And 
as though all this 
wasn't bad enough, 
a lot of these 



-*•*?' 




companies want to charge you S 1 00, or S200 or 
even 1300! 

Random House to the Rescue 

The Random House ProofRcadcr is based 
on the famous Random House Dictionary. It is 
the result of decades of careful work. And it was 
adapted for computer spelling checking by 
professional editors, linguists and scholars. So you 
can depend on it. 

( )f course, our program is dam good, too. 
It's fast. It doesn't take up tcx> much disk space. It 
shows you the error and the sentence it's in. It 
lets you correct the mistake without reediting. 
And if you don't know how to spell a word, it 
suggests the spelling. It even corrects 
your correction. 

The Random House ProofRcader 
comes in sizes to fit all sy stems: 
20,000 words ( 55K), 32,000 
words ( 74K ), 50.000 words 
( 1 08K ) and 83,< )00 wi >rds 
( 180K). You can add your 
own words with a single 
keystroke. And it 
works with all CPM* 
IBM Personal 
Computer 8 , and 
TRS-80" Model 1/ III 
word processors.* 
How much does 
the Random 
House 
ProofRcader 
cost? Only S50.00. 
Why do we sell it 
for $50 when the 
others want 
up to 1300? 
>n't ask us. Ask them. 






The Random House 
Proof Reader $ 50 

.-65 

For orders or information, call 905*281 - lo.Vi. VISA. Master Card accepted Or write Random House- ProofRcader, Box 339-M, 
Tijcras, New Mexico 87059. IMca.se enclose M0 and specify your computer mcxlcl, disk size and memory. Dealer inquiries invited. 

• Rjmli .in House and lilt HOUM design arc registered trademark* ol Random I louse In. CP/M it a registered trademark of I >igital Research. Ini rRS-80 is j trademark . if Tjml\ « orporation 
IBM and IBM Personal Computer arc registered trademark* of International Hu-tness Machines < orp M cUOWy copyright B I9H2 Random House IlK Program and adxertiNeimnl 
copyright C I9H2 Aspen Software. Inc ITir I RS wi versions do not suggest correct spellings 
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Program Listing 2 



5 CLEAR2000, 14650 

7 M6$-"THIS STRING IS USED TO PASS THE TRANSMIT BUFFER INFORMATI 
ON FROM ASSEMBLY LANGUAGE TO THE BASIC MENU PROGRAM — IT IS ENT 
ERED AS 230 DUMMY CHARACTERS 1 1 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" 

10 CLS:INPUT"WPM";S:GOSUB570:CLS:K-PEEK(65313) :POKE15989 f K:S=K 
R 8:POKE15232 f S:RS$="599":R4=1536:DEFUSRl=15282:DEFUSR2=14653 
20 INPUT-YOUR CALL" ;CS$:CLS:GOSUB1220: PRINT-MESSAGE #1" ; :PRINT@6 
6,"";:INPUTM1$:CLS:GOSUB1220:PRINT"#2";!PRINT§66,"">:INPUTM2$:CL 
S:GOSUB1220 : PRINT"#3" ; : PRINT066 , " " ; : INPUTM3S: CLS:GOSUB1220: PRINT 
"#4"; :PRINT@66,""; : INPUTM4$:CLS:GOSUB1220: PRINT" #5" ; 
30 PRINTe66,"";:INPUTM5$:CLS:POKE15985,5:POKEl5986 r 32 
40 POKE16 001, 0:PRINTg256, "TRANSMIT MODE"; :GOSUB680: POKE15987 ,4: P 
OKE15988 F 0:POKE15983,5:POKE15984,32 
50 K=USR2(0) 

60 K=PEEK(15989) :POKE65313,K 
70 IF PEEK(16001)=10 GOTO750 
80 IF PEEK(16001)=13 GOTO410 
90 GOSUB670:POKE15 985,5:POKF.15986,32 

100 PRINT0265, "MESSAGE MENU" : PRINT: PRINT "CQ CALL QTH RIG 
OVER NAME RST 73 QRM ANS 12 3 4 
5 TEST DELAY SPEED" : INPUT"SELECT" ;A$ 

110 IFA$="CQ" THEN X$="CQ CQ CQ DE "+CS$+" X ":GOTO690 
120 IFA$="CALL" THEN XS=HCS+» "+HC$+" DE "+CS$4" KN ":GOTO690 
130 IFA$="QTH" THEN X$="QTH QTH ENTER YOUR QTH HERE !":GOTO690 
140 IFA$="RIG" THEN X$="RIG HR IS ENTER YOUR RIG HERE -":GOTO690 
150 IFA$="OVER" THEN X$="BK TO U "+HCS+" DE "+CS$+" KN ":GOTO690 
160 IFA$="NAME" THEN X$-"NAME IS ENTER YOUR NAME -":GOTO690 
170 IFA$="RST" THEN X$="RST RST "+RS$+" "+RS$+" - ":GOTO690 
180 IFA$="73" THEN X$="73 TO U AND URS "+HN$+" . HP TO WK U AGN S 
OON. DE "+CS$+" K ":GOTO6 90 
190 IFA$="QRM' 
0690 



THEN X$="QRM QRM PSE TRY AGN. DE "+CS$+" KN ":GOT 



200 
210 



IFA$="1" 
IFA$="2" 
220 IFA$="3" 
230 IFA$>="4" 
IFA$="5" 
IFA$="ANS 



240 
250 



THEN X$=M1$:GOTO6 90 
THEN X$-M2$:GOTO6 90 
THEN X$=M3$:GOTO690 
THEN X$=M4$:GOTO690 
THEN X$=M5S:GOTO6 90 
" THEN XS=HC$+" DE ' 



+CS$+" R R - OK ON LAST XMIT "+ 



HNS+" - ":GOTO690 

270 IFA$="SPEED" THEN GOSUB670: PRINT@256 , "NEW WPM" ;: INPUTS :GOSUB 

570:GOSUB670:GOTO40 

280 IFAS="DELAY" THEN GOSUB670 : PRINT@256 , "NEW FILTER DELAY"; :INP 

UTK:IFK<256 THEN POKE15242 ,K :GOSUB670:GOTO40 ELSE PRINT'VALUE TO 

O LARGE": FORK =1 TO 100:NEXTK:GOTO280 

290 IFA$="TEST" GOTO310 

300 GOSUB670:GOTO40 

310 X$="":FORKK=1TO30:FORJJ=1TO5 

320 K=RND(47)+40:IFK-41 THEN K-35 

330 IFK=42 THEN K=38 

340 IFK-43 THEN K=40 

350 IFK>59 AND K<63 THEN GOTO320 

360 X$=X$+CHR$(K) 

370 NEXTJJ 

380 X$-X$+" " 

390 NEXTKK 

400 A$="S":GOTO710 

410 CLS:PRINTe256, "RECEIVE MODE" :PRINTG0 , "" ; :POKEl5996, 

420 K«=USR1(0) :CLS:K=PEEK(15982)-26 

430 M7$=LEFT$(M6$,K) 

440 INPUT'BUFFER NUMBER (1-5)";K:0N K GOTO450,460 , 470 , 480 ,490 

450 M1$=M7$:GOTO500 

460 M2$=M7$:GOTO500 

470 M3$=M7$:GOTO500 

480 M4$=M7$:GOTO500 

490 M5$=M7$ 

500 IFPEEK (16003) =132 GOTO520 

510 HN$="":FORK=132TO PEEK (16003) : L=PEEK( 15872+K) :HN$-HN$+CHR$ (L 

):NEXTK:IF RIGHT$ (HN$,1) =" " THEN K=LEN (HN$) -1: HNS-LEFTS (HN$,K) 

520 IFPEEK(16015)=144 GOTO540 

530 HC$="":FORK=144TO PEEK(16015) : L=PEEK( 15872+K) :HC$=HC$+CHR$(L 

):NEXTK:IF RIGHT$ (HC$,1) =• " THEN K=LEN (HC$) -1 : HC$=LEFT$ (HCS,K) 

540 IFPEEK(16027)=156 GOTO560 

550 QT$="":FORK=156TO PEEK(16027) :L-PEEK (15872+K) :QT$-QT$+CHR$(L 

):NEXTK:IF RIGHT$ (QT$,1) =" " THEN K=LEN (QT$) -1 :QT$=LEFT$(QTS,K) 

560 CLS:POKE15985,5:POKE15986,32:GOTO40 

570 IFS<7.4 THEN S=150+31 . 25* (7 . 4-S) :GOTO660 

580 IFS<9.6 THEN S-115+15. 9091* ( 9.6-S) :GOTO660 

590 IFS<13 THEN S=85+8.8235* (13-S) :GOTO660 

600 IFS<16.8 THEN S=65+5 .2632* (16.8-S) :GOTO660 

610 IFS<22 THEN S=50+2. 8846* ( 22-S) :GOTO660 



Listing continues 




This Special Limited Edition Patkage will be in high 
demand as onl> 500 copies will be made 1 hev will be 
numbered I -500 and will be personally signed by the 
author. Kim Watt YOUR name will Ix- embedded in the 
program as the serial number The following is included 
with this SPFCIAI LIMITED PACKAGE 
1 ) SUPER CmUTV PIUS S r in CMD File Format. 
Both MOD I and III versions are included arid your 
NAME will be the serial numbei I his will NOT be a 
protected disk, and you may make as many BACKUPS 
as you wish The serial number is "HOI changeable 

21 TWO attractive SCI • SE binders 
Binder * 1 will lex lude 

Three manuals in LARGE format 18 ', 2 x I ! I 
la) SUPER UTILITY • Manual 

(b) INSIDER SUPER UTILITY by Paul Wiener 
foreward by Kim Watt 

(c) SUPER UTILITY TECH Manual by Kim Watt f- 
Pete Carr 

3) Binder *2 will include THE SOURCE CODL for 
SUPER UTIl ITV PUIS 

Yes the SOURCE CODE to tins MAJOR program will 
be available to 500 programmers This is FULLY 
commented by the author. Kim Watt and is a machine 
language programmer s dream come true 1 Alter 
reading this, your machine language programming skill 
should increase tremendously All of Kim's knowledge 
in ONE book.' All at your disposal and for YOUR use ' 

4) The license to USF Kim Watt's sub routines 

will be granted to those 500 registered owners 1 I hese 
500 ONLY will be able to apply all o( Kim's magk to 
THEIR programs No royalty fee necessary In other 
words. IMPROVE YOUR PROGRAMS! Take Kim s ideas 
and expand on them! Never has anything EVER been 
done like this before 1 hese 500 ONLY liave the right to 
use our subroutines This information is NOT being put 
in the public domain We are allowing these 500 to use 
our routines by buying our special package All copy 
rights and trademarks are retained by Breeze QSD. Inc 

5) SU* SE is NOT available Irom any dealer but ont\ 
directly through Breeze QSD. Inc Customers will be 
handled on a one-on one basis Confirmed orders will 
be pre registered and a matching card must be returned 
by purchaser for full support from Breeze QSD Inc We 
will know wfio each and even, owner is. so full support 
can be given We DO want you to sign and return our 
registration card for this support to commence, 
however. No exceptions will be made 

6) This is a very important step that we are taking arid 
only a select group can appreciate the value in a 
package like this. This is NOT for the general mass 
market It is a college education in machine language 
written by a recognized expert It IS SU" in CMD file 
form It is a license to use Kim Watt s subroutines llisan 
opportunity to vastly improve your product It is a 
collector s item, also I irnited. Indeed Last but not least 
it is expensive. On the surface only however, as this 
product will make you an expert programmer if that is 
what you want You can literally write a DOS from 
studying the code' It will also make you a member of an 
elite group that has access to Kim's knowledge and can 
USE that knowledge to YOUR benefit 

Source Code is FULLY Commented 

Price for the Super Utility Plus- 
Special Edition is 
$500 

Available later this year 

Call or wnte for more information 

•Credit to Kim Watt and Breeze QSD must be given in the 

program and in the documentation for sub routines used 

There is NO royalty fee to pay however 



A Division of Breeze QSD. inc. 

1 1500 Stemmons Fwy.. Dallas. Texas 75229 
To order call toll free 1-800 527 7432 

For product information (214) 484 2976 



- See List of Advertisers on Page 45 1 



80 Micro, December1982 • 207 




Derision Sricme Sol I ware 



OPERATIONS 


STATISTICAL 


ECOPAK 


RESEARCH 


PACKAGE 




LP 


REGRESS 


FUTURE VALUE 


DT NAM 


MULTI-REG 


ANNUITY 


NETWORK 


MATRIX 


EFFECTIVE i 


PERT 


FUTURE 


DEPR 


EOQ 


FORECASTING 


SALVAGE 


LOT SIZING 


MARKOV 


NET PRESENT 


FORECASTING 


OUEUE 


VALUE 


DECIDE 


SIMULATION 


DCF RATE OF 


MRP 




RETURN 


TRANSPORTATION 




TRS 


80' model land III 


APPLE II 




16 K- 


I Disk Drive 




-m 


mmum system requi 


ement 



$29.95 to 249 95 



OISCOUNTS 

for information 



(PLC ORDERS 



DECISION SCIENCE SOFTWARE 
865 Castle Ridge Road 
Austin, Texas 78746 

(SI2) J27-I463 MM 

^ 394 visa- 

'trademark of the Tandy Corp 






S^EMONEY 
BUY DIRECI 



o/ RADIO 
SHACK 

EQUIPMENT 




UP TO 20°/oOFF TRS 80™ SOFTWARE 



Similar Discounts On 
All TRS 80 v Equipment 



Model III ... s 1849 

l2dr-rs 232 26-' 066 



Daisy wheel 

Printer II a .-■•*. *1 589 



Line Printer VIII. s 499 



• "Profile" s 60 

fo< Mod III 26-1 S62) 

• "Scripsit" s 75 

iFor Mod III 26-1563) 



FREE PRICE LIST 

GSB Electronics 

Cherry Hill Mall 
Cherry Hill. NJ 08002 

^492 

TOLL FREE 
800-257-5225 

in NJ (609) 779-8877 

TM-TANDY CORP 



NEW PRODUCT RELEASE FROM 



WINN & HARRISON 



THE CHECK RECORDING SYSTEM 

MENU DRIVEN PROGRAMS USE SELF-EXPLANATORY SCREEN DISPLAYS 

EASY DATA ENTRY AND FAST RECONCILIATION 

STORES OVER 3,000 CHECKS ON A SINGLE MODEL III DISKETTE 

CLASSIFY CHECKS WITH UP TO 150 CLASSIFICATION CODES 

COMPLETE USER AND PROGRAMMER DOCUMENTATION 

REQUIRES MODEL I OR MODEL III, A8K, ONE DISK, PRINTER 



$29.95 



VISA C MASTERCARD WELCOME 
ADD S2.00 SHIP & HANDLE 
WV RESIDENTS ADD 5% S.T. 
MONEY BACK CUARANTEE 



WINN 4 HARRISON 
241 N. HILLS DR. 
NORTH HILLS, WV 26101 
(304) A28-7098 
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CONVERT YOUR SERIAL PRINTER TO PARALLEL 



The UPI serial printer interfaces allow an ASCII serial printer 
to be connected to the parallel printer port on TRS-80 
Models I, II and III. 

Software compatibility problems are totally eliminated because 
the TRS-80"Thinks that a parallel printer has been attached. 
No machine language driver needs to be loaded into high 
memory. VISACALC. SCRIPSIT. BASIC. FORTRAN, etc all 
work as if a parallel printer was in use. 

The UPI interfaces are completely self contained and ready 
to use. A 34 conductor cable and connector plugs onto the 
parallel printer port of the Model I expansion interface or 
onto the parallel printer port on the back of Models II and 
III. A DB25 socket mates with the cable from your serial 
printer. The UPI interfaces convert the parallel output of the 
TRS-80 printer port into serial data in both the RS232-C and 
20 MA. loop formats 



txi 



BINARY DEVICES 

Formerly SPEEDWAY ELECTRONICS 
11560 TIMBERLAKE LANE 
NOBLESVILLE. IN 46060 
(317) 842-5020 ^ 106 



TRS 80 is a trademark ol Tandv 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per word 

• Parity or no parity 

• ODD or EVEN parity 

NEW VARIABLE BAUD RATE MODELS 

Switch selectable from 110-9600 BAUD 

UPI-3VB for models I or III $149.95 

UPI-2VB for model II $149.95 

UPI-3VB-6 for model I or III with 6 ft. cable $159.95 

UPI-2VB-6for model II with 6 ft. cable $159.95 



Shipping and handling on U.S. orders. 



$4.00 



90 day warranty on all interfaces, ten day return privilege. 
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Listing continued 

620 IFS<27.2 THEN S=40+l . 9231* ( 27 .2-S) :GOTO660 

630 IFS<36 THEN S=30+1.1364* (36-S) :GOTO660 

640 IFS<54 THEN S=20+.5556* (54-S) :GOT066fl 

650 S=53:GOTO640 

660 JJ=INT(S/256) :KK=S-JJ*256: POKE15979, JJ:POKE15980 ,KK:K«=2*S: JJ 

=INT(K/256):KK=K-JJ*256:POKE15233,JJ:POKEl5234,KK:K=6.5*S:JJ«INT 

(K/256) :KK=K-JJ*256:POKEl523 5, JJ: POKE15236 ,KK: RETURN 

670 PRINTe256,STRING$(255," "): RETURN 

680 PRINT@0,STRING$(255," ") : PRINTgB , "" ; :PETURN 

690 GOSUB670:PRINTg256 r X$:PRINT?480,"S=SEND MESSAGE ";CHR$(94); 

"=MENU"; : INPUTA$:GOSUB6 80 

700 IFA$=CHRS(94) GOTO90 

710 IFA$="S" THEN GOSUB670 : PRINTG288 r X$; : K-LEN (X $) +32 : POKE15986 , 

K:GOTO40 

730 IF LEFT$(XS,3)="RST" THEN RS$-A$:X$="RST RST "+RS$+" "+RS$+" 

- ":GOTO6 90 /• 

740 GOSUB670:GOTO40 

750 POKE15985 , 5 : POKE15986,32 :GOSUB670 : PRINT§26 5 , "UPDATE MENU" :PR 
INT"C= ";HC$;:PRINT TAB(15)"N- " ;HN$:PRINT"F« ";FQS;:PRINT TAB(1 
5)"X-START= "; T0$: PRINT" ?= " >QT$:PRINT"S-SAVE" : INPUT"SELECT" ;X$ 
760 IFXS="C" THEN GOSUB670: PRINT§256 , "CALL=" ;HC$: INPUT'ENTER HIS 

CALL" ; HC$ : G0T07 50 
770 IFX$="N" THEN GOSUB670 : PRINT3256 , "NAME=" ;HN$: INPUT"ENTER HIS 

NAME";HN$:GOTO7 50 
780 IFX$="F" THEN GOSUB670 : PRINT§256 , "FREQ-" ;FQ$: INPUT'ENTER THE 

FREQ" ; FQ$: G0T07 50 
790 IFX5-"X" THEN GOSUB670 : PRINT8256 , "START TIME-" ;T0$: INPUT" ENT 
ER THE START TIME" ;T0§:GOTO7 50 

800 IFXS-"/" OR X$="?" THEN GOSUB670 : PRINT§256 ,"REMARKS=" ;QT$: IN 
PUT" ENTER REMARKS <QTH) " ;QT$:GOTO7 50 
810 IFX$=CHR$(94) GOTO90 
830 IFX$<>"S" THEN GOSUB670:GOTO40 

840 GOSUB670:PRINTe256, "ENTER THE STOP TIME"; x INPUTT1$:GOSUB670 
850 PRINT§265,"FILE MENU" : PRINT" T-TAPE ALL FILES" x PRINT" S-SAVE C 
URRENT FILE TO RAM" : PRI NT "V« VERIFY TAPE DATA"* PRINT "R-RE VIEW FIL 
ES":PRINT"Q»RETURN TO FILE DATA" : INPUT"SELECT" ;X$ 
860 IFX$="Q" GOTO750 
870 IFX$="T" GOTO920 
880 IFX$="S" GOTO950 
890 IFXS="V" GOTO980 
900 IFXS="R" GOTO1050 
910 GOSUB670:GOTO40 

920 GOSUB670:PRINT§256,"SET CASSETTE TO RECORD" : INPUT'PRESS ENTE 
R";A$:OPEN "O" , #-1, "FILE" 

930 FORKK=1536TO3071: PRINT #-1 ,PEEK (KK) :NEXT 
940 CLOSE #-l:GOTO750 

950 X$="<"+T0$+"%"+Tl$+"%"+FQ$+"%"+HC$+"%"+HN$+"%"+QT$+">":AL»30 
71-R4:LS-LEN(X$) : IFLS>AL THEN GOSUB670 : PRINT@256 , "NO ROOM LEFTI" 
: FORKK=1TO3000 : NEXTKK : GOT07 50 

960 FORKK=l TO LS: A$-MID$(X$,KK,1) : JJ=ASC(A$) : POKE R4-1+KK, JJ: NE 
XTKK 

970 R4-R4+LS:HC$="" :HN$="" :QT$-"" :T0$=T1$:RS$«="599" :GOTO750 
980 ON ERROR GOTO1030:GOSUB670: PRI NT @2 5 6 ,"SET CASSETTE TO PLAY": 
INPUT"PRESS ENTER" ;A$: OPEN "I " , #-1 , "FILE" 
990 ON ERROR GOTO1040 :FORKK = 1536TO3071 : INPUT #-1 ,K: IFKOPEEK (KK) 

THEN PRINT" ERROR" 
1000 NEXTKK: INPUT"CHECK COMPLETE PRESS ENTER" :A$ 

1010 INPUT'CLEAR FILE (Y/N)";A$:IF AS-"Y" THEN R4=1536: FORKK-153 
6 TO 3071: POKE KK,0:NEXTKK 
1020 CLOSE #-l:GOTO750 

1030 PRINT"ERROR":FORKK=1TO3000:NEXT:GOTO750 
1040 PRI NT" ERROR": NEXTKK 
1050 W2=1536 

1060 KK-0:F0$-"":F1$="":F2S="":F3$="":F4$-"":F5$«" B 
1070 JJ=PEEK(W2) :IFJJ»62 GOTO1180 
1080 IFJJ-37 THEN KK=KK+1 :GOTO1160 
1090 IFJJ=»60 GOTO1160 
1100 IFKK«=0 THEN F0$-F0$+CHR$(JJ) 
1110 IFKK=1 THEN F1$»F1?+CHR$ ( JJ) 
1120 IFKK=2 THEN F2$=F2$+CHR$ ( JJ) 
1130 IFKK-3 THEN F3$»F3$+CHR$ (JJ) 
1140 IFKK=4 THEN F4$=F4$+CHR$( JJ) 
1150 IFKK-5 THEN F5$=F5$+CHR$ ( JJ) 
1160 W2-W2+1:IFW2>R4 GOTO750 
1170 GOTO1070 

1180 W2=W2+l:GOSUB670:PRINTe266,"FILE REVIEW :PRINT"C=»" ?F3$; : PRI 
NT TAB(15) "N=";F4$:PRINT"F=";F2$;:PRINT TAB(15) "X=";F0$;" ";F1 
S:PRINT"7=";F5$:INPUT"Q=QUIT P=PROCEED";X$ 
1190 IFX$="Q" GOTO750 
1200 IFX$="P" GOTO1060 
1210 GOTO1180 

1220 PRINTg32.STRING$(32,"-"):PRINTe256,STRING$(32 f "-"):PRINTe0 f 
" " ; : RETURN 
1 230 END 
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THE MOST POWERFUL, FLEXIBLE 

DISK MAILING SYSTEM FOR THE TRS80 

'SUPPORTS 65,000 NAMES* 

PowerMAIL is a highly sophisticated 
mass mailing system designed to run 
under all of the popular DOS's currently 
available for the Mod I or III. The program 
is written entirely in machine language for 
maximum operation speed and occupies 
only 4K of the available RAM in your 
computer. There are no slow' periods 
when PowerMAIL is running. New 
features have been added to the program 
that others have always lacked. You now 
have the ability to keep track of mailings 
using the 24 'flags' that are incorporated 
into the PowerMAIL program. The 
PowerMAIL system will handle a file up to 
8 megabytes, or 65535 names, whichever 
is smaller. The program will run in as little 
as 32K and one disk drive, although 48K 
and 2 drives are desirable. The program 
will also sort the entire maximum file size 
and open up to 1 68 files simultaneously 
during the process Author Kim Watt 

For MOD 1/IH...$ 99.95 

Hundreds of Satisfied 
Users... Scriplus 3.0 

Scriplus is a modification to 
Scrip sit*'" which enables you to take 
advantage of the special functions, 
features, and print formats of your 
printer while your document is being 
printed. Allows you to: 

change ■>Mp«nd«d print 

changa no. of dtrxttri par inch 
or unffgrlir>g in aid- 1 in*' 

Features 

* Compatible with all current DOS's 1 1 ot III • 

a Modifies ALL versions of SCRIPSfT" 

a Allows usage of MOO I version on MOO II 

a Allows .MOO III versions to be BACKLD UP lor your 

protectran. 
a Files can be killed loaded merged, ot chained from 

the Scriplus directory 
a Scnplus supplies an ALPHABETIZE D d i rectory with 

FREE space shown, 
a EMDreturnsto DOS READY instead of reboot] ng. 
a Printer can be stopped for insertion of text or forms 

align merit Inserted text can be edited prior to 

resumption of print ng. 
a Specifically wntten for the MX-80 but will work with 

any pnnter that accepts CHRS codes for control 
a Optionally select line feed after carnage return 

For MOD I/III . . . $39.95 



A DiL-ision of Breeze QSD. Inc "' 378 
1 1 500 Stemmons Fwy.. Dallas. Texas 75229 
To order call toll free 1-800 527 7432 

For product information (214) 484 2976 
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REVIEW 



Pascal-80 



by J. B. Harrell, III 



P 



ascal-80 provides a serious version of the 
Pascal language to TRS-80 users. You might 
find its structured programming rewarding. 



• • • • 

Pascal-80 

New Classics Software 

239 Fox Hill Road 

Denville, NJ 07834 

Models 1 and III, 48K RAM, 1 disk 

drive 

$99 disk 

Pascal-80 is not "just another com- 
piler" but an honest attempt to provide 
TRS-80 users with a meaningful system 
tor i his language. I( is a monitor sys- 
tem that provides an interface to the 
disk-file structure, a text editor, the 
Pascal compiler, and the Pascal inter- 
preter. The system comes on a TDOS 
(tiny version of DOSPLUS) system 
disk in single-density, 35-track format 
for Model I users. 

Users are not limited to this operat- 
ing system; they can use Pascal-80 with 
any of the second-generation operating 
systems, such as NEWDOS80. 

Operation 

The system is easy to operate; you 
type the command Pascal from the 
DOS-ready prompt and follow the dis- 
played command menu. 

All the system functions of Pas- 
cal-80 are available from the monitor, 
making it easy to save and load files, 
compile, execute, and edit source text 
from the monitor. 
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The compiler /editor system uses an 
in-memory text buffer with 23K of 
memory space that holds about 1,100 
lines of code. The amount of source 
code that can be stored increases with 
use of text-compression techniques. 
Mr. Blank (one of the program 's modi- 
fiers) has provided an Include eompilc- 
time option that lets you assemble a 
library of routines on the disk and 
compile only those routines you need 
by including them in your source pro- 
gram. This lets you create source pro- 
grams of a size limited only by your 
system's memory capacity. 

The in-memory compile feature also 
accounts for the compiler's incredible 
speed. When timed on a Model I run- 
ning at standard speed (1.77 MHz), I 
got compile rates averaging 1 ,000 lines 
per minute when listing to the video 
screen and 1 ,500 lines per minute using 
the NOLIST option. 

The system has some nice features 
available from the monitor to aid the 
user: The W command lets you write 
the compiled P-code to disk in a named 
file, and the X command lets you exe- 
cute this compiled code directly from 
disk. This allows you to compile 
lengthy programs once in the final ver- 
sion and then run them directly with- 
out compilation delays. In addition, 
when executing the compiled code 
from the disk, you gain an additional 
9K of memory, as the whole system, 



except the P-code interpreter, is over- 
layed by the compiled object code. 

Pascal-80 F.ditor 

The Pascal-80 system has a full- 
screen editor that you can invoke from 
the monitor. Text displays on the video 
screen in a moving window of 15-line 
groups. By pressing the break key, the 
editor command menu displays at the 
bottom of the screen. 

The editor uses a blinking underline 
character (the normal cursor character) 
that moves by pressing the arrow keys. 
Unlike many text editors, each line is a 
separate entity and cannot be extended 
past 64 characters. The text lines are 
stored in the text workspace only after 
pressing enter. This includes updating 
any changes made to the line after it is 
originally typed. As with all the keys, 
the arrow keys auto-repeat to move the 
cursor as far as you want. If you try to 
pass the upper or lower boundaries o\~ 
the video screen, it will scroll in that di- 
rection for as long as you press the re- 
spective arrow key. 

Cursor movement using the arrow 
keys is usually nondestructive; how- 
ever, you can correct errors by back- 
spacing over them using shift, left 
arrow. Or, you can use the text-over- 
write mode and just type over the line. 
Remember, you must press enter to 
save any line changes. 

The editor command menu gives a 
listing of the commands for editing the 
source program. Invoke each com- 
mand by using the control key, shift, 
down arrow. This is a change from the 
original Pascal-80 that used break to 

preface all editor commands, Break 

now writes an editor command menu 
on the bottom line of the screen where 



it remains until you exit the editor or 
press clear. 

The workspace stores the text using 
a text -compression algorithm that en- 
codes one or more blank spaces into 
one byte. This produces a significant 
file-size reduction, but this file format 
is not compatible with any text editor 
currently in use. The logical length of 
each line, including encoded blanks, is 
always 64 bytes and the individual lines 
are not separated by an end-of-line 
character (ODH). Even though the re- 
vised editor available with Pascal-80 
includes many of the necessary func- 
tions to efficiently edit text, it is still 
convenient to use a full text editor in 
many cases. Mr. Blank has provided 
conversion programs to convert text 
files to ASCII files and vice-versa. 

Pascal-80 Compiler 

The next major component in the 
Pascal-80 system is the compiler. This 
compiler generates a pseudo-code 
(commonly called a P-code) output in 
a one-pass compilation process. The 
P-code must be interpreted in order to 
be meaningful. The concept is based on 
compilers being able to operate on dif- 
ferent machines and produce code that 
was transportable from one installa- 
tion to the next. The P-code generated 
by Pascal-80 is not true P-code, but a 
compressed output requiring less space. 

There are six compiler options to di- 
vert compiler output from the video 
screen to the line printer and to control 
information regarding the stack space, 
symbol table space, and actual code 
generated. The compiler output can be 
suppressed except for error messages. 
Two options allow all variables to be 
preset to zero upon allocation and per- 
form a verify operation after disk file 
writes. 

The compiler implements a TRS-80 
version of the standard Pascal with 
some limitations and extensions. The 
reference manual with Pascal-80 does 
not describe the Pascal language and I 
suggest you buy Programming in Pas- 
cal by Peter Grogono (Revised Edi- 
tion, Reading, MA Addison-Wesley, 
1980) as a tutorial on the standard lan- 
guage. The following standard Pascal 
functions are not currently implement- 
ed in Pascal-80: 

• Variant records, which record defi- 
nitions that use the Case. . .Of variant 
structure to define multiple structures 
on the same data record. 

• The With. . .Do statement. 

• Pointer variables, including the New 
and Dispose statements. 

• File window (buffer) variables, in- 

^See List of Advertisers on Page 451 
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'I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BASIC 
is spent 
inserting 
my diskette. 

SCOTT ADAMS - PRES. QFADVENTUHl 



Reduce your programming time significantly with Snappware's EXTENDED 
BASIC. The program is written entirely in machine language for super fast 
execution and is fully integrated into the TRSDOS* BASIC interpreter, re- 
quiring no user memory. Here are just some of the ways EXTENDED 
BASIC can make your programming task easier: 

• Quick way to recover BASIC program following a New, System 
or Accidental re-boot. 

• Single character abbreviations for the most frequently used 
commands. 

• Six single key stroke commands to list the first, last, previous, 
next or current program line. Even edit current line. 

• A powerful cross-reference facility with output to display 
and/or printer. 

• Ability to trace a variable through the gode. 

• Determine easily if a variable is in use. 

• Permits programmer to display and/or print the value of any or all 
program variables. 

• Identifies the variable type for all variables. 

• Lists each element of any array separately. 

• Program line renumbering facilities allowing for specification of 
an upper limit of the block of lines to be renumbered, relocation 
of renumbered blocks of code and duplication of blocks of code. 

• Cross reference facility for key words and character strings including 
global replacement of key works. 



ing extraneous information 

• Merge lines. 

• Deletes statements that could not be executed. 

If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 

MODEL II $200.00 

"TRSDOS™ Tandy Corporation MODEL III $125.00 
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Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513) 891-4496 
3719 Mantell 
Cinti., Ohio 45236 
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MODEL 3* 
CHARACTERS 

for Model 1* and LNW-80" 



Kit includes character genera- 
tor with Model 3 like char- 
acters and lower case letters 
with true descenders, software 
allows access to special char- 
acters in a manner identical 
to Model 3 from BASIC. 
Two alternate character sets 
that are software selectable in 
LNW and hardware selectable 
in MODEL 1. 



KT-1 for LNW-80 69.95 

KT-1 A for Model 1 69.95 

Assembled & tested add 15.00 

RS232 Board provides switches and 
Baud Rate Generator for LNW-80 

BD-3 12.95 

Complex Sound Generator Board for 

any 80 

BD-5 15.95 



THE MAINE SOFTWARE LIBRARY 
P.O. BOX 197 

STANDISH. ME 04084 ^% 



"Model 1 and Model 3 are products ot Hadio Shac 
LNW-80 is .1 product ot LNW Research 



■■■■TRS-80- Model III I *—^m 

WOBOS" I 

W O 

Basic Operating System 

WOBOS I is a menu driven, prestructured program in BASIC "wit 
provides access to over 30 ut*ty functions during development or 
actual use of a program. Its unique layout aiows you to develop 
your programs within a well organized environment that provides 
a very strung foundation to buad upon You always had to start 
from scratch before but now. after loading WOBOS I. you'll start 
with over 11 K ot subroutines and system utilities Imagvie what 
this can do tor your productivity' WOBOS I is not an accessory 
to your program, ft actuafly becomes YOUR programf 




* II win add muKltrequency SOUNO to your TOS 80 

* N w* standardize your writing and save you many hours 
of debugging and rewriting utility functions 

* II wiM help you structure YOUR OWN programs 



>*3C MODCLI"! DISK 



CC1021 I CD 1031 



CCW22 I C01O32 



DEMO TAPE SK> FULLY REFUNOABLE 
ON QUALITY CASSETTE a MANUAL 



ORDER PHONE 

CS03) 648-4928 



VfSA' MoikwCaw 



*35 



SEN0 CHECK. MONEY OMOER OR NUMBER ANO 
EXPIRATION DATE OF YOUR CREDIT CARO TO 

WO "* 179 

8640 SW 173 AVENUE BEAVERTON. OREGON S7O07 
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I inv Pascal 
Test No. Benchmark Test Pascal-80 Disk Basic Fortran IV PC ode Z80 



I FOR IX) IOOP 0.503ms 1.872ms 0.07 Ims 0.942ms 0.444ms 



A 1 .0 



0.885ms 10.582ms 0.549ms 
|0.2l4msx 0.289msx 



3 IX = I 



0.460ms 3.192ms 0.0|9ms 0.249ms 0.107ms 



4 A -At 1.0 4.084ms 14.191ms 3.194ms 

I2.454msx 0.904msx 



5 


IX IX • 1 


0.956ms 


4.723ms 


0.039ms 


0.557ms 


0.162ms 


6 


IARRAY(I) 


2.743ms 


11.142ms 


0.066ms 


0.456ms 


0.213ms 


~ 


J=KxL 


1 .937ms 


6.041ms 


0.582ms 


0.804ms 


0.517ms 



8 A = BxC 9.979ms 11.206ms 5.869ms 

6.438ms\ 1.686ms\ 



9 


POKE While Oui 


l.24sec 


7.24sec 


O.I22sec i 


I.33sec 


0.70sec 


10 


SFT While Oui 


9.47scc 


44.53sec 





17.75sec 


6.97sec 



Table I. Benchmark c 'omparisons. The lor. . . Do loop benchmark lesi was limed for 10,000 
executions oj the loop ami the nines displayed arc the avenue values for one execution oj the 
loop. Inch oj the benchmark times are listed m milliseconds, unless otherwise noted. I or each 
oj tests 2-8, the statement listed was timed for II). (MM) executions m a For. . . Do loop and the 
average execution time for the statement is calculated from the difference in execution times foi 
the For. Do loop with and without the statement. The tests were run m single- and double 
precision floating-point arithmetic using Basic and Ionian to demonstrate the speed difference 
m the two arithmetic modes, Puscul-SO uses only the double-precision (14 digits) mode. 



I he time listed is for execution ol" the statement using single precision floating point 

values. 

This method executed so last thai it was necessary to time the execution of the program 

lor an average over I(X) executions. 



eluding the Get and Put proeedures. 

• The proeedures Paek and Unpaek 
(all structures are already based on al- 
location on byte boundaries). 

• The Page procedure (but Write 
(LP,CHR(12)) is a good substitute). 

• File structures (i.e., Array of File). 
Sets are limited to 256 members, and 

if numeric, the set members must be in 
the range of 0-255. The identifier of a 
procedure or a function cannot be 
passed as a parameter to another pro- 



cedure or function. No expression 
passed as a value parameter can exceed 
510 bytes unless passed as a VAR pa- 
rameter. Integer variables used to ref- 
erence array elements in a record must 
be global variables. Local variables 
will not work. 

The character [ can be replaced with 
(. and ] replaced with .) on the Model I. 
The Model III has these characters and 
generates them on the display. Even 
though the Model I user will see the 
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characters as up arrow and left arrow 
respectively, these characters will still 
compile and print correctly. Spaces are 
significant in some isolated Pascal-80 
situations where they would not be sig- 
nificant in standard Pascal. Mr. Blank 
is currently working on a release to im- 
plement these features. 

Many extensions have been added to 
this newer version of Pascal-80 and are 
listed below. 

• Arrays of characters can now be 
printed with a single statement. 

• The Read and Write procedures can 
now be used with nontext files in place 
of the Get and Put procedures. 

• When using string constants in as- 
signment statements and in compari- 
sons with character arrays, the con- 
stant on the right can be shorter than 
the item on the left and will be padded 
with blanks as necessary. If String is 
type ARRAY[1 . . 10] OF CHAR then 
STRING: = 'NAME' is valid and 
STRINO'NA' is True. (The right ar- 
gument must have at least two charac- 
ters to be a string and not a CHAR.) 

• PROC and FUNC are abbrevia- 
tions for the keywords procedure and 
function. 

• Predefined constants are MININT 
(-32,768), MAXINT (32,767), PI, 
true, and false. 

• Real variables have 14 digits of pre- 
cision and occupy eight bytes. The data 
type REAL6 is provided if this much 
significance is not needed and occupies 
four bytes. You save no time as all cal- 
culations are done in double precision. 
REAL6 variables cannot be passed to a 
procedure or function as a value pa- 
rameter unless they are members of an 
array or record. 

• No files need be declared in the pro- 
gram header. In addition, the program 
name is optional. There are three de- 
fault files (INPUT, OUTPUT, LP) 
that are declared as File of Text. 

The following procedures have been 
added to the standard Pascal proce- 
dures/functions: 

• Call (address, value) — a type integer 
function that places the eight-bit value 
in the A register and calls the routine 
located at address. The eight-bit value 
in the A register on return is the func- 
tion value. 

• Close — closes disk files 

• CLS — clears the screen 

• EX (real-expression) — a type integer 
function that returns the exponent val- 
ue of the real -expression. 

• FP (real-expression) — a type real 
function that returns the mantissa of the 
real-expression as its function value. 

• INKEY— a function returning the 

s See List of Advertisers on Page 45 1 
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I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BUILT 
FUNCTIONS is 
spent inserting 
my diskette." 

SCOTT ADAMS - PRES. OF ADVENTURE INTL 



Snappware's EXTENDED BUILT IN FUNCTIONS is a collection of much 
needed additions to the TRSDOS* BASIC interpreter which greatly ex- 
tends its convenience and utility. The following features become part of 
your BASIC language and provide the enhancements without requiring 
any additional memory. The most important component of EXTENDED 
BUILT IN FUNCTIONS is an in-memory sort routine, guaranteed to be the 
fastest general purpose in-memory sort on the market. Along with this 
you also receive other EXTENDED BUILT IN FUNCTIONS. Here is a 
sampling: 

SRT— Sorts one or more arrays into a specified sequence 
FMT— Arranges data into a string variable as with PRINT USING 
PDAT/UDATS— Permits user to do arithmetic on dates. 
PKS/UPKS — Compresses strings to save disk space. 
ETIMS— Shows the difference between two times. 
CLEAR— Specifies the number of file blocks to be allocated when 
you specify high memory and string space. 
DELETE— Allows you to dynamically remove portions of a BASIC 
program. 

In addition to these, there are functions unique to Model II and to Model 

III. The exclusives to Model II are long error messages and PEEK/POKE. 

The exclusives to Model III are: 

SWAP— Supports exchange of variables with a single statement 

HEX$— Converts numbers to hexadecimal strings. 

RESTORE— Allows you to set READ pointer to location of choice. 

If you consider your programming time to be worth money, call us and let 

us show you how to get more of it. 

MODEL II $100.00 

MODEL III $ 75.00 



"TRSDOS™ Tandy Corporation 
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Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 



Cinti., Ohio 45236 
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value of the keyboard at the call in 
CHAR format. This function is identi- 
cal to the Basic INKEYS function. 

• MEM — an integer function that re- 
turns a value corresponding to the 
amount of memory remaining. 

• PEEK (address) — an integer func- 
tion that returns the eight-bit value 
from memory at address. 

• POKE (address, value) — normally, 
this is a procedure to place the eight-bit 
value at the address specified; how- 
ever, the procedure has been extended. 
The address and value parameters are 
interpreted as the x and y coordinates 
of the graphic pixel, and if address is in 
the range of 0-127, then a Set opera- 
tion is performed. If address ranges 
from 128-255, then a Reset is per- 
formed, and if address is in the range 
of 256 to 383, then a Point is per- 
formed with the result left in location 
21458 that can be accessed with a 
PEEK (0 if the point is off and nonzero 
otherwise). 

• Seek (expression, file name) — posi- 
tions the specified file name to the rec- 
ord in the file pointed to by the integer 
value of expression. 

A compile-time function is recog- 
nized to let you include source code 
from a disk file in the program current- 



ly being compiled. This is done by plac- 
ing the compiler command (*$ file 
name *) in the source program where 
the included code is to be inserted from 
the disk. This is a powerful addition to 
the original Pascal-80. The Case state- 
ment has two extensions from standard 
Pascal. An optional Else clause will be 
executed if no other case condition is 
satisfied, and if no satisfied case condi- 
tion and no Else clause exists, execu- 
tion passes to the next statement with- 
out generating an error message. 

Both integer and real values are dis- 
played using the same format descrip- 
tors, for example, Write (expression: 
fieldwidth:digits). A field width of 
zero produces a display in the default 
format for the displayed expression 
type. Similarly, a field width of - 1 
produces the display of the expression 
in scientific notation. 

In addition to the functions specified 
as part of the standard Pascal language 
and the extensions just covered, Mr. 
Blank has added the functions for ran- 
dom numbers. The Basic functions of 
RND(O) and RND(number) are coded 
in Pascal to provide linkage to the run- 
time package and are stored on the sys- 
tem disk so they can be included in any 
program. The POKE command ac- 



For TRS-80 Model I & HI Users 

STOP 
DISK CRASHES 

We are proud to announce a modification 
that protects your diskettes against power 
failure while they are in the drives. 
Your data will be safe without diskette 
removal... so leave 'em in! 

This small PC board is simple to install (four 
solder connections on mod I only). Requires 
absoloutely no software changes! One year 
warranty. 

MODEL I equipped with Radio Shack. Shugart or Tandon drives ... $29.95 
MODEL HI Protects internal drives only $34.95 

Send check or mo to INTEGRATED DEVICES. INC. +Sl 50 PiH 

PO. Box 8385 
Haledon. NJ 07538 



MC & VISA customers please include card no., eip. date, and signature 
Or call our 24 hour order line : 201 -956 8496 
Sorry, no COO orders. 

Nl residents add 5% sales ta>. 
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cesses the graphic capability of the 
TRS-80. 

Pascal-80 provides an additional 
source-code procedure (GOTOXY) on 
disk to let you position the video sys- 
tem cursor to any screen location. The 
call GOTOXY (horizontal-pos,verti- 
cal-pos) specifies the cursor's location. 

Additional Features 

The Pascal-80 master disk contains 
the compiler system and several other 
files. These files contain the Pascal 
source code for graphics, random- 
number, and GOTOXY linkages, plus 
several demonstration Pascal pro- 
grams. Each program is designed to il- 
lustrate a feature of the Pascal 
language. 

In addition to the demonstration 
programs, there are two utilities to 
convert Pascal-80 text files to ASCII 
character files (ASCII /CM D) and to 
convert from character format files to 
text format (TEXT/CMD). The 
ASCII files can be used with almost 
any word processor. I have had no 
problem using Newscript to read the 
files, but Electric Pencil needs a OOH 
byte at the current end-of-file prior to 
reading it with Pencil. 

The two remaining files (AU- 
THOR/SRC and AUTHCODE/ 
CMD) allow you to write an applica- 
tion program in Pascal, compile it and 
sell it as a CMD file that executes 
directly from the disk operating system 
command level. New Classics Software 
grants a license to original registered 
owners of Pascal-80 to distribute pro- 
grams compiled by Pascal-80, provid- 
ed you meet the requirements specified 
in the user's manual. A minimal pro- 
gram (BEGIN END.) compiled and 
converted to a CMD file requires nine 
granules of disk space due to the 
P -code's interpreter. 

Pascal -80's Performance 

I performed benchmark compari- 
sons using similar programs written in 
Pascal-80, Disk Basic, and Fortran. 
Table 1 reports the results of the com- 
parisons. The first eight tests were con- 
ducted using a simple For-loop exe- 
cuted 10,000 times. After determining 
the time for the For-loop, the times 
for each of the remaining tests were 
calculated. Test number 9 is a simple 
For-loop to white out the video 
screen by POKEing the value 191 
(BFH) from locations 15360 to 16383. 
Test number 10 is a nested For-loop 
to white out the video screen by use of 
the Set(x.y) command. 

Pascal-80's performance is out- 



standing considering the interpretive 
nature of its execution. From observ- 
ing the data in test 8 (and similar data 
for the computation A = B + C), it is 
obvious that the 14-digit precision of 
Pascal-80's floating-point arithmetic 
can make the program almost as slow 
as an identical Basic program if using 
extensive floating-point arithmetic. 
However, the converse statement that 
single-precision Basic can run faster is 
not necessarily true and you'll have to 
use many floating-point calculations to 
overcome the strength of the compiled 
source program. 

The data in tests two and four show 
that the Basic times are only slightly 
different and both single- and double- 
precision calculations are significantly 
slower than the corresponding double- 
precision statement executed in Pas- 
cal-80. This is because Basic must 
interpret each component of each 
statement every time it is executed and 
each constant must be converted from 
character format to binary every time 
encountered. Basic is spending most of 
its time in the conversion routines. 

The initial benchmark comparison 
yielded a surprise when test 10 was 
timed. Pascal-80 was slower than Basic 
for the screen white-out using the Set 
command. This was due to the addi- 
tion of the graphics commands as an 
afterthought and the use of Pascal-80 
as a software linkage to these high-per- 
formance routines. I immediately re- 
ceived an upgraded system implement- 
ing these commands as a special option 
of the POKE statement. 

The comparison to Tiny Pascal was 
included to demonstrate that the far 
more complex implementation of Pas- 
cal-80 does not suffer from a slow- 
down caused by size growth. Remem- 
ber, Tiny Pascal is only a very limited 
subset of the total language. 

Conclusion 

I have tried to portray Pascal-80 as 
the first real attempt to provide useful 
implementation of TRS-80 Pascal for a 
reasonable price. You should be using 
a Z80 compiler such as Fortran if speed 
is your major objective. But if ease in 
programming using this well-struc- 
tured language is your objective, then 
Pascal-80 is perfect. 

The ability to write, edit, compile, 
and debug your program in a friendly, 
interactive environment is a great in- 
structional tool.B 

John Harrell can be reached at 30 
Keklico Court West, Charleston, SC 
29408. 
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I BOUGHT IT" 

My biggest loss 
of programming 
time using 
Snappware's 
AUTOMAP and 
AUTOFILE is 
spent inserting 
my diskette." 

SCOTT ADAMS - PRES OF ADVENTURE INTL 



When working with direct files or creating a formatted screen, Autofile 
and Automap are indispensible aids. 

Autofile is designed to automate for the BASIC programmer the task of 
moving data elements to and from a direct file. Previously, this was a 
time consuming chore because the FIELDed variables may not be directly 
referenced by user logic. The FIELD statement was eliminated, thereby 
relieving you of the guessing game as to where the FIELDed variable is. 
In addition, the LSET and the CVx functions are performed automatically. 
The software, when installed/becomes part of your BASIC interpreter 
providing the enhancements without additional memory 

Automap is designed to automate for the BASIC programmer the task of 
presenting information on the video display and accepting information 
from the keyboard operator. The software consists of two main compo- 
nents: the OFF-LINE COMPONENT used to describe to the system the 
screen formats and the ON-LINE COMPONENT from within your BASIC 
program to initialize a screen, send data to the video display and receive 
data from the keyboard operator. This facility when installed, becomes 
part of your BASIC interpreter 

Both products complement one another and, if used in conjunction, can 
save a significant amount of programming time. 

If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 



AutomapMODEL II 
MODEL III 

Autofile MODEL II 
MODEL III 
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$100.00 

$ 75.00 

$ 75.00 

$ 60.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell 
Cinti., Ohio 45236 



■ See List ol Advertisers on Page 451 
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TUTORIAL 



TRS-80 Tongues 



by Robert Nicholas and Philip Martel 



c 



an't decide which language to use? Here's a 
simple temperature conversion program in six: 
Basic, Fortran, Cobol, Pascal, APL, and Forth. 



Why buy another language when you 
already have Basic in your TRS-80? It 
all depends on what you want your pro- 
grams to do. Let's consider six lan- 
guages from the perspective of one sim- 
ple problem — a Fahrenheit-to-Celsius 
conversion. The examples will give you 
a feel for the languages' similarities and 
differences. 

Basic 

Nearly every home computer comes 
with Basic (beginners' all-purpose sym- 



bolic instruction code) built-in. The av- 
erage newcomer to computing can sit 
down with an introductory manual and 
begin writing simple programs in Basic 
within a few hours. Power! 

Basic is rather forgiving, and more or 
less conversational. While the more 
powerful commands of a modern ex- 
tended Basic appear strange, the core 
commands of the language are everyday 
words: GOTO, Return, If, Then, Else, 
And, Or, Let, Input, Print, Random, 
Read, Write, Run, Stop, New, + , - , * 



10 


REM BASIC PROGRAM TO 


CONVERT 


FAHRENHEIT 


TO 


CELSIUS 




20 


REM 


BOB NICHOLAS 












30 


REM ENTERING 


A VALUE 


OF -999S 


.99 


ENDS THE 


PROGRAM 




40 


CLS 
















50 


PRINTS 256, 


•DEGREES 


FAHRENHEIT ' 


; 








60 


INPUT F 
















70 


IF P - -9999 


.99 THEN 


END 












80 


CLS 
















90 


C - (F - 32) 


* 5/9 














100 PRINTS 384, 


F; " DEGREES FAHRENHEIT ■ 


■; 


C; " 


DEGREES 


CELSIUS" 
















110 GOTO 50 




















Program Listing I. 


Bask 


l ersion 









(multiply), and / (divide). 

For instance, look at Program List- 
ing 1. This routine accepts a temper- 
ature in Fahrenheit degrees and con- 
verts it to Celsius via the formula C = 
5/9 (F -32). 

The first three program lines are re- 
mark statements, indicated by the Basic 
command REM. The programmer uses 
these lines as notes — they don't mean 
anything to the computer. 

The CLS in line 40 tells the computer 
to clear the screen. 

Line 50 tells the computer to print the 
phrase "Degrees Fahrenheit" at posi- 
tion 256 on the screen. (The TRS-80 has 
1,024 positions on the screen, broken 
down into 16 lines of 64 characters.) 

Line 60 waits for you to enter the de- 
grees in Fahrenheit you want converted 
to Celsius. Your entry will be stored in 
the computer as the variable F. 

Line 70 provides a means of escaping 
the program. If you enter the number 
-9999.99, the program ends. If the 
value of F is anything other than 
-9999.99, the program continues with 
line 80, which clears the screen again. 



The Key Box 

Model I or HI 
Programming Languages 
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Line 90 calculates the Celsius equiva- 
lent to F. 

Now line 100 prints your value and 
the Celsius value on the screen at posi- 
tion 384. Line 1 10 tells the computer to 
go to line 50, where the program asks 
you for another Fahrenheit value to 
convert. 

You can enter whole numbers, deci- 
mal numbers, and positive and negative 
numbers into this program. All we said 
was Input F — we didn't have to specify 
that F could be either positive or nega- 
tive, or how many decimal places we 
were going to use. Well, that's not true 
of all computer languages. 

Fortran 

Fortran, an acronym for formula 
translation, is similar to Basic. How- 
ever, the input and output from Fortran 
generally require Format statements 
(something like Basic's Print Using). In 
addition, while Basic is usually inter- 
preted, Fortran is almost always com- 
piled. A compiled program runs faster 
than one that is interpreted. 

Lines 100 and 200 (see Listing 2) start 
with a C. They are comments — remarks. 
Lines 300 and 400 display "Type in 
Fahrenheit Value" on the screen. The 
first column holds Editor line numbers, 
not used by the Fortran program. To 
the right are Fortran line numbers, and 
they may be referred to in the program. 
Line 300 says write to the screen (logical 
unit number— LUN1) what's in line 15. 
Line 400 gives directions to skip a line 
(/), write the text in single quotes, and 
skip another line. 

Lines 500 and 700 cause the program 
to read the value F from the key- 
board (which is also referred to by 
the LUN 1) in a format (F15.0) that 
allows, but does not require, a deci- 
mal point. Line 600 goes to line 40 if F 
is less than (.LT.)-500. It could have 
been put after line 700, but we wanted 
to show the format statement separated 
from the I/O statement. 

One style of Fortran programming 
places all format statements at the end 
of the program. This is useful if a par- 
ticular format is used many times; it can 
be written once and found easily. 

Line 800 is the actual computation. 
Notice the decimal points. The distinc- 
tion between integers and real numbers 
is much stronger in Fortran than in Ba- 
sic. If you want a constant treated as a 
real number, you have to put in the dec- 
imal point. 

Real numbers, as a computer thinks 
of them, are numbers that can have 
fractional parts. Integers do not have 
fractional parts. In Basic, if you want to 

~~See List of Advertisers on Page 451 
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I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
COLLEGE EDUCATED 
GARBAGE COLLECTOR 
is spent inserting 
my diskette." 

SCOTT ADAMS - PRES. OF ADVENTURE INTL. 



The Snappware College Educated Garbage Collector (SNAPP-VI) is an 
intelligent processing function which greatly improves performance of 
typical BASIC applications. And here's why. 
Microsoft uses a 'variable length string' in the BASIC interpreter. Each 
time the string is assigned a new value, it is relocated in a string pool. 
Periodically the string pool must be reorganized and condensed into a 
single contiguous area. Performing this string space reclamation is time 
consuming and inefficient because this approach evaluates and collects 
each string individually. The time required is roughly proportional to the 
square of the number of active strings in the resident program. During 
reclamation the system seems to 'lock-up' and does not respond to 
the operator until the process is completed. 

This time consuming approach requires a better solution. Snappware has 
developed a solution which takes advantage of the auxiliary memory 
available. SNAPP-VI requires only four bytes per active string as a work 
area. When free storage space is available, our system temporarily bor- 
rows, uses and returns the space to the free storage pool when com- 
pleted. If storage is not available, our system will temporarily transfer out 
to disk enough of the BASIC program to make room for our work area and 
return the 'paged out' information to its correct location when completed. 

Benchmarked times show, in some situations, SNAPP-VI performs one 
hundred times as fast as the Microsoft approach. 
If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 



MODEL II . . 
MODEL III . . 



'TRSDOS™ Tandy Corporation 
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.:•■.:■ :• •:'. '■":■: V "\ : Y •«." •"?• : '.':!•.: 

„;;i : .:j: '.v::t : ;|l:P : ' '-j : ' * ■■■ j: : .~ - !jKn* •.•::;;;;. 



$100.00 
S 75.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513) 891-4496 
3719 Mantell 
Cinti . Ohio 45236 
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00100 


C 


PROGRAM TO CONVERT FAHRENHEIT TO CELSIUS 


00200 


C 


BY 


PHIL MARTEL 


00300 


10 




WRITE(1,15) 


00400 


15 




FORMAT(/' TYPE IN THE FAHRENHEIT VALUE'/) 


00500 






READ (1,20) F 


00600 






IF (F .LT. -500.) GOTO 200 


00700 


20 




FORMAT (Fl 5.0) 


00800 






C=5./9.*(F-32.) 


00900 






WRITE(1,30) F,C 


01000 


30 




FORMAT(1X,G10.3, ' DEGREES FAHRENHEIT IS ' 


01100 




1 ,G10.3," DEGREES CFTST'IS') 


01200 






GOTO 10 


01300 


201 




STOP DONE 


01400 






END 

Program Listing 2. Fortran Version 



000100 IDENTIFICATION DIVISION. 

000110 PROGRAM-ID. FAHRENHEIT. 

000120 AUTHOR. BOB NICHOLAS. 

000130***************************************************** 

000140* THIS PROGRAM ACCEPTS A TEMPERATUPS IN FAHRENHEIT * 

000150* DECREES FROM -9999.98 TO 9999.99 AND CONVERTS IT * 

000160* TO CELSIUS DEGREES. * 

000170* A VALUE OF -9999.99 ENDS THE PROGRAM. * 

000180***************************************************** 

000190 

000200 ENVIRONMENT DIVISION. 

000210 CONFIGURATION SECTION. 

000220 SOURCE-COMPUTER. TRS80-I . 

000230 OBJECT-COMPUTER. TRS80-I. 

000240 

000250 DATA DIVISION. 

000260 WORKING-STORAGE SECTION. 

000270 77 FAHRENHEIT PIC S9(4)V99. 

000280 77 CELSIUS PIC S9(4W99. 

000290 77 QUESTION PIC ZZZ9.99-. 

000300 77 ANSWER PIC ZZZ9.99-. 

000310 

000320 PROCEDURE DIVISION. 

000330 10-MAINLINE. 



000340 

000350 

-9999.99. 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 



DISPLAY " 
PERFORM 

STOP RUN. 



' ERASE. 
20-CONVFRSION 



UNTIL FAHRENHEIT 



20-CONVERSION. 

DISPLAY "DEGREES FAHRENHEIT" LINE 5 POSITION 2. 
ACCEPT FAHRENHEIT LINE 5 POSITION ?8 

SIZE 8 PROMPT CONVERT. 
COMPUTE CELSIUS = FAHRENHEIT - 32) * 5 / 9. 
MOVE FAHRENHEIT TO QUESTION. 
MOVE CELSIUS TO ANSWER. 
DISPLAY QUESTION LINE 07 POSITION 02 ERASE, 

* DEGREES FAHRENHEIT = ", 

ANSWER, " DEGREES CELSIUS". 



000480 END PROGRAM. 



Program Listing 3. Cobol Version 



use integers you have to use DEFINT or 
place a °7o after the variable name. In 
Fortran, a variable that starts with the 
letters I through N or a number without 
a decimal point is assumed to be an 
integer. 

Line 900 outputs the Fahrenheit and 
Celsius values. Line 1000 is the Format 
statement for line 900. The IX specifies 
that the first character is a blank. This is 
needed because the first character out- 
put is a primer control character. Cer- 
tain nonblanks can produce odd results. 
The G10.3 outputs a number with 10 
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spaces allocated, up to three of which 
are after the decimal point. 

Line 1 100 is a continuation of line 
1000. The & in column 6 indicates a 
continued line. Anything but a zero or 
blank will do. 

Line 1300 stops execution of the pro- 
gram, prints Stop Done and returns to 
DOS. Line 1400 tells the compiler to 
stop. Unlike Basic, where an Fnd state- 
ment can occur anywhere, in Fortran an 
End must only be the last statement in 
the program. 



Cobol 

Cobol (common business-oriented 
language) programs tend to be lengthy. 
The language demands a certain amount 
of structure — every Cobol program (see 
I isting 3) consists of four blocks re- 
ferred to as divisions. These are: Identi- 
fication division (lines 100-180); Envi- 
ronment division (lines 200-230); Data 
division (lines 250-300); and Procedure 
division (lines 320-480). 

The Identification division indicates 
the name of the program (line 1 10) and 
the author (line 120). You can also indi- 
cate the date the program was written 
and 'he date it was compiled. Generally, 
the only thing required by C'obol is the 
Program ID. Each of these lines is re- 
tired to as a "paragraph." 

1 ines HO 180 arc remarks, indicated 
to the editor by an asterisk in the first 
column following the line number. As 
in Fortran, the line numbers are for 
edi'ing purposes only. Notice also that 
lines (sentence 1 ') end in periods. 

The Environment division is broken 
down into sections. The Configuration 
section is broken down into two para- 
graphs that record the source computer 
(the computer on which the program is 
to be compiled) and the object comput- 
er (the computer on which the program 
will be run) In addition, if the program 
contains anv files to be processed, they 
must be spelled out in the Input /Output 
section. 

The Data division is broken down in- 
to three possible sections: File section, 
Working-storage section and Linkage 
section. Only the Working-storage sec- 
tion appears -n this program. Every var- 
iable used in the execution of the pro- 
gram must be specifically mentioned in 
one of these three sections. If the vari- 
able is one of the fields in a file, it would 
appear in the File section. If it is a non- 
file variable used in the process of exe- 
cuting the program, it would be in the 
Working-storage section. And if this 
were a subroutine called from another 
computer program, the variables being 
passed back and forth would have to be 
in the I inkage section. 

Thi< may seem tedious compared to 
the convenience of Basic, but it provides 
the programmer far greater control over 
the information being processed. Addi- 
tionally, whereas Basic variables can be 
two characters long and Fortran vari- 
ables can be six, Cobol variables can be 
up to 30 characters long. This makes 
reading and editing Cobol programs 
easier. 

In this program, we have four vari- 
ables defined in the Working-storage 



Call or Write 
Your Nearest 
Snappware 
Distributor 



MICRO-80 

284 Goodwood Road 
Clarence Park 
Adelaide South Australia 
Ph-(08) 2117224 

DO-TEK SYSTEMS 
65 Thornridge Circle 
Kitchener Ontario N2M-4V9 
Ph-(519) 742-8206 

STRAWFLOWER ELECTRONICS 
50 North Cabfilb 
Half Moon Bay 
California 94019 
Ph-(415) 726-9128 

COMPUTER MAGIC 
115 Wiltshire Avenue 
Louisville, Kentucky 40207 
Ph-(502) 893-9334 

E-C DATA 
Tornevangsvej 88 
P.O.B. 116 
DK-3460 

Birkerod, Denmark 
Ph +45/2/81/8191 

SYSTEM SOFT 
49, Dunvegan Drive 
Rise Park 

Nottingham, England 
NG5 5Dx 
Ph-(0602) 275559 

CUSTOM COMPUTING 
104 Bushwick Rd. 
Poughkeepsie, NY 12603 
Ph-(914>471-9318 

AEROCOMP 
Redbird Airport 
Hanger 8 

Dallas, Texas 75232 
Ph-(214) 339-5104 



ppware 
Goes On Trial! 

You Be 
The Judge! 

Snappware knows your programming time is valuable That's why we are 
offering a trial package that will cut your programming time up to 75%' 

This unprecedented offer allows you to judge for yourself the value of our 
software using your hardware at your convenience. Our five best selling 
products: EXTENDED BASIC, EXTENDED BUILT IN FUNCTIONS. COLLEGF 
EDUCATED GARBAGE COLLECTOR, AUTOMAP and AUTOFILE. are all 
available to you on a trial basis for only $50.00 for the Model II and 
$35.00 for the Model III. We're convinced that after you see how well our 
software helps you perform programming tasks, you will purchase them 
like thousands of others have. 

Our trial package consists of a master diskette which may be used to 
create one working copy. Your purchase price for the trial package will be 
credited toward the purchase of any software Snappware sells 

If for any reason you are not satisfied, just return the trial diskette and 
working copy and we will refund your money, no questions asked With 
an unconditional guarantee like this, you can't lose 

Call our toll free number 800-543-4628 to put us on trial We're sure your 
verdict will be: Snappware saves you time and money 



MODEL II Trial Package $50.00 

MODEL III Trial Package $35.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell r 
Cinti., Ohio 45236 






^See List ol Advertisers on Page 45' 
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(* 10*) (* 
*) 

(* 20*) (* 


FAHRENHEIT TO CELSIUS CONVERSION IN TINY PASCAL 


BY PHIL MARTEL *) 


(* 30*)VAR F,C,CINT,CFRAC,FLAG : INTEGER; 


(* 40*)BEGIN 


(* 50*) 


FLAG :«= 1; 


(* 60*) 


WHILE FLAG =1 DO 


(* 70*) 


BEGIN 


(* 80*) 


WRITE ( 'TEMPERATURE IN FAHRENHEIT'); 


(* 90*) 


READ(F#) ; 


(* 100*) 


IF F<« -500 THEN FLAG := 


(* 110*) 


ELSE BEGIN 


(* 120*) 


C :- (F-32)*5; 


(* 130*) 


CINT := C DIV 9; 


(* 140*) 


CFRAC :={ABS(C) MOD 9) *10 DIV 9; 


(* 150*) 


WRITE (Ft, 'DEGREES FAHRENHEIT IS 


',CINT#, ' 


. ' f CFRACt f 


(* 160*) 


' DEGREES CELSIUS' ,13) ; 


(* 170*) 


END (* FOR THE CASE WHERE F > -500 *) 


(* 180*) 


END (* OF THE WHILE LOOP *) 


(* 190*)END. 




Program Listing 4. Pascal Version 



0: 


CLS 


1: 


# 28 31 


0: 


FTOC 


1: 


CLS 


2: 


BEGIN : 'ENTER DEGREES FAHRENHEIT '; 


3: 


F-^q 


4: 


CLS 


5: 


C-»- (F - 32) x 5 % 9 


6: 


F ;'DEGREES FAHRENHEIT = ';C ; 'DEGREES CELSIUS' 


7: 


-►-BEGIN 




Program Listing 5. API. Version 



section: Fahrenheit, Celsius, Question, 
and Answer. The 77 in front of them is 
a level number. The 77 level can appear 
in either the Working-storage or Link- 
age sections. It is used for variables that 
are not subdivided. Subdivision is one 
of the main advantages of Cobol. It 
provides the programmer with easy ref- 
erence to a variable and to any prede- 
fined subsections of it. A subdivision is 
shown by a 01 level number with sub- 
levels. For instance: 



01 NAME. 
03 EAST-NAME 
03 FIRST-NAME 
03 INITIAL 



PIC X(I5). 
PIC X(I2). 
PICX(I). 



This gives us a 28-character field 
called Name, a 15-character field called 
Last Name, a 12-character First Name 
and a one-character middle Initial. The 
X(15) specifies a field that will accept all 
keyboard characters. A( ) is used to 
specify alphabetic characters only, 
while 9( ) specifies numeric only. 

Fahrenheit has a picture of S9(4)V99. 
The S means the value can be negative. 
If the S is left off, -25 and 25 both be- 
come positive 25. The 9(4) means that 
up to four digits may follow. V is an as- 
220 • 80 Micro, Decern berl 982 



sumed decimal point. And the 99 allows 
up to two digits following the decimal 
point. The result is that Fahrenheit must 
be between -9999.99 and 9999.99. If 
you enter 25, the V assumed decimal 
point will convert it to 25.00. 

Celsius has a similar picture. Fahren- 
heit and Celsius must have assumed 
decimal points (the V) because they are 
used in calculations. However, when we 
want to show these values on the screen 
or on paper, we have to include the deci- 
mal point in the picture. Hence, we have 
two new variables. 

Question will be used in printing the 
value entered for Fahrenheit. The pic- 
ture clause is ZZZ9.99-. The Zs sup- 
press leading zeros in the answer so that 
0003.45 appears as 3.45. The dash 
means that we will have any negative 
sign printed after the number (3.45-). 

Answer has a similar picture and is 
used in printing the value of Celsius on 
the screen. All these pictures are the 
equivalent of the Format statements in 
Fortran. 

It is not at all unusual for the Data 
division to be the longest part of a Co- 
bol program. Every variable used has to 
be carefully and explicitly defined. 

Suppose we want to express the 



equivalent of our Cobol line 270 
FAHRENHEIT PIC S9(4)V99 in Ba- 
sic. This would require the following 
additions to our Basic program follow- 
ing line 60 INPUT F: 

61 IF F < -9999.99 OR 

F > 9999.99 THEN GOTO 60 

62 LET X = INT (X • 100) 100 

Line 61 assures us that F is within the 
proper range. Lines 62 and 63 detect if 
there are more than two digits following 
the decimal point. If there are, they get 
knocked off. And even this doesn't fin- 
ish the task. Remember that if we enter 
25 for the value of Fahrenheit, we will 
get 25.00. The Basic program would 
still print plain old 25. If we wanted the 
decimal format, we would have to use a 
Print Using statement in Basic. So if 
you are looking for this type of control 
in a business or commercial application, 
Cobol is by far preferable to Basic. 

And finally, on to the Procedure divi- 
sion — the part of the program that actu- 
ally does something. The Procedure di- 
vision is broken down into paragraphs. 
This program contains two paragraphs 
in this division: 10-MAINLINE and 
20-CONVERSION. All lines in a para- 
graph must be indented at least four 
spaces. Further indentation (such as 
lines 410, 460, and 470) is optional and 
strongly recommended. 

While Cobol is a fairly standardized 
language, those commands relating to 
screen output tend to vary from com- 
puter to computer and compiler to com- 
piler. As a result, some references with- 
in the Procedure division detract from 
the normal high degree of readability of 
the language. For instance, line 340 
DISPLAY "" ERASE is the equivalent 
of CLS in Basic — it clears the screen. 

If you glance through the rest of the 
Procedure division, you will notice 
there are no CiOTOs even though they 
arc available in Cobol. Good Cobol 
tends to be GOTOless programming. 
The program is written as a scries of 
modules organized into paragraphs or 
sections made up of paragraphs. When 
you need to use a given module, you 
perform it, as in line 350. 

PERFORM 20-CONVFRSION 
UNTIL FAHRENHEIT = -9999.99. 

Paragraph 20-Conversion will run 
continually (like a subroutine) until we 
enter -9999.99 as the value of Fahren- 
heit. Then execution drops to line 360, 
and the program stops. Note that in Co- 
bol we perform or GOTO paragraphs 
rather than line numbers as in Basic. Big 



• FREE SHIPPING • 

WITHIN CONTINENTAL 48 STATES 




ARE YOU A DREAMER? 

IMAGINE THIS . . . 



TRY 
US! 



You place your order and it arrives when expected. "What do 
you know, they did ship that day!" You open your package and 
SURPRISE, it's what you ordered, not last year's version six times re- 
moved "Wait a minute, I must have paid full retail to get this kind of 
service H'mm, that's not it. These prices are among the lowest. What's 
the catch? I've got it' They charged me large shipping and handling charges. 
No, not that either. It says here 'Free shipping within the Continental 48 States 
via UPS ground.' Only the differential is charged for UPS Blue or 1st Class. Now 
I've got it, it's only a dream!!!" 

At Micro Images your dreams become reality! How do we do It? Simple, we tell the truth. If 
the item you order is not in stock — we tell you. If we can't ship that day — we tell you. 
Which version? We tell you. Why are we telling you this? The answer is easy. This is what we 
do best and what separates us from the competition, AND WE WANT YOU TO KNOW. 



LAZYWRITER 

Latest Version Mod l/l 1 1 s 1 59.95 
See Below For New Options 



MAXI MANAGER 

Manager with Utility -$119.95 
Maxi Utility Only - $44.95 



SUPERUTILITY + 

Mod l/lll -Limited Time Only s 46.95 
SEE NEW BOOK BELOW 



MZAL - Ver. 2 
Mdl lor III —$134.95 



MAXI CRAS 

Mdl l/lll —$84.95 

MAIL $84.95 STAT $179 95 



LDOS si 

MDL I or III — $114.95 



GEAP $42.95 

with Dot Writer - $69.95 



NEW SCRIPT- 7.0- $114.95 
with Mailing Label Opt. -$124.95 
Mailing Label Opt. Only - $27.95 



New Random House Version 
Proofreader by Aspen v . i mi $49.00 

PrOOf-Edit by Aspen Mo I I $25.00 

Grammatik by Aspen ..Mod i/ui $49.00 

SPECIAL . All 3 FOR ONL V $T 70.00 



MULTI DOS- $74.95 

Specify Mdl III or Mdl I 
Single or Double Density 



DOSPLUS 

Version 3.4S/3.4D/3.4III $119.95 

Version II For Model II $199.95 



UNITERM Modi/Ill 
UNITERM/80 Mod 



/ill 



$74.95 
$84.95 



MICROSOFT 

Fortran 80 or A.L.D.S $89.95 

Basic Compiler $179.95 

Editor/Assembler + T «<>$27.95 o > $45.95 



HEXSPELL 2 Mod l/lll $94.95 



POSTMAN MASS MAILING SYS. 

Standard Ver. Mod l/lll $118.95 

with Postwriter Mod I'lll $159.95 



DATA-WRITER Mod 1/11SI 14.95 



SFINKS 3.0 Disk Mod l/lll $36.95 
SFINKS Chess Tutor Mod l/lll $17.95 



Pdac Mod ll 4.0.. 
tUHO Mod l-lll 3 5 



$74.95 
$69.95 



LAZYWRITER OPTIONS 

LAZYDOC $54.95 

LAZY TAB $13.95 

LAZYCALC $27.95 

LAZYDRAW + DO $18.95 

Tab. Calc. Draw + Do All 4 $37.95 



BOOKS 



Disk + Other Mysteries - ijg . . . . $20.95 

Basic Decoded ug $27.95 

Custom TRS-80 - ug $27.95 

Basic Faster & Better - ug $27.95 

Mdl 11/16 Visicalc - wc Brown $16.95 

Mdl l/lll ViSiCalC - WC Brown $16.95 

Copyright Kit $11.95 

Inside SuDerutility Plus $17.95 



LNW-Doubler 5/8 $205.95 

Includes Dosplus 3.4D 



SOOPER SPOOLER byCompulink 

16K Parallel I/O Unit $334.95 

46K Memory Opt - $149.95 Serial I/O Opt. • $89.95 
Complete Unit - All Options $549.95 



LYNX auto dial/answer Mod l/lll $239.95 



• • PRINTER STANDS* * 





SPACE AGE NO FRILLS 

MX 80 Clear $27.50 MX 80 Clear $13.50 

MX 80 Bronze . $29.95 MX 80 Bronze .... $15.95 
Microhne 82A Space Age Bronze $29.95 



• VISION FRIENDLY • 

Vision Friendly is an eye exercise pacKage lor ihe Model III whicf- 
comes with a G'een, B:ue and Amber screen and a short graphic 
program The package combines color & graphics to relax your 
eyes and ease eye strain. Each screen is a lull grade quality 
screen which needs no glue. tape. etc. to attach and can be 
removed without a trace The three plexiglass screens are more 
than worth the price We are so sure you will like this package we 
are offering a 10 day money back guarantee $29 95 



FREEDOM TECHNOLOGY INT'L 

Freedom Option $199.95 

Freedom Plus $399.95 



MICROBUFFER Practical Peripherals 
Parallel or Serial (Epson) $149.95 



RIBBONS 

ZIP BOX RELOADS M Dz. Dz. 

Epson MX 70/80-20 Yds. . . 24.00 42.00 

Epson MX 100 30 Yds 30.00 52.00 

LP-l/ll/IV-16 Yds 18.00 32.00 

Centronics 730/737/739 

and 779-16 Yds 18.00 32.00 

All ZIP BOXES are individually sealed black nylon 
and require no rewinding 

CARTRIDGES Each Dozen 

Epson MX70/80 8.95 90.00 

LP-III/V 6.50 70.00 

Centronic 702/03/04/53 ... 11.00 120.00 
RS DSY WHL II Muit, strike. . . 6.50 70.00 
Diablo Hytype II Muit. strike . . 6.50 70.00 
Qume-300.000 chr Muit. st-.ke 6.50 70.00 
Nee SPIN H-Yield Mum strike 7.00 75.00 
MICRLNE 80/82A/83A Spl . . N/A 24.00 
Minimum order 3 cartridges • any mix For smaller 
quantities add SI 50 per order. All our reloads and 
cartridges arc manufactured by one ol Ihe oldest and 
most reputable ribbon M'g s in the country 

* * * • * QUALITY GUARANTEED • ***« 



GAMES 



Tape 

Sea Dragon 17.95 

Penetrator 22.45 

Defiance 

Panik 17.95 

Armored Patrol 17.95 

Eliminator 17.95 

Starfighter 22.45 

Forbidden Planet or City 

Strike Force 14.50 

Voyage of Valkyrie 31.95 

Bounceoids or Sp. Castle. 14.50 

The Institute 17.95 

Fortress or Alien Def 14.50 

Any Big 5 Program 14.50 



Disk 

22.45 
22.45 
22.45 
22.45 
22.45 
22.45 
26.95 
34.95 
17.95 
34.95 
17.95 
20.95 
17.95 
17.95 



TO ORDER 

CALL OR 

WRITE TO: 



MICRO IMAGES 

146-03 25th Road 

Flushing, N.Y. 11354 

(212)445-7124 



PHONE HOURS: 

Mon.-Fri. 

10 AM-9 PM 

Sat. 

1ST 10AM-5PM 



ORDERING INFORMATION 
No credit cards at these low prices Add $2 00 or all COD orders Certified Ck/MO/COD 
shipped immediately. Please allow 2 weeks for personal checks For extra fast service 
phone ir your COD order Free shipping within Continental 48 states via UPS ground For 
Canada. Hawaii. Alaska, applicable shipping and insurance charges apply Prices subject to 
change without notice. New York State residents please add appropriate sales tax 
The items listed above are a cross section ol our product line We carry the lull line ol most 
companies listed m this ad. plus much more SEND FOR YOUR FREE CATALOG. 



x See List ol A dvertisers on Page 45 1 
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deal? You bet! How many times have 
you gone crazy trying to find the line 
number for your Basic subroutine or 
GOTO after renumbering a program? 
This problem doesn't exist in Cobol. 

Now for the conversion and display 
portion of the program — line 390 prints 
Degrees Fahrenheit on the screen. Note 
that you get to state the screen position 
as a line number and position (column) 
number — much easier to locate than the 
Basic PRINT® value. 

Lines 400 and 410 are the equivalent 
of Input F. Note again that we get to 
state the screen position for the input. 
We set a size of eight, because our pic- 
ture for Fahrenheit in Data division al- 
lows eight positions: one for the sign, 
four digits, a decimal point, and two 
more digits. The word Prompt tells the 
computer to put hyphens on the screen 
showing how many places are available 

for data entry ( ). Finally, Convert 

tells the computer to store whatever is 
entered on the screen (string informa- 
tion) in Fahrenheit as a numeric value. 

Line 420 does the actual conversion 
from Fahrenheit to Celsius. We Com- 
pute the value of Celsius. 

Line 430 moves the value stored in 
Fahrenheit into Question for printout 
on the screen with the assumed decimal 
point in Fahrenheit (line 270) shown as 
indicated in the picture of Question (line 
290). Line 440 does the same thing for 
Celsius. 

Lines 450-470 format the screen 
printout of the input and the answer. 
Notice again that we get to specify the 
line and the position. The Erase state- 
ment clears the screen before the re- 
sponse is printed. 

Line 480 (End Program) is required 
by the Cobol compiler, like Fortran. 

Pascal 

Radio Shack's Tiny Pascal lacks 
many features of a full Pascal, especial- 
ly in the variety of data types — files, 
records, pointers, real numbers, and 



user-defined types. These data types are 
not needed, but they are a convenience 
and make programs more self-docu- 
menting. We used the method described 
in John Harrell's article "Modifying 
Tiny Pascal for Disk" {80 Micro, June 
1981, p. 154) to put the Tiny Pascal sys- 
tem and source programs onto disk. 

Pascal, unlike Basic or Radio Shack's 
Fortran, does not use line numbers. As 
a convenience, we have put numbers in 
comments (*like this*) at the beginning 
of each line. 

Tiny Pascal compiles into an inter- 
mediate code called P-code, which is 
then interpreted. But for all practical 
purposes it is a compiler like Fortran. 

Lines 10 and 20 (see Program Listing 
4) are comments. The variables are de- 
fined in line 30. In Pascal, all variables 
must be defined at the start of the pro- 
gram or subroutine where they are used. 
This makes you more aware of the vari- 
ables you are using and also allows the 
compiler to run faster. 

Line 40 starts a block. All Pascal pro- 
grams are composed of blocks, each of 
which begins with Begin and ends with 
(you guessed it) End. The main block 
ends at line 1 50. The period after End at 
line 1 50 tells the compiler it is the end of 
the program. 

Line 50 sets the variable Flag for the 
While loop in line 60. While Flag equals 
one, it repeats the block in lines 70-180. 

Line 80 asks for the Fahrenheit tem- 
perature and line 90 reads it in. The ft in 
line 80 tells the system the input will be a 
decimal integer. 

Line 100 tests the Fahrenheit value to 
see if it is less than or equal to -500. If it 
is, the flag is set to zero to end the While 
loop. If not, then the block in lines 1 10- 
170 is entered. 

Lines 120-140 calculate CI NT, the 
integer part of the temperature, and 
CFRAC, one digit after the decimal 
point. Lines 150 and 160 print the re- 
sults. Again, § indicates that a decimal 
integer should be printed. The 13 at the 
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{ FAHRENHEIT TO CELSIUS CONVERSION PROGRAMS) 

: FC 32 - 50 * 9 / ; ( REPLACES F WITH 10 * C ) 

: FTOC DUP . " DEGREES FAHRENHEIT IS " 

FC DUP ABS <# # 46 HOLD #S SIGN #> TYPE 

" DEGREES CELSIUS " ? 
: FCPROG BEGIN CR " TYPE IN FAHRENHEIT VALUE " CR #IN 

FTOC END ; 



Program Listing 6. forth Version 



end does not have a #, so it is treated as 
a character, in fact a carriage return. 

APL 

APL (a programming language) is 
quite different from all the other lan- 
guages discussed in this article. For one 
thing, it is essentially mathematical. 
Where most languages work with one- 
dimensional values (scalars), APL can 
deal with multidimensional blocks of 
data (matrices) just as handily. 

APL does not use standard algebraic 
notation for its calculations — there is no 
hierarchy of operations as in algebra. A 
mathematical expression is simply eval- 
uated from right to left. You can force 
order if you wish by using parentheses. 
The reason for this unusual feature is 
that APL has many operators besides 
the usual +,-,*, and / of Basic or For- 
tran. Defining a reasonable hierarchy 
and keeping track of it would be very 
difficult, so Dr. Iverson, the developer 
of APL, avoided the issue. 

Another major difference lies in the 
structure of a program. APL deals with 
a workspace rather than a program. 
Each workspace is composed of labeled 
functions that call one another as re- 
quired. You execute one function from 
another merely by naming it. 

For instance, in the APL workspace 
shown in Program Listing 5, we have 
two functions: CLS and FTOC. We ini- 
tially enter the workspace through 
FTOC. The first thing FTOC does is 
execute the CLS function. 

The CLS function has one com- 
mand: tt 28 3 1 . The # is the equivalent of 
CHR$ in Basic, so this line performs 
CHR$(28) and then CHR$(31)— it 
homes the cursor to the upper left cor- 
ner of the screen and clears the screen 
from the cursor to the end. The result is 
a completely cleared video screen. 

This brings us back to line 2 of 
FTOC. We label this line as Begin (we 
will want to come back to this spot later 
in the program) and then print "Enter 
Degrees Fahrenheit." (Note that you 
don't have to say Print. All output goes 
to the screen by default.) 

Look at line 3. The small letter q 
stands for the APL command Quad. 
This equivalent of the Basic command 
Input is for numeric input only. Quote 
Quad is used for entering string infor- 
mation. In APL, line 3 would be phrased 
as ASSIGN F QUAD. (Assign— shown 
by the back arrow — is the equivalent of 
the equals sign in Basic.) You aren't 
limited to just typing in a number in 
APL. You could enter a mathematical 
expression (such as 5 + 3) or even a var- 
iable name (C, for example). 



222 • 80 Micro, December 1982 



WE WILL NOT BE UNDERSOLD 



SOFTWARE 



APPLE SOFTWARE 



COMPUTERS 



MICROPRO 




MICROPRO 


Wordstar 


S239.O0 


Wordstar 


Mailmerge 


$89.00 


Mailmerge 


Customization Notes 


$359.00 


Soellstar 


Spell star 


S239.00 


DataStar 


Datastar 


$199.00 


CalcStar 


Calcstar 


$199.00 


VISICORP 


MICROSOFT 




VisiCalc 


Basic Interpreter 


$349.00 


VisiTerm 


Basic Compiler 


$389.00 


VisiDex 


Fortran 80 


$499.00 


Vis i Plot 


Cobol80 


$695.00 


VisiFile 


DATA BASE 




VisiSchedule 


FMS80 


$595.00 


VisiTrend/Plot 


dBase II 


$599.00 


MISCELLANEOUS 
Micro Courier 
Screen Director 


NEW! DM PC SOFTWARE 


NEW! 






Executive Briefing System 


INFORMATION UNLIMITED 




Supercalc 


Easy Writer 


$289.00 


Personal Filing System 


Easy Speller 


$149.00 


PFS Report Wnter 


Easy Filer 


$319.00 


Word Handler 


V1SICORP 




ENTERTAINMENT 


Visicalc 256K 


$199.00 


Beer Run 


VisiDex 


$199.00 


Zork I II 


VisiRle 


$229.00 


Deadline 


Vi8iTrend/VisiPlot 


$229.00 


Chop Lifter 


MICROPRO 




Cannonball Blitz 


Wordstar 


$239.00 


Knights of Diamonds 


MISCELLANEOUS 




Midnight Magic 


Supercalc by Sorcim 


$229.00 


Wizardry 


Superwriter by Sorcim 


$289.00 


Tuesday Morning Quarterback 


Home Accountant Pius 


$139.00 


Crush. Crumble & Chomp 


ENTERTAINMENT 




Datestones of Ryn 


Deadline 


$39.00 


Mortoc's Tower 


Temple of Apsriai 


$29.00 


Snack Attack 


Curse of Ra 


$15.99 


Star Blazer 







DISK DRIVES 



CCI 100 for the TRS-80 Model 1 

S'A 40 track $299.00 
CCI 189 for the Zenith Z-89 

5V« 40 track $379.00 

CORVUS 5M with Mirror $3089.00 

CORVUS 10M with Mirror $4489.00 

CORVUS 20M with Mirror $5389.00 

CORVUS Interfaces CALL 
RANA SYSTEMS add-on Disc Drive for the Apple II 

Elite One 40 Track CALL 

Bite Controller CALL 

Elite Two 80 Track CALL 

Elite Three 80 Track doubte-sided CALL 



DISKETTES 



Maxell 5'/4 single side 
Maxell 8 single side 
Maxell Btt double side 
Maxell 8 double side 
BASF 5% 
BASF 8 
Verbatim 5V« 
Verbatim 8 
Wabash 6% 



$39.00 

$49.00 
$45.00 
$55.00 
$26.95 
$36.00 
$26.95 
$36.00 
$21.95 



IRM PC ACCESSORIES 



64K Card by Microsoft 

Joystick by T 4 G 

128K Card 

192K Card 

256K Card 

Combo Card by Apparat 

Call for more IBM PC add-ons 



$435.00 
$49.00 
$579.00 
$62900 
$699.00 
$249.00 



For fast delivery, send certified checks, money 
orders, or call to arrange direct bank wire 
transfers. Personal or company checks require 
one to three weeks to clear. All prices are 
mail order only and are subject to change 
without notice. Call for shipping charges. 



$199.00 
$89.00 
$149.00 
$199.00 
$189.00 

$199.00 
$79.00 
$199.00 
$169.00 
$199.00 
$259.00 
$239.00 

$219.00 
$1 29.00 
$169.00 
$199.00 
$115.00 
$75.00 
$169.00 

$28.00 
$26.95 
$39.00 
$24.95 
$29.95 
$29.95 
$32.00 
$45.00 
$24.95 
$24.95 
$15.99 
$15.99 
$23.95 
$24.95 



APPLE ACCESORIES 



ADVANCED LOGIC 

Add-Ram 16K Card 

Z-Card CP/M for the Apple II 

Smarterm 80 Column Board w/Softswitch 

Z-80 Card by Microsoft 

16K Card by Microsoft 

32K Card by Saturn 

Keyboard Enhancer II by Videx 

Videoterm by Videx 

Game Paddles by TG 

Joystick by TG 

Numeric Keypad by Keyboard Co. 

ALF 9 Voice Board 

ALF 3 Voice Board 

System Saver by Kensington 

Versacard by Prometheus 

Microbuffer II 16K w/graphics 

Microbuffer II 32K w/graphics 

APPLE INTERFACE CARDS BY CCS 

Serial Asynch #7710 

Centronics »7729 

Call for other CCS cards 



$99.00 
$225.00 
$249.00 
$319.00 
$159.00 
$199.00 
$125.00 
$259.00 

$49.00 

$49.00 
$139.00 
$159.00 
$229.00 

$75.00 
$229.00 
$259.00 
$299.00 

$139.00 
$149.00 



RAM 



16K Ram Kit for Apple II; TRS80 
200 nano seconds, 41 16 chips 



$17.50 



Dealer (National/Interna- 
tional) Inquiries Invited. 

Send for FREE catalogue 



$485.00 
$265.00 
$569.00 

$359.00 



CALIFORNIA COMPUTER SYSTEM 

Mainframe 2200a 

Z-80 CPU 2810a 

64K RAM 2065 

Floppy Controller 2422a 

ZENITH 

Z-89 48K CALL 

Z-90 64K CALL 

Z-100 CALL 

Call For Prices On The Complete Zenith Line 

CASIO FX702P Pocket Computer $1 79.00 

Sanyo MBC 1000 64K CALL 

Call For Prices On Complete Sanyo Computer Line 

PRINTERS 



NEC 7710 Serial 

NEC 7720 KSR 

NEC 7730 Parallel 

NEC 3510 Serial 

NEC 3520 

NEC 3530 Parallel 

NEC 8023 Dot Matrix 100cps 

Epson MX-80 

Epson MX -SOFT 

Epson MX- 100 

IDS Micro Prism 

IDS Prism 80 

IDS Prism 132 

Okidata Microline 80 

Okidata Microline 82A 

Okidata Microline 83A 

Okidata Microline 84 

Datasouth 180 cps 



$2395.00 

$2749.00 

$2395.00 

$1850.00 

$2099.00 

$1850.00 

$539.00 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



MONITORS 



Amdek 13" Color 
Sanyo 9" B & W 
Sanyo 9" Green 
Sanyo 12"B4W 
Sanyo 1 2" Green 
Sanyo 1 3" Color 
Zenith 1 2" Green 
Zenith 1 3" Color 
Bectrohome 13" HI-RES 

Color Monitor 
Electrohome 1 3" Color 
Bectrohome 1 2" B4W 
Bectrohome 1 2" Green 
Bectrohome 9" BAW 
Bectrohome 9" Green 



$329 00 
$135.00 
$140.00 
$179.00 
$189.00 
$359.00 
$1 05.00 
$339.00 

$829.00 
$349.00 
$179.00 
$189.00 
$149.00 
$159.00 



SPECIAL OF THE MONTH 

IDS MICRO PRISM 

Dot Matrix - correspondence 

quality 110 CPS 
Dot Plot Graphics CALL 



TERMINALS 



ADDS Viewpoint 
Zenith Z-1 9 
Televideo910 
Televideo 925 
Televideo 950 



$495.00 
$679.00 
$595.00 
$779.00 
$969.00 



TELECOMMUNICATIONS 



Prentice Star Modem 
Novation Cat Modem 
Novation D-CAT 
Novation AUTO-CAT 
Novation APPLE CAT 
Hayes Smart Modem 
Smart Modem 1 200 
Hayes Micro-Modem 
Hayes Chronograph 
Signalman Mark I 



$129.00 
$139.00 
$149.00 
$199.00 
$299.00 
$249.00 
CALL 
$295.00 
$225.00 
$85.00 




The CPU Sh 

TO ORDER CALL TOLL FREE 1 -800-343-6522 



100 



I 9 



420-438 Rutherford Ave., Dept. Ml 12, Charlestown, Massachusetts 02129 




Hours 9 AM - 9 PM (EST) Mon.-Fri. (Sat. till 6) 
Technical information call 617/242-3361 



TWX- 710-348-1796 



Massachusetts Residents call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 



• See List ot Advertisers on Page 45 ' 
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Line 4 calls the CLS function again. 
Line 5 computes the value of C, and line 
6 prints the answer. Line 7 branches to 
Begin, our label for line 2. (The right ar- 
row is used for the Branch function.) 

Forth 

Forth is an abbreviation for Fourth- 
generation language. However, the sec- 
ond-generation system on which it was 
originally written only allowed five- 
character program names. Hence, 
Fourth became Forth! 

Forth is different. On the positive 
side, you are almost forced to write 
structured code in Forth. Forth is exten- 
sible. If you need a feature (say the arc- 
tangent of the ratio of two numbers) 
you can add it. The feature is then as 
much a part of the language as any 
other word. 

On the negative side, writing a pro- 
gram in Forth is different than writing a 
program in Basic, Fortran, Cobol or 
Pascal, and is more like APL. You must 
learn the jargon. 

As it comes out of the box, Forth 
does not support floating-point num- 
bers, although you can add that 
capability. 

Forth is a stack-oriented language. 
This means arithmetic statements are in 



Reverse Polish Notation (RPN)— the 
system used by Hewlett-Packard calcu- 
lators and internally by almost all com- 
puters. Numbers are entered onto a 
stack (the HP calculators have an enter 
button; Forth just requires a space) and 
then operations are performed on the 
numbers on the stack. For instance, 1 
+ 2*3 would be written 1 2 3 * + in 
Forth. 

In Program Listing 6 line is a com- 
ment. Comments in Forth are enclosed 
in parentheses. Note the word pro- 
grams — there are three programs in this 
block: FC, FTOC, and FCPROG. (A 
block in Forth is very much like a work- 
space in APL.) 

Line 1 is the definition of FC. Colons 
start a definition, and semicolons end it. 
FC starts with a Fahrenheit value on the 
operand stack, pushes 32 onto the 
stack, subtracts the top of stack (TOS) 
from the next value down, pushes 50 
onto the stack, and so on. As the com- 
ment says, 10 times the Celsius value is 
left on the stack. 

As 1 mentioned before, Forth uses in- 
teger arithmetic. Unless you use a float- 
ing-point or multiple-precision pack- 
age, numbers are limited to the range 
32767 to -32768. As the program is 
written, the Fahrenheit value must be 



less than 656 degrees. With a larger 
value, the multiplication by 50 will 
overflow. 

However, a built-in operator (*/) per- 
forms a multiply followed by a divide. 
The results of the multiplication are dou- 
ble precision. Using this operator would 
allow temperatures up to 5,930 degrees 
Fahrenheit to be converted. 

Lines 2, 3 and 4 define a program, 
FTOC, that prints "Degrees Fahrenheit 
Is," takes the number on the stack and 
converts it using FC, and prints the re- 
sult and then "Degrees Celsius." The 
code in line 3 between the words DUP 
and TYPE outputs the number as a 
signed number with one decimal place. 

Lines 5 and 6 define the third pro- 
gram, FCPROG. This is the outer pro- 
gram — it runs an endless loop with the 
BEGIN and O END, asks "Type in 
Fahrenheit Value," inputs the value, 
and calls FTOC, which does the conver- 
sion and outputs the result. ■ 



Robert Nicholas (2-B Lennox 
Heights, Lenox, MA 01240) runs a 
data-processing center. Philip Martel, 
an electrical engineer, can be reached at 
748 Tyler St., Pittsfield, MA 01201. 



Experience the 

Magazine 

of the Future . 



The Programmer's Institute's magnetic magazines 
will entertain, educate, and challenge you. 

Each issue features ready-to-load programs ranging from 
games, adventures, home applications and utilities to personal 
finance, educational, and our unique teaching programs. Our 
magazines include fully listable programs, a newsletter con- 
taining descriptions and instructions for all programs, and notes 
on programming techniques used. 



TM 




for the TRS-80 COLOR Ext. Basic 



1 ORDERING INFORMATION 


Subscriptions* Cassette 


Diskette 


Year $50.00 


$75.00 


Vi Year $30.00 


$45.00 


Trial Issue $10.00 $15.00 

* Add $2.00 postage and handling. 
ALL SOFTWARE REQUIRES 16K. 



"Received my first copy 
. . . it's great! Please 
rush to me one of each 
back issue, so I'll have a 
complete set." 

R.G., Chicago, IL 



"Not only are the games 
fun and the applications 
useful, but the quality of 
the programs is excellent. " 
S.P.. Midwest 
Computer Software Sales 



See your local dealer or order direct: 
THE PROGRAMMER'S INSTITUTE 

a division of FUTUREHOL'SE 
P.O. BOX 3191, DEPT. I-B 
CHAPEL HILL, NC 27514 



FREE CATALOG AVAILABLE UPON REQUEST. 




1-919-489-2198 

10 AM ■ 9 PM, Mon - Sat 
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TRS-8CT 

2 Disk Model III 
#26-1066 $1849.00 




#26-3004 Color Computer 

$299.95 
#26-6001 TRS-80 Model 16 

$4099.00 

2%OFF! with cash 

BODEX CORP 

222 E. Main St. 
Marlboro, MA 01752 

(617)485-5115 



PARENTS! 



Want ?• STIMUIATI your 
child'* IE ARMING? 



llT T.GtE. * H *>W TOU HOW! 



All PtOGIAMS HAVI SEEN 'KID. PARENT. AND 10 UC A TOR TISTIP 

PEMONALIltO A.1.C (COMPLETE SET ONIY ON DISK) 

ALPHABET: Child ra*aa«4» f HI. RIS. GRAPHICS 

B.ASIC MATH: Laaralna ta ADDASUBTKACT through cauntiaa. 

COUNTING) Uses GRAPHICS i« 'Mrtitnt numbin 

Stt A SPELL- IT 

OUaiay, GRAPHICS la raarataat a wmr*. child »Sa»f4 ■ 

»ypa» In tfca Mara; if wrana. tha carract availing fhuha* ^PaP ffj 

Bionag ttg^K 

Tha faa way ** UABM Tim. -=^ 

EnCLCSE iCjV LhK;i'5 NA~t : ELM 

mao; *n EDuCATfOwa neej jr;'S .. MirSL 

Jt f'«N Ht: P 5 

TRS-ao" COLOR COMPUTER EDUCATOR 

,-389 



CflSSEPE JERSiON 



1*19-35 



9<»S:C i«t h 1*14.95 



«I4.95 



• 19.35 



*2«. "»*■ 



egfl tls-fo 

»•» IiqTMoI 
«'» [Tandy Corp. 



iilllLS Ml!.? lYK 'j'J ■■<■«■ "»^ 



ICE. PROGRAMS INC 
P. Q lax 2477 

Gal»har*k>urg ( MG 1M79 

(SOt) M33I4I 



ATAMAN * 
Data Manager 



MULTI-PURPOSE RLE HANDLER 

BUILD RLE IN MINUTES 

UNLIMITED BACKUP 

AUTO SCREEN FORMAT 

AUTO TOTALS A SUBTOTALS 

HANDLES NEARLY 3000 RECORDS 

FIELD TESTEO OVER 1 YR 

MODEL I OR III 

FORM LETTER WRTTER/ADORESS MERGE 

SYSTEM RECK 2 DRIVES. 4SK 

ABSOLUTELY NO PROGRAMMING 

MULTIPLE FILES ON 1 DISK 

COMPLETELY USER FRIENDLY 

AUTO PRINT FORMAT 

MENU DRIVEN 




SORTS IN MINUTES-NOT HOURS 

USERS GUIDE ON DISK 

SUPPORTS EPSON, OKIOATA. RS PRINTERS 

AUTOMATIC COLUMN AVERAGING 

STATE MODEL ft PRINTER WHEN ORDERING 

INFO/INQUIRY 305-351-0428 

ORDERS ONLY 800-327-8590 

VISA OR MfC ACCEPTED 

$89.95 

FLORIDA RESIDENTS ADD 5% 



A String Systems ~- 443 

1446 HAGEN LN, ROCKLEDQE, FL 32955 



You've invested a lot of time and money into your computer . . . 
It's time that investment paid off! 





THE COLOR ACCOUNTANT 



The Programmer's Institute introduces THE COLOR ACCOUNTANT, the only complete personal financial package 
specifically designed for the TRS-80 COLOR computer. This unique package includes: 



1. Complete Checkbook Maintenance 

2. Chart of Accounts Maintenance 

3. Income /Expense Accounts 

4. Net Worth Statement 



8. Home Budget Analysis 

9. Decision Maker 
10. Mailing List 



5. Payments/Appointments Calendar 

6. Color Graph Design Package 
(graphs any files) 

7. Check Search 

After the initial setup, THE COLOR ACCOUNTANT requires less than an hour of data input each month. 

The checkbook maintenance program is the key to the entire package. Once your checkbook is balanced, the checkbook summary file will 
automatically update the home budget analysis, net worth, and income/ expense statements. You can then graph any file, record bills and 
appointments, make decisions, print a mailing list, analyze various accounts or stocks, and even calculate taxes. 

All programs are menu-driven and allow add /change /delete. Each file and statement can be listed to screen or printer, and saved to cassette 
or diskette. THE COLOR ACCOUNTANT also comes with 40 pages of documentation that leads you step-by-slep through the entire package. 
The TRS-80 COLOR Ext. Basic requires I6K for this package. ($74.95 cassette, $79.95 diskette). 

See your local dealer or order direct: 
35sa 



The perfect supplement to THE COLOR ACCOUNTANT. The Tax Handler includes: 

1. Complete Form 1040 

2. Schedule A (Itemized Deductions) 

3. Schedule (J (Income Averaging) 

This year let The Tax Handler prepare your taxes ($24.95 cassette, $29.95 diskette). 



THE PROGRAMMER'S INSTITUTE 

a division of FUTUREHOUSE 
P.O. BOX 3191, DEPT. I-B 
CHAPEL HILL. NC 27514 




1-919-489-2198 



•Sea List of Advertisers on Page 45 1 
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ENCYCLOPEDIA FOR THE TRS-80* 



AND 

ENCYCLOPEDIA 

LOADER 




ft 



ec 



S ^ 



Y?G 



ve 



ENCYCLOPEDIA LOADER' 



*c 



rP 



**%& 






What is ENCYCLOPEDIA LOADER™? It is a 
dump, on 30 minute cassettes, of most of the 
programs contained in the ENCYCLOPEDIA 
FOR THE TRS-80. It gives you the ability to 
load those programs quickly and easily, 
saving you hours of keying in programs 
and correcting keyboard errors. ENCY- 
CLOPEDIA LOADER helps you realize 
the full potential of your computing 
time. Individual cassettes are priced 



at $14.95. The entire ten volume set is only 
$119.97. That's a $149.50 value! And again, 
we pay the shipping and handling charges. 

So push your TRS-80 to its limits and 
maximize your computing time with ENCY- 
CLOPEDIA FOR THE TRS-80 and ENCYCLO- 
PEDIA LOADER. Use the attached card for 
ordering, or fill in the coupon and mail today 
to: Wayne Green Books, Sales Dept., Peter- 
borough, NH 03458 



V 



' 



•TRS-80 is a trademark of the Radio 
Shack division of Tandy Corp. 

The ENCYCLOPEDIA FOR THE TRS-80* 
is a Wayne Green publication . 

ENCYCLOPEDIA LOADER™ is manu- 
factured by Instant Software, a division 
of Wayne Green Inc. 




CALL TOLL FREE 
1-800-258-5473 for credit card orders. 



VISA* 




Dealer Inquiries Invited. 



Wayne Green Books. 

A division of Wayne Green Inc. 

Pine St., Peterborough, NH 03458 



ENCYCLOPEDIA FOR THE TRS-80* & ENCYCLOPEDIA LOADER 1 V1 



?TM 



In Order < nmpletr Nels. (and save an exlra SI5.0O)' 
r'nrvrluprdia fur Ihi BMW , \ olume- I -10 
plus Pm Volume I ol I ncyclopcdia I oadcr™ 
Maid Cover r ditloa t Ml I Oil L 
r noeliiprdia f.ir the TRvM*. Volume I 10, 
pluv TOE Volume I ol Lncyclopcdia loader 
Sofl COVM edition KNMIKUI. 
sl'H im OltrK! 
r.noclopedia loader' M Volumcs I -I0LL.8000 SI11.97 

a Suv 50 value 

•Save SI 5.00 shipping and handling charge. When you order a 
complete -et ol hikui ...:c.i loaders. tt L l'A v IHI 

SHIPPING! 



MW.5II 



MIN.S0 



In Urdu single 1 olumes 
I'lca.c RBScMC llif Volume No- and svhicli cJilii 
Hard Cuter edition U SIV.W per vol. 
Volume! s) » 
soli Cover ed.lion ,i SI0,«5 per w.l. 

Volume! - I ' 

tmvclopedia I uadrr ; SI4.95 per tMMM 
Volium __ 



Shipping and handling: SI. 50 per volume lor single volumes 
books and cassettes. SIO .00 per ncm loreign air mail 
All FiKVclopedia- shipped UPS with complete Ml i 

all 1 Otden shipped Ivt class mail 



Payment enclosed 



_ MasterCard 



: VISA 



AmEx 



Card * 

Signature. 

Name 



Address 
City 



InlerBank ff 
C ard I vpires 



State 



.Zip. 



WAYNE GREEN BOOKS* SALES DEPT. 



PETERBOROUGH, NH 03458 

EN12 



PUSH YOUR TRS-80* TO ITS LIMITS 



Voiumi 1 ^ 

Down me Read 

After !h«Go a-jS" 

Bus "ess Forms The invoice 

mo* Much interest' — Tne Rule o' 78 

Computer Education 

Measu- ng instructional E'tectiveneat 

With the TSS-6C 
Using a *RS-80 !c 'abu at* Student Rat-gs 
Swo-ds and Sorcery i 
The President Deooes 
Babe Ruth Is Alive ano Well 

and Hitting Home funs on My TRS-80 
Four Graphics Methods 
TRSpirograph 
Aoventures HI Rosela^d 
Punch Out Your Dis«s 
Bu 'd a S-ooce'S'jOce- 
O'Rooi 

Doctor Your RecO'OS 
Computaca- 

B'O-Ba'S Born.Tnms m Bar G'aph Form 

TTY inte-tace 

Why Bother tc mte-'ace 

into the 80 S P»r" I. Par) n Pan I 
P-.nter Ca 'brat on 
De ay Loos 



How? 

You don't have to add on peripherals 
You don't have to add on memory 
You just have to add on information with 
ENCYCLOPEDIA FOR THE TRS-80* 



Volume 2 

The Name ana Add-ess c » 

Expense Report 

Story Math 

Sm e — TRS8C Lc.es »c 

Kero 

Tie AttacK 

Worksheet 

Curve Plotter 

Chip Tester 

Build a Light Pen 

BASIC Word Processor 

States Wor«ed 

A Program 'or fiad Amatej* 
Pe-so-a P'cpety inventory 
Testing • 2 3 
Decode CW D"ec'i, 

'rom tne Cassette Earplug 
into the 80 s Pa-t iv Pan V 
EDTASM to' Mode in 
Put Some F ash into You' Menu 
FILEX A Communication Packa 

File Exchange 



s— The Statement 



Volume 4 

Mailing List tor a Sm S " BuSheSS 

Business > 

Grade Call 

Classroom Doodles 

Asleroid Adventi-e 

Compukala 

Puzzle' 

On Your Mar*. Get Set. and Go 

p-og-am m EPRCM 

PanMutue 

Income Tai Withholding 

An Automatic Casse'te Tape interface 

Se-3 and Recede RTTY ,n BASIC 

A Be'ter Way 

Don t Be a Sic* POKE 

Take a PEEK at You- Computer 
Hairy B. Nary and Hexy Dec ma 
Instant Indexer Programm ng n D S" 9AS C 
UniKey lor tne Mode' i 
BREAK Disable 
Z-80 Disassembler 



F,e.Form 
Inventory 

A gec-a -ic 

Sucermaze 

M.cro Basketball 

images 

Regulate Your Video Monitor 

CTR 80 Modilicalions 

The Great Girl Scout Cookie Caper 

Two Energy Savers 

Listen To Your Keyboa-d 

A Deluxe Expansion inie-'ace 

interlacing tn e TRS-8C 

to me Meath h<« Prrte- 
Savmo Mac- -e Language Be ! o* BAS'C 
CiSAB— Backwa-ds Basic 
into the 80 s Part VI Pal VII 
Spoo ana Despoc 
Renumoe-'ng Made Eas T 



Volumes 

MiHoS''ve-' 
Accountant S A>3 
Vocabulary Builde- 

Numerical Expression Input ir Level II 
Pre-School Malh 
A Day al I he Races 
Slar Dreck 

S' de Show 

G-apns P'us 

ime-rupt Mode i 5 

Reverse Video Hardware Modification 

'eam Stats 

Loans— Do You Reaiiy 
Know the Cost of Yours 9 

A Home-B-ew mte-'ace 

A Hand'e on Programming Store &^<2 • 

Prime Up You' 80 

•he Z-80 s H oden Abrht.es 

KBFIX Your BASIC Programs 

File Name 

Macros: Let Youi Micro Do the Work 



The Encyclopedia for the TRS-80* is the largest single 
source of TRS-80 information in the world. All ten vol- 
umes are loaded with practical programs and articles 
designed to take you and your computer beyond the lim- 
its of the manufacturer's documentation into a new and 
exciting world. 

Each volume contains between 15 and 20 articles ac- 
companied by diagrams and program listings. Virtually 
all of the articles are totally new and cover such topics 
as utility, tutorial, business, word processing, educa- 
tion, hardware, graphics, games and more. If you were 
to purchase individually all the programs contained in a 
single volume, it would cost you more than the $109.50 

price of an of an entire ten 
volume soft-cover edition. 
Think of it — over 150 pro- 
grams for $109.50. That's 
less than 73$ per pro- 
gram! And, when you buy 
a complete set, soft or 
hardcover edition, we pay 
the $15.00 shipping and 
handling charges. PLUS 
you get Volume 1 of EN- 
CYCLOPEDIA LOADER™ 
absolutely free— A $14.95 
value. 

■Programs contained on Encyoooedia Loader 
Book 's needed to use Loade- 



Volumes 

Exponents Smoothing 

• Vote- Regisratior 

• Keeping 'rack- 

Sludent Scheduling and Anendan 
Pan I 
Pan n 



S::a 



i Mr 



Slot Machine 
Leve 1 ii G-aph cs Code 
New Com C u S«etch 
As You Like It With the PR-80 
- Aaa prom Capability to You' TRS80 
Magazine moex 

■ Money M.r-der 

Groupies » Strategy to Group L'kt Obiect 

Stick With It 
" Eas r S»WCt' Ci'Mi Outtut 'o- the TRS-80 
Take Me to Your Solenoids 

On lowarc Better Sorts ol Things 

Random Distribution Graphics 

Using LMOFFSET 

Extractor An Ace n the Ho e' 

Page P-.nt Your Listings 

Let Your *as 80 Do me Typing 



Volume 7 

Po nt and figure Charting 
lor Slocks and Commodities 

Dividend Reinvestment Plan 

Keeo-ng T-ack — 

Stjdent Bchtdu i n g and AlttAdan 
Ran in 
Part IV 

Roulette 

Five Snort Games 

RuDik s CubeiTMl Manipulator 

Eas. C«R$ G'aphics ana Animation 

Memory S'/e-20K' 

Do* BASC Word Processor 

*n e B g Game 

Usmg the use'ui UART 

Sfmg Prot ems m the IRS HO 

Hex Octal and Bma-y 



to Di". 



Con 



EMOD F-DTASM Modif calons 

tor the Model III 
Renumber One 
Command 



Volume t 
Bus i -less P'ed ic ! ion s Irom t he TRS-80 
Stock Valuation 
P-aclical Applications o! 

Classroom Programs 
Super Curve Fit 
Queer Rama s Cave 
'RS8C ,-kebo. 
'nstant Graphics 'or Everyone 
Screen Ed'to' 'or G-aphics Creations 
LewarcaM Dnvai lot tne~RS80 
Minor Monitor Maintenance 

Can you Find that Slid*' 

Controlling Your Home with You' TRS-80 

Spea" 'o- Yourse ' 

A Speech Synthesizer 'O' the TRS80 
Computer Number Systems and 

Arithmetic Operations — Part I 
Down in the Dumps' Examining Memory 
New Disk Owners Denght 
Generate 
f'O'essionai Look ng Listings 

win aTeietypeiTM' 
More Patches to EDTASM 



8 



Volum 


■ 9 


9 


' >aya*ay 






■ Your Fair Share 






Getting Yoi.r Beatings 
' Doll YourM i Maze Ra 






-I'i': 




• Munch 






..e't R.gnt tor -re CoK> 
Supe' Fast Graphics m 


Computer 




BASiC 




Racreating G'aphics 
Dynamic G-apn.cs with 
EPHOM P'og-amme' 






P n\ 








• AutOCOSt 






• Your Pe-sona' Expenti 


Account 




Ceiest ai Sc'twa-e 






Model I" ' O Port 






A B t ot Precision 






Computer Number Sys 


ems and A 


moipiic 


Ope' at o >•> -Part II 






Slow S'rrill 






• 'RSDOS Mj t.ple Com 


maml proce 


SSOf 


' Darayzap 







Volun 



i 10 



10 



' P anAnead— A Program lo-P-oiect Planning 

• Check Storage Prog -am 

• Loan Amortization 

• Physics m Motion Exp ormg the P-o.'ect le 

Prooiem 
Ancther Mag'C Tr, c « 
Sata- s Square 
Card Piaymg 
Unlocking the Color Compute' Graphics 

Character Code 
■ SBLOCK 
G-ac- csa-aZBASiC Pani Pan ii Pan in 
Heart BAS HeanOM 

• Pia--i-g Yc:.' Ret.-eme-t 

Lota Reso utio" Voice tof the CotOf Compute* 
Atan Joystick to TRS-80 Interlace 
Screen Status Byte 
tRS-80— Cryptographer 
" Lazy Logic T'aine' 

• Modify ng Scipsit Ic Sera Cont-o 

Cha-aciers t-j Prtntem 

• Snonstutt 

COMPLETE INDEX FOR »L. '0 VOLUMES 



UTILITY 



A software solution. 



Grandpa "Spooled" His 
Computer 



Tom Shield 

40 Lake Park Road 

Champaign, IL 61820 



Most large computers oper- 
ate on a time sharing ba- 
sis; the computer does a little of 
each of the many tasks it has to 
do at a time so that it can pro- 
cess all the tasks at the same 
time. Many peripherals are slow- 
er than the CPU itself; items 
such as terminals, printers and 
card readers run much slower 
than the CPU can drive them. 
The CPU can service each pe- 
ripheral and complete many 
other tasks before servicing the 
peripheral again. There is no 
need for time sharing to allow 
many users on a TRS-80, since 
most of us have only one ter- 
minal, but most of us do have a 
printer and need a spooler. 

Many spooling methods store 
the data quickly and then print 
the data while the CPU is doing 
other tasks. One method in- 
volves an extra CPU and mem- 
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ory. A second method, which I 
will present, involves using the 
computer's memory together 
with an interrupt routine to send 
characters to the printer. Both 
methods have advantages and 
disadvantages. The hardware 
method is invisible to the user 
and leaves all the machine's 
memory free, but at a prohibitive 
price. The second choice, a soft- 
ware spooler, is not invisible to 
the user and, depending on the 
buffer size, can drastically de- 
crease available memory. On 
the other hand, it is less expen- 



sive. Thus the software solution 
Is the choice of most small sys- 
tem users. 

Operation 

Spooling requires two separ- 
ate actions— storing the data 
and then sending it to the printer 
intermittently so the computer 
can do other tasks. The informa- 
tion must be intercepted before 
it is sent to the printer. The 
Model III PRCHAR (003BH) rou- 
tine jumps out into RAM at 
4025H and finds a JP 03C2H in- 
struction returning it to ROM. It 



is simple to change this to the 
address of my storage routine. 
At the point the routine jumps to 
RAM, the character to be printed 
is in the C register and the regis- 
ters are saved on the stack in 
the order HL,DE,IX,HL,BC (the 
first is an extra to balance the 
stack). I save the contents of the 
C register, POP the saved regis- 
ters off the stack, and return to 
the calling program. 

The ZBO's first maskable inter- 
rupt causes a jump to 38H in the 
ROM and disassembly shows a 
subsequent jump to RAM at 













Program Listing 


1 


ROUTINE TO 


DUMP BUFFER TO 


PRINTER BY A 


USR 


CALL 


FD70 


F3 






DI 






'DISABLE INTERRUPTS 


FD71 


21 


C2 


03 


ID 


HL.03C2H 




'REPLACE JUMP TO STORE - 


FD74 


22 


26 


40 


LD 


(4026H) ,HL 




• ROUTINE TO DISABLE SPOOLER 


FD77 


ED 


4B 


FC FD LD 


BC, (FDFCH) 




"GET END POINTER 


FD7B 


20 


FE 


FD 


LD 


ML, (FDFEH) 




'BET BEGINNING POINTER 


FD7E 


7E 






LD 


A, (HI ) 




'SET CHARACTER FROM BUFFER 


FD7F 


CD 


3B 


00 


CALL 


OOSBH 




'PRINT IT 


FD82 


23 






INC 


HL 




'POINT TO NEXT ONE 


FD83 


CD 


8D 


02 


CALL 


028DH 




'CHECK FOR BREAK 


FD86 


C2 


60 


FE 


JP 


NZ.FE60H 




' IF BREAK EXIT 


FD89 


E5 






PUSH 


HL 




'SAVE CURRENT LOCATION 


FD8A 


ED 


42 




SBC 


HL.BC 




'CHECK FOR END 


FDBC 


El 






FOP 


HL 




'RESTORE CURRENT LOCATION 


FD8D 


C2 


7E 


FD 


JP 


NZ.FD7EH 




'LOOP IF NOT DONE 


FD90 


CD 


5i.i 


EE 


[".At l 


FE50H 




"RESET POINTERS 


FD93 


21 


A<i 


FD 


LD 


HL.FDAOH 




"STORE ROUTINE ADDRESS 


FD96 


22 


2b 


40 


LD 


(4C2AH) , HL 




'CHANGE PRCHAR JUMP 


FD99 


FB 






EI 






'ENABLE INTERRUPTS 


FD9A 


C9 






RET 






'RETURN TO CALLER 


FD9B-FD9F 




00 




NOP 




















Listing continues 




TM 



HI-OCTANE IBM PC POWER 
FOR YOUR TRS-80 

WITH 

//MERLIN 

FEATURES 

Hardware 
•8088 16-Bit juP 

• Optional 8087 
Co-Processor 

• 64K Byte RAM 
(256K Byte 
expansion) 

• 8K EPROM 




8 Vectored 
Interrupts 
Real Time Clock 
RS232C Serial 
I/O (optional) 
Centronics Print- 
er Port (optional) 



Software 

• CP/M 86* 

• IBM PC* Disk 
Format 

• TRSDOS~CP/M86 
File Transfer 
Utilities 



WATCH FOR MULTI-TASKING O.S. 
Available for TRS-80 Models I or III 



Prices start at $1195 

Complete with Power Supply 
and Enclosure 



A 



-546 



miCRD PROJECTS 

Engineering Inc. 

10810 Washington Blvd., Suite C 

Culver City. CA 90230 

213/202-1865 



/^MERLIN is a registered trademark of Micro Projects Engineering Inc. *CP/M and *CP/M 86 are registered trademarks of Digital 
Research, Inc. 'IBM PC is a registered trademark of IBM. MS DOS is a registered trademark of Microsoft Inc. Wordstar and Calcstar 
are registered trademarks of Micropro International Inc. TRS-80 and TRSDOS are registered trademarks of Radio Shack Inc. 



4012H. There a JP 3018H instruc- 
tion takes the program back into 
ROM. I inserted a routine with a 
simple change in this jump ad- 
dress. Since the interrupt routine 
must continue after the inserted 
routine is done, I saved and 
restored all registers. A JP 3018H 
instruction ends the routine. 

The programs in Listing 1 ac- 
complish what I have just de- 
scribed for a 48K Model III with or 
without disks. There are three 
main programs, two subroutines 
used by the main programs and 
two short programs to enable 
and disable the spooler. The pro- 
gram to store all characters sent 
to the printer resides at FDAOH; 
the program inserted in the inter- 
rupt sequence is at FEOOH. The 
program at FD70H accessed by a 
USR call from Basic dumps the 
buffer to the printer. The enable 
spooler routine at location 
FE40H puts in the addresses of 
my routines instead of the ROM 
addresses; the routine at FE70H 
reverses this process, disabling 
the spooler. With the routine at 
FE40H set as the starting point 
for execution after loading from 
disk, the spooler is on immedi- 
ately after loading. The disable 
spooler routine is called from Ba- 
sic via a USR call. 

These programs use a pre- 
defined buffer area and commu- 
nicate the current buffer end 
and beginning by using four 
bytes of memory as pointers. 
Addresses FDFCH and FDFDH 
hold the end of buffer address, 
FDFEH and FDFFH hold the be- 
ginning address. Initializing the 
pointers to the starting value of 
F000H sets the limits on the buf- 
fer; you can replace FOOOH at 
address FE51H with any start- 
ing address of the buffer. The 
next time the buffer is empty the 
pointers will be reset to this new 
value. The end of the buffer is 
set at FD60H so the program is 
not written over. 

The programs also check 
memory bytes used as switches 
to control the spooler's opera- 
tion. The byte at FDFAH con- 
trols whether the characters are 
stored or sent directly to the 
printer; a zero value here selects 
storage and anything else re- 
verts to normal operation. Ad- 
dress FDFBH controls the inter- 
rupt routine. If it is zero, the cur- 
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Listing 1 continued 



ROUTINE TO STORE ALL CHARACTERS SENT TO PRINTER 



FDAO 


F3 






Dl 




FDA1 


F5 






PUSH 


AF 


FDA2 


3A 


FA 


FD 


LD 


A, (FDFAH) 


FDA5 


FE 


00 




CP 


OOH 


FDA7 


28 


03 




JR 


Z.FDAEH 


FDA9 


Fi 






POP 


AF 


FDAA 


FB 






EI 




FDAB 


C3 


C2 


03 


JF 


03C2H 


FDAE 


79 






LD 


A,C 


FDAF 


ED 


SB 


FC 


FD LD 


DE, (FDFCH) 


FDB3 


12 






LD 


(DE) ,A 


FDB4 


13 






INC 


DE 


FDB5 


21 


60 


FD 


LD 


HL.FD60H 


FDB8 


ED 


52 




SBC 


HL.DE 


FDBA 


CA 


CA 


FD 


JP 


Z.FDCAH 


FDBD 


ED 


33 


FC 


FD ID 


(FDFCH) ,DE 


FDC1 


Fl 






POP 


AF 


FDC2 


El 






POP 


HL 


FDC3 


Dl 






POP 


DE 


FDC4 


DD 


El 




POP 


IX 


FDC6 


El 






POP 


HL 


FDC7 


CI 






F-OP 


EC 


FDC8 


FB 






EI 




FDC9 


C9 






RET 




FDCA 


21 


C2 


03 


LD 


HL.03C2H 


FDCD 


22 


26 


40 


LD 


(4026H) , HL 


FDDO 


2A 


FE 


FD 


LD 


HL, (FDFEH) 


FDD3 


7E 






LD 


A, (HL) 


FDD4 


D5 






PUSH 


DE 


FDD5 


CD 


3B 


00 


CALL 


003BH 


FDD8 


Dl 






POP 


DE 


FDD9 


23 






INC 


HL 


FDDA 


CD 


8D 


02 


CALL 


02BDH 


FDDD 


C2 


60 


FE 


JP 


NZ.FE60H 


FDEO 


E5 






PUSH 


HL 


FDE1 


ED 


52 




SBC 


HL.DE 


FDE3 


El 






POP 


HL 


FDE4 


C2 


D3 


FD 


JP 


NZ.FDD3H 


FDE7 


CD 


50 


FE 


CALL 


FE30H 


FDEA 


21 


Ao 


FD 


LD 


HL, FDAOH 


FDED 


22 


26 


40 


LD 


(4026H) ,HL 


FDFO 


C3 


CI 


FD 


JF 


FDC1H 


FDF3-FDF9 


OO 




NOP 


SWITCHES AND POINTERS 




FDFA 


oo 










FDFB 


00 










FDFC 


oo 










FDFD 


FO 










FDFE 


00 










FDFF 


FO 










ROUTINE 


INSERTED 


IN INTERRUPT SEQUENCE 


FEOO 


F5 






PUSH 


AF 


FECI 


3A 


FB 


FD 


LD 


A, (FDFBH) 


FE04 


FE 


00 




CP 


OOH 


FE06 


28 


04 




JF, 


Z.FEOCH 


FE08 


Fl 






POP 


AF 


FE09 


C3 


18 


30 


JP 


3018H 


FEOC 


DB 


F8 




IN 


A, (FBH) 


FEOE 


E6 


FO 




AND 


FOH 


FEIO 


FE 


30 




CP 


30H 


FE12 


C2 


08 


FF 


JP 


NZ.FE08H 


FE15 


E5 






PUSH 


HL 


FE16 


D5 






PUSH 


DE 


FEW 


2A 


FE 


FD 


LD 


HL, (FDFEH) 


FE1A 


ED 


5B 


FC 


FD LD 


DE, (FDFCH) 


FE1E 


E5 






PUSH 


HL 


FE1F 


ED 


52 




SBC 


HL.DE 


FE21 


El 






POP 


HL 


FE22 


CA 


2E 


FE 


JP 


Z.FE2EH 


FE25 


7E 






LD 


A, (HL) 


FE26 


D3 


F8 




OUT 


(F8H) , A 


FE28 


23 






INC 


HL 


FE29 


22 


FE 


FD 


LD 


(FDFEH) ,HL 


FE2C 


18 


03 




JR 


FE31H 


FE2E 


CD 


50 


FE 


CALL 


FESOH 


FE31 


Dl 






POP 


DE 


FE32 


El 






POP 


m. 


FE33 


F 1 






POP 


AF 


FE34 


C3 


18 


30 


JP 


3C18H 


FE37-FE3F 


00 




NOP 


ROUTINE 


TO 


ENABLE 


THE SPOOLER 


FE40 


21 


AO 


FD 


LD 


HL, FDAOH 


FE43 


22 


26 


40 


LD 


(4026H) ,HL 


FE46 


21 


OO 


FE 


LD 


HL, FEOOH 


FE49 


22 


13 


40 


LD 


(40I3H),HL 


FE4C 


C-3 


2D 


40 


JP 


402DH 


FE4F 


OO 






NOP 





•DISABLE INTERRUPTS 
•SAVE AF 

•BET SWITCH VALUE 
'IS IT ZERO"' 
'CONTINUE IF IT IS 
•RESTORE AF 

ENABLE INTERRUPTS 
•RETURN TO PRCHAR IN ROM 
' TRANSFER CHARACTER TO A 
■GET END POINTER 

SAVE CHARACTER 
"NEXT LOCATION 
•END OF BUFFER 
•CHECK FOR OVERFLOW 
■ IF IT IS DUMP BUFFER 
'REPLACE POINTER 
•BALANCE STACK 
'BALANCE STACK 
•RESTORE REGISTERS 



•ENABLE INTERRUPTS 

•RETURN TO CALLER 

•ORIGINAL ADDRESS 

•REPLACE IT 

'GET BEGINNING POINTER 

•GET CHARACTER 

•SAVE END POINTER 

•PRINT CHARACTER 

•RESTORE POINTER 

•NEXT CHARACTER 

•CHECK FOR BREAK 

'ON BREAK EXIT 

'SAVE CURRENT LOCATION 

'CHECK FOR END 

'RESTORE CURRENT LOCATION 

'LOOP IF NOT DONE 

'RESET POINTERS 

'STORE ROUTINE ADDRESS 

'CHANGE PRCHAR JUMP 

'GOTO EXIT 



•SWITCH FOR STORAGE 
'SWITCH FOR INTERRUPT 
•END OF BUFFER POINTER 

•START OF BUFFER POINTER 



SAVE AF 
•GET SWITCH VALUE 
'IS IT ZERO^ 

IF IT IS CONTINUE 
•RESTORE AF 
•RETURN TO INTERRUPT 
'GET PRINTER STATUS 

• CHECK I T 

' IS IT 48^ 

'EXIT IF NOT READY 

•SAVE HL.DE 

•GET BEGINNING POINTER 
•GET END POINTER 
'SAVE CURRENT LOCATION 
•CHECK IF BUFFER IS EMPTY 
'RESTORE CURRENT LOCATION 

• IF EMPTY GOTO EXIT 
•6ET CURRENT CHARACTER 
'SENT IT TO PRINTER 
"POINI TO NEXT CHARACTER 
•REPLACE POINTER 
•DON'T RESET POINTERS 
•RESET POINTERS 
'RESTORE REGISTERS 



'CONTINUE WITH INTERRUPT SEQUENCE 



'LOCATION OF STORE ROUTINE 
'CHANGE PRCHAR JUMP 
'LOCATION OF INTERRUPT ROUTINE 
'CHANGE INTERRUPT JUMP 
'RETURN TO DOS 



SUBROUTINE TO RESET POINTERS TO START OF BUFFER 

FE50 21 00 FO LD HL, FOOOH 'START OF BUFFER 



Listing 1 continues 



QUALITY PERFORMANCE... 

...PROFESSIONAL RESULTS 

TRS-80 FLOPPY /HARD DISK SOFTWARE 



RECORDS MANAGEMENT DATA MANAGEMENT 



File Card 



Model I or III 48K, 1 Disk 



Model I or III 48K, 1 Disk 



Stat-to-Plotter 



One easy-to-use program replaces your 
filing cabinet and its contents! No need to 
keep changing between word processor, data- 
base manager, mailing list, file index, or desk 
calculator. We put it all together in FILE 
CARD. 

Your database entries and related texts 
appear on screen together with many options 
for sorts, global searches, reports, and labels. 
FILE CARD frees the user to dream creatively 
and work efficiently. Typical applications are: 

Personnel/case records 
Patient/client histories 
Library indexes and abstracts 
Art collection commentaries 
Customer/sales activities 
Product quality profiles 
Vendor information 

Model 11/16 64K, 2 Disk $224.50 



SPECIALIZED 
SOFTWARE 

HI-RES PRINTING WITH 
EP-Graphics 

Add our graphics commands to BASIC. 
By creating a magic slate in memory, you can 
now print HI-RES charts and graphs. The 
printouts are full-size printer/plotter emula- 
tions. Requires user to write short BASIC 
programs and have EPSON MX-80 or 100 
with Graftrax. 



Use your multipen intelligent plotter 
from Radio Shack or Houston Instruments 
to produce publication quality graphics. 
Numerical entries from database, datafile, 
or keyboard are passed through Radio 
Shack's Statistical Analysis Programs. The 
results are automatically plotted on paper 
or projection transparencies. The graphs and 
legends are accurate enough for scientists 
and engineering presentations. 



Model 11/16 64K, 2 Disk 



$79.50 



CREATE A DISK LIBRARY 

Catalog 

"Where did I put that program?" With 
CATALOG, a few keystrokes will find any 
program/file in your collection. The screens, 
sorts, printouts, and ability to handle "funny" 
disks make this the professional's choice. 

Model I 48K, 1 Disk $69.50 

EDUCATION ASSISTANCE 

Tumble 

Explore the realism of rotating images 
with smooth, real-time graphics. Adjust 
speeds and tilts from either keyboard or 
joystick with this simple, fun, educational 
package. 



$39.50 



PROJECT MANAGEMENT 
Gantt-Pack V 3.0 

This FAST, flexible, powerful program 
can manage all your scheduling needs. Use 
the GANTT-PACK charts to visualize: 

Hourly client/patient visits 
Daily appointments and meetings 
Weekly work crew assignments 
Monthly short course offerings 
Yearly research projects 

The GANTT-PACK charts and tables help 
manage time and organize activities. We 
$99.50 automated and enhanced the information 
available on the charts, and made them very 
easy to update or change. Engineers have 
used this technique for over fifty years. Now 
everyone can benefit without having to be a 
draftsman or programmer. 

We are especially proud to offer this pro- 
gram with similar screens, printouts, and file 
structures for all these computers. 



Model I or III 48K, 2 Disk 
Model 11/16 64K, 2 Disk 



$224.50 
$224.50 




SERVICE, QUALITY AND RELIABILITY FOR: 

Small businesses, professionals, government contractors, major 
corporations, schools and colleges, and people from all walks of life. 




LIBRA LABORATORIES, INC. 

495 MAIN STREET, METUCHEN, NEW JERSEY 08840 



201-494-2224 



Terms: 

Orders shipped UPS free for M/C, VISA, check, or money order. 

Orders shipped UPS COD. for purchase order number. 

International orders add 10%. 

Please specify computer model. 



Dealer Inquiries Invited: 



Radio Shack Trademark of Tandy Corporation. 
TRS-80 Trademark of Tandy Corporation. 
Epson Trademark of Shinshu Seiki Co., Ltd. 
HI-PLOT Trademark of Houston Instruments. 



■See List ol Advertisers on Page 451 
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rent byte in the buffer is sent to 
the printer every interrupt cycle, 
otherwise nothing is done. This 
allows all the data printed by a 
program to be stored and 
dumped at once, using the rou- 
tine at FD70H after program ex- 
ecution is complete. If the buffer 
is filled, the contents will be 
sent to the printer regardless of 
the status of the byte at FDFBH. 
This ensures no lost data on buf- 
fer overflow. 

Use 

The spooler program given 
here is invisible; when in place 
the only sign of its operation is 
the Ready prompt under Basic 
or DOS while the printer is run- 
ning. The program can be en- 
tered with a disk system by us- 
ing Debug to POKE the values 
into memory and then using 
DUMP to save it to disk. When 
dumping the program to disk, 
set TRA = OFE40 so the program 
is enabled immediately when it 
is called under DOS. Make sure 
the pointers are included in the 
dump and are both set to FOOOH; 



Listing 1 continued 








FE53 


22 


FE FD 


LD 


(FDFEM),HL 


•RESET START POINTER 


FE56 


22 


FC FD 


LD 


(FDFCH) ,HL 


•RESET END POINTER 


FE59 


D9 




RET 




•RETURN 


FE5A-FE3F 


00 




NOP 




EXIT ROUTINE UN BREAK 






FEAO 


CD 


50 FE 


CALL 


FESOH 


•RESET POINTERS 


FE&3 


21 


Ao FD 


LD 


HL.FDAOH 


•LOCATION OF STORE ROUTINE 




22 


26 40 


LD 


(4U26H) ,HL 


•REPLACE JUMP ADDRESS 


FEA9 


hb 




EI 




'ENABLE INTERRUPTS 


FE6A 


a 


19 1A 


JP 


1A19H 


■JUMP TO BASIC READY 


FE&D-FE6F 


OO 




NOP 




ROUTINE 


TO 


DISABLE 


THE SPOOLER BY A USR CALL 




FE70 


21 


C2 03 


LD 


ML.03C2H 


'ORIGINAL PRCHAR ADDRESS 


FE73 


22 


26 4u 


LD 


(4U26H) ,HL 


•REPLACE IT 


FE76 


21 


IB 30 


LD 


HL.3018H 


'ORIGINAL INTERRUPT ADDRESS 


FE79 


22 


1 5 40 


LD 


(4013H) ,HL 


'REPLACE IT 


FE7C 


L'V 




RET 




•RETURN TO CALLER 


Listing 


1 : 


(o»«iented disassembly o4 spooler 


as it should 






be loaded intc 


memory. 





or the program will try to send 
the empty buffer to the printer. 
Set the switch values to the sta- 
tus desired when the program is 
loaded. Without disks, use List- 
ing 2 to POKE the program into 
memory. At FE4CH the jump to 
DOS (402DH) is replaced with a 
return (C9) instruction allowing 
the spooler to be enabled by the 
Basic USR call in the program. 







Program Listing 2 








11 


CLS:DEFINT I 










21 


SUH-0 










30 


PR I NT "PROGRAM TO 


LOAD SPOOLER FOR THE - 








40 


PRINT'HODEL III, 


3Y TOM SHIELD, AUGUST 


till" 






51 


PRINT'MEMORY SIZE 


SHOULD BE SET AT 6140 


|" 






II 


FORI— 656 TO -38{ 


"LOAD FROM PD70H TO 


FE7CH 






71 


READ BYTE 










81 


POKE I, BYTE 










90 


SUM-SUM+BYTE 










100 NEXT I 










110 IF SUM034143 THEN PRINT'CHECK SUM ERROR, CHECK 


•DATA' 


STATE 








Listing 2 continues 




AT LAST!!! A Micro-Design 
Model III System Upgrade. 

C The MicRO-DisiqiM ModEl III upqRAdE iNcludES MicRO-DEsiqNs exceptional MDX 6 disk 
J controIIer bo And, one 40 tracIc doublE dENSJTy Disk Drjve, necessary jnsta Uatjon cadIes ANd 

L hARdWARE. ( ~~~~ 

, i ~ ■ 

Fou Mori InIommaijon & rnti Ljhrauhi 
CaII or Write 

MICRO-DESIGN 

6>01 MancNaca RoAd 
Alshn Tixas, 78745 

1-800-531-5002 




S«« our Full Piq* Ad on Pag* 407 
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Mod III GRAFYX SOLUTION $299.95 .« 

• 512 x 192 Dot Graphics increases resolution 16 X (better than Apple] 

• Extensive Business, Personal, Educational, and Scientific applications 

• 14 BASIC commands set and reset Points, Lines, Circles, Boxes, etc. 

• Allows Display and Printout of detailed Line, Bar, and Pie graphs 

• 80 Character/line display compatible with BASIC programs and DOS 

• Price includes 98K bits memory, 30 programs, 52 page manual 

• Plug-in, clip-on board eliminates soldering for easy installation 




<8> 



** 



$40 



T* 
♦ 



VALID 11-1 to 12-31-82 



MtW punfuniiiK Cijlv> SoJn ix 80-t.uli>. rnwn 
i uupofi with riitiNlrjIKMi loim '<> r<-< i-ivr rrtutr 




Mod I, III 80-CRAFIX Q $169.95 ^ 

• Create and Save 128 programmable hi-resolution characters/shapes 

• Characters are generated within an 8 x 12 matrix (Mod I: 6 x 12) 

• Great for creating game figures, symbols, and alternate character sets 

• Excellent software support (20 programs) & extensive documentation 

• Module easily installs within the computer with no soldering 



Manual only $15 
Products guaranteed 
Dealers welcome 

^ Sm List ot Advertisers on Page 45 1 



Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 



FREE shipping 

Prepaid or COD 

Tx. res add 5% 
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Under Basic answer the mem- 
ory size question with 61400 to 
protect the program and its buf- 
fer. Different buffer sizes require 
a different setting. Under DOS, 
the program needs to be pro- 
tected from being overwritten by 
commands that use the top 
180H of memory. Executing a 
Clear (MEM =0F000) under DOS 
allows the spooler to execute 
under DOS as well as Basic. 
Failure to do this causes the ma- 
chine to hang up when the pro- 
gram is erased and the interrupt 
sequence branches to a nonex- 
istent routine. 

The spooler stores data and 
sends it to the printer when it is 
available; since the buffer size is 
fixed, only a limited amount of 
data can be stored. If the buffer is 
filled faster than it is printed, it 
will eventually be full. When this 
happens the whole buffer is 
dumped to the printer so that no 
data are lost. Since this is done 
by the character storing routine, 
the Ready prompt will not appear 
until the buffer is empty and nor- 
mal operation has resumed. If 
you do not want the buffer con- 
tents or simply need to stop 
sending data to the printer, Break 
stops execution and clears the 
buffer. This is also true for the 
routine to dump the buffer via a 
USR call. Since the interrupt 
routine only sends data to the 
printer when it is ready you can 
put your printer off-line to change 



or adjust the paper while a pro- 
gram is running without stopping 
its execution. 

A spooler is a very useful util- 
ity but you must understand 
what it does to maximize its use. 
If a program producing output is 
slower than the printer you do 
not need the spooler: The printer 
will be ready when the program 
needs it. If you use programs 
that need large amounts of 
memory or do word-processing 
with big documents, using mem- 
ory as a buffer is detrimental to 
normal operation. On the other 
hand, if you have a short pro- 
gram to LLIST, after which you 
would like to look at a disk direc- 
tory or run the program, it is 
great to get the Ready prompt 
almost before the printer starts. 
Or if you want to print 10 each of 
various mailing labels you can 
enter the next address while the 
previous one is still printing! 
The advantages are endless. 
The sound of most printers is 
not very musical; with a spooler I 



Listing 2 continued 


MENTS'iEND ELSE PRINT'LOAD COMPLETE, AND SPOOLER RUNNING" 


121 POKE 


16526, 64: POKE 16527,254 'WITH DISKS DEFUSR0-&HFE40 


130 X-USR(0) 'OR X-USR0I0) WITH DISKS 


140 PRINT'SOME IMPORTANT ADDRESSES AREl" 


150 PRINT" -448 (&HFE40) -LOCATION OP ENABLE SPOOLER ROUTINE" 


160 PRINT" -400 (4HPE70) -LOCATION OF DISABLE SPOOLER ROUTINE" 


170 PRIN* 


" -656 (4HFD70) -LOCATION OF PRINT BUFFER ROUTINE" 


160 PRINT" -518 (iHFDFA) -LOCATION OP STORE SWITCH" 


190 PRINT* -517 (4HFDPB) -LOCATION OP INTERRUPT SWITCH" 


200 END 




210 DATA 


243, 33, 194, 3, 34, 38, 64, 237 


220 DATA 


75, 252, 253, 42, 254, 253, 126, 205 


230 DATA 


59, 0, 35, 205, 141, 2, 194, 96 


240 DATA 


254, 229, 237, 66, 225, 194, 126, 253 


250 DATA 


205, 80, 254, 33, 160, 253, 34, 38 


260 DATA 


64, 251, 201, 0, 0, 0, 0, 


270 DATA 


243, 245, 58, 250, 253, 254, 0, 40 


280 DATA 


5, 241, 251, 195, 194, 3, 121, 237 


290 DATA 


91, 252, 253, 18, 19, 33, 96, 253 


300 DATA 


237, 82, 202, 202, 253, 237, 83, 252 


310 DATA 


253, 241, 225, 209, 221, 225, 225, 193 


320 DATA 


251, 201, 33, 194, 3, 34, 38, 64 


330 DATA 


42, 254, 253, 126, 213, 205, 59, 


341 DATA 


209, 35, 205, 141, 2, 194, 96, 254 


350 DATA 


229, 237, 82, 225, 194, 211, 253, 205 


360 DATA 


80, 254, 33, 160, 253, 34, 38, 64 


370 DATA 


195, 193, 253, 0, 0, 0, 0, 


380 DATA 


0, 0, 0, 0, 0, 240, 0, 240 


390 DATA 


245, 58, 251, 253, 254, 0, 40, 4 


400 DATA 


241, 195, 24, 48, 219, 248, 230, 240 


410 DATA 


2S4, 48, 194, 8, 254, 229, 213, 42 


420 DATA 


254, 253, 237, 91, 252, 253, 229, 237 


430 DATA 


82, 225, 202, 46, 254, 126, 211, 248 


440 DATA 


35, 34, 254, 253, 24, 3, 205, 80 


450 DATA 


254, 209, 225, 241, 195, 24, 48, 


460 DATA 


0, 0, 0, 0, 0, 0, 0, 


470 DATA 


33, 160, 253, 34, 38, 64, 33, 


480 'IN LINE 490 FOR DISKS REPLACE 201->195,0->45,0->64 


490 DATA 


254, 34, 19, 64, 201, 0, 0, 


500 DATA 


33, 0, 240, 34, 254, 253, 34, 252 


510 DATA 


253, 201, 0, 0, 0, 0, 0, 


520 DATA 


205, 80, 254, 33, 160, 253, 34, 36 


530 DATA 


64, 251, 195, 25, 26, 0, 0, 


540 DATA 


33, 194, 3, 34, 38, 64, 33, 24 


550 DATA 


48, 34, 19, 64, 201 













Program Listing 3 


FEBO 


7E 






LD 


A, (ML) 


•GET 1ST CHARACTER AFTER F1LESPEC 


FEB1 


FE 


OD 




CP 


ODH 


' IS THERE NONE? 


FE83 


CA 


DC 


FE 


JP 


Z , FEDCH 


•THEN JUST ENABLE SPOOLER 


FEBb 


CD 


00 


F-F 


CALL 


FFOOH 


'CONVERT TO HEX 


FE89 


E5 






PUSH 


HL 


'SAVE POSITION 


FEBA 


21 


00 


10 


LD 


HL, lOOOH 


'MULTIPLIER FOR 1ST DIBIT 


FE8D 


D5 






PUSH 


DC 


'SAVE DE 


FE8E 


CD 


4E 


44 


CALL 


444EH 


'CALL «DHULT 


FE91 


Dl 






POP 


DE 


'RESTORE DE 


FE92 


65 






LD 


H,L 


"MOVE MIDDLE BYTE 

Listing 3 continues 



C & S Electronics Mcirt Ltd 



Deafer R 491 



32 E Main Street. Milan. Michigan 48160 



Telephone (313) 439-1400 — 439-1508 



26-1061 
26-1062 
26-1065 
26-1066 
26-4002 
26-3001 
26-3002 
26-3003 
26-3022 
26-3023 
26-5000 
26-5001 
26-3501 
26-3503 
26-3505 



Model 111 4K Lev. I $650.00 

Model HI 16K Lev. 11 805.00 

Model 111 48K 1 disk 1660.00 

Mod. Ill48K2disk/RS-232 2050.00 
64K Model 11 1 disk 2995.00 

Color Comp. 4K Lev. 1 300.00 

Color Comp. 16K Lev. llext. 450.00 
Color Comp. 32K Lev. llext. 590.00 
O-DrivcforC.C. 520.00 

1-3 Drives for C.C. 340.00 

Videotext4K 320.00 

Videotex! 16K 420.00 

Pocket Comp. 135.00 

Interface 26.00 

Printer/Interface 115.00 




We will match or beat any price in the United States. 



Puces can change uirhout notification. All prices are cash prices, there u ill he a 4% handling charge /or credit card use 



Colter 



48 K 2 disk drive 40 track 


$1800.00 


48 K 2 disk /KS- 2 32 


1875.00 


48 K 2 disk/80 track 


1950.00 


48 K 2 disk/80 track/RS-232 


2025.00 


Printers 




Comet Printer 


340.00 


Smith Corona TP- 1 


695.00 


Line Printer V 


1595.00 


Cltoh8510 


700.00 


Line Printer VI 


950.00 


Line Printer Vll 


280.00 


Line Printer Vlll 


670.00 


Daisy Wheel II 


1675.00 


Quick Printer 


275.00 


Quick Printer II 


170.00 


Plotter 


1320.00 



s 138 
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| Listing 3 continued 










FE93 


6F 






LD 


L,A 


'HOVE LOWER BYTE 


FE94 


EB 






EX 


DE.HL 


'SAVE RESULT 


FE93 


El 






POP 


HL 


'RESTORE POSITION OF BUFFER 


FE96 


23 






INC 


HL 


'NEXT CHARACTER 


FE97 


CD 


OO 


FF 


CALL 


FFOOH 


■CONVERT TO HEX 


FE9A 


E5 






PUSH 


HL 


•SAVE POSITION 


FE9B 


21 


oo 


Ol 


LD 


HL.OIOOH 


'MULTIPLIER FDR 2ND DIGIT 


FE9E 


D5 






PUSH 


DE 


'SAVE DE 


FE9F 


CD 


4E 


44 


CALL 


444EH 


•CALL •DHULT 


FEA2 


Dl 






POP 


DE 


'RESTORE DE 


FEA3 


65 






LD 


H,L 


'MOVE MIDDLE BYTE 


FEA4 


bF 






LD 


L.A 


'MOVE LOWER BYTE 


FEAS 


ED 


5A 




ADC 


HL.DE 


•ADD IN EARLIER RESULT 


FEA7 


EB 






EX 


DE.HL 


•SAVE IT 


FEA8 


El 






POP 


HL 


•RESTORE BUFFER POSITION 


FEA9 


23 






INC 


HL 


•NEXT CHARACTER 


FEAA 


CD 


OO 


FF 


CALL 


FFOOH 


•CONVERT TO HEX 


FEAO 


E5 






PUSH 


HL 


'SAVE POSITION 


FEAE 


21 


10 


00 


LD 


HL.OOIOH 


•MULT FOR 3RD DIBIT 


FEB1 


D5 






PUSH 


DE 


'SAVE RESULT 


FEB2 


CD 


4E 


44 


CALL 


444EH 


•CALL »DMULT 


FEB5 


Dl 






POP 


DE 


•RESTORE TOTAL 


FEB6 


65 






LD 


H,L 


•MOVE MIDDLE BYTE 


FEB7 


6F 






LD 


L,A 


"MOVE LOWER BYTE 


FEB8 


ED 


5A 




ADC 


HL.DE 


'GET TOTAL 


FEBA 


EB 






EX 


DE.HL 


'SAVE IT 


FEBB 


El 






POP 


HL 


'RESTORE BUFFER POSITION 


FEBC 


23 






INC 


HL 


'NEXT ONE 


FEBD 


CD 


OO 


FF 


CALL 


FFOOH 


'CONVERT TO HEX 


FECO 


bF 






LD 


L.A 


•LOW ORDER BYTE 


FECI 


26 


OO 




LD 


H.OOH 


•HIGH ORDER BYTE 


FEC3 


ED 


SA 




ADC 


HL, DE 


■ADD TO TOTAL 


FEC5 


11 


OO 


80 


LD 


DE.BOOOH 


•LOWER LIMIT ON BUFFER 


FEC8 


E5 






PUSH 


HL 


•SAVE TOTAL 


FEC9 


ED 


52 




SBC 


HL.DE 


•CHECK IT 


FECB 


El 






POP 


HL 


•GET TOTAL 


FECC 


FO 


DC 


FE 


JP 


H.FEDCH 


•EXIT IF TOO LOW 


FECF 


E3 






PUSH 


HL 


'SAVE TOTAL 


FEDO 


11 


60 


FD 


LD 


DE.FDt.OH 


•UPPER LIMIT ON BUFFER 


FEDS 


ED 


52 




SBC 


HL.DE 


'CHECK IT 


FEDS 


El 






POP 


HL 


'BET TOTAL 


FED* 


F2 


DC 


FE 


JP 


P.FEDCH 


'EXIT IF TOO HIGH 


FED9 


22 


51 


FE 


LD 


(FE51H) ,HL 


'CHANGE BUFFER POINTER 


FEDC 


21 


AO 


FD 


LD 


HL.FDAOH 


'STORE ROUTINE ADDRESS 


FEDF 


22 


26 


40 


LD 


(402oH),HL 


•CHANGE LPRINT JUMP 


FEE2 


21 


OO 


FE 


LD 


HL.FEOOH 


' INTERRUPT ROUTINE ADDRESS 


FEES 


22 


13 


40 


LD 


<4013H),HL 


'CHANGE INTERRUPT JUMP 


FEE8 


C3 


2D 


40 


JP 


402DH 


•JUMP TO DOS 


FEEB-FEFF 


00 




NOP 


'OR ANYTHING 


FFOO 


7E 






LD 


A, (HL) 


'GET CHARACTER 


FFOl 


FE 


40 




CP 


40H 


'COMPARE TO 40H 


FF03 


F2 


OA 


FF 


JP 


P.FFOAH 


■ IF LETTER JUMP 


FF06 


DE 


F2 




SBC 


A.2FH 


•CORRECTION FOR NUMBERS 


FF08 


18 


02 




JR 


FFOCH 


•GOTO RETURN 


FFOA 


DE 


37 




SBC 


A.37H 


'CORRECTION FOR LETTERS 


FFOC 


C9 






RET 




•RETURN 


L latin 


g 3i 


Routine to a 


•t the but far 


Biz* whan the spool er 






1 % 


called from DOS. It i* 


siaply addad to tha 






ra«t o* tha 


program wi th TRA-FE80 on duap to disk. 



spend less time listening and 
staring at a lifeless screen. 

Program Refinements 

I have made two additions to 
the program for DOS users only. 
You can solve the problem of ex- 
ecuting a CLEAR (MEM = xxxxx) 
by applying the following patch 
to the spooler once it is on disk: 

PATCH SPO0L/CMD (ADD = 0FES9.FIND 
■ C9000000.CHG • 221 144C9) 

This patch automatically pro- 
tects the spooler from DOS. The 
program in Listing 3 sets the 
start of the buffer when the 
spooler is called from DOS. Add 
this segment to the end of the 
spooler program and DUMP from 
FD70H to FFOCH to disk setting 
TRA = 0FE80. The program reads 
the first four characters after the 
filespec (the normal TRSDOS 
syntax) and uses that address as 
the new beginning for the buffer. 
You must enter the address in 
hexadecimal format with no 
leading characters. To set the 
start of the buffer to DOOOH ex- 
ecute under DOS: SPOOL DOOO. 
If no address is entered the 
default value of FOOOH is used as 
before. Note you must still pro- 
tect the spooler under Basic. An- 
other useful trick is to DUMP the 
code at FE70H to FE7CH with 
TRA =0FE70 under the name of 
SPOOLOFF. Entering SPOOL- 
OFF from DOS turns the spooler 
off. ■ 



THE 



SPECIALS 

COLUMN 



PMC-81 16K $499 
TIMEX 1000 $85 

Offer Ends December. 1982 

24 HRS ORDERS ONLY CALL 
800-633-2252, Ext 720 



All Other Calls 313-538-1 112 



BARGAIN 



PRICES ! 



TR8-80 COMPATIBLES 

PMC-81 16K 
PMC-81 48K 
PMC-81 CPM 
LNWS0 48K 
LNWSO H 48K CPM 

EXPANSION INTERFACES 

LNW32K 
HOLMES P41 16K 
HOLMES PC/1M2P 32K 
FREEDOM OPTION 
FREEDOM PLUS 

DISK DRIVES 

BASF40TRKS/S 

TAMDOft 

100-1 40TRK S/S 

100-2 40TRK D/S 

100-3 BOTRK S/S 

100-4 80TRK D/S 

AM ELECTROrtCSc 

5 MEG HARD DISK W DOS 



J565 

$715 

»770 

S1295 

$1595 

$349 

$109 
$129 
$199 
$399 

$215 
BARE; COMPL 



$199 
$280 
$280 

$340 



$235 
$319 
$319 
$375 

$1679 



C-TTOH F 10 PAR/SER 




$1365 


C-rrOH PROWRTTER PAR 




$469 


c-rroH PROwRrrER ser 




$569 


F 10 TRACTOR FEED 




$195 


an mormons 






AMDEK: Bfc w 100 M9 


GREEN 


• 159 


COLOR $359 


ROB 


•799 


MODEMS 






MKROPERFHERAL 






Modd US COLOR 




$189 


ANCHOR AUTOMATION 






SIGNALMAN DR CONN 




$85 



SOFTWARE 

LAZY WRITER 
ELECTRIC WEBSTER 
MAX! MANAGE 
POSTMAM 
DOS PLUS 3.4 



$159 
$145 

169 
$119 

$99 



MKhTGAH RESOENTS ADO 4* TAX - CALL FOR POSTAGE - «0CES ARE DBCOUNTED FOR CASH AMD MONEY 
ORDERS (NOW CERTF1ED CHECKS ALLOW i WEEKS TO CLEAR) - MASTERCARD 6 VISA ADO » - MO COD - MAI. 
ORDER ONLY 




%/BCP A COMPUTER OUTLET 

W EVlM 16727 Patton. Detroit MJ48219 



-518 






*• See List ot Advertisers on Pege 451 



80 Micro, December 1982 • 235 



UTILITY 



LOAD 80 



Now where did I put these files? 



Diskmap 



LCDR John B. Harrell, III 
RR 1, Box 841, TatnicRd. 
Wells, ME 04090 



I have wondered many times 
just how the Disk Oper- 
ating System places files on the 
disk. I have had to worry about 
the placement of files when 
moving from one disk system to 
the other especially if the track 
count for the drives is different. 
One may easily find file loca- 
tions with a utility such as 
Apparat's Superzap and a refer- 
ence such as the TRS-80 Disk 



and Other Mysteries by H.C. 
Pennington. This is time-con- 
suming and requires constant 
reference to the book to remem- 
ber what the information pre- 
sented means. 

Diskmap uses the information 
in Pennington's book to present 
file structure concisely. Figure 
1 shows the type of display 
that Diskmap constructs, re- 
peated four times to map a 40- 
track disk. I have found it useful 
to look at the directories of 
disks with no system on them. 
Diskmap was written to be inde- 
pendent of the major operating 
systems primarily by the inclu- 
sion of disk read and manipula- 
tion routines. 

Floppy Disk 
Formatter/Controller 

At the heart of this utility pro- 
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Fig. 1. Disk Granule Map 





gram are the disk control and in- 
put routines. To understand 
these routines, you must under- 
stand how the disk is interfaced 
with the expansion interface 
and the Western Digital FD1771- 
01 floppy disk formatter/con- 
troller chip. 

The Floppy Disk Controller 
(FDC) takes commands from the 
computer and uses them to 
position the proper disk head 
and to read data from or write 
data to the storage medium (the 
disk). The FDC interface to the 
computer is an 8-bit bidi- 
rectional bus for data, status, 
and command transfers. On the 
TRS-80 this interface consists of 
memory-mapped addresses for 
each FDC register. Data flow to 
or from the FDC is controlled by 
one of the addresses in Table 1 
in a memory-store or memory- 
load operation. 

There are eleven commands 
used with the FDC: These com- 
mands are divided into four 
groups. Refer to Table 2 for the 
structure of the commands. 
Each command is issued to the 
FDC by a store operation to the 
command register (X'37EC) us- 
ing the appropriate command. 
Obtain the status of the com- 
mand just issued from a load 
from the Status register 
(X'37EC); interpret it by refer- 
ence to Table 3. A Read Sector 
command is performed by first 
seeking the correct track and 



looking at status to determine 
the state of the Busy bit, while 
waiting for the command to ter- 
minate. The appropriate sector 
number is then stored in the 
Sector register and the Read 
command is issued. The pro- 
gram then polls the DRQ and 
BUSY bits to determine the 
state of the Read command. 

The Restore command reposi- 
tions the disk head over track 
zero and the FDC Track register 
is set to zero at the termination 
of the operation. The h field, the 
Head Load flag, causes no ac- 
tion on the TRS-80 as the head is 
loaded when the disk is selected 
and the drive motor is turned on. 
The v flag causes the FDC to 
verify that the track number on 
the track last read is the same 
as the contents of the Track reg- 
ister. The last field, rr, controls 
the rate at which the FDC issues 
stepping pulses to the disk. The 
stepping rates for the disk head 
given in Table 2 are for an FDC 
using a one Megahertz clock; a 2 
MHz clock halves these times. 
These three fields are the same 
for the remainder of the Type I 
commands. 



The Key Box 

Basic Level II 

Model I 

16K RAM 

TRSDOS 

One to four disk drives 



236 • 80 Micro, December 1 982 



The Seek command tells the 
FDC to compare the track num- 
ber in the Data register (a previ- 
ous instruction must load the 
Data register) with the current 
contents of the Track register. 
The FDC then issues the ap- 
propriate number of stepping 
pulses in the correct direction to 
cause the head to travel to the 
desired track. 

The Step command causes 
the FDC to issue one step pulse 
to the selected drive's head. The 
direction of the Step is the same 



as the direction of the last Step 
issued. The u field updates the 
Track register to the proper 
value for the corresponding 
track. If the u flag is not used, 
the user must keep track of the 
disk head location. 

The two commands Step-in 
and Step-Out are similar to Step 
except that the direction of head 
travel is explicitly defined in the 
command. All fields in these 
commands operate as in the 
Step command. 

The second group of FDC 



TRS-M ADDRESS 


MEMORY LOAD 


MEMORY STORE 


X37EV 


N/A 


Select drive & start 


X37EC 


Read STATUS reg 


Load COMMAND reg 


X37ED 


Read TRACK reg 


Load TRACK reg 


X37EE' 


Read SECTOR reg 


Load SECTOR reg 


X37EF- 


Read DATA reg 


Load DATA reg 




Table 1. Memory Map 



COMMAND 

RESTORE 

SEEK 

STEP 

STEP IN 

STEP OUT 

READ COMMAND 

WRITE COMMAND 

READ ADDRESS 

READ TRACK 

WRITE TRACK 

FORCE INTERRUPT 



FLAG BIT SUMMARY 

h = 1 Load head at beginning (TRS-80 default loads the head when the motor 

is started and the drive selected) 
h = Do not load head at beginning 

v = 1 Verify on last track 
v = No verify 

rr = Stepping motor rate (bits 0-1) (step rate is for 1 MHz clock in the FDC) 
0=12 msec per track 

1 = 12 msec per track 

1 = 20 msec per track 
1 1 = 40 msec per track 

u = 1 Update TRACK register 
u = No update 

m = 1 Read or write multiple records 
m = Read or write single records 

b = 1 IBM standard format (128. 256. 512. or 1024 bytes) 
b = Non-standard (length is multiple of 16 up to 4096) 

aa = Data Address Mark 

= FB data mark (normal data mark) 

1 = FA data mark (user defined) 

1 = F9 data mark (user defined) 

1 1 = F8 data mark (deleted data mark) 

s = 1 Synchronize to address mark 
s = No synchronize 

mi = Interrupt Condition Flags 

0000 = Terminate and force not busy with no interrupt 
bit = interrupt on not ready to ready transition 
bit 1 = interrupt on ready to not ready transition 
bit 2 = interrupt on index pulse 
bit 3= interrupt immediately 

e = 1 Enable HLT. HLT, and the 10 msec delay 

e = Head is assumed engaged and there is no delay 

Table 2. FDC Command Summary 



commands are data movement 
commands for reading and writ- 
ing data to or from the disk. The 
adaption used to transfer data 
in the TRS-80 is called Pro- 
grammed input/output. The Z80 
Central Processing Unit (CPU) 
must continually poll the FDC 
and be ready to accept or pro- 
vide data. This concept is op- 
posed by the Direct Memory Ac- 
cess (DMA) method. With DMA 
the FDC actually demands and 
receives full control to the ad- 
dress and data busses of the 
computer; data transfers direct- 
ly to the memory store without 
the CPU. This allows overlapped 
execution with data transfer and 
alleviates the I/O bound central 
processor. 

There are several require- 
ments before the performance of 
Read or Write commands. First, 
the drive must be selected and 
the motor must be up to normal 
operational speed. TRSDOS and 
NEWDOS 2.1 assume that this 
time delay is approximately one 
second. NEWDOS80 sets this 
delay at one-half second. Sec- 
ond, a Seek instruction must po- 



sition the head over the appro- 
priate track. Third, the Sector 
register in the FDC must be set 
to the number of the sector to be 
read or written. 

The format of the Read and 
Write commands is in Table 2. 
Note that they have similar 
fields of m, b, and e. The m field 
enables a multiple sector trans- 
fer of information. The FDC 
transfers information and up- 
dates the sector register until 
the sector register contains a 
number larger than the highest 
sector number on the track or 
until a Force Interrupt command 
is loaded into the Command reg- 
ister. The b field identifies the 
format type as standard IBM or 
non-standard. This changes the 
FDC's interpretation of the sec- 
tor length code and is part of the 
record identification. The e field 
is not used in the Model I. On the 
Write command, the aa field 
specifies the type of Data Ad- 
dress Mark (DAM) for the sector 
transferred. The standard DAM 
is an X'FB' for all sectors other 
than the directory (DIR/SYS), 
which uses DAM X'FA' to show 
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read protection. This is why you 
get error code six if you attempt 
to read the sector in Basic. You 
can read the directory from a 
Basic program if you trap this er- 
ror and if you change byte 01 in 
sector 1 (the HIT sector) from 
2CH to C4H. 

Group III commands include 
the following: Read Address, 
Read Track, and Write Track. 
These commands are used to 
format a disk and to verify that it 
can be read. The Read Address 
command reads the six identifi- 
cation bytes from the disk in the 
next ID field.These six bytes are: 

• Track Address (zero to num- 
ber of track minus one) 

• Side Number (usually reflects 
the side of the disk; in TRSDOS 
disks this value is zero) 

• Sector Address (usually zero 
through nine) 

• Sector Length 

• Two CRC bytes 

Read Track reads the entire 
track of information: the data, 
the ID bytes and all the gaps. In- 
formation is transferred similar 
to the Read command. The Data 
Request Bit (DRQ) signals when 



data has been assembled by the 
FDC and is ready for transfer. 

Write Track is used principal- 
ly to format the disk by writing 
appropriate control information 
to the disk. This command is not 
normally used to write data to 
the disk as several bytes have 
special meaning to the FDC 
(bytes X'F7' through X'FE'). The 
use of these special bytes is 
described in Table 4. 

The last command group has 
only one command. Force Inter- 
rupt stops the FDC and forces it 
to generate an interrupt. If any 
conditions in the command are 
set (see Table 2), the command 
forces the FDC to terminate, 
drop the BUSY status bit, and in- 
terrupt. If none of these condi- 
tions are selected, the FDC 
terminates the current opera- 
tion and resets BUSY without 
interrupt. 

Disk structure is generally 
standard IBM format; the disk is 
formatted using sector multi- 
ples of 128 bytes (128,256,512, or 
1024 bytes). The non-standard 
disk is formatted to use a sector 
having a length that is a multiple 
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Status for Typa I commands 



BIT 


NAME 


S7 


Not Ready 


S6 


Protected 


SS 


Head Loaded 


S4 


SeeK Error 


S3 


CRC Error 


S? 


Track Zero 


s- 


Index 


SO 


Busy 


Status for Typa ll/lll commands 


BIT 


NAME 


S7 


Not Ready 


S6 


Record Type 




Write Prot 


85 


Record Type 




Write Fault 


S4 


Rec Not Fnd 


S3 


CRC Error 


S2 


Lost Data 


S1 


Data Req 


so 


Busy 



MEANING 

The selected drive is not ready 
The Write Protect tab is on the disk 
Indicates the head is loaded and engaged 
The desired track was not verified 
There was at least one CRC error on a track 
verification operation 

The current position of the head is over track 
zero 

The index mark from the drive has Deen de- 
tected by the FDC 
The FDC has a command in progress 



MEANING 

The selected drive is not ready. Type ll/lll 
commands will not execute if the drive is not 
ready 

On a Read record, this bit indicates part of a 
two bit representation which is indicative of 
the type of Data Address Mark (DAM) en 
countered. On a Write record, this bit re 
fleets write protect status 
On a Read Sector command, this is the sec- 
ond of the bits for type of DAM found On a 
Write Track command, it indicates a write 
fault 

The sector and/or the track were not found at 
the current head location. 
A CRC error was detected during a read 
command 

The program did not respond to the DRQ 
within the time frame of being able to read 
or write two bytes to the disk 
The Data register has been filled when exe- 
cuting a Read command or has been emp- 
tied while performing a Write command 
The FDC is busy with the current command 



Table 3. Status Register Summary 



of 16 bytes; this length varies 
from 16 to 4,906 bytes if the 
track is large enough. 

The type of sector to be read 
or written is determined by the 
b flag in the command; the 
length is determined from the 
sector length field stored in the 
ID field (remember the informa- 
tion read using a Read Address 
command?). 

Diskmap 

Diskmap uses little sophisti- 
cated coding and no trickery to 
provide the disk user with a visu- 
al display of every file on the 
disk. Using the NEWDOS80 in- 
formation, I could have written 
this utility to default to the 
parameters identifying each 
disk at a system boot. This would 



Byte 


Description 


F7H 


Write CRC bytes 


F8H-FBH 


Wnte Data Address Marks 


FCH 


Write Index Address Mark 


FDH 


Spare 


FEH 


Write ID Address Mark 


Table 4. Special Bytes 



have made Diskmap incompati- 
ble with the other disk operating 
systems so the user defines the 
directory track and the number 
of tracks at assembly time. As 
Program Listing 1 shows, this 
version was assembled with the 
directory default set to track 
17 and the number of tracks set 
at 40. 

Diskmap performs a disk map 
on a systemless disk. If you 
have a single disk drive system, 
it becomes very difficult to do 
even a directory (particularly in 
NEWDOS80 where a new over- 
lay is loaded for each command 
entered). Hold the break key 
down after entering the com- 
mand name. The program will 
pause; place the appropriate 
disk in drive and then press 
Enter to map the disk. 

Clock interrupts must be 
turned off when attempting any 
data transfer to or from the disk. 
Failure to turn off the 25 msec 
interrupt terminates the disk 
read or write with the Lost Data 
bit posted. This means that the 
FDC attempted to access the 
Data register twice without an 
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TRS-80 COLOR 
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AARDVARK 
VIC-64 VIC-20 



SINCLAIR TIMEX 




QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. 16k TRS-80, TRS-80 Color, and Sin- 
clair. 13K VIC-20. $14.95 each. 




ADVENTURES!!! 

These Adventures are written in BASIC, are 
full featured, fast action, full plotted ad- 
ventures that take 30-60 hours to play. (Ad- 
ventures are interactive fantasies. It's like 
reading a book except that you are the main 
character as you give the computer com- 
mands like "Look in the Coffin" and 
"Light the torch.") 

Adventures require 16k on TRS80, TRS80 
color, and Sinclair. They require 8k on OSI 
and 13k on Vic-20. Derelict takes 12k on 
OSI. $14.95 each. 

ALSO FROM AARDVARK - This 
TRS-80 Color and OSI ), business 



CATERPILLAR 
O.K., the Caterpillar does look a lot like a 
Centipede. We have spiders, falling fleas, 
monsters traipsing across the screen, poison 
mushrooms, and a lot of other familiar 
stuff. COLOR 80 requires 16k and Joy- 
sticks. This is Edson's best game to date. 
$19.95 for TRS 80 COLOR. 

PROGRAMMERS! 

SEE YOUR PROGRAM IN THIS SPACE!! 

Aardvark traditionally pays the highest com- 
missions in the industry and gives programs 
the widest possible coverage. Quality is the 
keyword. If your program is good and you 
want it presented by the best, send it to 
Aardvark. 

ESCAPE FROM MARS 

(by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough I 

HAUNTED HOUSE (by Bob Anderson) 
It's a real adventure — with ghosts and ghouls 
and goblins and treasures and problems — 
but it is for kids. Designed for the 8 to 12 
year old population and those who haven't 
tried Adventure before and want to start 
out real easy. 

DERELICT 

(by Rodger Olsen & Bob Anderson) 
New winner in the toughest adventure from 
Aardvark sweepstakes. This one takes place 
on an alien ship that has been deserted for a 
thousand years — and is still dangerous! 
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TUBE FRENZY 

(by Dave Edson) 
This is an almost indescribably fast action 
arcade game. It has fast action, an all new 
concept in play, simple rules, and 63 levels 
of difficulty. All machine code, requires 
Joysticks. Another great game by Dave 
Edson. TRS 80 COLOR ONLY. 16k and 
Joysticks required. $19.95. 




Please specify system on all orders 

is only a partial list of what we carry. We have 
programs, blank tapes and disks and hardware. 



CATCH 'EM 

(by Dave Edson) 
One of our simplest, fastest, funnest, all 
machine code arcade games. Raindrops and 
an incredibe variety of other things come 
falling down on your head. Use the Joy- 
sticks to Catch'em. It's a BALL! — and a 
flying saucer! — and a Flying Yl— and so 
on. TRS 80 COLOR. $19.95. 

BASIC THAT ZOOOMMS!! 
AT LAST AN AFFORDABLE COMPILER! 

The compiler allows you to write your 
programs in easy BASIC and then auto- 
matically generates a machine code equiv- 
alent that runs 50 to 150 times faster. 

It does have some limitations. It takes at 
least 8k of RAM to run the compiler and it 
does only support a subset of BASIC- 
about 20 commands including FOR, NEXT, 
END, GOSUB. GOTO, IF, THEN, RETURN, 
END, PRINT, STOP, USR (X), PEEK, 
POKE, *,/,+, -, > , < ,=, VARIABLE 
NAMES A-Z, SUBSCRIPTED VARIABLES, 
and INTEGER NUMBERS FORM 0-64K. 
TINY COMPILER is written in BASIC. It 
generates native, relocatable 6502 or 6809 
code. It comes with a 20-page manual and 
can be modified or augmented by the user. 
$24.95 on tape or disk for OSI, TRS-80 
Color, or VIC. 

i lot of other games (particularly for the 
Send $1 .00 for our complete catalog. 



AARDVARK - 80 
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(313)669-3110 
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CRAYON IS A GRAPHICS DESIGN UT 1 1 ITV THAT NO TRS -8» 
OWNER SHOULD BE WIIHtXIT. CRAYON DOES IT All'' 

YOU'VE SEEN THE ADS I OR OTHER DRAWING PROGRAMS. SOME 

CHARGE AS MUCH AS «l!«.ifM FOR TF« ABILITY TO ADD GRAPHICS 
TO YOUR PRINTOUIS. CRAYON ISN'T A CONVERTED TEXT PROIH SSOR 
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GRAPHICS FfiINT JUSTIFY TE XT- BUFFER/ RESTORE TO SCREEN. 
>>. UTILITIES INCLUDE MASK - AUTOMATIC PRINT* NUMBERS 

CURSOR iOCATION AND VALUE Z SE1ECTIVE CI S ' S-PATTERN - 
EXTRA BUFFERS COMBINE SCREENS HEXDUMP SEARCHES. MORE 
8> . FULL DISK / CASS I/O DIR-WRI TE-LOAD-APPEND-COPY -K ILL 
SCREENPR1NI OUTPUTS CODES TO DRIVE ANY PARALLEL PRINTER 
F>ROFESSI0NAi I Y WRITTEN !. SUPPORTED NO F-ROGRAMMING REQUIRED 
OVER 9* COMMANDS FAST / EASY / FUN • - AL I MACHINE LANG. 

CASS MOD l>--»-.5.«W / DISK MOD 1 OR 3-*43. M 1 0K PROGRAM 
WORKS IN IfoK . OR MORE AND ADJUSTS TO MEMORY SI7E CHANGES. 
ESPECIALLY FOR MX--B0. MICROLINE8» AND OTHER BLOCK. GRAPHIC 
PRINTERS. PRINTER NOT REQ. FOR FILE HANDLING ♦ CARTOONS. 
«• LIBERAL DEALER TERMS AVAILABLE - INQUIRIES INVITED _J 



"I turn interrupts off at 

the beginning and re-enable 

interrupts at the end. . . " 



intervening access to the Data 
register by the computer. I turn 
interrupts off at the beginning 
and re-enable interrupts at the 
end as I do not use the display 
clock. Disable interrupts before 
each disk I/O operation and re- 
enable interrupts before each 
exit or the exit from the read/ 
write routine. 

Next, determine the drive 
number (drive always for the 
break key pause) and from this 
the proper select bit. The select 
bit is always 2**N (N = 0,1,2,3). 
The DOS command buffer is 
scanned for a X*0D' following 
Diskmap; if none is there, it 
checks for a blank. The drive 
number is then checked for 
validity. 

After the proper drive has 
been determined, the FDC is 
issued a Reset to Not Busy com- 
mand. The drive is selected and 
a loop is entered waiting for a 
change in the Index pulse as the 
drive rotates the disk. If approx- 
imately two full revolutions pass 
without a change in the Index 
pulse, the drive is declared not 
ready and the utility terminates 
in error. 

Next, the user must reselect 
the drive and establish the head 
position. The FDC remembers 
the head location (Track regis- 
ter) for only one drive at a time; 
this is only valid if the update 
flag was used when moving the 
head last. The program per- 
forms a Restore to Track Zero 
command using the 20 msec/ 
track stepping time. This moves 
the head to track zero and resets 
the Track register to zero. Next, 
the Data register is loaded with 
the number corresponding to 
the Directory Track number 
(default value is 17 decimal) and 
a Seek command moves the 
head to track 17 on the selected 
drive. In lines 116-134 (see the 
Listing) the Push/Pop sequence 
is a delay between use of the 
X'37EC port to address the 
Command register and then ad- 
dress the Status register. The 
Bit instruction tests the Busy bit 



to determine when the operation 
is complete. 

Lines 135-138 establish con- 
ditions necessary to perform the 
sector read loop. Line 139 
issues the Read Record com- 
mand (see Table 2); the heart of 
the read loop is lines 147-153. 
The DRQ bit is tested to see if a 
data byte has been assembled, 
ready for the computer to store 
(DRQ=1). If DRQ is not true 
("true" refers to single bits 
equaling one), then the Busy bit 
is checked. If Busy is still true, 
continue to status DRQ until a 
byte is ready. When DRQ is true, 
a byte has been assembled and 
may be stored in the buffer. 

When DRQ and Busy are both 
false, one sector has been read 
and the FDC is no longer busy. 
The Status word is examined for 
any errors detected on the read. 
No attempt is made to examine 
the status word for information 
concerning the Data Address 
Marks just read. I have assumed 
that the directory track was read 
and did not check for the appro- 
priate DAM (a Directory Track is 
read-protected by writing the 
sectors with a DAM of X'FA' 
rather than the IBM normal of 
X'FB'). 

The disk sector read routine is 
repeated nine more times to 
copy the entire directory track to 
the buffer. Beginning at the ad- 
dress specified by Buffer is the 
GAT sector of the directory. The 
GAT sector contains the Gran- 
ule Allocation Table beginning 
at offset byte 0; the Track 
Locked Out Table beginning at 
offset byte 60H; and the disk 
name and creation date starting 
at offset byte DOH and D8H re- 
spectively. This information is 
used in lines 170-232 to build 
the subtitle line for the video 
screen. 

The string array MAP con- 
tains 80 entries corresponding 
to each granule; each entry is 13 
bytes long. This allows the map 
to be built prior to display using 
filenames in the form of FILE- 
SPEC/EXT. This array must be 



240 • 80 Micro, December 1982 



SStfHl 
NlHll. 

PUTS THE 

POWER IN 

YOUR HAND 

TO REMOVE 




• Printer paper dust 

• Dust data processing equipment 

• Dust your computer room 
"Clean Room" clean 

2 CLOTHS FOR $ 2 95 ppd 

VISA • MASTER • CHECK 

MWB INDUSTRIES, INC. 

2013 FRANKLIN STREET 

DETROIT, MICHIGAN 48207 

(313)259-1104 

DEALERS INQUIRIES INVITED "' 90 



Tired of just 
PEEKing around??? 

DIJ.DftTc 

The Disassembler 

That Even Tracks 

Down DATA!!! 



*> 



For your disassembler wouldn I you like one that — 

•Outputs" 'tJ7T? uFM 'C3SS? ■ 

D£TB J>i 
instead ot the meaningless "equiva 



• Automatically identities such data areas 9 

• Outputs fully labeled EDTASM-format code to 
display, printer, cassette or disk? 

• Relocates itself to any desired RAM area, up/down 
one byte or as many as required? 

• Runs on trs' 80 Model I (Level II) or Model III. 
16K or more, cassette or disk? 

To order Dl In DAT* phone (513) 435-4480 
(M-F, 9 a m. - 5 p.m tST). or send check or money 
order for 
H1354-10. (Cassette) $24.95 

• 1 50 shipping 
"1354-20 (Model III diskette) $2995 

• 1 50 shipping 
to the address below 

(Ohio residents please add 6% sales tax.) 




Software 



HUMBUG! 

(to high prices) 

TRS 80™* Model III 48 K 
2 Disk Drive 

15] Tandon drives SS/DD 

[y| Astec Power Supply 

40/80 track support on 
controller board 

G3 TRS DOS 

[V] 120 day warranty 

$1695 complete 

♦ Trade Mark Tandy Corp. 

ASHLAND COMPUTER 

1716 Wilshire Blvd. 

Ashland. KY41101 

(606) 325-2210 

Call 10 6 M-F 




■\ 



We've done it again! 

We said we had the best system, and now... 
8" double density is here for Model IIVs. 



Check out these Features - 

^568K of storage on a single sided 8 inch drive, when used with our controller & speedup MOD and DOS plus 3.4. 
•^The maximum storage capacity of your Model 3 will be 4.544 Megabytes - without a hard disk. ^One 5V* single 
sided and one 8 inch single sided drive will store 676K. with a full blown DOS plus 3.4. ^One 5V* single sided and 
one 8 inch double sided drive will store 1.244 Megabytes, with a full blown DOS plus 3.4. •-Mix and match bV* and 
8 inch drives, in any density, single or double sided. - All under software control. 

We will also be able to provide DOS plus 3.4 on 8 inch diskettes (Final price being negotiated) 

1 Speedup tor 8 inch drives only $89.00 2. General purpose speed up. which also worns with 8 inch drives $129 00 

Here's 3 good reasons to buy our system - 



1 VERSATILITY 

Our own proven dependable drive controller wil gyve you me 
Hardware to run almost any Orwe conhguranon you ran imagine. 

• 5V. and B incn doves «i any combination 

• internal 'erte'iai d*ive comoina'ons | Up to a> * drives extern* I 

• Smote and dual headed drive combmatans 



2 QUALITY 

• tk use quality drives MM and now new generation Semens 

• We construct oo' own oK* drive msiaAaten Ms ot heavy 
sleel no sniettng Problems' 

• We are now using a held proven switching supply 



3 PRICE 

• Drive tonlioHei kit with Srtt drive 

• Stem] ■ '■■"! i .i' ." 

• Thud drive 'V'. ftopy with daMei 

• fount! drive \iVi fhppyi 



S279 
J359 
»29 



DEALERS WE HAVE DEALS FOR YOU TOO WRITE OR PHONE 



II IMi sound kk( geod deals but you don't have the Model III 

yet we've gt* (tie answei 

TRS 80 Model III «K TRS OOS 2 drives S1899 




rP Proce// Control Technology 

^T 8030 Lorraine Ave., Suite 128 • Stockton, California 95210 • (209) 952-6576 



J 



■ See List ot A dvertisers on Page 451 



80 Micro, December 1982 • 241 



s 



Q. 

2 



S 



>- 

X 

cc 
o 

UJ 



PRACTICAL • ORIGINAL • SINGULAR • SUPERB • UNUSUAL 

Complete 24,800-word , 

REFWARE Thesaurus 2.0 

< 

Save TIME. j 

Improve your WRITING. 
Help your SPELLING. 

REFWARE Thesaurus 2.0 takes just 7 seconds on the Model 
III to find groups of synonyms and related words for 24,800 
nouns, adjectives, verbs, and adverbs. (Takes a few seconds 
longer on Model I.) Substitutes synonyms in your own 
sentences. And helps you find the correct spelling of hard- 
to-spell words. 

Essential for anyone who uses a personal computer as 
a word processor to write letters, reports, articles, or 
books. 

"...one of the pioneering reference tool programs." 

—Interface Age, August 1982 

"...absolutely no programming knowledge whatsoever is 
required..." — Computronics, April 1982 

"All this is done very fast; faster than a search 
through a conventional thesaurus..." 

—80 Microcomputing, April 1982 
REFWARE THESAURUS 2.0 

24,800 adjectives, nouns, verbs, and adverbs assist you in 
choosing the most accurate words in your ads, letters, 
reports, and speeches. 

REFWARE THESAURUS Builder 1.0 

Series of eight Basic utility programs enables physicians, 
educators, lawyers, businessmen, or other professionals 
to develop specialized computer thesaurus disk programs 
of hard-to-remember technical words for personal use. 
Functions independently of Thesaurus program. 

REFWARE THESAURUS User's Manuals: Complete 
descriptions of use of each of the above programs. In- 
cluded at no additional charge with each program listed 
above. 

MINIMUM System Required TRS 80* Mod I or Mod III 
48K with two disk drives. 

*A Trade mark of Tandy Corporation 

Credit card orders phone (01 4) 238-8S86 
Dealers: Writs for discount prices. FREE demonstration disk with 
minimum order. 

REFWARE* Reference Software Division 

David C. Whitney* Associates, Inc. 

P.O. Box 451, Chappaqua, N.Y. 10514 
*A trademark of David C. Whitney Associates, Inc. 
Specify Mod I ( ) or Mod III ( ) 
Single Density ( ) or Double Density ( ) 
Qty. Title Unit Price Total 





Complete 24,800-word 
Refware Thesaurus 2.0 


$89.95 






Thesaurus Builder 1.0 


$149.95 




Sales Tax 
(N.Y.state residents only) 




Postage and handling 


$ 3.00 


Enclosed $ ( ) Check ( ) Money Order TOTA . 

Bill: ( )Visa ( ) MasterCharge 


s 



Card# 



Exp. Date Interbank # 

Signature 

Name Phone ( ) 



CC Address 

UJ 

Ul City State Zip 

(j Mailed First Class, but allow 3 to 4 weeks for delivery, no COD. orders 

•AHiuoMasivud • 3T8vaaviriaH • iridiums • aiavmvANi 



zeroed before proceeding. 

To build the array Map, lines 
260-306 read all non-null entries 
in the directory and reconstruct 
the filespec for each in the loca- 
tions in MAP corresponding to 
the extent information in each 
File Primary Directory Entry 
(FPDE). 

Interspersed with the FPDEs 
in the directory may be File Ex- 
tension Directory Entries (FXDE). 
Table 5 explains the byte/bit 
structure for FPDEs and FXDEs 
found in the directory. FXDEs 
are an additional area for the 
disk operating system to keep 



information about the FPDEs. 
The last entry in the chain of in- 
formation concerning the file's 
disk location must start with an 
X'FF' byte. If the DOS must have 
more than four entries to con- 
tain the information about a file, 
the last entry in the FPDE starts 
with X'FE' and the second byte 
is a Directory Entry Code (DEC) 
describing the location of the 
corresponding FXDE in the di- 
rectory. When an FXDE is de- 
tected in line 298, the IX register 
is set to the appropriate value in 
the buffer corresponding to the 
location of the FXDE. This is per- 



ByteO 



Bit 7- 


Bit 6- 


Bit 5— 


Bit 4— 


BitS- 


its 2-0— 



Byte 1 

Byte 2 
Byte 3 

Byte 4 
Bytes 5-C 
Bytes D-F 
Bytes 10-11 
Bytes 12-13 
Bytes 14-15 



Bytes 16-17 
18-19 
1A-1B 
1C-1D 
1E-1F 



Bit record for file attributes 

1 = FXDE, = FPDE 

1 = System File, 0= Not System File 

Not used 

1 = Directory entry is assigned to a file 

= Directory entry is free 

1 = Invisible file. = Visible file 
Protection attributes for each file 
111 — No access is allowed 
110— Execution access only 

101 — Read/Execute access 
100— Write/Read/Execute access 
011 — Not used 

010— Rename/Write/Read/Execute access 
001 — Kill/Rename/Write/Read/Execute access 
000— Full access 

Not used in an FPDE; in an FXDE, this byte is used as a DEC 
to point back to its FPDE. 
Not used in an FPDE or FXDE. 

Used as the end of file byte pointing to the relative byte in 
the sector that is the physical end of this file. 
Logical record length (0 = 256 bytes). 
File Name, left-justified blank-filled format. 
File Name Extension in same format. 
Two byte hash-code value for the update password. 
Two byte hash-code value for the access password. 
This is the EOF sector or the number of the sectors in the 
file. If Byte 3 is 00H then this is the actual sector count. If 
Byte 3 is not 00H then the actual sector count is this value 
plus 1. 

These last five pairs of bytes form extent information which 
locate the file on the disk. Each 2-byte extent has the track 
number for the file, the starting granule, and number of con- 
tiguous granules for this extent. If more extents are needed 
to describe a file than are available in the FPDE, the last ex- 
tent is coded to point to an FXDE for additional extent stor- 
age. 
Consider the following Extent: 

1C24 
The first byte of this extent is the track number of the start of 
the file in this extent, e.g. track 1CH or 28. The second byte is 
two packed values which are the granule number (0 or 1) and 
the number of contiguous granules in this extent less one. In 
this example 24H is 0010 0100 binary. The left three bits rep- 
resent the granule number and the right five bits represent 
the count of contiguous granules; 001 = granule 1 or sector 5 
and 00100 = 4+1 or five contiguous grans in this extent. If 
the first byte is FFH, this signifies the end of the file extents. 
A first byte of FEH signifies a pointer to an FXDE follows in 
the second byte and may be interpreted as follows: The left 
three bits of the second byte multiplied by 32 is the offset of 
the FXDE in the directory sector described by the right three 
bits. These three bits are the offset from the HIT sector; add 
two to them to reflect the right sector on the directory track. 
The extent FE 63 is interpreted as follows: 63H equals 01 10 
001 1 binary. The right three bits plus two tell you that the 
FXDE is in sector 5 on the directory track and the FXDE is in 
entry 011 binary'20H or offset address 60H. The only bytes 
used in constructing an FXDE are bytes 0. 1, and 16 through 
1F; all other bytes are zeroed. 

Table 5. FPDC and FXDE directories 
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formed by the code in lines 
464-474. 

Having constructed the Map 
array, the screen is cleared and 
the prototype structure is 
displayed by the code in lines 
312-343. Once this is com- 
pleted, the PAGES and TRK 
counters step through the Map 
array and display the disk map 
10 tracks at once (see lines 
348-447). 

Diskmap On Disk 

If you have an editor/assem- 
bler capable of reading and 
writing disk source files, enter 
the source code and assemble 
the program to disk. 

If you are not so fortunate, 
enter the code into the tape 
version of the editor/assembler 
and assemble and write the ob- 
ject code to tape. When you 
have created an object tape, use 
LMOFFSET or Tapedisk to load 
the tape to disk. The disk Dump 
command for Tapedisk is "F 
DISKMAP/CMD:d 5300 5846 
5300". 

Compatibility 

This utility runs under NEW- 
DOS80, NEWDOS 2.1, and TRS- 
DOS. Diskmap uses a few ROM 
routines that are relatively in- 
dependent of the TRS-80 ROM 
configuration. 

This useful program now 
resides on my disk along with 
DIRCHECK and SUPERZAP as 
one of my most-used utilities.! 







00001 
00002 






Program Listing 










* 










* 






00003 


* 






>> DISKMAP --< 


• 






00004 


* 










* 






00005 


* 










• 






00006 


* 


<DISKMAP> 


IS A UTILITY WHICH WILL READ THE DIRECTORY 


* 






00007 


* 


OF ANY DISK AND DISPLAY THE 


CONTENTS OF THE DISK IN 


* 






00008 


* 


A MAP BY GRANULES. ALSO DISPLAYED IS INFORMATION 


* 






00009 


* 


SUCH 


AS DISK NAME, CREATION 


DATE, DRIVE NUMBER, THE 


• 






00010 


* 


NUMBER OF 


GRANULES FREE AND 


THE NUMBER OF TRACKS 


* 






00011 


* 


LOCKED OUT. THIS UTILITY MAY BE USED WITH A SINGLE 


* 






00012 


* 


DISK 


SYSTEM TO MAP A DISKETTE HAVING NO SYSTEM FILES 


* 






00013 


* 


USING THE 


"PAUSE* OPTION SINCE <DISKMAP> HAS ITS OWN 


* 






00014 


• 


DISK 


I/O ROUTINES. 




• 






00015 


* 










• 






00016 


* 






WRITTEN BY J.B. HARRELL, 03/07/81 


• 






00017 


* 






30 KEKLICO COURT WEST 


• 






00018 


* 






CHARLESTON, SOUTH 


CAROLINA, 29408 


* 






00019 
00020 
00021 


* 










. 






















00022 














5300 




00023 
00024 
00025 






ORG 


5300H 






5300 


F3 


00026 DSKMAP 


DI 




;TURN OFF INTERRUPTS 




5301 


3A4038 


00027 






I.D 


A, (3840H) 


;L0AD BREAK KEY ROW TO 




5304 


E604 


00028 






AND 


4 


;TEST FOR "PAUSE" OPTION 


5306 


2822 


00029 






JR 


Z,DSKMP1 


;NO PAUSE 




5308 


CDC901 


00030 






CALL 


CIS 


; CLEAR THE SCREEN 




530B 


21163C 


00031 






LD 


HL,VIDEO+22 






530E 


222040 


00032 






LD 


(CURSOR) ,HL 






5311 


217B56 


00033 






LD 


HL, TITLE 


;WRITE TITLE HEADER 




5314 


CD3956 


00034 






CALL 


OUTSTR 






5317 


213857 


00035 






LD 


HL.PRMPT0 


,-WRITE PROMPT REQUESTING 


531A 


CD3956 


00036 






CALL 


OUTSTR 


; DISKETTE MOUNT 




531D 


CD4900 


00037 DSKMP0 


CALL 


GETKEY 


;WAIT FOR ANY KEY 




5320 


FE0D 


00038 






CP 


CR 


;TEST FOR <ENTER> 




5322 


20F9 


00039 






JR 


NZ,DSKMP0 


;WAIT FOR <ENTER> 




5324 


1601 


00040 






LD 


D-l 


;SET DEFAULT DRIVE TO 




5326 


1E30 


00041 






LD 


E,*0' 


; DRIVE AND GO 




5328 


1832 


00042 






JR 


NOPARS 






532A 


1601 


00043 


DSKMP1 


LD 


D,l 


; DEFAULT DRIVE SELECT BIT 


532C 


1E30 


00044 






LD 


E,'0' 


; DEFAULT DRIVE NUMBER 




532E 


3A1F43 


00045 






LD 


A, (CMDBUF+7) 


;SEE IF PARS OR NOT 




5331 


FE0D 


00046 






CP 


CR 


•BY TEST FOR A CR 




5333 


2827 


00047 






JR 


Z, NOPARS 






5335 


FE20 


00048 






C? 


■ ' 


;HAS TO HAVE ONE SPACE 




5337 


201A 


00049 






JR 


NZ, ERROR 






5339 


3A2043 


00050 






LD 


A, (CMDBUF + 8) 


;GET DRIVE PARAMETER 




533C 


5F 


00051 






LD 


E,A 


;SET IN OUTPUT REG 




S33D 


FE30 


00052 






CP 


•fl> 


;TEST FOR 0, 1, 2, 3 




533F 


281B 


00053 






JR 


Z, NOPARS 






5341 


CB22 


00054 






SLA 


D 






5343 


FE31 


00055 






CP 


•1' 


; (D) HAS DRIVE SELECT BIT 


5345 


2815 


00056 






JR 


Z , NOPARS 


;WHICH IS 2*«N WHERE N 




5347 


CB22 


00057 






SLA 


D 


;IS THE DRIVE NUMBER 




5349 


FE32 


00058 






CP 


•2' 






534B 


280F 


00059 






JR 


Z, NOPARS 






534D 


CB22 


00060 






SLA 


D 






534F 


FE33 


00061 






CP 


•3' 






5351 


2809 


00062 






JR 


Z, NOPARS 


Listing 


continues 



DISCOUNT COMPUTERS 

100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY-FULL WARRANTY 



16K COLOR COMPUTER 427.00 

32K COLOR COMPUTER 497.00 

16K MODEL III 815.00 

48K MODEL III, 1 DR 1549.00 

48K MODEL III, 2 DR. RS232 1795.00 

64K MODEL II, 1 DR 2499.00 

128K MODEL 16, 1 DR 3898.00 

128K MODEL 16, 2 DR 4510.00 



DMP-500 PRINTER 1398.00 

DMP-100 PRINTER 299.00 

DMP-200 PRINTER 599.00 

DWP-410 DAISY 1195.00 

DAISY WHEEL II 1599.00 

1 DR. EXPANSION MODEL II 919.00 

8.4 MEG HARD DISK MODEL 11/16 3599.00 

ALL RS SOFTWARE 20% OFF 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

(817) 825-4027 

NOCON A ELECTRONICS • Box 593 • Nocona, TX 76255 
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Jf 
Jf 
Jf 

* 
Jf 
Jf 
Jf 
Jf 
Jf 

4 

jf 



PLEASE 



jf 



jf 

if 

* 
jf 
jf 
* 



Give Us 

A Chance to Save 

You the Largest 

Amount Possible on 

TRS-80™ 

Products 
Get Your Best 
>f Price - Then Call Us jf 
Jf 1800-762-6661 * 

Jf 

Jf 
Jf 

* 
>f 
Jf 
>f 

Jf 
* 
Jf 
Jf 
>f 
Jf 



OUR PRICES 
Start 
at a 15% Discount 




SAVE 




We also handle 

VIC -20 
Okidata - Atari 

RAND'S 

COMPUTER CORNER 

101 W. FRY BLVD. 
Sierra Vista, Az. 85635 
In State 602-458-2477 



.130 



Jf 
Jf 
Jf 
>f 

Jf 

Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 



Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
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TRS-00 is ■ trademark o< Tandy Corporation 
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Listing continued 












5353 219156 


90863 


ERROR 


LD 


HL.ERR1 


{ILLEGAL PARAMETER FOUND 


5356 CD3956 


00064 




CALL 


OUTSTR 




5359 C3EE55 


00065 
00*66 




JP 


DOS EXT 


; RE ENABLE INTERRPUT - RET 


535C 7A 


00067 


NO PARS LD 


A,D 


;SAVE SELECT BIT 


535D 321857 


00068 




LD 


(SELBIT) ,A 




5360 7B 


00069 




LD 


A,E 


;SAVE DRIVE NUMBER IN 


5361 32BAS6 


00070 




LD 


(DRNR) ,A 


.•VARIOUS MESSAGES 


5364 32D156 


00071 
00072 




LD 


(DRVNR) ,A 






00073 


; NOW 


THAT THE 


PARAMETER HAS 


BEEN DECODED, THE NEXT TASK 




00074 


t IS TO SELECT 


THE DRIVE AND 


TO SEE IF IT IS READY BY 




00075 


; READING THE 


INDEX PULSE BIT AND MAKING SURE THAT IT 




00076 


; CHANGES PRIOR TO TWO FULL DISKETTE REVOLUTIONS. IF 




00077 


; IT DOES - OK 


, IF NOT - THEN 


DISKETTE IS NOT READY FOR 




09078 


j A VARIETY OF 


REASONS. 






00079 










5367 3ED0 


00080 




LD 


A,0D0H 


;FDC COMMAND - QUIT OPS 


5369 32EC37 


00081 




LD 


(CHDREG) ,A 


7 TERMINATE, RESET "BUSY" 


536C 3M857 


00082 




LD 


A, (SELBIT) 


;GET DRIVE SELECTED 


536P 32E137 


00083 




LD 


(SELECT) ,A 


; SELECT IT AND START MTR 


5372 010080 


00084 




LD 


BC,8000H 




5375 CD6000 


00085 




CALL 


DELAY 


?WAIT ONE-HALF SECOND 


5378 3A1857 


00086 




LD 


A, (SELBIT) 


; RES ELECT DRIVE 


537B 32E137 


00087 




LD 


(SELECT) ,A 




537E E5 


00088 




PUSH 


HL 




537F El 


00089 




POP 


HL 


j WASTE TIME 


5380 E5 


00090 




PUSH 


HL 




5381 El 


00091 




POP 


HL 




5382 3AEC37 


00092 




LD 


A, (STATUS) 


;READ STATUS REGISTER 


5385 E602 


00093 




AND 


2 


; INDEX PULSE BIT 


5387 5F 


00094 




LD 


E,A 


;SAVE IT 


5388 011027 


00095 




LD 


BC, 10000 


1 COUNT FOR APPRX 2 REVS 


538B 3A1857 


00096 




LD 


A, (SELBIT) 




538E 32E137 


00097 




LD 


(SELECT) ,A 




5391 3AEC37 


00098 


TEST 


LD 


A, (STATUS) 


;GET STATUS WORD 


5394 E602 


00099 




AND 


2 




5396 BB 


00100 




CP 


E 


;SEE IF INDX BITS ARE ■ 


5397 200E 


00101 




JR 


NZ, READY 


J NO - IT MUST BE OK 


5399 0B 


00102 




DEC 


BC 


;DECR COUNT 


53 9A 7 8 


00103 




LD 


A,B 




S39B Bl 


00104 




OR 


C 




539C 20F3 


00105 




JR 


NZ.TEST 




539E 21AE56 


00106 




LD 


HL,ERR2 


;DRIVE X IS NOT READY 


53A1 CD3956 


00107 




CALL 


OUTSTR 




53A4 C3EE55 


00108 
00109 




JP 


DOSEXT 






00110 


; NOW 


THAT THE 


DRIVE HAS BEEN 


DETERMINED TO BE IN AN 




00111 


7 OPERATIONAL STATUS, RESTORE 


THE DRIVE TO TRACK TO 




00112 


; LET 


THE FDC KNOW WHERE THE 


HEAD IS AND THEN SEEK THE 




00113 


j "DIRTRK". READ 10 SECTORS 


FROM "DIRTRK* AND STORE IN 




00114 


; BUFPER FOR LATER USE. 






00115 










53A7 3A1B57 


00116 


READY 


LD 


A, (SELBIT) 


j RE SELECT DRIVE 


53AA 32E137 


00117 




LD 


(SELECT) ,A 




53AD 21EC37 


00118 




LD 


HL.CMDREG 


;SET UP ROUTINE 


53B0 360E 


00119 




LD 


(HL) ,0EH 


.•RESTORE - 20MS/TRACK 


53B2 E5 


00120 




PUSH 


HL 




53B3 El 


00121 




POP 


HL 




53B4 E5 


00122 




PUSH 


HL 




53B5 El 


00123 




POP 


HL 




53B6 CB46 


00124 


READ1 


BIT 


0,(HL) 


;TEST FOR BUSY BIT 


53B8 20PC 


00125 




JR 


NZ.READl 


;WAIT TILL NOT BUSY 


53BA 3E11 


00126 




LD 


A, DIRTRK 


;SET UP SEEK 


53BC 32EF37 


00127 




LD 


(DATARG) ,A 




53BF 361E 


00128 




LD 


(HL) ,1EH 


j SEEK - 20MS/TRACK 


53C1 E5 


00129 




PUSH 


HL 




53C2 El 


00130 




POP 


HL 




53C3 E5 


00131 




PUSH 


HL 




53C4 El 


00132 




POP 


HL 




53C5 CB46 


00133 


READ 2 


BIT 


0,(HL) 




53C7 20PC 


00134 




JR 


NZ,READ2 


;WAIT FOR NOT BUSY 


53C9 010060 


00135 




LD 


BC, BUFFER 


;BC HAS BUFFER ADDR 


53CC 11EF37 


00136 




LD 


DE, DATARG 




53CF AF 


00137 




XOR 


A 




53D0 32EE37 


00138 




LD 


(SECTOR) ,A 


; START AT SECTOR 


53D3 368C 


00139 


READ 3 


LD 


(HL),8CH 


;READ SECTOR 


53D5 E5 


00140 




PUSH 


HL 


; WASTE TIME 


53D6 El 


00141 




POP 


HL 




53D7 E5 


00142 




PUSH 


HL 




S3D8 El 


00143 




POP 


HL 




53D9 1803 


00144 




JR 


READ5 




53DB 0F 


00145 


READ 4 


RRCA 




;TEST BUSY BIT 


53DC 300A 


00146 




JR 


NC,READ6 


7 NOT BUSY - DONE OR ERROR 


53DE 7E 


00147 


READ 5 


LD 


A, (HL) 


? GET STATUS WORD 


53DF CB4F 


00148 




BIT 


1-A 


7 TEST FOR "DRQ"-DATA REQ 


53E1 26F8 


00149 




JR 


Z, READ 4 


7 NO DRQ - CHECK BUSY 


53E3 1A 


00150 




LD 


A,(DE) 


7DRQ - GET NEXT BYTE 


53E4 02 


00151 




LD 


(BC) ,A 


7 STORE BYTE 


53E5 03 


00152 




INC 


BC 




53E6 1BF6 


00153 




JR 


READ 5 


;GO FOR MORE 


53E8 7E 


00154 


READ6 


LD 


A, (HL) 


? FDC STATUS WORD 


53E9 E61C 


00155 




AND 


1CH 


;TEST POR REC NOT FND, 


53EB 2809 


00156 




JR 


Z , READ7 


7CRC ERR, LOST DATA 


53ED 211957 


00157 




LD 


HL,DIRERR 


j DIRECTORY READ ERROR 


53F0 CD3956 


00158 




CALL 


OUTSTR 




53F3 C3EE55 


00159 




JP 


DOSEXT 




53F6 3AEE37 


00160 


READ7 


LD 


A, (SECTOR) 


;GET CURRENT SECTOR NR 


53F9 3C 


00161 




INC 


A 




53FA 32EE37 


00162 




LD 


(SECTOR) ,A 


7 UPDATE IT 

Listing continues 




□ 



□ 



\ COMPUTER CONNECTION 



Yt*w Toll Free Order Number 





Printer Stands 

Hid I he paper mess on 

yoilf computer desk Our 

pi inter stand allows your 

pa pel to he ted from under 

the printer, making room 

for the used paper to stack 

hehmd the print out of the way. Available with 

an optional removable shell (Shown) for easy 

computer forms change Available in 1 arge 

size also, tor MX- KM) and other large printer users 

also. Also a\ailablc with center slot for bottom 

feed printers 

Regular Stand (300010) 529.95 

Regular w shelf (30001 1) $44 95 

I arge Stand (300020) $34.95 

Large w shelt ( 30002 1 ) 549.95 

Large w slot (300050) 549.95 



B.T. Hard Disks 

We want you to have all the power that your TRS- 
I RS-80 is capable, at prices that have other manu- 
facturers cross-eyed! These Five. Ten and Fifteen 
Megabyte units are easy to use. just plug them into 
the expansion buss of your Model I or Model III. 
Comes complete with the fantastic DOS PI I IS 4.0 
Operating System' Available in configurations: 
5 Megabyte Fixed. 10 Megabytes. 15 Megabyte 
Fixed. Look at the incredible low prices 
of our systems! 
SYSTEM PRICING 
5 Megabyte Winchester Fixed Disk 
201505 Model I Version 52399 95 

203505 Model III Version 2399.95 

10 Megabyte Winchester fixed Disk 
201510 Model I Version 52549.95 

203510 Model III Version 52549.95 

15 Megabyte Wmchested Fixed Disk 
201520 Model I Version 52699.95 

203520 Model III Version 52699 95 

Add $10.00 shipping and handling 



< Hhz 

X 

vna 9r 
HOOQ 




□ 



Upgrade Kit 

Putting Disk drives into your I RS-80 Model III 
will turn it into the powerful computer it was 
designed to be I he B.I. Enterprises DISK 
DRIVE INS I Al I.ATION KIT is easy to do and 
represents a substantial savings over the cost if 
done by Radio Shack. 

I he kit was designed to be installed by a non- 
technical person, and takes an average of 45 to 75 
minutes to complete I he only tools necessary are a 
phillips and flat head screw driver and a pair of 
diagonal cutters. No cutting of traces or soldering 
is necessary The full instruction procedure was the 
topic of a feature in 80 US Magazine in the 
May. I9K2 issue, and was given high marks for 
case of installation. 

KIT CONSISTS OF: 

• IDC III B* Micromainframe Controller 
Board assembled & tested 

• Switching power supply 

• Disk drive mounting brackets 

• All cables and hardware 

• Instructions with diagrams 

• Drives are optional 

*FDC NIC Board optional at additional cost 
supports 8 inch external drives and extended 
density 5- 1 /* inch drives (dual headed and 80 
track) 



203103 


Disk I'pgradc Kit B Version 






w hardware 


5279.95 


203104 


Disk Upgrade Kit C Version 






w" hardware 


5309.95 


203113 


Disk Upgrade B. Version 






w 2 40tk & 32K 


5799.95 


203114 


Disk Upgrade C Version 






w, 2 40tk & 32K 


5829.95 


203115 


Disk Upgrade C Version 






w 2 40tk DH & 32K 


51029.95 


203118 


Disk Upgrade C. Version 






w 2 80tk & 32K 


51029.95 


203117 


Disk Upgrade C Version 






w 2 80tk DH & 32K 


51229.95 


203003 


FDC III B Controller Board 






Only 


5139.95 


203004 


FDC III C Controller Board 






only 


5169 95 


200500 


Switching Power Supply 






(3 voltages) 


599.95 


203010 


Controller Assembly Kit 


575.00 


203510 


Controller Assy kit 






w power Supply 


5174.95 


DH 


Dual Headed 






B. T. Enterprises 

10B Carluugh Road Dealer Inquires Welcome 

Bohemia. \.Y. 1 1716 Prices Subject lo change 

516 567 8155 (voice) V Y S Residents Add Tax 

516 588 5836 (modem) ^300 

B.T. Enterprise >•> a division ">t Bi-Tcch EnicrpriKi ln> 



New Toll Free Lines for 

out of New York State 

orders 

800 645 1165 



WELCOME 



^ S»» List ot AOwrtisers on Page 451 
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RAPID 




The eye is 

still faster 

than the 

hand, true. 

But when 

RAPID 

passes its hand, you have the 

most reliable backup in less than 

45 seconds, with Verify AND 

Error Correct. 

TRS-80 Model II w/2 disk + 64K 

$48 

ALDEVCO (513) 561-7671 

5725 Dragon Way 
Cincinnati, Ohio 45227 



Introducing: 

THE ALL-PURPOSE SHOPPER 

A complete guide to 
fast and economical shopping 

****************** 

• Models i & III. IBM 

• Menu driven for efficient operating 

• Complete documentation 

• All systems are disk based 

• Run-time diskette 

• Soon to be available on models II & 
Apple II 

****************** 

Due to (he number of options available, please write 
for more details and price information 

(Written inquiries please include a 
selt-addresseO sramped envelope: 

AFTER PLAYING GAMES SO LONG 

IT'S TIME FOR SOME: 
SERIOUS PERSONAL COMPUTING 
P.O. BOX 7059 S. NASHUA. N.H 03060 

603-888-1376 ^528 



Eight good reasons 
for using a Mod III: 

1. fOtnibiZ " General Ledger 

Accounting System 

2. Accounts Receivable 

3. Accounts Payable 

4. Full-Service Payroll 

5. Order Entry & Invoicing 

-with Inventory Interface 
-with Accts. Rec. Interface 

6. Fixed Assets Accounting 

7. Job Cost Accounting 

8. Cost Estimating Systems 

-for Manufacturing 
-for Food Service 

At selected Dealers or 
from the publisher 

Npppnthr $ru«rama 

44 Third Ave., Ste F 
Chula Vista, CA 92010 

714-425-55C1 ."> 
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53FD FE0A 


00163 




CP 


10 


•TEST FOR FULL TRACK READ 


53FF 20D2 


00164 
00165 




JR 


NZ,READ3 






00166 


; THE DIRECTORY HAS BEEN READ TO 


THE BUFFER AND NOW 




00167 


; READ 


THROUGH 


THE "GAT" SECTOR 


SECTOR 0) AND SET UP THE 




00168 


; TITLE LINE FOR THE SCREEN. 






00169 










5401 010600 


00170 




LD 


BC,8 


BYTE COUNT FOR NAME 


5404 11D556 


00171 




LD 


DE.DKNAME 




5407 21D060 


00172 




LD 


HL,GAT+0D0H 


START OF DISK NAME 


540A EDB0 


00173 




LDIR 






540C 010800 


00174 




LD 


BC,8 


LENGTH OF DATE 


540F 21D860 


00175 




LD 


HL.GAT+0D8H 


START OF CREATION DATE 


5412 11DF56 


00176 




LD 


DE.DATE 




5415 EDB0 


00177 




LDIR 






5417 0E00 


00178 




LD 


C,0 


COUNT TRACKS LOCKED OUT 


5419 0628 


00179 




LD 


B,NRTRKS 




541B 216060 


00180 




LD 


HL.GAT+60H 


START OF TRK LOCKED OUT 


541E 7E 


00181 


TRKS 


LD 


A, (HL) 




541F FEFC 


00182 




CP 


0FCH 


CODE FOR NOT LOCKED OUT 


5421 2801 


00183 




JR 


Z,TRKS2 




5423 0C 


00184 




INC 


C 




5424 23 


00185 


TRKS2 


INC 


HL 




5425 10F7 


00166 




DJNZ 


TRKS 


LOOP FOR FULL DISK WORTH 


5427 69 


00187 




LD 


L,C 


SET UP CONVERSION 


5428 60 


00188 




LD 


H,B 


H-0 


5429 CD9A0A 


00189 




CALL 


HLACC 


(HL)— >4121H, 2~>40AFH 


542C CDBD0F 


00190 




CALL 


CVTASC 


CONVERT NUMBER TO STRING 


542F 23 


00191 




INC 


HL 


SKIP LEADING BLANK 


5430 7E 


00192 




LD 


A, (HL) 


GET FIRST DIGIT 


5431 110857 


00193 




LD 


DE,TLO 




5434 12 


00194 




LD 


(DE) ,A 


STORE IN HEADING 


5435 23 


00195 




INC 


HL 




5436 13 


00196 




INC 


DE 




5437 7E 


00197 




LD 


A,(HL) 


GET NEXT DIGIT 


5438 B7 


00198 




OR 


A 


TEST FOR TERMINATION 


5439 2801 


00199 




JR 


Z,TRKS3 




543B 12 


00200 




LD 


(DE) ,A 




543C 0E00 


00201 


TRKS3 


LD 


C,0 


COUNT OF FREE GRANULES 


543 E 0628 


00202 




LD 


B,NRTRKS 




5440 210060 


00203 




LD 


HL,GAT 


START OF GRAN ALLOC TBI. 


5443 7E 


00204 


GRANS0 


LD 


A, (HL) 


GET NEXT BYTE 


5444 FEFC 


00205 




CP 


0FCH 


BOTH FREE GRANS 


5446 2004 


00206 




JR 


NZ,GRANS1 




5448 0C 


00207 




I NC 


C 




5449 0C 


00208 




INC 


c 




544A 180C 


00209 




JR 


GRANS3 




544C FEFD 


00210 


GRANS1 


CP 


0FDH 


CODE FOR ONE FRKK 


544E 2003 


00211 




JR 


NZ,GRANS2 




5450 0C 


00212 




INC 


C 




5451 1805 


00213 




JR 


GRANS3 




5453 FEFE 


00214 


GRANS2 


CP 


0FEH 


CODE FOR THE OTHER FREE 


5455 2001 


00215 




JR 


NZ.GRANS3 




5457 0C 


00216 




I NC 


C 




5458 23 


00217 


GRANS3 


INC 


HL 


BUMP POINTER 


5459 10E8 


00218 




DJNZ 


GRANS0 


LOOP FOR FULL DISK 


545B 69 


00219 




LD 


L,C j 


SET UP CONVERSION 


545C 60 


00220 




LD 


H,B , 


H-0 


545D CD9A0A 


00221 




CALL 


HLACC , 


(HL) — >BASIC ACCUM 


5460 CDBD0F 


00222 




CALL 


CVTASC , 


CONVERT TO STRING 


5463 23 


00223 




INC 


HL 




5464 11F456 


00224 




LD 


DE, GRANS 




5467 7E 


00225 




LD 


A,(HL) , 


GET FIRST DIGIT 


5468 12 


00226 




LD 


(DE) ,A 




5469 23 


00227 




INC 


HI, 




546A 13 


00228 




INC 


DE 




546B 7E 


00229 




LD 


A,(HL) 


GET NEXT DIGIT 


546C B7 


00230 




OR 


A 


TEST FOR TERMINATOR 


546D 2801 


00231 




JR 


Z.GRANS4 




546F 12 


00232 
00233 




LD 


(DE) ,A 






00234 
00235 
00236 


; ZERO 


MAP ARRAY AND VARIOUS VARIABLES 


5470 214658 


GRANS4 


LD 


HL.MAP ; 


SET UP MAP STRING ARRAY 


5473 114758 


00237 




LD 


DE.MAP+1 




5476 010F04 


00238 




LD 


BC,1039 ; 


COUNT FOR 13*80 ARRAY 


5479 3600 


00239 




LD 


(HL) ,0 ; 


PROPOGATION CHARACTER 


547B EDB0 


00240 




LDIR 






547D AF 


00241 




XOR 


A 




547E 323657 


00242 




LD 


(PAGES) ,A 




5481 32D157 


00243 
00244 




LD 


(TRK) ,A 






00245 


• START 


TO BUILD THE MAP STRING ARRAY OF FILESPEC'S AT 




00246 


■ THE LOCATION 


CORRESPONDING TO THE LOCATION OF THE FILE 




00247 


• ON THE DISKETTE. THIS IS DONE 


BY LOOKING AT THE FIRST 




00248 


• BYTE 


OF EACH 


FILE DIRECTORY ENT 


RY (FDE) STARTING WITH 




00249 


THE SECOND SECTOR OF THE DIRECT 


ORY. IF IT IS (WHICH 




00250 


• MEANS 


THE FDE 


IS EMPTY) OR 90H 


(WHICH MEANS THAT THE 




00251 


• FDE IS REALLY 


A FILE EXTENSION 


DIRECTORY ENTRY (FXDE) 




00252 


• OF AN 


ALREADY 


EXISTING FPDE) THEN IGNORE IT. LOOK AT 




00253 


THE FDE ENTRIES FOR ALL THE RES 


T AS THEY ARE THE FILE 




00254 


PRIMARY DIRECTORY ENTRIES (FPDE 


). UTILIZE THE "EXTENT" 




00255 


INFORMATION IN EACH FPDE (AND CORRESPONDING FXDE, IF 




00256 


NECESSARY) TO 


STORE THE FILESPE 


C IN THE MAP TABLE IN 




00257 
00258 
00259 


THE LOCATIONS 


CORRESPONDING TO 


TRACK/ASSIGNED GRANULES 


5484 210062 




LD 


HL.FDES ; 


START OF FDE'S IN BUFFER 


5487 E5 


00260 


SCAN 


PUSH 


HL ; 


SAVE POINTER ON STACK 


5488 7E 


00261 




LD 


A,(HL) 


GET BIT RECORD OF FDE 

Listing continues 
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5489 B7 


00262 


OR 


A 


•TEST FOR NULL 


546A 2857 


00263 


JR 


Z, SCNNXT 




548C FEW 


00264 


CP 


90B 


jTBST FOR FXDE ENTRY 


548E 2853 


00265 


JR 


2, SCNNXT 




5490 CD4256 


00266 


CALL 


FLSPEC 


; BUILD FILESPEC TO PILBMM 


S493 DDE1 


00267 


POP 


IX 


{FOE POINTER 


5495 DDE5 


00268 


PUSH 


IX 




5497 011600 


00269 


SCAN1 LO 


BC.22 


{OFFSET OF EXTENT 01 ( 


549A DD09 


00270 


ADD 


IX, BC 




549C DD7E00 


00271 


LD 


A, (IX) 


j GET TRACK f 


549F PEPP 


00272 


CP 


•PFH 


;TEST FOR DID OF XTMT 


54A1 2840 


00273 


JR 


Z, SCNNXT 




54A3 CD0856 


00274 


CALL 


STORIT 


t STORE FILESPEC 


54A6 DD23 


0027 5 


INC 


IX 




54A0 OD23 


00276 


INC 


IX 




54AA DO7E00 


00277 


LD 


A, (IX) 


t TRACK FOR EXTENT 12 


54AD PEPP 


00278 


CP 


•PPH 


{TEST FOR END 


54AP 2832 


00279 


JR 


Z, SCNNXT 




54B1 CD0856 


00280 


CALL 


STORIT 




54B4 DD23 


00201 


INC 


IX 




54B6 DD23 


00202 


INC 


IX 




54B8 DD7E00 


00283 


LD 


A, (IX) 


; TRACK FOR EXTENT 03 


54BB PEPP 


002B4 


CP 


• PFH 




54BD 2824 


00285 


JR 


Z, SCNNXT 




S4BF CD0856 


00286 


CALL 


STORIT 




54C2 DD23 


00287 


INC 


IX 




54C4 DD23 


00288 


INC 


IX 




54C6 DD7E00 


B0289 


LD 


A, (IX) 


{ TRACK FOR EXTENT 14 


54C9 PEFF 


00290 


CP 


• PFH 




54CB 2816 


00291 


JR 


2, SCNNXT 




54CD CD0856 


00292 


CALL 


STORIT 




54D0 DD23 


00293 


INC 


IX 




54D2 DD23 


00294 


INC 


IX 




54D4 DD7E00 


00295 


LD 


A, (IX) 


; TRACK FOR EXTENT* 5 


54D7 FEFF 


00296 


CP 


• FPH 


;TEST FOR END OF EXTENTS 


54D9 2808 


00297 


JR 


Z , SCNNXT 




540B FEPE 


10298 


CP 


0FEH 


;TEST FOR FXDE ENTRY NEXT 


54DD CAP255 


00299 


JP 


Z,FXDE 


{ PROCESS IT 


54E0 CD0856 


00300 


CALL 


STORIT 




S4E3 El 


00301 


SCNNXT POP 


HL 


;GET POINTER TO FOE 


54E4 012000 


00302 


LD 


BC,32 


; LENGTH OF ONE FDE 


54E7 09 


00313 


ADD 


HL.BC 


{BUMP POINTER 


54E8 3E6A 


00304 


LD 


A,BUFFBR+>AMH<-8 {TEST FOR END OF BUFFER 


54EA BC 


00305 


CP 


B 




54EB 209A 


00306 
00307 


JR 


NX, SCAN 






90308 


; NOW THAT THE NAP ARRAY HAS BEEN CONSTRUCTED, DISPLAY 




00309 


; THE DISK GRANULE NAP ON THE 


VIDEO IN FOUR PAGES OF 




00310 


; TEN TRACKS 


PER PAGE WITH A HEADER AT TOP EACH TIME. 




00311 








S4ED CDC901 


•1312 


DISF CALL 


CLS 


j CLEAR THE SCREEN 


S4P0 21163C 


00313 


LD 


HL,VIDEO+22 


1 START OF TITLE 


54F3 222040 


00314 


LD 


(CURSOR) ,HL 




54P6 217B56 


00315 


LD 


HL, TITLE 


; TITLE LINE 


54F9 CD3956 


00316 


CALL 


OUTSTR 




54FC 21CB56 


00317 


LD 


HL.DKMSG 


{ DRIVE , NAME , DATE , ETC . 


54FP CD3956 


00318 


CALL 


OUTSTR 




5502 21913C 


00319 


LD 


HL,VIDEO+145 


; START OF GRANULE MAP 


5505 222040 


00320 


LD 


(CURSOR) ,HL 




5508 21D557 


00321 


LD 


HL,LINE3 




550B CD3956 


00322 


CALL 


OUTSTR 




550E 21D13C 


00323 


LD 


HL,VIDEO+2*9 


; START OF LINE 4 


5511 11D23C 


00324 


LD 


DE,VIDEO+21> 




5514 012E00 


•0325 


LD 


BC,46 




5517 36BC 


00326 


LD 


(HL),14« 


{ GRAPHICS BLOCK 


5519 EDB0 


••327 


LDIR 




{DRAW LIMB 


551B 3EBP 


• •320 


LD 


A, 191 


; GRAPHICS BLOCK 


551D 32D13C 


••329 


LD 


(VIDEO+299) ,A 


{ DIVIDE COLUMNS 


5520 32E83C 


00330 


LD 


(VIDEO+232) ,A 




5523 32PF3C 


••331 


LD 


(VIDEO+255) ,A 




5526 3E0A 


••332 


LD 


A, 10 


j NUMBER OF B LIMBM* , S 


5528 11003D 


••333 


LD 


DK, VIDEO* 2SC 


{START OF DISPLAY 


552B 014000 


••334 


DISP1 LD 


BC,64 


I BYTE COUNT 


552E 210558 


••335 


LD 


HL, LINEN 




5531 EDB0 


••336 


LDIR 




; WRITE ONE LINE 


5533 3D 


00337 


DEC 


A 


;TEST FOR END 


5534 20P5 


••338 


JR 


NX,DISP1 




5536 21913F 


••339 


LD 


HL,VIDEO+913 


{BOTTOM LIME 


5539 11923F 


•0340 


LD 


DE,VIDEO+914 




553C 012E00 


00341 


LD 


BC,46 




5S3F 3683 


00342 


LD 


(HL),131 


{LINE BLOCK 


5541 EDB0 


00343 
00344 


LDIR 








00345 


; SCREEN IS PORMATTED, NOW WRITE 11 TRACKS WORTH OF 




00346 


1 FILESPEC'S 


TO THE FORMATTED 


SCREEN 




09347 








5543 2A3657 


09348 


DISP0 LD 


HL, (PAGES) 


{GET CURRENT PAGE 


5546 E5 


00349 


PUSH 


HL 




5547 CI 


• 0350 


POP 


BC 


jPAGE*l« 


5548 29 


00351 


ADD 


HL,HL 




5549 29 


00352 


ADD 


HL,HL 




554A 09 


00353 


ADD 


HL,BC 




554B 29 


00354 


ADD 


HL,HL 


{ PAGE* 19* TRK -TRACK • 


5S4C ED5BD151 


••355 


LD 


DE, (TRK) 


{CURRENT TRK IN PAGE 


5550 19 


••356 


ADD 


HL,DE 




5551 D5 


•0357 


PUSH 


DE 


{SAVE CURRENT TRK NR 


5552 22D357 


00358 


LD 


(TRKNR) ,HL 


{SAVE COMPUTED TRK NR 


5555 CD9A0A 


••359 


CALL 


HLACC 


.INTEGER HL— >ACCUM i 


5558 CDBD0F 


• 0360 


CALL 


CVTASC 


{CONVERT FOR OUTPUT 

Listing continues 




If you 
ever wished that 
you had a better program- 
ming language, PASCAL 80 may 
be the language you dream about. It is 
a compiled language, faster, more ac- 
curate and easier to modify than Basic. 
Yet it is so easy to use that you can 
forget the hassles and diskette spinning 
of other compiled languages, including 
other versions of Pascal. 

Now you can create your own com- 
mand flies that execute from DOS 
without having to load a language into 
the computer first, but do it with far less 
work than machine language. You can 
sell your compiled programs without any 
royalty payments! 

Although designed for teaching and 
ideal for that purpose, PASCAL 80 also 
allows serious applications with a full 
fourteen digits of accuracy, even on log 
and trig functions! 

Both random and sequential access 
files are supported, without cumber- 
some format statements. 

PASCAL 

features of 
as a num 
eluding 
graphics 
sions i 
WRIT 
ELSE 
usefu 

PASCAL 80 allows you to create files 
on the TRS-80* Model I, Model III, 
LNW-80, PMC-80, or LOBO MAX-80 
that will run on any of the other 
machines under TRS-DOS*, LDOS, 
NewDOS, NewDOS 80, DBL-DOS or 
DOS Plus. 

PASCAL-80 

PASCAL 80 is used in dozens of High 
Schools, Colleges, and Technical 
Schools, and has been favorably re- 
viewed in Byte, Creative Computing, 
and other magazines. 

You get all of this at a bargain price of 
only $99 plus $2 shipping. If you call and 
order by MasterCard or VISA, we will 
even credit you $1 for the phone call. 
Call or send your check today! 



NEW QLASS1CS SOFTWARE 

^*£\ 239 Fox Hill Road «^ t , 
\S 03 Denville, NJ 07834 ^^ 
^ (201) 625-8838 „2ss ^^ 

TRS-«0»and TRS-DOS arc trademark! of Radio Shack, 
LNW-09 of LNW Research. PMC-00 of Personal Micro 
Computers. LOBO. LDOS. and MAX-S0 of Lobo Systems. 
DOS-Phis of Micro Systems Software. NewDOS and 
NewDOS 00 of Apparat. and DBL-DOS of Percom. 
PASCAL M is a trademark of New Classics Software. 
Pointer Variables. Variant Records. NEW. DISPOSE. 
WITH, GET, and PUT are not implemcned in PASCAL 00. 



H0 frffers most of the 
StatMard Pascal as well 
of usflfbl extensions, in- 
»EEK.POKE, CALL and 
pascal 80 exten- 
READ and 
pnted files, 
id other 




•See List of Advertisers on Page 451 
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MICROSETTE 



DISKETTES CASSETTES 




We now offer 5 '4-inch single sided, 
soft sector, single or double density 
diskettes, in addition to our quality 
short length cassettes. 

Our Prices Include 
Boxes and Shipping 



CASSETTES 


Item 


10 Pack 


50 Pack 


C-10 


$ 7.50 


$ 32.50 


C-20 


9.00 


39.00 


C-60 


11.00 


50.00 


C-90 


15.00 70.00 


DISKETTES 5 'A -inch 


MD-5 1 $25.00 


$110.00 



UPS shipment in continental 

U.S.A. only. 

We cannot ship to P. O. Boxes. 



Item 


Qty. 


Price 


Total 


















SI IBTOTAI 




Calif. Cust add Sales Tax 




rOTAI. 





Shipping address enclosed 
Check or money order enclosed 
Charge to: Visa .J MasterCard 

Account No. 

Expiration Date 



Signature 



MICROSETTE CO. 

475 Ellis St.. Mt. View, 
CA 94043 (415)9681604 
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Listing continued 












555B 


Dl 


00361 




POP 


DE 


;GET TRK NR FOR INDEX 


555C 


EB 


00362 




EX 


DE,HL 


;DE-PTR TO STRING, HL-TRK 


555D 


29 


00363 




ADD 


HL,HL 


;*2 


555E 


29 


00364 




ADD 


HL.HL 


;*4 


555F 


29 


00365 




ADD 


HL,HL 


;*8 


5560 


29 


00366 




ADD 


HL.HL 


;*16 


5561 


29 


00367 




ADD 


HL,HL 


; *32 


5562 


29 


00368 




ADD 


HL,HL 


;*6 4 


5563 


010D3D 


00369 




LD 


BC.VIDEO+256+13 


;BASE FOR TRACK NUMBER 


5566 


09 


00370 




ADD 


HL.BC 




5567 


E5 


00371 




PUSH 


HL 




5568 


1A 


00372 


0ISP2 


LD 


A,(DE) 


;GET STRING VALUE 


5569 


B7 


00373 




OR 


A 


;TEST FOR BYTE TERMINAL 


556A 


2805 


00374 




JR 


Z.DISP3 




556C 


77 


00375 




LD 


(HL) ,A 




556D 


13 


00376 




INC 


DE 




556E 


23 


00377 




INC 


HL 




556F 


18F7 


00378 
00379 




JR 


DISP2 




5571 


2AD357 


00380 


DISP3 


LD 


HL,(TRKNR) 


;GET TRACK NR AS INDEX 


5574 


29 


00381 




ADD 


HL,HL 


; DOUBLE TO GET GRANULE 


5575 


E5 


00382 




PUSH 


HL 




5576 


Dl 


00383 




POP 


DE 




5577 


29 


00384 




ADD 


HL,HL 


;*2 


5578 


19 


00385 




ADD 


HL.DE 


;*3 


5579 


29 


00386 




ADD 


HL,HL 


;*6 


557A 


29 


00387 




ADD 


HL.HL 


J*12 


557B 


19 


00388 




ADD 


HL.DE 


;*13 


557C 


114658 


00389 




LD 


DE.MAP 


;BASE ADDRESS 


557F 


19 


00390 




ADD 


HL,DE 


;BASE+GRANULE*13 


558a 


Dl 


00391 




POP 


DE 


jLINE ADDR 


5581 


D5 


00392 




PUSH 


DE 


;KEEP IT 


S5B2 


E5 


00393 




PUSH 


HL 


;SAVE MAP ARRAY ADDR 


5583 


EB 


00394 




EX 


DE,HL 




5584 


010A00 


00395 




LD 


BC.10 


;TAB OVER TO FILESPEC 


5587 


•9 


00396 




ADD 


HL,BC 




5588 


1A 


00397 


DISP30 


LD 


A,(DE) 


;GET NEXT FILE CH 


5589 


B7 


00398 




OR 


A 


;TEST FOR TERMINAL 


558A 


2805 


00399 




JR 


Z,DISP4 




558C 


77 


00400 




LD 


(HL) ,A 


; STORE IT IN LINE 


558D 


13 


00401 




INC 


DE 




558E 


23 


00402 




INC 


HL 




558F 


18F7 


00403 




JR 


DISP30 




5591 


012100 


00404 


DISP4 


LD 


BC.33 


;TAB TO 2ND GRAN ON LINE 


5594 


Dl 


00405 




POP 


DE 


; STRING ARRAY ADDRESS 


5595 


El 


00406 




POP 


HL 


;LINE ADDRESS 


5596 


09 


00407 




ADD 


HL,BC 




5597 


EB 


00408 




EX 


DE,HL 




5598 


010D00 


00409 




LD 


BC,13 


;BASE+13«(GRANULE*1) 


559B 


09 


00410 




ADD 


HL,BC 




559C 


7E 


00411 


DISP5 


LD 


A, (HL) 


;GET FILESPEC NEXT CH 


559D 


B7 


00412 




OR 


A 


;TEST FOR TERMINAL 


559E 


2805 


00413 




JR 


Z ,DISP6 




55A0 


12 


00414 




LD 


(DE) ,A 




55A1 


23 


00415 




INC 


HL 




55A2 


13 


00416 




INC 


DE 




55A3 


18F7 


00417 




JR 


DISP5 




55A5 


3AD157 


00418 


DISP6 


LD 


A , ( TRK ) 


;INCR CURRENT TRK ON PAGE 


55A8 


3C 


00419 




INC 


A 




55A9 


32D157 


00420 




LD 


(TRK) ,A 




5 5 AC 


FE0A 


00421 




CP 


10 


;TEST FOR 10 THIS PAGE 


55AE 


2093 


00422 




JR 


NZ.DISP0 


.-FILL UP SCREEN 


55B0 


3A3657 


00423 




LD 


A, (PAGES) 




55B3 


3C 


00424 




INC 


A 




55B4 


323657 


00425 




LD 


(PAGES) ,A 


; UPDATE CURRENT PAGE 


55B7 


FE04 


00426 




CP 


4 


;TEST FOR ALL DONE 


55B9 


2816 


00427 




JR 


Z,EXIT 




55BB 


21D63F 


00428 




LD 


HL.VIDEO+982 




55BE 


222040 


00429 




LD 


(CURSOR) ,HL 




55C1 


217A57 


00430 




LD 


HL.PRMPT1 




55C4 


CD3956 


00431 




CALL 


OUTSTR 




55C7 


CD4900 


00432 




CALL 


GETKEY 




5 5CA 


AF 


00433 




XOR 


A 


;ZERO LOCAL PAGE TRK CNT 


55CB 


32D157 


00434 




LD 


(TRK) ,A 




55CE 


C3ED54 


00435 
00436 




JP 


DISP 


.•DISPLAY NEXT 10 TRACKS 


55D1 


21D13F 


00437 


EXIT 


LD 


HL.VIDEO+977 




55D4 


222040 


00438 




LD 


(CURSOR) ,HL 




55D7 


21A257 


00439 




LD 


HL,PRMPT2 




55DA 


CD3956 


00440 




CALL 


OUTSTR 




5 5DD 


CD490 


00441 




CALL 


GETKEY 




55E0 


FE40 


00442 




CP 


'•' 


;CHECK FOR DISPLAY AGAIN 


55E2 


200A 


00443 




JR 


NZ, DOSEXT 


;NO - EXIT 


55E4 


AF 


00444 




XOR 


A 




55E5 


323657 


00445 




LD 


(PAGES) ,A 


.•RESET POINTERS 


55E8 


32D157 


00446 




LD 


(TRK) ,A 




55EB 


C3ED54 


00447 




JP 


DISP 


; REDISPLAY THE MAP 


55EE 


FB 


00448 


DOSEXT 


EI 






55EF 


C32D40 


00449 

00450 




JP 


DOS 








00451 


; ROUTINE <FXDE> IS USED BY THE MAP BUILDER TO RESET THE 






00452 


; IX REGISTER 


TO THE CORRECT LOCATION IN THE BUFFER WHICH 






00453 


; WILL 


CORRESPOND TO THE FXDE LINKED TO THE CURRENT FPDE. 






00454 


; THE 


INFORMATION IS EXTRACTED 


FROM THE SECOND BYTE OF 






00455 


; THE 


EXTENT, 


EG. "FE 44" IS READ AS FOLLOWS: 






00456 


; 


X'FE' 


•EXTENT POINTS TO 


FXDE 






00457 




X'44' 


-010 00 100B 








00458 


| 


THE 1ST 3 BITS IS THE LOCATION OF THE FXDE IN THE 






00459 


; 


DIRECTORY SECTOR IDENTIFIED BY THE LAST 3 BITS. 






00460 




010B> 


2 -»> THE FXDE IS 


IN 2*20H-40H ENTRY- IN 

Listing continues 



Word Processing 

Software 

for TRS-80* 

Model I 




World's most popular word 
processing package. Fully 
proven Electric Pencil* now 
enhanced and offered in 16K 
cassette version only. 

• Easiest to learn 

• Simple to operate 

• Full screen editing 

• Global search & replace 

• Powerful insert/delete 

• Dynamic print formatting 

• No control key mod. 

Send check or MO for $24.00 
plus sales tax for Calif, 
cust. UPS shipping in USA 
prepaid. 



$ 24.00 

$10.00 for manual only 

"Electric Pencil licensed to PMC 
Software by Michael Shrayer. 
TRS-80 trademark of Tandy Corp. 



PMC SOFTWARE 

• 242 

475 Ellis St. Orders (415) 962-0318 

Mtn. View, 

CA 94043 Info (415)9620220 



JWG 



SOFTWARE. 



Proven Software Solutions 

for the TRS-80, PMC-80 & 81 User 

At VERY Special Prices 



GAMES 







la 






0v< 


TiH 


[HI 


P-ce 


Tun 


LIS' 


Mh 


Advanced Operating Systems 










VOYAGE OF THE VALKYRIE 




SCOTT ADAMS ADV 


•1.12 ft *3 




32K I ft III 


39 95 


32 00 


32K 1 ft Ml 


39 95 


3100 


T 16K 1 ft III 


2994 


24 00 


SCOTT ADAMS ADV a4. »5 4 »6 










32K 1 ft III 


39 95 


3100 


Adventure International 




SCOTT ADAMS A0V IT, »8 ft «9 




ARMOR PATROL 






D32KI4 III 


39 95 


3100 


D32K I & III 


24 96 


19 00 


SCOTT ADAMS ADV #10 »11 ft «12 


T I6K 1 A III 


1995 


1500 


D32K 1 ft III 


39 95 


3100 


COMBAT 






SEA DRAGON 






D 32K 1 & HI 


20 95 


1600 


32K 1 ft III . 


24 95 


19 00 


T 16K I ft III 


1995 


15 00 


T 16K I 4 III 


19 95 


1500 


CONOUEST OF CMESTERWOOD 


SHOWDOWN 






32K 1 & Ml 




16 00 


D32KI&III 


20 95 


16 00 


T 16K 1 ft III .. . . 


19 95 


15 00 


T 16K I 4 III 


14 >f 


1200 


DEMON VENTURED 


— 




♦ SILVER FLASHPINBALL 1 




RElGN OF THE REO DRAGON 




32KI4IU 


19 95 


1500 


D 32K 1 ft Ml 


24 95 


19 00 


T 16K I ft III 


1495 


12 00 


ELIMINATOR 






SKY WARRIOR 






D32KI ft III 


2495 


1900 


D32KI& III 


20 95 


16 00 


T -6K 1 ft III 


19 95 


1500 


T 16K I ft III 


14 95 


1100 


GALACTIC EMPIRE 






SPACE INTRUDERS 






T 16K I a III 


1495 


1200 


D32KI ft III ... 


20 95 


16 00 


GALACTIC REVOLUTION 




T 16K 1 ft III 


1995 


15 00 


T I6K 1 » Ml 


14 95 


1200 


STAR FIGHTER 






GALACTIC TRADER 






D32K 14 III 


29 95 


23 00 


T T6K 1 ft Ml 


14 95 


1200 


T 16K 1 ft III 


24 95 


1900 


GALACTIC TRILOGY 






STAR TREK 3 5 






32KI4 Ml 


39 95 


30 00 


D 32K 1 ft Ml 


19 95 


15 00 


LUNAR LANDER 






T 16K 1 ft III 


1495 


11 00 


D32K 14 III 


20 95 


1600 


TRFASURE OUEST 






T 16K 1 ft III 


14 95 


1100 


D 32K 1 4 III . . . . 


19 95 


15 00 


MACES 4 MAGIC si 


BARLOG 




T 16K 1 ft III 


1495 


11 00 


D32K 1 


29 95 


23 00 








MACES 4 MAGIC «2 






Automated Simulation* (EPYX) 




STONE OF SISYPHUS 






CRUSH. CRUMBLE ft CHOMP 




D 32K 1 


29 95 


23 00 


D32KI4III 


:o 9' 


23 00 


MACES 4 MAGIC e3- 






T 16K 1 ft III 


29 95 


23 00 


MOHTON s FORK 






DUNJONQUEST- 






D32KI 


29 95 


23 00 


HELlFIRE WARRIOR 






MISSILE ATTACK 






D32KI4 III 


39 95 


30 00 


D 32K 1 4 III 


20 95 


1600 


T 16K 1 ft III 


39 95 


30 00 


T 16K I ft Ml 


14 95 


11 00 


DUNJONOUEST- 






OTHER VENTURE »2 






KEYSOF ACHERON 






CROWLEY MANOR 






D 32K II III 


19.95 


'500 


D 32K 1 4 III 


20 95 


16 00 


T 16K 1 ft Ml 


19 95 


1500 


T I6K 1 4 III 


19 95 


15 00 


DUNJONOUEST- 






OTHER VENTURE s3 






SORCERER OF SIVA 






ESCAPE FROMTRAAM 




O 32K 1 ft III 


29 95 


23 00 


32K 1 ft III 


20 95 


16 00 


T 16K 1 ft III 


29 95 


23 00 


T I6K 1 ft III 


19 95 


1500 


OUNJONOUEST— 






OTHER VENTURE M 






TEMPLE OF APSHAI 






EARTHOUAKESF1906 




O 32K 1 ft III 


39 95 


30 00 


O 32K 1 4 III 


20 95 


16 00 


T 16K 1 ft Ml . ... 


39 95 


30 00 


T 16K I ft III 


19.95 


1500 


DUNJONOUEST- 






OTHER VENTURE «5 






UPPER REACHES OF APSHAI 




DEATH PLANET 






D32KIAMI 


■ ) M 


1500 


T 16K 1 4 HI 


1995 


1500 


T 16K 1 ft III 


19 95 


15 00 


PLANETOIDS 






. RICHOCHET 






O 32K 1 ft III 


20 95 


,-. ft 


D 32K 1 ft III 


19 95 


1500 


T 16K 1 ft Ml 


'995 


'500 


T 16K I ft III 


'9 95 


'500 



?■■.; 



m 



m 



Mm 



ATTACK FORCE 

D32KI&IM 19 95 15 00 

T 16k I * II 15 95 12 00 

COSMIC FIGHTER 

D32KI4IH 19 95 15 00 

T 16KI4 III . 15 95 12 00 

DEFENSE COMMAND 

32KI4III 19 95 15 00 

T16KI&IM 15 95 12 00 

GALAXY INVASION 

D32KI&III 19.95 15 00 

T 16K I 4 III 15 95 12 00 

METEOR MISSION 

D32KI4III 19 95 15 00 

T 16KI4 III 15.95 12.00 

ROBOT ATTACK 

D 32K I ft III 19 95 1500 

T16KI&IM 15 95 12 00 

♦ STELLAR ESCORT 

D32KI4III 19 95 15 00 

T 16K I 4 III 15 95 12 00 

SUPER NOVA 

D32KI4III 19 95 15 00 

TI6KI&III 15 95 12 00 

Cornaolt 

♦ BOUNCEOIDS 

32KI&III 19 95 15 00 

T 16K I ft III 15 95 12 00 

SCARFMAN 

D32Klftlll 19 95 15 00 

T 16KI4 III 15 95 12 00 

SPACE CASTLE 

D32KI&III 19 95 15 00 

T 16K I 4 III 15 95 12 00 

Mad Systems 

ASYLUM 

D32Klftlll .... 22.05 18 00 

T16KI&III 19 95 15 00 

♦ ASYLUM II 

D32KI&IH 22 95 18 00 

T16KHIII 19 95 15 00 

DEATHMAZE 5000 

D32KI&MI 17 95 14 00 

T 16K I 4 III 14 95 1100 

LABYRINTH 

32Klft.HI ... . 17.95 14 00 

T 16K I A III 14 95 11 00 

WARRIOR OF RAS- DUN2HIN 

48K i ft III 29 95 23 00 

T 48K I ft III 29 95 23 00 

WARRIORS OF RAS- KAIV 

D 48K I ft III 29 95 23 00 

T 48K I ft III 29.95 23 00 

WARRIORS OF RAS— THE WYLDE 

D48KI&III 29 95 23 00 

T 4BK I ft III 29 95 23.00 

Melbourne House Software 

PENETRATOR 

D 32K I ft III . 24 95 20 00 

T 16K I ft III 24 95 20.00 



Now Twice As Many Programs! 



EDUCATION 

Advanced Operating Systems 
MOSTLY BAS'C 
EDUCATIONAL PKG 7 PRG 

* 16K i ft hi 24 95 2000 

MOSTL' BASIC 
SClENT.FiCPKG 7 PRG 

T16KI4III 24 95 20 00 

TIME DUNGEON- 
AMERICAN HISTORY 

T 16K I ft III 24 95 20 00 

TIME DUNGEON- 
WORLD HISTORY 

T 16K I * III 24.95 20 00 

Automated Simulelions (EPVX) 
JABBERTALKY 

D32KI4III 29 95 23 00 

T16KI&HI 29 95 23 00 



BUSINESS 

Small Business Systems Group 
ACCOUNTS PAYABLE 

D48KISHI 195 00 155 00 

ACCOUNTS RECEIVABLE 

D48K I ft III 195 00 165 00 

GENERAL LEDGER 

D48KI&III 195 00 155 00 

INVENTORY CONTROL 

48KI4MI 195 00 155.00 

PAYROLL 

D48KI&HI 195 00 '55 00 



WORD PROCESSING 

Aspen Software 
GRAMMATIK 

D32KI 59 00 46 00 

PROOF EDIT 

D32KI 30 00 23.00 

PROOFREADER 

D32KI ,.. 54 00 42 00 

SOFTSCREEN 

D48KI .... 69 00 54 00 

SOFTTEXT 

D 48K I 69 00 54 00 

Michael Shrayer Soltware 
ELECTRIC PENCIL 

T I6K I '00 00 24 00 

INFO. PROCESSING 

Adventure International 

• MAXICRAS 

D 48K I ft III 99 96 79 00 

MAXi MANAGER 

D 48K I ft III 99 95 79 00 

• MAXI MANAGER UTILITY PACK «1 

48KI4III 49 95 39 00 

• MAXI STAT 

D48KI4MI 199 96 147 0C 

Auk a 

• COMPUTER FILING SYSTEM (CFS) 

32K I ft III 69 00 55 00 

Dan Haney Associates 

ELECTRIC: SPREADSHEET 

D32Klft.lll 69 95 65 00 

T 16K I ft III 34 95 30 00 



OPERATING SYS. 



Micro Systems Software 
DOS P. OS V3 3S 

32K I 100 00 



80 00 



UTILITIES 

Adventure International 
DIRECTORY INFO MGT II (DIM II) 

D32KI4III 24 95 19 00 

Howe Software 
MON3 

T 16K I 39 96 31.00 

MON4 

32K I 49 95 39 00 

STERM 

T16KI 69 95 55 00 

SYSTEM DIAGNOSTIC 

32KI&III 99 95 79 00 

MISCELLANEOUS 

Adventure International 

HINT SHEET for Single 

Adventure ei thru «'2 

1 00 1 00 

Soltware Affair 

ORCHESTRA 85 

T16KI 99 95 96 00 

D16KI .99 95 95 00 



NEW 



PMC SOFTWARE 

475 Ellis St., Mt. View, CA 94043 
Orders: (415) 962-0318 Information: (415) 962-0220 



rermj fOR 'AST OflrVf RY seal ctraHes chad* i 
USA Mies only PRICES UrClUOE UK UM tKfm M 



I orders VISA or MasterCard numoer and eiovafion date Personal chews tqiare 3 easts 

»y (do not use P Boil CALIFORNIA customers add 6'7*t tat Prices suDject to change 



.'See List of Advertisers on Page <5? 
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RAT -MAZE MANIA 

New Arcade Game With 
Real Time Graphics, 
Music and Sound Effects 




Object is to guide the rat through 
mazes which change randomly while 
an intelligent dog chases the rat. 

CAN YOU OUTWIT THE DOG ??? 

$14.95 

• Music & Sound effects 

• High Scores saved with Disk Ver 

• Alpha Joystick compatible 

• Tape version req 16K L2, Disk Ver 
works with most DOS req 32K 

14.95 for tape and disk version on 
tape. $2.00 Shipping, CA add 6% tax 
When ordering specify Mod. I or III 

SHELBOY ENTERPRISES 

P.O. BOX 1757 MANTECA, CA 95336 
(209) 239-6775 . g , 



Wlin TRSDOS Enhancement 

II I LIS U$e « wild _ car(j . 

file names with your DOS com- 
mands (APPEND. COPY, OIR. KILL, 
LIST, etc.)* Select files based 
on character strings, position, 
type, ...» Hon scrolling display 
• "All except" switch* (Yes, No, 
Quit, Go) processing controls* 
Example: Delete all files except 
those with a 2nd letter of "D", 
WILD KILL -!D*:1 

Model 3 disk $25 

CrpCpTC Sound A Graphics 
Lrrtl/10 Effects Editor 
Add high speed graphics A sounds 
to BASIC programs* Create/Edit 
effects & save them in RAM or on 
disk* Screen portions saved and 
recalled to any location* 3 re- 
call modes (replace, add, and 
erase)* Text I special character 
support* Sounds generated with 
cassette port* User specified 
tones and durations* Screen for- 
matted input routines provided* 
Demo programs and a two player 
game included* 8K+ machine code 
editor with 2K run time module* 
32K and 48K version on same disk 
Manual $5, with Model 3 disk $39 

Send SASE for more Information 
Else check or money order to: 

*»350 

Ledford Computer Services 

23007 La Pierre Drive 

Mountiake Terrace, MA 98043 

*TRSD0S is a TANDY Corp. Trademark 



Listing continued 
















00461 


I 


SECTOR 6 OF THE DIRECTORY TRACK (100B-4, SO 






00462 


» 


THIS 


IS THE 4TH SECTOR 


FROM THE "HIT" SECTOR) 






01463 










55F2 


DD7E01 


01464 


FXOE 


LD 


A, (IX+1) 


;GET THE BIT RECORD 


55P5 


E607 


00465 




AND 


7 


; GET SECTOR NUMBER 


55F7 


C6>2 


11466 




ADD 


A, 2 


7 OFFSET COUNT 


55F9 


C660 


10467 




ADD 


A,BUFFER<-8 


(CORRECT FOR MEM ADDR 


55FB 


67 


01468 




LD 


H,A 




55PC 


DD7E01 


00469 




LD 


A, (IX+1) 


J GET BIT RECORD 


55PP 


E6E0 


00470 




AND 


0E0H 


> STRIP OFF ENTRY LOC 


5611 


6F 


00471 




LD 


L,A 




5602 


E5 


00472 




PUSH 


HL 


;SET UP ADDR IN IX 


5603 


DDE1 


10473 




POP 


IX 




5685 


C39754 


00474 
08475 




JP 


SCAN1 


j BACK IN BUSINESS 






00476 


1 SUBROUTINE 


<STORIT> USES THE 


TRACK NUMBER IN (A), THE 






00477 


; GRANULE NUMBER WHICH IS BIT 5 OP THE SECOND BYTE OF 






00478 


; EXTENT TO 


tNDEX THE MAP TABLE AND STORE THE "FILESPEC" 






00479 


J IN <FILENN> IN THE NUMBER OP 


CONTIGUOUS ENTRIES IN MAP 






00480 


; ACCORDING TO THE LOW ORDER S 


BITS IN THE SECOND BYTE 






00481 


; OP THE EXTENT. 








00462 










5608 


6F 


00483 


STORIT 


LD 


L r A 


> TRACK NR TO HL 


5619 


2600 


00484 




LD 


H,0 




560B 


29 


00485 




ADD 


HL,HL 


;*2 - GRANULE NUMBER 


560C 


DD7E01 


00486 




LD 


A, (IX+1) 


;GET SECOND BYTE 


sffr 


CB6F 


00487 




BIT 


5, A 


; TEST FOR GRANULE 0/1 


5611 


2801 


00488 




JR 


Z,STORl 




5613 


23 


00489 




INC 


HL 


; COMPUTED GRANULE NUMBER 


5614 


E61F 


00490 


STOR1 


AND 


31 


j GET GRANULE COUNT 


5616 


3C 


00491 




INC 


A 




5617 


47 


00492 




LD 


B,A 


;SET UP LOOP 


5618 


CD1E56 


00493 


STOR2 


CALL 


MOVE IT 


/MOVE FILESPEC 


561B 


10FB 


00494 




DJNZ 


STOR2 




561D 


C9 


00495 
00496 




RET 










00497 


; SUBROUTINE 


<MOVEIT> IS USED TO MOVE THE FILESPEC 






00498 


; CONTAINED IN <FILENM> TO THE 


13 BYTE VECTOR POINTED 






00499 


I TO BY 


THE HL REGISTER (WHICH 


IS TAKEN AS A GRANULE 






00500 


; NUMBER TO INDEX THE <MAP> ARRAY) 






00501 










561E 


E5 


00502 


MOVE IT 


PUSH 


HL 




561F 


Dl 


00503 




POP 


DE 




5620 


E5 


00304 




PUSH 


HL 


;SAVE POINTER ON STACK 


5621 


29 


00505 




ADD 


HL,HL 


/INDEX* 2 


5622 


19 


00506 




ADD 


HL,DE 


; INDEX* 3 


5623 


29 


00507 




ADD 


HL,HL 


;INDEX*6 


5624 


29 


00508 




ADD 


HL,HL 


;INDEX*12 


5625 


19 


00509 




ADD 


HL,DE 


;INDEX*13 


5626 


114658 


00510 




LD 


DE r MAP 


(BASE 


5629 


19 


00511 




ADD 


HL,DE 


;BASE+INDEX*13 


562A 


110B57 


00512 




LD 


DE,FILENM 




562D 


1A 


00513 


MOV 


LD 


A, (DE) 


;MOVE CHARACTER 


562E 


B7 


00514 




OR 


A 




56 2F 


2805 


00515 




JR 


Z.MOV1 


{EXIT ON TERMINAL 


5631 


77 


00516 




LD 


(HL) ,A 




5632 


23 


00517 




INC 


HL 




5633 


13 


00518 




INC 


DE 




5634 


18P7 


00519 




JR 


MOV 




5636 


El 


00520 


MOV1 


POP 


HL 


; RESTORE POINTER 


5637 


23 


00521 




INC 


HL 




5638 


C9 


00522 

00523 




RET 










00524 


J SUBROUTINE 


<OUTSTR> COPIES THE INPUT STRING TO THE 






00525 


; VIDEO 


DISPLAY UNTIL A TERMINAL CHARACTER OF IS 






00526 


; DETECTED IN THE INPUT STREAM 








00527 










5639 


7E 


00528 


OUTSTR 


LD 


A,(HL) 


;GET NEXT CHARACTER 


563A 


B7 


00529 




OR 


A 




563B 


C8 


00530 




RET 


Z 


{RETURN ON END OF STRING 


563C 


CD33I0 


00531 




CALL 


DISPL 


} DISPLAY IT 


563F 


23 


00532 




INC 


HL 




5641 


18F7 


00533 

00534 




JR 


OUTSTR 








00535 


{ SUBROUTINE 


<FLSPEC> BUILDS FILESPEC IN THE FORM OF 






00536 


J "FILES PEC/ EXT' FROM THE INFORMATION IN THE FPDE IN THE 






00537 


j DIRECTORY POINTED TO BY THE 


HL) 






00538 


; THE RESULT 


IS RETURNED IN THE LOCATIONS STARTING AT 






00539 


J <FILENM> AND TERHIHATIMG WITH A BYTE 






00540 










S642 


E5 


00541 


rune 


PUSH 


HL 


;SAVE FPDE POINTER 


5643 


910500 


00542 




LD 


BC,5 


/OFFSET FOR NAME 


5646 


09 


00543 




ADD 


HL.BC 




5647 


110B57 


00544 




LD 


DE,FILENM 




564A 


0608 


00545 




LD 


B,8 


/MAX LENGTH OF NAME 


564C 


7E 


00546 


FLS0 


LD 


A, (HL) 


;MOVE ONE CHARACTER 


564D 


12 


• 0547 




LD 


(DE) , A 




564E 


23 


00548 




INC 


HL 




564F 


FE20 


00549 




CP 


l ' 


;TEST FOR EARLY END 


5651 


2803 


00550 




JR 


Z,PLS1 




5653 


13 


00551 




INC 


DE 




5654 


10F6 


00552 




DJNZ 


FLS0 


;LOOP FOR WHOLE NAME 


5656 


AF 


00553 


FLS1 


XOR 


A 




5657 


12 


00554 




LD 


(DE) ,A 


/ TERMINATE NAME 


5658 


El 


00555 




POP 


HL 




5659 


010D00 


00556 




LD 


BC f 5+8 


, OFFSET FOR EXTENSION 


565C 


09 


00557 




ADD 


HL.BC 




565D 


7E 


00558 




LD 


A,(HL) 


/TEST FOR NOT NULL 


565E 


FE20 


00559 




CP 




;IF SO- RETURN 


5660 


C8 


00560 




RET 


Z 


Listing continues 
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Listing continued 












5661 EB 


00561 




£X 


DE,HL 




5662 362F 


00562 




LD 


(HL), •/' 


;SET EXTENSION IN FILENM 


5664 23 


00563 




INC 


HL 




5665 77 


00564 




LD 


(HL) ,A 


;MOVE 1ST CHAR 


5666 EB 


00565 




EX 


DE.HL 




5667 13 


00566 




INC 


DE 




5668 23 


00567 




INC 


HL 




5669 7E 


00568 




LD 


A, (HL) 


;TEST FOR TERM 


566A FE20 


00569 




CP 


• ' 




566C 280A 


00570 




JR 


Z, FLEXIT 




566E 12 


00571 




LD 


(DE) ,A 




566F 13 


00572 




INC 


DE 




567B 23 


00573 




INC 


HL 




5671 7E 


00574 




LD 


A,(HL) 


; THIRD CHARACTER 


5672 FE20 


00575 




CP 


1 ' 


•TEST FOR TERM 


5674 2802 


00576 




JR 


Z, FLEXIT 




5676 12 


00577 




LD 


(DE) ,A 




5677 13 


00578 




INC 


DE 




5678 AF 


00579 


FLEXIT 


XOR 


A 




5679 12 


00580 




LD 


(DE) ,A 


/FORCE TERMINAL 


567A C9" 


00581 
00582 
00583 




RET 








00584 


; DATA 


DEFINITION W.EA 






00585 










567B 2A 


00586 


TITLE 


DEFH 


'* DISK GRANULE 


MAP *' 


568F 0D00 


00587 




DEFW 


CR 




5691 0D 


00588 


ERR1 


DEFB 


CR 




5692 2A 


00589 




DEFM 


•**•• ILLEGAL DRIVE NUMBER 1 ' 


56AC 0D00 


00590 




DEFW 


CR 




56AE 0D 


00591 


ERR2 


DEFB 


CR 




56AF 2A 


00592 




DEFM 


'*♦** DRIVE ' 




56BA 3 


00593 


DRNR 


DEFM 


'0 IS NOT READY I • 




00594 




DEFW 


CR 






00595 


DKHSG 


DEFM 


'DRIVE: ' 




56C9 0D00 


00596 


DRVNR 


DEFM 


'• 




56CB 44 


00597 


DKNAME 


DEFM 


•DISKNAME ' 




56D1 30 


00598 


DATE 


DEFM 


•MM/DD/YY GRANS FREE:' 


56D5 44 


00599 


GRANS 


DEFM 


'0 TRKS LOCKED OUT: ' 


56DF 4D 


00600 


TLO 


DEFM 


•0 • 




56F4 30 


00601 




DEFB 







5708 30 


00602 


FILENM 


DEFM 


•FILESPEC/EXT' 




570A 00 


00603 




DEFB 







570B 46 


00604 


SELBIT 


DEFB 







5717 00 


00605 


DIRERR 


DEFB 


CR 




5718 00 


00606 




DEFM 


•**** DIRECTORS 


READ ERROR 1 ' 


5719 0D 


00607 




DEFW 


CR 




571A 2A 


00608 


PAGES 


DEFW 







5734 0D00 


00609 


PRMPT0 


DEFW 


0D0DH 




5736 0000 


00610 




DEFM 


'PLACE THE DISKETTE TO MAP IN DRIVE 0" 


5738 0D0D 


00611 




DEFB 


CR 




573A 50 


00612 




DEFM 


•PRESS <ENTER> 


TO CONTINUE' 


575E 0D 


00613 




DEFW 


CR 




575F 50 


00614 


PRKPT1 


DEFM 


'PRESS ANY KEY 


FOR NEXT 10 TRACK DISPLAY' 


5778 0D00 


00615 




DEFB 







577A 50 


00616 


PRMPT2 


DEFM 


'PRESS @ TO DISPLAY AGAIN,' 


57A1 00 


00617 




DEFM 


'ANY OTHER KEY 


TO EXIT' 


57A2 50 


00618 




DEFB 







57BB 41 


00619 


TRK 


DEFW 







57D0 00 


00620 


TRKNR 


DEFW 







57P1 0000 


00621 


LINE3 


DEFB 


191 




57D3 0000 


00622 




DEFM 


' 1ST GRANULE ' 


57D5 BF 


00623 




DEFB 


191 




57D6 20 


00624 




DEFM 


' 2ND GRANULE ' 


57EC BF 


00625 




DEFW 


191 




57ED 20 


00626 


LINEN 


DEFM 


'TRACK NUMBER: 


' 


5803 BF00 


00627 




DEF3 


191 




5805 54 


00628 
00629 




DEFM 
DEFB 


| , 


v ■ 


5816 BF 




191 




5817 20 


00630 
00631 




DEFM 
DEFW 


| - 


. 1 


582D BF 




191 




582E 20 


00632 










5844 BF00 


00633 












00634 


; SYSTEM LABEL 


DEFINITIONS 






00635 












00636 












00637 


CMDBUF 


EQU 


4318H 


;DOS COMMAND BUFFER 




00638 


STATUS 


EQU 


37ECH 


;FDC STATUS REGISTER 


4318 


00639 


CMDREG 


BOO 


37ECH 


;FDC COMMAND REGISTER 


37EC 


00640 


SECTOR 


EQU 


37EEH 


;FDC SECTOR REGISTER 


37EC 


00641 


DATARG 


EQU 


37EFH 


,-FDC DATA REGISTER 


37EE 


00642 


SELECT 


EQU 


37E1H 


;FDC SELECT LINES 


37EF 


00643 


BUFFER 


EQU 


6000H 


/DIRECTORY BUFFER 


37E1 


00644 


GAT 


EQU 


BUFFER 




6000 


00645 


FDES 


EQU 


BUFFER+0200H 


/START OF FDE'S IN BUFFER 


6000 


00646 


VIDEO 


EQU 


3C00H 




6200 


00647 


DIRTRK 


EQU 


17 


/DIRECTORY ON TRK 17 


3C00 


00648 


NRTRKS 


EQU 


40 


/NUMBER OF TRACKS 


0011 


00649 


DOS 


EQU 


402DH 




0028 


00650 


CURSOR 


EQU 


4020H 




4020 


00651 


CLS 


EQU 


01C9H 


/BASIC CLEAR SCREEN 


4020 


00652 


HLACC 


EQU 


0A9AH 


/ROM ROUTINE HL — >ACCUM 


01C9 


00653 


CVTASC 


EQU 


0FBDH 


/ROM CVT ACCUM TO STRING 


0A9A 


00654 


GETKEY 


EQU 


0049H 


/WAIT FOR KEY 


0FBD 


00655 


DISPL 


KQ-: 


0033H 




0049 


00656 


DELAY 


EQU 


0060H 




0033 


00657 


CR 


EQU 


13 




0060 


00658 










000D 


00659 










5846 


00660 


MAP 


EQU 


S 


/STARTING ADDRESS FOR MAP 


5300 


00661 




END 


:)SKMA? 





EIGHTY 

SYSTEM 

NEWSLETTER 

FOR TRS-80* USERS 
(Mod. I/II/III/16/COLOR) 









(Also for dealers, mfg. and 
industry personnel.) 

Published 52 times per year 
and mailed First Class 

□ Latest TRS-80* System News 

□ Product Notes & Reports 

□ New Hardware & Software 
D Industry Trends 

□ User Notes & Comments 

D TRS-80* Article Summaries 

RATES 

$39.00 Year - First Class 
(US, Canada 4 Mexico) 

$75.00 Year- Foreign (Air) 

(Must be in US Funds) 

SAMPLE COPIES $2.00 



EIGHTY SYSTEM NEWSLETTER 

3001 Route 27 Franklin Pk.. NJ 08823 

D $39.00 (1-Year Subscription) 
□ $75.00 (Foreign-Air-US Funds) 
D $ 2.00 (2 Sample Issues) 

Name 



Company 
Address _ 

City 

State 



Zip 



(MC & VISA OK-Include card number, 
expiration date & signature.) 

•TRS-80 is a Registered Trademark of Tandy 
Corporation/Radio Shack Div. 



• See List ot Advertisers on Page 457 
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GAME 



Scramble space ships instead of eggs. 



Astro-Scramble 



Randy Long 
4791 Torida Way 
Yorba Linda, CA 92686 



Combining Astro-Blasters 
and Scramble yields the 
fast action arcade game, Astro- 
Scrambler. I'll use an earlier ver- 
sion, a game called Dodge, to 



demonstrate the evolution of 
Astro-Scrambler. To better un- 
derstand Astro-Scrambler, let's 
walk through Dodge. 

Program Sketch 

To start, we need a spaceship: 



20 CLS: RANDOM: P = 31 
30 PRINT 096O,"" 
40 PRINT «P, CHR$<130)CHR$<175) 
CHRS<135); 



HS 




— High score 


HU 




— Highest set reached 


AS<1-26) 


— Objects which shoot at you 


N$ 




— Credit 


OS 




— Downward Line Feed 


US 




— Upward Line Feed 


LS 




— INKEYS 


L 




— Lights new high score 


P 




— Ship position 


c 




— Used in PEEKing 


T 




— Used in loops 


N 




— Score counter 


B 




— Number of objects in each set 


U 




— Number ot sets passed 


x$ 




— Used in instructions 




Table 1. List of Variables 



60 IFPEEK(14400) = 32THEN 

P=P-2: IFP<2THEN P = 3:GOTO 

70 ELSE 70 
70 IFPEEK(14400) = 64THEN 

P=P + 2: IF P>890THEN P = 890: 

GOTO 80 
80 REM used later 
100 GOTO 30 



The ship's location is the vari- 
able P (see Table 1). P is in- 
creased or decreased (and the 
ship moved to either side) with 
the left and right arrow keys. 
PEEK (14400) is the fastest way 
to scan the keyboard to check 
which key is being pressed. 

Type this addition into your 
program: 

30 PRINT <3 960+RND(60) t CHRS(174) 
CHRS(191)CHR$(157) 

Since line 30 does not have a 
semi-colon at the end, the 
screen moves up one line to 
print the next asteroid. The pro- 
gram, as it is now, is fast and 
fun, but not very challenging— 



Program Listing 1. Astro-Scrambler 

II ' ASTRO-SCRAMBLER BY RANDY LONG 

2 9 ' 4791 TORIDA HAY 

38 ' YORBA LINDA, CAL. 92686 

4fl ' (714) - 526 - 1641 

58 CLEAR 1111 :HS-628I iHU-26 :DIH AS (26) 

61 HS • CHRSU98) ♦ "SI-MICROCOMPUTING* 

71 DS - CHRS(26) :US - CBRSI27) :GOSUB 311 

81 PRINT! 961, "PUSH ENTER TO START/P-POINT* I tGOSUB 431 : CLS : IPLS"*P*THEN L 

-• :PRINTTAB(6) CHRS(23) 'POINT CHART" : PRINT: PRINT: PRINT* EACH CRASH - 2ft P 

OINTS'xPRINT: PRINT: PRINT: PRINT'TOTAL NUMBER OP SHIPS" :PRINT*AT END OF TRIP 

♦ 6M*:ELSE 1M 
98 LS « " SPRINT :PRINT*EACH SET PASSED ♦ 111 EACH* : PRINT: PRINT'EACH 

OBJECT PASSED +11 POINTS* :GOTO 88 

III FOR T • 1 TO 25 :AS(T) - ** sNEXT T 

111 L - I :AS(1) -CHRS(166)*CHRS(153) :AS(2) -CHRS(174) vCHRSim) +CHRS (157) 
:AS(3) «STRINCS(2,27)+CHRS(176)*CHRS(26)»STRINGS(2,B)+CHRS(166)+* *+CHRS(l 
53)*CHRS(26)+STRING$(2,8) +CHRS(131) 

121 AS (4) «US+CHRS(152)*CHRS(167)+CHRS(151)+CHRS(164)+DS*STRINGS(4 r 8)+CHRS( 
137) ♦CHRS(185)+CHR$(183)+CHRS(158) :AS(5) -US+CHRSU6I) *<:HRS(184) +CHRS(191) 
+CHRS(191)+CBRS(1BB)*CHR$(176)+DS+STRINGS(6,8)*CHRS(139)+CHRS(191)*CHRS(191 
)+STRINGS(2,143)+CHRS(135) 

131 AS(7) «AS(6) :AS(8) -US+US+CHRS (161) +CHR$(14I) +CHRS1 131) +CHRS(141) +CHRS 
(14I)+CHRS(144)+D$+STRINGS(6,B)+CHRS(165)+CHRS(144)+CHR$(134)+CHRS(153)+CHR 
5(137)+CHRS(162)+CHR$(132)*D$*STRING$(6,e)+CHRS(138)-K:HRS(14B)+CHRS(164)*CH 

RSU52)+CHRS(129) 

141 AS(9) -CHRS(1B4)+CHR$(189)+CHR$(144)-K:HRS(237) : AS(1"M-CHR$(138) +CHRS (17 
5)+CHRS(135) 



Listing continues 



you can fly unchallenged 
through the asteroids. 

PEEKing locations 15360- 
16383 makes the computer look 
one space ahead of your ship. If 
it finds something in this space 
it reasons you have crashed into 
an asteroid. If nothing is in this 
space you continue flying. 

Now add this line: 

50 C = PEEK(15360+P + 65): IF C = 32 
THEN 60 ELSE PRINT ®P- 3. 
"BOOM!!";: GOTO 50 

The variable C is assigned the 
ASCII code number of the space 
in front of your ship. If nothing is 
there, C will equal 32. If it does 
not equal 32, you have run into 
an asteroid. 

You now have version 1: 
Dodge. To stay alive you must 
dodge the objects shooting at 
you. 

In Program Listing 1, I added 
many new objects and a scoring 
system creating the game As- 
tro-Scrambler. This game is just 
like a real action arcade. It is not 
easy to win! 

Program Modifications 

For a longer game change 
line 280 to: 

280 N = N + 1 :B = B+1 :IF B = ### THEN 
B = 0:U = U-f 1 :IF U = 26 THEN 300 

Make ### high (60) for a longer 
game or low (15) for a shorter 
game. 

Make your own objects shoot 



The Key Box 

Basic Level II 

Modell 

4KRAM 
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PRIORITY ONE ELECTRONICS 



-- >-/-:■.>. 



3 DRIVE MODEL II MASS STORAGE FROM SSS3SL «. ffl 
AT LAST! An Alternative to Radio Shack's Overpriced, Over-Sized Model II Disk Expansion! 



The International Inslrumentaton THIN THREE" disk drrve enclosure is 
I the perlect alternative to Hadio Shack s expensive, bulky disk expansion 
box tor the Model II. The THIN THREE * is desxjned to hold three hall 
swT.indon TM848-1 8" disk dnves These are the same drives Radio 
Shack is using in the new Model 16" The THIN THREE" occupies less 
than halt ol the space requited lor Radio Shack s disk box. leavng you 
more room to work Best o( all the THIN THREE" with dnves and cables 
installed is prced at only J 1 715.80 THAT $ $555 00 LESS THAN THE 
RADIO SHACK DISK BOX! 




FEATURES 

• Connects directly to the disk enpanson port on the back ol your Model II 
no hardware modifications die i attuned completely Model ll compatible 

• F i tiered positive pressure lorced ai cooling for dust free, reliable disk 
drive operation 

• Internal data cable for easy hook-up 

• AC input via 3 w»e f toot internatonal cord/socket set 

• AC input EMI tillered to six amps to help prevent disk crashes due to 
power spikes and line noise 

• Side out chassis with front panel puis for easy access to drives 

• Disk Environment Monitor Panel monitors supply voltages and 
displays internal case temperature on standard DVM Alarm sounds 
if case temperature exceeds safe limits, protects your disks 

• I » alumnum rear panel with socketed power pass devices for cool 
trouble free power 



fci 



JO 




• '4 ^juoe rain chassis 

• Easy externa v -epiaceabte tan filter 

• Integral power supply with 5V.»6A/-5Vi.<ulA/24V P bA. 

• Double sided custom PC power board and supply engineered 
especially tor the THIN THREE " 

• Each DC supply and AC separately fused 

• Overvottage protected !>V supply 

• LED power supply monitors and test lacks for each supply on rear 

. UN 

8LP0RIIITRS A X. T wrth external data cable ana $1 795.00 

IIIM?PATCH TRSDOS ENHANCEMENT PACKAGE 
{Shvped Motor freight Colect) 

III TRSOOS UTILITY ENHANCEMENTS 

This package ol 1 2 i ndrvidually selectable utility programs s designed lor 
the sophisticated Model II TRSDOS " user Each utility is designed to 
increase system efficiency by overcoming the limitations of TRSDOS ' 
Here are three examples 

• Modifies TRSDOS" 2 or 2 0A to run with DC motor disk drives such 
as the Tandon TM848- 1 

• Ekrranation of password protection on TRSDOS" files to allow total 
user rnanipulatnn of these files 

• Changes TRSDOS "steprate from 20ms to 12ms. user may adiust to 
as low as 6ms 



81III02PATCH 



Supplied on 8" disk 



$9915 



THS8U Model II I RS80 Model 16 TRSDOS and Radio Shack are trademarks 
of Tandy Corp THIN THREE is a trademark ol Internatonal Instrumentation. 



MORE PERIPHERALS FOR THE TRS-80 MODEL II 



* Also For Your TRS-80 Models I and III 



" from SELLUM 

LETTER QUALITY PRINTERS 




80 CHARACTERS PER SECOND!! 

That i over three limes as fast as Radio Shack s Daisy Wheal ll 

'no ' .I'tsu jPB: letter ]jan!, printer f'om Selkjm is not only the 
lastest daisy wheei letter quality printer on the market it is also the 
most versatile It may be hooked up to either the parallel or one of the 
serial ports on your Model II* It has five different printer protocols built 
in so it will run with just about any word processing package on the 
market including SCRiPSir The prnter is built to be solid and quiet it 
won t shake the office down with every carnage return It also has a 1 6K 
butler (48K optional) The buffer allows your computer to send data out 
to the pnnter and not have to wait for it before allowing you to continue 
No more staring at the screen waiting lor the printer to finish" 
MORE SPtClAi FEATURES: • /80 CPU • 50-19 2K baud on serial 
intctace • Distinct alarm sound for each error condition • Intelligent 
bi-directional logic seeking • Complete word processing leatures 
including sub and super script, underlining, and double-strike char- 
acters • Auto reprint • Auto Clear • Proportwial spacings and 
supports automate (ustilication • Front panel forms control • Corn 
patitxe with most mechanical sheet feeders • Quiet -60dt> • Six 
month warrantee 



Partite. 



uejeription 



List Price SALE 



8LPDBSURF86 Printer w'16K buffer $3495 Of, $2795 00 

8LP0BSIMF86B40 Printer w/4 8 K buffer S3895 00 SMtS 00 

BLSIMFI61TT Opbonal vertical forms tractor $ 2M.00 

RLSLMPS34002 Mode< ll Parallel Cable S MM 

ItSlMPf J4M3 Modci Mil Parallel Cable S MM 



• Punter shipped via motor iieight 1 



till 



8 CP/IYI SOFTWARE FOR MODEL II 

MICROPRO INTERNATIONAL 



swtoswDSTR 

SLMOSMLMRE 

8LM0SSPSTR 

(LM0SCALSTR 

BIMDS0ATSTR 

BlfRDSSUPSET 



ILS0RCAL 



lL*tCPBASC 
SlIROSMFT 



Woidstai Version- 30 $249 M 

Mail Mew SIMM 

.■ir SI50.M 

Talc Star- S200.M 

Data Star- $200 M 

Supersort- $150 M 

'Trademark o' Micropro International 
SORCIM 
SUPERCAIC- a Superior Electronic $229 M 
MMotMOl 
Trademark ol Sorcim 

MICROSOFT 
BASlC-80- Verson 5X Extended $300 M 
Disk Basic 

BASIC- Compiler Version 5X S395 M 

E0RTRAN-80- $500.00 



'Trademark o' MicrosoU Consumer Products 



OKIDATA DOT MATRIX PRINTERS 



COMPARE OKIDATA' S FEATURES TO 

ANY OTHER PRINTER! 

COMPARE PRIORITY ONE'S PRICES 

TO ANY — THEN DECIDE!! 

DON T BE FOOLED BY THOSE WHO TRY TO SOAK 
YOU FOR THE TRACTOR 



Bl OIRtCTIONAL 120 CPS 

9 > 9 Matrix {Alphanumeric) 

6 x 9 or 1 2 Matrix lor graphics 

10 different character sets 
5.8 3 10. or 16 Characters 
per men 



10 CPt for 82A 
10 CPl for 83A 



• M CPl 

• 132 CPl 
&84 

• 82 A & 83A have both Centronics 
Parallel & 1 200 baud Senal 1/0 

;•■:■ ■■■.: 



AH Okidata printers feature 10 Ironl panel switch selectable from 
lengths from 3' lo 14" Front or bottom paper loading of up to four part 
forms tear bar. and out ol paper switch Most important of all OKIDATA 
printers are built to Survive the business or industrial enveomneiit where 
you'l use them Ail of these leatures make OKIDATA the best value in 
low cost printers' 
PART NO DESCRIPTION Sill 



IIPOBOIIMm CJKIDATA B2A w/Hactor & rjraptKs 
ILP0B0IIB3ATR OKIDATA 83Aw/tiactor & graphics 
IL0IISER2RJF 9600 Baud 2K Serial buHer/dteriace 
132 col printer parallel nterface with 

graphics and tractor 
132 co printer 9600 buad serial 2K inter 

face, graphes and tractor 
5 Model ii Paid** Cable 
5 Model l/ni Parallel Cable 
I1CN00IISIMF B OKIDATA Serial Interlace Cable 

iShipping Weights 82A 25 lbs 83A A 84 35 



ILOIIIATMAP 



SLIKIDATMAS 



iif-riampsii 

lintlAMPTMO 



$ 539.00 
$ 750.00 
$ 149.00 
$1095.00 

$1250.00 



MODEMS 



H** 1 



(B Hayes 



SMARTMODEM 




._ bo it, 



SEND $1.00 TODAY 
FOR THE NEW, FULL COLOR 
SPRING 1982 ENGINEERING 

SELECTION GUIDE! 



PRIORITY 




The HAYES Smartmodem will alow you to take advantage of the many 
database services available for your TRS 80 such as Dow Jones the 
Source and others The Smartmodem runs directly off an RS232 serial 

port 

FEATURE! • Auto Answer Auto Dial • Variable data formats • 
JOUbaud • Internal Zb Microprocessor with 2Kb control program • 40 
character command butter • Easy to program with simple commands 

'"ir*i ,'i':- MBylX Ml 

PART NO. DESCRIPTION LIST PRICE SAlf 

SilCMZMP Smnrtmodem (Sh Wt 6 Rs| S279JM $225.00 
ILICM400P Smartmodem 1200 baud StS'l r « " " $649.00 

I10CM3MP Chronograph (Sh Wt 3 Bs I S24900 $205.00 

BlCNDRSnZBF « RS232 Class 1 Cable $ II M 

THE STAR 

by 
PRENTICE 

• C to 30e buad • Bell 103 and 113 

• Exclusive triple seal acoustic chamber 

• Self Test • Runs off RS232 Port 
ILPRNSTAR HS232TTL 20 Ma Current Loop $19900 $127.00 
HCN0RS23MF 8 RS232 Class I Cable $19.95 

5 DISKETTES! 

SOFT SECTOR 

40 TRACK SINGLE SIDED 

DOUBLE DENSITY WITH 

HUB REINFORCING RINGS 

PACKAGE Oh TO $19.95 

BONUS! 

FREE!! KASSETTE 10 i 
LIBRARY CASE WITH 
PACKAGE OF 10 DISKETTES 

A $4.25 VALUE!! SIPRISMI 'Sh Wl 2 lbs ) 

SLPRI5M package o' 80 less Library Case $120.00 





ELECTRONICS 




9161 DEERING AVE • CHATSWORTH. CA 9131 . 
ORDER TOLL FREE (800) 423-5922 CA, AK, HI CALL (213) 709-5464 

Terms US VISA MC BAC ChecK Money Order US funds Only CA residents add 6^ Sales Tax MINIMUM PREPAID ORDERS1500 include MINIMUM 
SHIPPING & HANDLING of $3 00 lor the first 3 lbs plus 40t for each addnonal pound Orders over 50 lbs sent ireight collect Just in case ptea^e include youi 
phone number Prices subiect to change without notice We will do our best :o maintain prices through December 1 5 198? Credit Card oroers w4i be charged 
appropriate "eight • you haven I ece «ed your Spring 82 Engineering Selector Guide send SI 00 tor your copy today Sale prices are lor prepad orders only 



at you by putting your string in 
at line 210. Change what is in the 
quotes to your new object (for 
example, 210 A$ (21) = "XX + 
XX":). 

Change your ship's looks in 
line 240. Try this: 

240 PRINT* P. CHRS033) CHR*191) 
CHRJ<13B); 

For a more colorful game 
change line 230 to: 

230 PRINT© 960+ RNO830), AJ(RNO(26)) 

To make your ship move fast- 
er from side to side change line 
260 and 270: 

280 IF PEEK(144O0)«32 THEN P = P-4: 

IFPOTHENP-3 
270 IF PEEK(14400)*64 THEN P-P + 4: 

IFP>6MTHENP>SgO 

Enjoy, good luck and keep 
trying! ■ 

Randy Long, an 18 year-old 
Senior at Troy High School in 
Puliation, CA, plans to enroll at 
California State Polytechnic 
University to study Computer 
Sciences. 



Program continued 



159 A*(11)-08*CM*(184)^BR*(189)«CHR$(144)"K>$«STRIMC$(3,8)*CHR$(175)+CHRS( 

ca*$(i4t) w*auu(a)*ausTi4») ia»(13) <j$«cra$(13<)+chrsT179)*chr$(132)+ds 

+6TRIMC8(3,8)+CHR«(17()+CHR8(191) 

Iff AS<13) -A$(13)+CHR8I176) 

17f POR T - 1 TO 2 >A$(14) -A8(14)*CHRS(148) +CHRSU89) +CHR$(2B8 ) (NEXT T 

1M A$(1S> -A8(12)*CHR$(2B1)*A$(12) xAS(16) -CHAS(149) : A$<17) -CHRS{191) +CHR 

1(231) 

199 A8(19) -U8*UJ*US iPOR T • 1 TO 3 iA$(18) -AS (18) ♦STRINCS(5,191) ♦DS+STRI 

HGt(5,S) iRSXT T 

288 A*(19) •D84O$*CHR*(149)«CHR$(lBS)*0S*STRI»G$(2,8)+CHRS(176)*CHRS(181)*C 
1X8(144) ♦D$*STRIHCS (4,8) ♦CHRS (151) ♦STRINGS (2,1 43 )*CHRS (135) ♦CHRSt 149) :A$(2 
•) -CHH*(131)'»CHRS( 174) ♦CHRS(148) ♦CHRS (248) 

218 A8(21) -'0* :A$(22) -'A A* iA8(23) -STRIHGS(3, 91) +CHRS(212) ♦STRINGS! 

3,81) iA8(24) •••-•-•-•• tA8(25J-'<»()*>' 
228 CU i RANDOM iP*31 
238 PRIHT* 95*+BMD((9), A$(U) 
241 runt P,CHRS{139) OWt (17 5) CHR9(13S)> 

2S8 C • RBI 1S344+P+45 ):IP C - 32 THEN 2(8 ELSE TOR T - 1 TO 28 I PRIST? 
r-l,'BOOMI*| ■PRINT « P-2,STRING8(7,128+RMD(43))i : PRINT* P+43, STRINGS (5, 128 
♦KHD(43))t tPRIHTt P+(4+RHD(3) ,CHR$(128*RMD(43) ) j i PRINT 8 P+84+RND(3) ,CHR$( 
128+RRD(43))i sMBXT T sCOSOB 488 

2(8 IP PEEK( 14488 )- 32 THEM P-P-2 IIP P < 3 TBBN P - 3 iGOTO 278 
278 IP PEBX( 14488 )• (4 THEN P»P*2 (IP P > 898 THEM P - 898 iGOTO 288 ELSE 
289 

289 N - H ♦ 1 iB ■ B ♦ 1 tIP B « 35 THEN B • 8 :U • ♦ 1 tIPU-2( THEN 3 
99 

299 GOTO 239 

399 PRINT8 9(9,i sPOR T - 1 TO 199 I PRINT TAB (13)* YOU HADE IT THROUGH THE S 
CRAMSLERIII* iBXT T iGOSOB (9 
319 CL8 i PRINT CB*9<23)| 

329 PBIBT9 (4,*A 8 T B -" I PRINT TABU) "S CRAMBLER' i PRINT 
338 PBIBT iPBIRT I PRINT ■ PRINT H( I PRINT' USING THE RIGHT AMD LBPT* I PRINT 
"ABJ0N BBTB TOO MOST HABOVBB* I PRINT* TOUR SRIP THROUGH THE SCRAMBLER* iPRIN 
T* THE DBA IB TO GO AB PAR AS' 

349 ffURT*POSSILBLB IRTO THE SCRAMBLER' iPRIHT'TOO BARR EXTRA SHIPS AND* :P 
RIRT* POIRT8 BT COBFTIHUALLY ROVIRC* iPRIHT'TOUR SHIP TO THE RIGHT.* 
358 « - H ♦ ( P«19 ) iR - H ♦ ( 199*0 ) 
3(9 IP H > RS THEN BS - N :HD - U iL * 1 
379 IP U > BU THEN HU - U :HS - N :L - 1 
3B9 PRIRT9 192, "LAST TRIP •OSIRC'88448* t N j.PBINT' 
COBB *H8m PRINT* SRT 'BOj lU • 9 iR - 9 I IP L 
BM BIGB SCORE *•••*; 
399 RETURN 
499 * 

419 IP P < 44 THEN PRINT* 896, 'SORRY, YOU ARE OUT OP SHIPS I* : PRINT TAB! 29) 
•PLAY AGAIN I ' iPOR T - 1 TO 2999 xNBXT T (GOTO (9 ELSE 424 
429 P - P -44 IB - N - 299 tO - U - 1 iCLS iB • 9 : RETURN 
439 ' 

449 X$ - STRIRC$(31,129*RBD(62)> I PRINT* 128, X8| J PRINT* 328, XS| 
459 IP L - 1 PRIST*. 328,""«* NSW HIGH SCORE *•**'; 

4(9 Lt ■ INXBY* IIP LS - " THEM 444 ELSE IP LS - CHRS(13) THEN RETURN ELSE 
IP L8 - *P* THEN RETURN ELSE 444 



SET 'UiPRINT'HIGH S 
1 THEN PRINT* 328,"**» S 
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With Acorn 
Programs, 
Your TRS-80 
Does Things 
You Wouldn't 
Think Possible 

Bra Finefont W^' 

By Vincent Bly from Acorn 

Now Epson owners can have true letter quality print- 
ing with FINEFONT at 10. 11, or 12 characters per 
inch. 



Fine-font and 

standard Epson 



With boldface, underlining and incremental spacing 
(for proportional right justification). 32 special char- 
acters including those needed for mathematics, 
plus a graphic editor to create or edit character sets. 
It supports all Epson print modes, and Is compatible 
with word processors including Model I SCRIPSIT 
with SUPERSCRIPT, Model III SCRIPSIT, and Lazy 
Writer (Model I, III). Print speed is approx. 20 CPS, 
unidirectionally. It's compatible with most DOS s In- 
cluding LDOS 5.1. TRSDOS. NEWDOS/80 Ver 2.0. 
Requires following Epson printers: MX-60; MX-60 
RT with Graftrax-80 or Graftrax-plus: MX-100 with 
Graftrax plus only 

Requires 48K Disk, $49.95* 

By Richard Wilkes from Acorn 

Using your Superscript modified Scnpsit Word Pro 

cessor and a compatible printer, you can now 

underline boldface, insert text during printout slash 

zeros, set type pitch, subscript and, of course. 

superscript 1 You can even read your directory and kill 

files without ever leaving Scnpsit 

Superscript conies with drivers for popular serial and 

parallel printers (now including Centronics 73? and 

RS Daisy II). and easy instructions lor patching to 

your Scripsit program (does not include Scnpsit) 

32K Disk, $49.95 Use Model I Scnpsit * 

'plus $2.00 shipping and handling 



With our sophisticated programs, you're never disappointed. And, our 
customer service is unparalleled in excellence. 



Evade 



By Tim Knight 

You're in charge of the USS Krestan, a tn-ship on In- 
terstellar exploration. You must defend yourself 
against groups of enemy aliens, each requiring a dlf 
ferent strategy Then you can go for the big points by 
docking with another ship. Be careful, or your ship will 
be vaporized! Now you're ready for the evil Mali 
cians . . and the meteor showers. Not tor the faint- 
hearted! 

16K Tape or 32K Disk: TRS-80 I & III. 
$19.95 plus $2.00 shipping and handling 



King 
of the 
Jungle 




By Patnk Vandewalie 

An unusual combination of fast pinball action plus 
the challenges and dangers of an arcade game. Score 
points as you maneuver your ball from obstacle to 
obstacle, while moving through the jungle searching 
for the hidden crown. You start with 5 balls and get 
another for each 10,000 points. Choice of 3 screens, 
Joystick compatible. 

16K Tape or Disk: TRS-80 I & III. 
$19.95 plus $2.00 shipping and handling 



Demise 





By P. Case =r -^- -'""""" =s=— 

Shoot down the enemy ships which are coming — and 
firing— at you. Afler obliterating them all, you must 
carefully navigate a tunnel before you are in the clear. 
You can move your ship left, right, up, down and 
diagonally; your weapons include a laser cannon and 
"smart bombs" that render ■// ships on the screen im- 
potent You start with 5 ships and get another ship 
and "smart bomb" for each 10.000 points 3 levels of 
play, great sound effects 
16K Tape or Disk: TRS-80 I & III. 
$19.95 plus $2.00 shipping and handling 




Enemy 
Evasion 

By Raul Rivera 
An original fast-paced arcade style game requiring 
quick mental and physical reflexes. You must control 
your Rover to avoid oncoming Roveian Ramcraft. You 
gam points for each successful pass through the 
"death lanes", but the Ramcraft speed increases as 
you play. If you reach the double bonus mode, watch 
out for the land pellets they drop! Joystick 
compatible. 

32K Disk: TRS-80 I & III. 

$19.95 plus $2.00 shipping and handling 



Acorn Software 



QrtUUI I Products, Inc. 
634 North Carolina Avenue, S.E. Washington, D.C. 20003 
We've Grown On You. 

To Order By Phone CALL: (202) 544-4259 

Dealer Inquiries Only, Call Computer Software Distributors: (800) 424-3708 



1 Please send 


these Acorn Prog 
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I Charge to: 
■ VISA [ 


MASTERCARD 


TOTAL: 
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$ 




| CARD NO. 
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DATE 
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TECHNIQUE 



Checking the odds. 



Craps Unrolled 



Bruce Chaffee 

6571 Edgemont 

Huntington Beach, CA 92647 



A chance remark by a Las 
Vegas devotee about losing 
his shirt at craps led to an inter- 
esting experiment which dem- 
onstrates the power and versa- 
tility of the TRS-80. 

The premise is simple: To find 
the probability of winning at 
craps, simulate the game on the 



computer and play a huge num- 
ber of games. The probability of 
winning should then be close to 
the ratio wins over wins plus los- 
ses. If this ratio is greater than .5 
you may expect to win more of- 
ten than lose, and craps is a 
good bet. Is it really that easy? 
Here are two such programs, 
using the rules shown in Fig. 1. 
Program Listing 1 plays the 
game 10,000 times and Program 
Listing 2 allows you to choose 
the number of games the com- 
puter will play. If you load and 
run the program in Listing 2 (set 
the number of games at about 
10,000), you will probably ob- 
serve that the first few digits 
soon settle down to .49XXXX. 
Sounds great! All you need do is 
let the computer run until more 



Trial 


Number 


Probability 




of Games 


of Winning 


1 


10.000 


.4969 


2 


10,000 


.4928 


3 


10,000 


4923 


4 


10.000 


.4972 


5 


10,000 


5003 


6 


10,000 


.4958 


7 


10,000 


.4882 


8 


10,000 


.4956 


9 


10,000 


.4802 


10 


10,000 

Table 1 


.4911 



and more digits stay fixed. 

Problems 

Assuming that the roll of real 
dice is random, we are still left 
with two problems with our sim- 
ulation. First, how certain are 
we of an answer close to the real 
answer? Second, how random 
are the "pseudo-random" num- 
bers the computer generates? 

To answer the first of these 
questions, play 10,000 games 10 
times, and use the standard de- 
viation of the 10 individual re- 
sults to estimate the accuracy. 
We will approach the second 
question more indirectly. If we 
calculate the actual result from 
principles of probability, we can 
then compare the theoretical re- 
sult to the experimental result. 
The agreement, or lack of it, will 
be a test of the random number 
generator. 

Random Numbers 

I have provided an outline of 
the calculation of the theoreti- 
cal answer. You may want to 
skip the calculation and simply 
note the result at the end of this 
paragraph. 

P(win) = P(win (irst roll) -t- P(win on 

subsequent rolls) 

P(win (irst roll) = P(7 first roll) + 

P(11 first roll) = 6/36 + 2/36 



Calculating P(win first roll) is 
easy. Calculating P(win on sub- 
sequent rolls) is a bit more com- 
plicated because winning can 
occur if you roll a 4, 5, 6, 8, 9 or 10 
on the first roll and then match 
your point before you roll a 7. 
You can calculate these proba- 
bilities separately and then add 
them. For example: 

P(win with point = 4) = P(4 on first roll) [P(4 

on second roll) + P(no win on second 

roll) # P(4 on third roll) + . . .) 

P(win with point = 4) = 3/36<3/36 + 
3/36(1 - 9/36) + 3/36(1 - 9/36)' + . . .) 

Notice the right side is a geo- 
metric series which you can 
add. It equals 1/3. The other 
cases are similar, yielding a the- 
oretical result of .492929, a 
repeating decimal. 

Program Listing 3 is a pro- 
gram to analyze the data. 

I put the program in Listing 1 
in a loop which executed the 
Random command after each 
10,000 games, and found the ten 
results shown in Table 1. The re- 
sults can be summarized by say- 



The Key Box 

Basic Level II 
Model I or III 
16K RAM 
Printer required 
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ing the overall average is .49304 
and the standard deviation is 
.00569351. That is, with: 

SO percent certainty 492659<p<. 493422 
68.3 percent certainty 492471<p< 493609 

95.6 percent certainty 491901 <p< 494179 

99 .7 percent certainty 491332<p<.494748 

From before, the true answer is 
.492955, so the experimental an- 



swer is off by [.49304-.492925] 3 
.0001 1 1 , which is much less than 
one standard deviation. 

The method seems to work. 
We did something more than ap- 
proximate an answer we already 
knew. The method would not 
have worked if the pseudoran- 



Wln 



First Roll 
7,11 


Subsequent Roils 

Match first roll. 


2, 3 or 12 


or "point" 
7 



Figure 1 



5 DKFlWt I,S,J,H 

6 FOR HU-1T016 

7 I-6lS-6:J-6lW-6lL-6 

16 CLSiPRXirrt32,CHRS02)|:PRIirr"H,iM GAKS'il 

14 • 

15 ■ • •••• SBT up HEADINGS ••••• 

16 ' 

3t PRINTC128, 'FIRST ROLL" 

41 PRINT* 2 56," SUBSEQUENT ROLLS* 

59 PRINT6512, 'KINS' 

61 PRINT ".5 27, "LOSSES" 

71 PRINTI542, 'TOTAL* 

88 PRINTC7I4," 'PROBABILITY" 

84 " 

85 * ••••• HAIH LOOP ••••• 

86 • 

91 FOR 1-1 TO N 

188 S1-RND(6)+RND(6) 

128 IF SI- 2 OR Sl-3 OR Sl-12 THEN L-L+l: GOTO 

ES HERE 

138 IF Sl-7 OR Sl-11 THEN H-W+l: GOTO 228 

148 J-B 

158 S2-RND(6)+RND(6) 

178 J-J+l 

188 IF S2-S1 THEN W-W+ll GOTO 228 

198 IF S2-7 THEN L-L+l: GOTO 228 

288 GOTO 158 

285 • 

286 ' ••••• print RESULTS ••••• 

287 ' 

226 FRISTJ6B6, W-L 

236 PRINT6776,CHR$(36) ;W/(W+L) 

246 NEXTI 

386 LPRINT'RANDOH EVERY 16,666 W •*;W;"L -*;L;' 

316 RANDOM 

326 NEXT NU 



■TRY OTHER RUL 



P - *;H/(H*L) 



Program Listing 1 



5 DEFINT S,J: H-6:L-8 

16 CLS:PRINT632,CHRS(32);:INPUT*NUNBER OF GAKES*;N 

14 • 

15 ' ..... SET UP HEADINGS •»••• 

16 ' 

36 PRINT8128, "FIRST ROLL" 

46 PRINT62 56, "SUBSEQUENT ROLLS" 

58 PRINT8512, 'KINS' 

66 PRINT6527, "LOSSES' 

76 PRINT6542, 'TOTAL' 

86 PRINTB764," PROBABILITY" 

84 ' 



MAIN LOOP 



85 ' 

86 ' 

96 FOR 1-1 TO N 

95 IF INT(N/1686)*1666-N THEN RANDOM 

166 S1-RND(6)+RND(6) 

116 PRINT8146.S1 

126 IF SI- 2 OR Sl-3 OR Sl-12 THEN L-L+l: GOTO 216 

ES HERE 

136 IF Sl-7 OR Sl-11 THEN H-W+l: GOTO 216 

146 J-B 

158 S2-RND(6)+RND(6) 

168 PRINT«328+J*3,S2 

176 J-J+l 

186 IF S2-S1 THEN H-H+ll 

196 IF S2-7 THEN L-L+l: 

268 GOTO 156 

265 ■ 



'TRY OTHER RUL 



GOTO 211 
GOTO 218 



286 ' ..... print RESULTS ••••• 

267 ■ 

216 PRINT6326,CHR$(36) : PRINT6384 ,CHRS ( 3B) 

226 PRINT6576 ,Wi PRINT6S91 ,L: PRINT6666 , (H+L) 

236 PRINT677B,CHR$(36) ;H/(H+L) 

246 NEXTI 
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THERE'S A NEW TERM 

FOR MOD III USERS . . . TELETERM 

The TELETERM Communications System is the most powerful 
and most user-oriented terminal package available today for 
the TRS-80 Model III I 

TELETERM will turn any Model III, with at least 32 K of 
memory, single disk drive, and RS-232-C board and modem into 
an Intelligent Terminal capable of communicating with nearly 
all types of computer hardware. AND, it will allow you to define 
its parameters in virtually any way you wish ! 

Only TELETERM gives you these (plus many more] features, 
all in a single package: 



DIRECT TRS-80 to TRS- Makes transmitting as easy 
80 DISK TO DISK TRANS- ► as copying a file I 
MISSION* 



DIRECT RLE TRANS- 
MISSION FROM DISK 



..► 



Eliminates buffer limitations 



SUPPORTS PROMPTED 
OR NON-PROMPTED ► 
TRANSMISSION 



Flexible capabilities 



ON-LINE/ OFF-LINE 
TEXT EDITOR 



Creation of text for trans- 
mission and review and mod- 
ification of memory buffer 



VIDEO PAGING 



Communicates at Baud rates 
^ above 300 with no character 
loss due to scrolling 



SPLIT-WINDOW VIDEO 



Separate simultaneous view- 
ing of typed and received 
data. 



RECALL SCREEN 



Allows you to review pre- 
vious 1 5 lines received 



WORD WRAPPING 



Automatically "wraps" words 
extending past a line's end 
instead of "chopping" them 



USER-DEFINABLE 
TRANSLATION TABLES 



Allows you to define and 
save as an initialization table 
nearly all RS-232 and local 
parameters, as well as many 
system functions 



VIDEOTEX CODES 
SUPPORTED 



Access timesharing systems 
that require Videotex codes 



"when communicating witfi another TELETERM lysiem 
•'to any computer with which you can communicate 

TO ORDER - Complete the coupon below and mail it with your check. 

money order. VISA or MasterCharge # to 

TELEXPRESS. INC. P.O Box 217, Willmgboro. NJ 08046 



Name 



Address 



City. State. Zip. 
Phone 



Send me copies or TELETERM @ S 1 25 00 per copy | includes User's Manual) 

Send me of the TELE TERM User's Manual at S 1 .00 per copy (Refundable 

when TELETERM program is purchased ) 

Payment Check _ Money Order VISA MasterCharge 

Credit Cards Only Acer # Exp Date . 

Amount of Payment S_ 



Please note Credit card holders may expedite their orders by phoning |609) 
877-4900 



^ 



TaLHrHBS " Inc , PO Box 21 7 Wiilingooro, NJ 08046 
TRS-80 is a trademark of the Tandy Corporation. 



; 



r'S— List ot Advrtisurs on Pag* 451 



80 Micro, December 1982 • 257 



1-800-521-4372 







LOU Pr i ces/FRST Ser v i ce/5a+ i if act i on Guaran+M 

34 North Clk Street ianduaky, Michigan 4S47I 

P*ilT"ZL"""«T"Ma"""cZLL FOR ANYTHING- - HI FILL YOUR «N FAST! 
-.....—— 1 -800-621-4372 (FREE out aid* Michigan) —-—■■■■■■ 

HX-SO RIBBONS (in cartraoe) RES. 614.69 66.69 < HOW • > 

......_—— 313-648-2341 (MICH. RESIDENTS) ■■■ ■■■ ■■■ 

•It Modal III laval III 16K Special Frica 6 8** »■! 

•I* MODEL III 48K DISK! (408B/4088) TR8-0OS 6138)9 • •• 

• > GET ON OUR MAILING LIST AND GET 3X OFF ON SE LECTED ORDERS ■ •_ 

- Order • Dmcription Ratal I — Special - 

COLOR COMPUTER COLOR COMPUTER COLOR COMPUTER COLOR COMPUTER 

tt 16K 6389 (WOW) 32* (EXT) 6496 (WON') 6«K («XT) 6369 I!) 

OlOOlC Color Spaca Invadara 621.99 18.89 

0IOO2C Spaca War 821.89 18.89 

01OO3C Mataorioda 821.89 18.89 

010O4C Battla Flaat 821.89 18.89 

01OO4C Spaca Tradar 614.89 12.89 

01OO9C Madnaaa and tha Mln 618.89 17.89 

01OO6C Ghost Gobbler 621.89 18.89 

01OO7C Color Bcarfmen 618. 8S 17.89 

OlOOBC Lothar'a Labyrinth 614.89 12.89 

01OO8C Aleatraa II 611.89 10.89 

OIOIOC Laaar Command 610.89 8.89 

01 OUC Coaaic Supar Bowl 614.85 12.89 

01012C Color Bonanza 648.89 38.89 

0I013C Typing Tutor Itapa utility) 616.89 17.89 

O1014C Maatar Control ( tape ut I 1 I ty > 624.83 22.89 

01013C flaatar Control II (diak) 628.89 27.89 

01016C Tapa Directory 614.89 12.89 

01017C Disaeeembler 6809 Itapa) 614.89 12.89 

01BO1C LOWER CASE OPTION IHAROMARE) 678.89 74.89 

• *(« MODEL I a III t MODEL I 8. XII • MODEL I 6 III ••»•» 
It All programa-hardmare-ao'tware ate. avalllable - call' •• 

0BOOO4 MULTIDOS (Diak Opar at 1 ng Syataai) ra g 688 only 88 

01BO14 Lyn» Telephone Modem 6288 2*6 

0SS09A MAYES SMART MODEM lay favorite) 6279 only 228 

013014 Bug ♦ (tapa utility) 614.89 12.89 

013024 Tapa Copy (tapa utility) 614.83 12.89 

013O34 TCIB/HAKE VC (disk) 646.89 44.89 

013O44 Postman 2.0 (mail utility) 6129 88 

013O34 MX-PRO (diak) 624.83 22.89 

GAMES - GAMES - GAMES - GAMES - GAMES - GAMES - GAMES - GAMES 

010014 Caterpillar (0)19.89/17.89 IT) 13.89/13. 89 

01OO24 Alien Defense (D) 19. 99/ 17. 99 (T> 19. 99/ 13. 89 

01OO34 Fortreaa (0)19.93/17.89 (T) 15. 89/13. 89 

01DO44 Supar "adore <D) 19.93/ 17.93 (T) 13. 93/ 13. 83 

010034 Super Nova (0)16.83/17.93 (T) 13.89/13. 89 

01OO64 Gala»y Inveeion (0)18.99/17.93 (T) 13. 93/13. 83 

010074 Coamlc Fighter (D) 19. 89/ 17. 89 (7)13.89/13.89 

0SOO14 PFNETRATOR (D) 24 . 89/20. 99 (T ) 24.89/20. 89 

0B0024 HOPPY (FROGGER) (D) 1 9. 89/ 17. 89 (T ) I*. 89/ 14. 83 

080034 CATERPILLAR (D) 19. 93/ 17. 99 (T) 13. 89/13. 89 

0BO104 CYBORG (NEW) (D) 24. 99/22.89 <T> 16. 89/17. 89 

0BO114 OUTHOUSE (D) 19. 93/ 17. 83 (T) 13. 63/13.89 

MORE GOODIES MORE GOODIES MORE GOODIES MORE BO00IEB 

0B0<>1A Printer Btanda Clear 624.83 Bronte 627.83 

0BSO11 Aerocomp Doubler Li at 6139 Special 134 

08S01E Practical Peripheriala Print Bu**mr (EPSON) • 136 ( 

OS701A WABASH DISK8 (Single Dene.) Hat 621.89 t 16.63 I 

0S7O2A WABASH DISKS (D/D 77/BO trk) 1 1 et 634.89 t 32.99 t 

OB703A WABASH DISKS (D/D BO 2-6ldee)116t 642.89 t 36.89 • 

i>B704A WABASH FLIPPYS ( Call 1 -BOO-421 -4372/3 13-44S-2341 ) 

CALL FREE FROM OUTSIDE MICHIGAN (24 hr HOTLINE) BOO-421-4372 
MICHIGAN REBIDENTS 1-313-64S-2341 (the LOW price* pay ♦or It) 
MAJOR CREDIT CARDS ACCEPTED OVER THE PHONE - C.O.D. - M. 0. - 

pricea subject to change without notice 63. OO ehtpplng - 

To Order by Mail Include (1> Full Name (2) Phone 6 (3) Order 
(4) Model (3) Mem Size (6) Diak or Tape (7) Charge * (S) Ad 
ordered from (9) Single or Double Density -Diak (10) Experet- 
Date or Credit Card t(alloM two weeks *ar checks to clear)! 



1-800-621-4372 




mm\ 





dom numbers were not close to 
random. The results suggest 
that the pseudo-random num- 
bers were suitable for this tech- 
nique and next time you can use 
them with more confidence. 

Final Thoughts 

It is very difficult to control 
the seed number of the random 
number generator. This makes it 
difficult to duplicate an experi- 
ment. 

Are the results presented here 
too good? The overall average is 
surprisingly close to the true val- 
ue. In other experiments the 
overall average was not so 
close. I selected the data pre- 
sented here because they are 
the first 10 results produced af- 
ter I turn on the machine, and in 
this sense they can be dupli- 
cated. 

If you ran the program with 
10,000 games, then you might 
think that 20,000 games would 
give an answer that is twice as 
accurate. Such is not the case. 
In general, the expected error 
varies as 1/\/"n. In other words, 
to get one more significant digit 
(decrease the error by a factor of 
10) you must increase the num- 



ber of trials by a factor of 100 (to 
1 ,000,000). Often, other methods 
of increasing accuracy are more 
productive. 

If you change the rules of the 
game, what happens to the 
probability of winning? The first 
time I played craps we used the 
rule that you did not lose if you 
got a three on the first roll. That 
is, three was just like any other 
point. Does this change things 
much? Change line 120 by delet- 
ing OR S1 = 3, and see what the 
simulation tells you. (The theo- 
retical value is .50681.) 

The Monte Carlo technique, 
of which this is a crude example, 
can be used on very difficult 
problems to give an approxi- 
mate answer. The method does, 
however, lead fairly quickly to 
some unavoidable mathemat- 
ics. I have tried to minimize the 
math used here in order not to 
obscure the central ideas. You 
can refer to any standard text on 
statistics for a more detailed ex- 
planation. ■ 

Mr. Chaffee received a mas- 
ter's degree in mathematics. He 
works as a consultant in micro- 
computer applications. 



PROGRAM TO ANALYZE DATA 



It ' 

IS CLS 

21 INPUT* HOW HANY NUMBERS" (N 

31 DIM N(N) 

41 P0R 1-1 TO N 

SI INPUT'ENTER NUMBER") Nil) 

68 NEXT I 

7| > ••••• p IMD sun ••••• 

88 SUM - • 

9f P0R 1-1 TO N 

111 SUM ■ SUM ♦ N(I) 

111 NEXT I 

128 ' ••••• AVERAGE •••*• 

13f AVG - SUN/N 

14t ' ••••• SIGMA • •••• 

1SI DEV • ■ 

16* P0R 1-1 TO N 

171 DEV - DEV ♦(AVG-N(I)) [2 

181 NEXT I 

191 SIC • SQR(DEV/(N-1)) 

2|| ■ ••••• RESULTS *•«** 

211 P0R 1 - 1 TO N 

228 LPRINT N(I) » 

23fl NEXT I 

249 LPRINT 

24S LPRINT 

258 LPRINT * AVG - "j AVG 

261 LPRINT "STANDARD DEVIATION -"[SIG 

270 LPRINT 

275 LPRINT'58% CERTAINTY ' jSUM-.67*SIG( ' <- SUM <- "jSUH+.67"SI 



"(SUM-SIC;" <- SUM <■ "(SUM+SIG 
";SUM-2'SIG;" <" SUM <- ";SUH*2*SIG 
")SUM-3»SIG|" <- SUM <« ";SUM+3*SIG 



ipi 



•P" <- ") (SUM* 
C- "; (SUM+SIG) 



281 LPRINT"68.3t CERTAINTY 

2B5 LPRINT"9S.6t CERTAINTY 

291 LPRINT'99.7» CERTAINTY 

381 LPRINT 

311 LPRINT 

321 LPRINT'ANALYSIS OP AVERAGE VALUE" 

32S LPRINT"SI% CERTAINTY 

•67«SIG)/N 

339 LPRINT'68.3t CERTAINTY 

/« 

335 LPRINT"95.6% CERTAINTY 

SIG)/N 

341 LPRINT*99.7% CERTAINTY 

SIGJ/N 

358 LPRINT 

368 LPRINT'TRUE VALUE - .492929' 

371 LPRINT'THIS DIPPERS PROM THE AVERAGE BY* |ABS( .492929-AVG) 

388 LPRINT'THIS REPRESENTS * |ABS (. 492929-AVG) /SIG; * STANDARD DEVIA 

T IONS' 



'» (SUM-.67»SIG)/N;" 
";(SUM-SIG)/N;" <- 
";(SUM-2«SIG)/N;" 
"l (SUM-3'SIG)/N(" 



<- "P" 



, p . 



"r (SUM*2« 
" j (SUM+3* 



'■"rf*""* 
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IT'S MORE FUN THAN A THREE-RING CIRCUS 



V 



& 



■*& 



EDUCATIONAL 
M FEATURES i 

EXPANDS CREATIVITY 

DEVELOPS KEYBOARD SKILLS 

GEOGRAPHICAL QUIZZES 

MATH AND WORD GAMES 



# 



# 



JOUR CHILD WILL BE CAP 
for hours with your gift of the 60 programs in 
Computer Carnival. Tests of skill, haunted houses, 
mazes, wizards and dragons are all a part of this 
funhouse book. Written in TRS-80* Level II Basic. 
Author Richard Ramella creates many characters, from the 
mysterious Sugar Louie to the mystical Madam Zelda, as he 
takes your child through his arcade of games, graphics and 

quizzes. 
ill -* i "V Carnival Companion'" is a 30-minute cassette 
UjJ-JjjJJ Xof the longer listings which eliminates the 



LARGL READABLE TYPE 
SPIRAL BINDING 
^ SHORT, EASY-TO-TYPE 

PROGRAMS & 

READY-TO-LOAD CASSETTE 
OF THE LONGER LISTINGS 
AND 

MORE 



aggravation of typing and searching for errors, 
leaving more time to spend on the midway. 



Toll Free 1-800-258-5473 for your credit 
[card order. Or mail your order with pay-| 
merit or complete credit card informa- 
tion plus $2 shipping c\m\ handling to: 
Wayne Green Inc. 
Attn: Book Sales 
Peterborough, NH 03458 

Deaier Inquiries Invited 



All orders shipped UPS it 

complete street address 
is provided. 



SDi&UU 



MRSHOi, 

lli'll c-k .11 I' 
llnl Vi.uk 



[""] COMPUTER CARNIVAL and CARNIVAL 
COMPANION CC7389 $24.97 
COMPUTER CARNIVAL (book only) BK7389 $16.97 

n< hide $2.00 per order lor shipping and handling > harges.) 
I I Payment enclosed "| M(" I I VISA PlAmEx 

Card* txpirt-s MCB.ink* _ 



Package price: 
$24.97 
Book only: 
$16.97 



Vinit 



\ddress&Gty 



Mil 
I 



Photo- 
copied 
coupon is 
accept- 
able lor or- 
dering. 



Zip. 



CC12 



^ 



Z) 



' t\ 






A LOCKED DOOR A DEAD MAN 

AadUMMibBKtItenaite 







1 



REWRITING 



THEM AS EAST AS 



At the rate we're going, 
we'll have these pages 
filled by 2083. And by 
2084, people will be 
clamoring for the next 
Infocom creation. 

We hate to disappoint our 
public. So we keep you waiting. 
Because while the software facto- 
ries are cranking out arcade game 
after arcade game, pulpy adven- 



WE CAN! 



ture after trite fantasy, we're , „ ,,.,,._ ._ 

writing and rewriting, honing and poll recently voted ZORK™ I and 

perfecting. Before a single person ZORK II the most popular adven- 

enters one of Infocom's worlds, tures of 1981. 

it must be crafted into a living, And now, for the moment, your 

riveting, definitive experience. wait is over. ZORK III, your final 



step in the underground 
trilogy, and STARCROSS,™ 
an exploration of a new 
dimension in science fiction, 
are ready for you. 
Look at them up there, 
Judging from the public's reac- the little worlds of Infocom. As 
tion, it's worth the wait. For our universe expands, compan- 

instance, Creative Computing ions will come to help fill that vast 

welcomed DEADLINE ™ as expanse of white space. Till 

"thoroughly engrossing and real- then, they'll continue to stand 
istic," while a Softalk readers' oi™w» no fi,~ k«o* ~( «n ~~„„:ui. 



alone as the best of all possible 
worlds. 

inpocom 

55 Wheeler Street, Cambridge, MA 02138 



Infocom's worlds are available for Apple? Atari? IBM, TRS-80? Commodore, NEC, Osborne, CP/M? and DEC." 

Apple is a registered trademark of Apple Computer. Inc. Atari is a registered trademark of Atari, Inc. TRS-80 is a registered trademark of Tandy Corporation 
CP/M is a registered trademark of Digital Research. Inc. DEC is a trademark of Digital Equipment Corporation. 



UTILITY 



LOAD 80 



Find it fast in your Basic programs. 



Search Them Strings 



John R. Gunter 
Charles Gunter 
756 Twin Branch Drive 
Birmingham, AL 35226 

If necessity is the mother of 
invention, then aggravation 
must be a close relative. That's 
why I wrote this string search util- 
ity. Written in machine language 
for a 16K Level II TR&80, it 
searches even the largest of Basic 
programs in 10 seconds or less. 

Search is a small program 
that takes about 365 bytes of 
memory. I kept it short by using 
ROM routines extensively. 

It's simple to use: Single keys 
command everything. It's also 
easy to access: You need only 
five keystrokes to get from 
Basic to the utility; only one key 
to return to Basic. 

Inspiring Aggravation 

The aggravation that inspired 
this program started with a Basic 
simulation game that we bought. 
Never willing to let well enough 
alone, we immediately set out to 
modify the new program. Enter 
the aggravation. This was one of 
those packed Basic programs. 
You know the kind— when you 
list it, the screen turns almost 
solid white as a blizzard of sym- 
bols fly past. 

After some frustrating at- 
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tempts to find things in the pro- 
gram, we called a time-out to 
write the search utility. 

The simulation program filled 
the top half of the screen with 
labels and numbers that were 
the results of complex equa- 
tions. To find out which vari- 
ables drove the numbers on the 
screen, we input the label into 
the search utility. A few seconds 
later, the print message was on 
the screen, complete with vari- 
able name. 

Next, by searching for the var- 
iable name, we found the equa- 
tion that calculated the variable. 

Now, we wanted to see how 
the factors in the equation be- 
haved, so we wrote some print 
statements for the bottom part 
of the screen. Just as we were 
starting to learn something, one 
of the simulation program's 
"disaster messages" appeared 
on the screen — where else, but 
right on top of our newly in- 
serted print statements. 

Back to the search utility, and 
in a few seconds the Print @ 
statement appeared on the 
screen. We moved the Print @ 
lower on the screen and went 
back to run the Basic program. 

Zap! Another disaster mes- 
sage. A second search showed 
that this disaster message was 
another Print @ for the same 



location. Being clever, we de- 
tected a pattern emerging. Time 
for another search, this time for 
Print @ and the appropriate 
screen locations. This search lo- 
cated all the rest of the disaster 
messages, which we then moved. 

We were all set! Then, all of our 
messages began flashing like a 
neon sign. We returned to the 
search utility once again to look 
for a clear to the end of the screen 
message (PRINT CHR$(31)). We 
moved all these. 

Next, we wanted to write 
some equations of our own, but 
which variables were free (that 
is, unused in the program)? We 
picked a variable name we liked, 
and entered it as a search argu- 
ment in the utility program. If the 
"string not found" message 
came back from the utility, the 
variable was free for us to use. 

Using the Utility 

To use the utility, set the 
memory size to 32425. Then type 
SYSTEM and respond to the *? 
prompt with the program name 
SEARCH. 

When the program has 
loaded, type / and press Enter. 
This loads the start address of 
the utility into 418FH. This is the 
DOS jump address for the com- 
mand NAME. 

Now, load the Basic program 



you want to search. 

To access the utility, type 
NAME and press Enter. The 
screen clears and the message 
"output to printer (Y/N)?" ap- 
pears. When you make your selec- 
tion, the message "enter string:" 
appears. Type the string you want 
to search for and press Enter. 

If the utility finds the string, it 
lists the Basic line containing it 
on the screen or printer, which- 
ever you selected. 

To continue searching for 
subsequent occurrences, press 
Enter. To start a new search, 
press Break. To return to Basic, 
press shift up-arrow. 

When the search reaches the 
end of the Basic program, the 
message "string not found" will 
appear on the screen (even if you 
selected the printer as the output 
device). At this point either 
Break or shift up-arrow is valid. 

Details of the Utility 

Search, shown in Program 
Listing 1 is completely relo- 
catable. Just redefine the first 
line. Note that the buffer 
variable extends from the end of 
the program, so don't jam the 
program against something 
else. I allowed 28 bytes. 

Lines 140 to 170 put the start 
address in the NAME jump ad- 
dress and return you to Basic. 



Lines 220 to 290 ask for your 
choice of output device. If you 
don't want to use a printer, 
delete the lines that have an as- 
terisk in the comment column. 

If you select the printer, a one 
is stored in the output device 
control byte (lines 300-310). If 
not, the screen is the output 
device, since the byte is initial- 
ized to zero (lines 200-210). 

Next, the program outputs the 
prompt to enter the string (lines 
360-410). The character is ac- 
cepted (line 450), checked for 
enter (line 460), stored in the buf- 
fer (lines 530-540) and displayed 
on the screen (line 550). 

The utility stores the pointer to 
the first line in PRSADD (lines 
650-660). Similarly, it recovers 
and stores the pointer to the next 
line in NXTADD (lines 670-710). 

The contents of the Basic line 
are read into the input buffer us- 
ing a routine from the ROM that 
also expands the Basic tokens 
(lines 770-820). (For an explana- 
tion of the structure for Basic line 
storage in memory, see William 
Barden's column "The Assembly 
Line" in the January, 1961 issue of 
80 Microcomputing.) 

Next, Search compares the 
first character of the string you 
want to each character in the 
Basic program line (lines 
840-960). If the first character 
matches (line 970), it compares 
subsequent characters (lines 
1020-1050). 

If all characters match, it out- 
puts the line number (lines 
1110-1160) and its contents 
(lines 1170-1220). Following this, 
the program waits for input (line 
1230), accepting either Enter 
(lines 1240-1250), Break (lines 
1260-1270) or Shift up-arrow, 
(lines 1280-1290). 

If it finds no match in a line, 
the NXTADD becomes the 
PRSADD. It checks to determine 
if this is the last line (lines 
720-760). If so, it outputs the 
"string not found message" 
(lines 1310-1360); only Break or 
Shift up-arrow (lines 1370-1410) 
are valid now. 



A Basic Approach 

If you haven't an assembler, 
don't despair. I have provided 
not one, but two Basic programs 



Program Listing 1. Search 





00100 


SEARCH UTILITY FOR BASIC P 




00110 


FOR 


16K LEVEL II TRS-80 




00120 








7EAB 


00130 


START 


EQU 


7EA0H 


7E96 


00140 




ORG 


START- IB 


7E96 21AB7E 


00150 




LD 


HL, START 


7E99 228F41 


00160 




LD 


(41BFH) ,HL 


7E9C C366BB 


00170 




JP 


66H 


7EAB 


00180 




ORG 


START 


7EAB CDC 901 


0B190 


START 


CALL 


1C9H 


7EA3 AF 


00200 




XOR 


A 


7EA4 329C40 


00210 




LD 


(409CH) ,A 


7EA7 21A17F 


00220 




LD 


HL,MSSG1 


7EAA CDA7 28 


00230 




CALL 


28A7H 


7EAD CD4900 


00240 




CALL 


49H 


7EBB FS 


00250 




PUSH 


AF 


7EB1 CD33B0 


00260 




CALL 


33H 


7EB4 Fl 


00270 




POP 


AF 


7EB5 FE59 


00280 




CP 


59H 


7EB7 2005 


00290 




JR 


NZ, NOPRNT 


7EB9 3E01 


00300 




LD 


A,l 


7EBB 329C40 


00310 




LD 


(409CH) ,A 


7EBE 3E0D 


00320 


NOPRNT 


LD 


A, 13 


7EC0 CD330B 


00330 




CALL 


33H 


7EC3 3E0E 


00340 




LD 


A, 14 


7EC5 CD3300 


00350 




CALL 


33H 


7ECB 21BA7F 


00360 




LD 


HL.MSSG2 


7ECB 3A9C40 


00370 




LD 


A, (409CH) 


7ECE F5 


00380 




PUSH 


AF 


7ECF AF 


00390 




XOR 


A 


7ED0 329C4B 


00400 




LD 


(409CH) ,A 


7ED3 CDA728 


00410 




CALL 


28A7H 


7ED6 Fl 


00420 




POP 


AF 


7ED7 329C40 


00430 




LD 


(409CH) ,A 


7EDA 21E17F 


00440 




LD 


HL, BUFFER 


7EDD CD4900 


00450 


READ 


CALL 


49H 


7EE0 FE0D 


00460 




CP 


13 


7EE2 2811 


00470 




JR 


Z,FIND 


7EE4 FE08 


00480 




CP 


8 


7EE6 2006 


00490 




JR 


NZ,CONT 


7EE8 2B 


00500 




DEC 


HL 


7EE9 CD3300 


00510 




CALL 


33H 


7EEC 18EF 


00520 




JR 


READ 


7EEE 77 


00530 


CONT 


LD 


(HL) ,A 


7EEF 23 


00540 




INC 


HL 


7EF0 CD3300 


00550 




CALL 


33H 


7EF3 18E8 


00560 
00570 


1 


JR 


READ 




00580 


;BEGINING OF 


SEARCH ROUTINE 




00590 


; 






7EF5 3600 


00600 


FIND 


LD 


(HL) ,0 


7EF7 3EBD 


00610 




LD 


A, 13 


7EF9 CD3300 


00620 




CALL 


33H 


7EFC 3E0F 


00630 




LD 


A, 15 


7EFE CD3300 


00640 




CALL 


33H 


7F01 2AA440 


00650 




LD 


HL, (40A4H) 


7F04 22DB7F 


00660 


NWLINE 


LD 


(PRSADD) ,HL 


7F07 7E 


00670 




LD 


A,(HL) 


7F08 32DD7F 


00680 




LD 


(NXTADD) ,A 


7P0B 23 


00690 




INC 


HL 


7F0C 7E 


00700 




LD 


A, (HL) 


7P0D 32DE7F 


00710 




LD 


(NXTADD+1) ,A 


7F10 2ADB7F 


00720 




LD 


HL, (PRSADD) 


7F13 7C 


00730 




LD 


A,H 


7F14 B5 


0074B 




OR 


L 


7F15 FE00 


BB750 




CP 





7F17 286A 


00760 




JR 


Z,THRU 


7F19 23 


00770 




INC 


HL 


7F1A 23 


007 80 




INC 


HL 


7F1B 23 


00790 




INC 


HL 


7F1C 23 


00800 




INC 


HL 


7F1D CD7E2B 


00810 




CALL 


2B7EH 


7F20 21E841 


00820 




LD 


HL,41E8H 


7F23 11E17F 


00830 


BUFFI 


LD 


DE, BUFFER 


7F26 AF 


00840 




XOR 


A 


7F27 32DF7F 


00850 




LD 


(MTCHFL) ,A 


7F2A 1A 


00860 


BUFFNX 


LD 


A,(DE) 


7F2B 47 


00870 




LD 


B,A 


7F2C AF 


00880 




XOR 


A 


7F2D B8 


00890 




CP 


B 


7F2E 281F 


00900 




JR 


Z, MATCH 


7F30 7E 


00910 


NXCHAR 


LD 


A,(HL) 


7F31 FE00 


00920 




CP 





7F33 2815 


00930 




JR 


Z,NXTLIN 


7F35 23 


00940 




INC 


HL 


7F36 B8 


00950 




CP 


B 


7F37 2809 


00960 




JR 


Z,MATCH1 


7F39 3ADF7F 


00970 




LD 


A, (MTCHFL) 


7F3C FE00 


00980 




CP 





7F3E 28FB 


00990 




JR 


Z, NXCHAR 



j DETERMINES PROGRAM LOCATION 
;SET MEM SIZE TO THIS VALUE 
;PUTS START ADDRESS IN THE 
;"NAME" JUMP ADDRESS 
.•RETURN TO BASIC 

; CLEAR THE SCREEN 

;*SET OUTPUT DEVICE TO BE 

) *THE SCREEN 

> "POINT TO MESSAGE I 1 

; 'OUTPUT IT TO THE SCREEN 

;*GET A CHARACTER FROM KEYBOARD 

;*SAVE THE CHARACTER AND 

; "DISPLAY IT ON THE SCREEN 

.••RESTORE THE CHARACTER AND 

.-•SEE IF IT'S A "Y" 

;"IF NOT SKIP THE NEXT 2 LINES 

;*SET THE OUTPUT DEVICE 

;*FLAG TO PRINTER 

; "OUTPUT CARRIAGE RETURN 

;*TO THE SCREEN 

j TURN ON THE CURSOR 

; OUTPUT IT 

.•POINT TO SECOND MESSAGE 

>"GET USER'S OUTPUT DEVICE 

;*AND SAVE IT 

I*SET OUTPUT DEVICE TO BE 

;*THE SCREEN, TEMPORARILY 

; OUTPUT THE SECOND MESSAGE 

;*RESTORE THE USER'S CHOICE 

;"OF OUTPUT DEVICE 

; POINT TO BUFFER 

;GET CHARACTER FROM KEYBOARD 

;IS IT THE "ENTER" KEY? 

;IF SO, GO TO FIND 

;IS IT THE "BACK ARROW" KEY? 

j IF NOT, THEN GO TO CONT 

;DECREMENT THE BUFFER POINTER 

; BACKUP THE SCREEN CURSOR 

j GO GET ANOTHER CHARACTER 

;PUT CHARACTER IN BUFFER 

j INCREMENT THE BUFFER POINTER 

;PUT CHARACTER ON SCREEN 

;G_ GET ANOTHER CHARACTER 



;MARK END OF BUFFER WITH ZERO 

;PUT A CARRIAGE RETURN 

;OUT TO THE SCREEN 

;TURN OFF THE CURSOR 

j OUTPUT IT TO THE SCREEN 

;GET ADDRESS OF FIRST LINE 

j PUT IT IN PRESENT ADDRESS 

j GET THE LOW BYTE OF THE NEXT 

I LINE ADDRESS AND STORE IT 

;GET THE HIGH BYTE OF THE NEXT 

;LINE ADDRESS AND STORE IT 

j GET THE PRESENT LINE ADDRESS 

; CHECK TO SEE IF THE VALUE 

;IS ZERO WHICH INDICATES THE 

;END OF THE BASIC PROGRAM 

;IF SO, GO TO THRU 

;MOVE OVER 

;TO THE FIRST 

; CHARACTER OF THE 

; BASIC PROGRAM LINE 

;PUT LINE IN INPUT BUFFER 

; POINT TO ADDRESS OF INPUT BUFFE 

; POINT TO SEARCH PROGRAM BUFFER 

.•INITIALIZE THE MATCH FLAG 

.•WITH A ZERO — NO MATCH 

;GET NEXT CHARACTER FROM THE 

.•SEARCH PROGRAM'S BUFFER 

j AND CHECK TO SEE IF IT IS 

;THE END OF BUFFER MARKER 

;IF SO, GO TO THE MATCH ROUTINE 

.-GET NEXT CHAR FROM INPUT BUFFER 

;IS THIS THE END OF THIS LINE? 

;IF SO, GO TO GET NEXT LINE 

;DOES THE CHARACTER FROM THE 

.•SEARCH BUFFER (B) MATCH THE 

;ONE FROM INPUT? IF SO GO 

>HAVE WE PREVIOUSLY MATCHED 

;ANY CHARACTERS IN THIS LINE? 

j IF NOT, GET THE NEXT CHAR 

Listing 7 continues 
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Listing 


7 continued 












7F40 


18E1 


01000 




JR 


BUFFI 


IF SO, GO TO BUFFI 


7F42 


3E01 


01010 


MATCH1 


LD 


A,l 


WHEN THE FIRST CHAR MATCHES 


7F44 


32DF7F 


01020 




LD 


(MTCHFL) ,A 


SET THE HATCH FLAG AND 


7F47 


13 


01030 




INC 


DE 


POINT TO THE NEXT CHARACTER 


7F48 


18E0 


01040 




JR 


BUFFNX 


AND GO TO BUFFNX 


7F4A 


2ADD7F 


01050 


NXTLIN 


LD 


HL, (NXTADD) 


TAKE THE VALUE OF THE NEXT 


7F4D 


18B5 


01060 
01070 


1 


JR 


NWLINE 


ADDRESS AND GO 






01080 


J ROUTINE WHEN 


A COMPLETE MATCH HAS BEEN FOUND 






01090 


I 








7F4F 


DD2ADB7F 


01100 


HATCH 


LD 


IX, (PRSADD) 


GET THE PRESENT ADDRESS 


7F53 


DD23 


01110 




INC 


IX 


AND MOVE OVER TO THE 


7F55 


DD23 


01120 




INC 


IX 


PROGRAM LINE NUMBER 


7F57 


DD6E00 


01130 




LD 


L,(IX+0) 


GET THE LOW AND HIGH BYTES 


7F5A 


DD6601 


01140 




LD 


H, (IX+1) 


OF THE LINE NUMBER 


7F5D 


CDAF0F 


01150 




CALL 


0FAFH 


OUTPUT THE LINE NUMBER 


7F60 


3E20 


01160 




LD 


A, 32 


GET A SPACE CHARACTER 


7F62 


CD2A03 


01170 




CALL 


3 2 AH 


AND OUTPUT IT 


7F65 


21E841 


01180 




LD 


HL,41E8H 


POINT TO THE INPUT BUFFER 


7F68 


CD752B 


01190 




CALL 


2B75H 


OUTPUT THE LINE 


7F6B 


3E0D 


01200 




LD 


A, 13 


GET A CARRIAGE RETURN 


7F6D 


CD2A03 


01210 




CALL 


3 2 AH 


AND OUTPUT IT 


7F70 


CD4900 


01220 


LOOP 


CALL 


49H 


GET CHARACTER FROM KEYBOARD 


7F73 


FE0D 


01230 




CP 


13 


IS IT THE ■ENTER" KEY? 


7F75 


28D3 


01240 




JR 


Z, NXTLIN 


IF SO, CONTINUE THE SEARCH 


7F77 


FE01 


01250 




CP 


1 


IS IT THE 'BREAK" KEY? 


7F79 


CAA07E 


01260 




JP 


Z, START 


IF SO, START OVER 


7F7C 


FE1B 


01270 




CP 


27 


IS IT SHIFT UP ARROW? 


7F7E 


CA191A 


01280 




JP 


Z,1A19H 


IF SO, RETURN TO BASIC 


7F81 


18ED 


01290 




JR 


LOOP 


IF NONE OP ABOVE, TRY AGAIN 


7F83 


21CA7F 


01300 


THRU 


LD 


HL,MSSG3 


POINT TO MESSAGE 3 


7F86 


AF 


01310 




XOR 


A 


•CHANGE THE OUTPUT DEVICE TO 


7F87 


329C40 


01320 




LD 


(409CH) ,A 


•THE SCREEN 


7F8A 


CDA728 


01330 




CALL 


28A7H 


OUTPUT HESSAGE 3 


7F8D 


3E0D 


01340 




LD 


A, 13 


GET A CARRIAGE RETURN 


7FBF 


CD2A03 


01350 




CALL 


3 2 AH 


AND OUTPUT IT 


7F92 


CD4900 


01360 


THRUIN 


CALL 


49H 


GET A CHARACTER PROM KEYBOARD 


7F95 


FE01 


01370 




CP 


1 


IS IT THE "BREAK" KEY? 


7F97 


CAA07E 


01380 




JP 


Z , START 


IF SO, START OVER 


7F9A 


FE1B 


01390 




CP 


27 


IS IT THE SHIFT UP ARR- W? 


7F9C 


CA191A 


01400 




JP 


Z,1A19H 


IF SO, GO TO BASIC 


7F9F 


1BF1 


01410 




JR 


THRUIN 


IF NONE OF ABOVE, TRY AGAIN 


7FA1 


4F 


01420 


MSSG1 


DEFM 


'OUTPUT TO PRINT 


:r (Y/N)?' »• 


7FB9 


00 


01430 




DEFB 





»* 


7FBA 


45 


01440 


MSSG2 


DEFM 


'ENTER STRING: 




7FC9 


00 


01450 




DEFB 







7FCA 


53 


01460 


MSSG3 


DEFM 


'STRING NOT FOUW 


)' 


7FDA 


00 


01470 




DEFB 







7FDB 


0000 


01480 


PRSADD 


DEFW 







7 FDD 


0000 


01490 


NXTADD 


DEFW 







7FDF 


0000 


01500 


MTCHFL 


DEFW 







7FE1 


0000 


01510 


BUFFER 


DEFW 







7E96 




01520 




END 


START- 10 




0000 


1 TOTAL ERRORS 











to POKE the machine language 
program into memory. 

The first version (see Program 
Listing 2) is the same as the 



other version you cannot use 
the printer and it's shorter (see 
Program Listing 3). 
With either version, set the 



in the first remark and type the 
program. 

When you run the program, 
you first get a poor man's 



assembly program. With the memory size to the value shown cyclical checksum of your data. 



This checks for typographical 
indiscretions and transposi- 
tions. If you pass this check you 
should be in good shape. 

When the program completes 
its run and returns the ready 
prompt, try a few searches on 
the Basic program that POKEd 
in the data. 

Assuming that works, save 
your Basic program on tape, and 
it's ready for serious use. 

Tips on Using the Utility 

Remember that in Basic only 
the first two letters are signifi- 
cant. Suppose you want to intro- 
duce a new variable to hold the 
last value input, and you want to 
call it Last. Search only for LA, 
but bear in mind the program 
will also find a variable named 
Large. Remember, defining too 
large a search argument will 
cause you to miss conflicting 
variables that have the same 
first two letters. 

Watch out for embedded 
blanks. A search for: 

PRINT® 660 
will not find: 

PRINT @660 

You can search for references 
to line numbers too. Suppose 
you plan to delete lines 1120 to 
1180 from your Basic program. 
Before you do so, you can quickly 
find out whether any QOTOs, 
GOSUBs or lf...Thens reference 
these lines by searching for 11. 
Any reference will quickly show 
up. 

Try this utility to soothe your 
frustrations, and speed your 
way through your next Basic 
programming job. ■ 



IB ' MEMORY SIZE - 32415 

20 ' LINES 30 TO 118 DO THE CHECKSUM DATA VALIDATION 

31 DEFINT D,Z : CHECKSUM - 

41 FOR K ■ 1 TO 7 STEP 2 

SI READ D 

61 IF D ■ -1 THEN 110 

70 CHECKSUM - CHECKSUM ♦ D • K 

80 NEXT K 

91 GOTO 40 

101 IF CHECKSUM <> 116705 PRINT 'CHECKSUM ERROR — RECHECK DATA ST 

ATEMENTS'sEND 

110 PRINT 'DATA CHECKSUM OK" 

120 ' LINES 130 TO 190 POKE THE MACHINE LANGUAGE INTO HIGH MEMO 

RY 

130 RESTORE 

140 K - 32416 

150 REAL D 

160 IF D - -1 THEN 210 

170 POKE K,D 

180 R - K ♦ 1 

190 GOTO 150 

200 ' LINE 210 POKES THE JUMP ADDRESS OF THE 'NAME" COMMAND 

210 POKE 16783,160 : POKE 16784,126 

221 PRINT "FINISHED* 

230 DATA 205,201 

240 DATA 1,175,50,156,64,33,164,127,205,167,40,205 



250 


DATA 


2C0 


DATA 


271 


DATA 


281 


DATA 


2»0 


DATA 


300 


DATA 


HI 


DATA 


320 


DATA 


JJ0 


DATA 


340 


DATA 


351 


DATA 


J6I 


DATA 


370 


DATA 


311 


DATA 


3»0 


DATA 


400 


DATA 


410 


DATA 


420 


DATA 


431 


DATA 


440 


DATA 


451 


DATA 


460 


DATA 


471 


DATA 


480 


DATA 


490 


DATA 


500 


DATA 



73,0.245,205,51.0,241.254,09,32,5.62 

1.50. 15*. 04.62.13,205, 51, 0,(2, 14, 205 

51. 0.33, 189, 127, 51, 156, 64, 245,175. 50, 156 

64, 205, 167, 41, 241, 51, 156, 64, 33. 220, 127, 205 

7J, 0.254. 13, 40. 17, 254, I. 32, 6,43,205 

51. 1. 24, 23 9, 119, 35, 205. 51. 1, 24, 232, 54 

0,62.13.205,51,0.62,15,205,51,0.42 

164.64,34,222.127,126,50,224,127,35.126,50 

225.127.42.224.127,124.101.254.0,40,109,42 

222.127,35.35,35,35,205,126.43,33,232,65 

17,220,127,17 5,50.226,127,26.71.175,184,40 

31.126.254,0,40.21,35,164.40,9,50.226 

127,254,0,40.240.24.225.62,1,50,226.127 

19, 24. 224. 42. 224(127.24. 17 6, 221. 42. 222. 127 

221.35.221.35.221.110,0,221.102.1.205.175 

15.62.32.205.42.3,33.232,65.205.117,43 

62.13.215.42.3,205,73,0,254,13.40,211 

254,1,202.160.126,254,27,202,102,0,24,237 

33.205.127,175,50,156,64,205,167.40,62,13 

205,42.3.205.73.1,254.1,202.160.126.254 

27,202.102.0.24,241.79,05,04,80.05,84 

32. 04. 79, 32. 00. 12. 73, 78, 84, 69, 62, 32 

40. 69, 47, 78, 41, 63, 0,69, 7 0,04, 69. 82 

32,83,84,82.73,78,71.58,32,32,9,03 

04,82.73.78,71,32,78,79,84,32,70,79 

95,78,68,0,-1 



Program Listing 2. Basic Program to POKE Search 
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II " SET r.EHCRY silt TO 32485 

2i ' LIKES 38 TO 111 DC THE CHECKSUM DATA VALIDATION 

3» DEFINT L,K : CHECKSUM - t 

40 FOR K - 1 TO 7 STEP 2 

58 READ D 

60 IF D - -1 THEN 101 

70 ChECKSUM - CHECKSUM ♦ D • K 

80 KEXT K 

90 GOTO 40 

100 IF CHECKSUM <> 92158 PRINT 'CHECKSUM ERROR — RECHECK DATA STA 

TEMENTS":END 

110 PRINT "DATA CHECKSUM OK" 

120 ' LINES 130 TO 190 POKE THE MACHINE LANGUAGE INTO HIGH MEMO 

RY 

130 RESTORE 

140 K ■ 32489 

150 READ D 

161 IF D - -1 THEN 211 

170 POKE K,D 

180 K - K + 1 

190 GOTO 150 

2it • LINE 219 POKES Ti.tl JUMP ADDKf.SS 3F THE "NAME" COHHAIQ 

210 POKE 16783,233 : KOKE 16784,126 

220 PRINT *FINSIHED" 

230 DATA 205,201,1,62,14,205,51,0,33,189,127,205 

240 DATA 167,40,33,228,127,205,73,0,254,13,40,17 

250 DATA 254,8,32,6,43,205,51,0,24,239,119,35 

260 DATA 205,51,0,24,232,54,0,62,13,205,51,0 

270 DATA 62, 15, 205, 51,0, 42, 1M, 64, 34, 222, 127, 126 

280 DATA 50,224,127,35,126,50,225,127,42,224,127,1. 

290 DATA 181,254,0,40,109,42,222,127,35,35,35,35 

302 DATA 205,126,43,33,2.2,65,17,228,127,175,^0,226 

310 DATA 127, 26, 71, 1'5, 184, 40, 31, 126, 254, «, 40, 21 

320 DATA 35, 134, 40, 9, 5B, 2/6,127,254,0, 411,240, 24 

330 DATA 225,62,1,50,226,127,19,24,224,42,224,127 

343 DATA 24 , 17 8 , 22 1 , 42 , 2 22 , 1 27 , 221 , 35 , 271 , 3 5 , 221 , 1 1 

350 DATA 3,221,102,1,205,175,15,62, J2,20 c ,, 42, 3 

'■iO DATA 33,232,65,205,117,43,62,13,205.42,3,205 

370 DATA 73,0,2'.4,13,40,211,254,1,202,23.«,126,254 

5*0 DATA 2.", 202, 102, 0,24, 237, 33, 205, 127, 205, 167, 46 

:91 DATA 62, i-, 205,42, 3,205, 73, 8, 254,1,262,233 

408 DATA 126, 254, 27, 202, 102, 0,24, 241, 69, 7b, 84, 69 

410 LATA "2, 32, B3, 84, 82, 73, 78, 71, 58, 32, 32,0 

420 DATA OJ,i4,e2,73,78,71,32,78,79,84,32,70 

430 DATA 79, f-5, 70, 68, 0,-1 



Program Listing 3. Basic Version Without Print Option 
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DAISY WHEEL 

New Smith Corona TP-1 



True letter quality printer for less than the cost of an 
office typewriter! Priced $500 less than other popular 
daisy wheel printers! 

SALE PRICE: 
$599.00 

FEATURES: 

ir Friction feed 

if 15 cps. 120 wpm 

-£ Changeable daisy wheels 

^ Parallel or serial interface 

if Compatible with R/S, Apple, etc 

rs| SUNLOCK SYSTEMS 
™ 4217 Carolina Ave. 

Richmond, Va. 23222 

KWmOHkl PRINTER SPECIALS 




Eptcn MXS0 $449 
&0n $529 
MX700 $699 



Okidouta MLSO $349 
MLS2A $449 
MLS3A $719 



WE WILL MEET OR BEAT AiW AtH/ERTISEP PRICE 



TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-321-9191 

We accept MasterCard, Visa and CODs 



Ability: 

Library Commands 
i All of TRS-DOS comm 

2 Lower case options 

3 Vanble track support 
(35-80) 

4. Plus many more 

Utility Command 
1 All of TRS-DOS commands 

2. Purge all files not needed 

3. Terminal control as to 
communication with 
another terminal 

4 Plus many more 

Languages 
1 Extended basic 
2. Edtasem - Editor Assembly 
3 Plus many more 

Write or call us now for the best 

investment of your life 

POS MODEL I. II. and II T $85.00 



V ? 




THE GREATEST OPERATING SYSTEM 

UNDER THE SUN 

All application program provide introductory 

discount - 20°o off. 



*OS is truly the operating 
/stem that has the other DOS 
eat in price and ability 

ither available Software for 
Dl. II. and III 

1 A R Osborne $350. 

2 A P Osborne $350 

3 GL Osborne $350 

4 P R Osborne $400 
5. ACT I - A R. A P. 

G L $850 

6 ACT II - A R. A P. 

GL. PR 1200 

7 Inventory Control I $150. 

8 Inventory Control II . $250. 

9 F M (creates 
programs) $80. 

10 Wordit (mailing list and 
word processing) . $150. 

11 Lettent (word 
processor) $35 

12 Son S45 
13. And much more ... Call 



As ar ntroductcy 0"*e* yo. :.•'..''■.■ 

.- i . send $60 (X: 
■vNo car ae bached up 
10 day 'ral Dts^e"? a ma $25 

i'OS $60 

O' n.s* pay $S C 



USAGE SOFTWARE GROUP 



SOI IV. ARI-. with SU'I'OKI 
I OOd Shadow Run Dm c 

I ikctand. 1 1 '3803 
(8131 ro4 ;mR 



USG 



• See List ol Advertisers on Page 451 
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UTILITY 



The Key Box 

Model I or III 
Cassette Basic 



Eliminate bad saves and wasted time. 



Certify Your Cassettes 



Kenneth J. Bigelow 
411755th Avenue 
Bladensburg, MD 20710 



After spending three days key- 
ing in a new adventure pro- 
gram, to protect it you CSAVE it 
before running it. A long program 
saves in half an hour. When you 
come back, Ready is prompting 
and the computer awaits you. 

With the program on tape you 
are protected. Right? Even if it 
crashes, you have taped it. Right? 
Maybe. Before you power down or 
run your program, you check the 
recorded tape using CLOAD? to 
play back the tape and compare it 
with what is still in memory. 
That will tell you whether or not 
your program was correctly re- 
corded. If it's not, you'd better 
CSAVE it all over before you turn 
off the machine— you don't 
want to key it in by hand all over 
again! 

If you already CLOAD? your 
tapes right after recording that's 
a good start. So once again you 
type CLOAD? and knowing that 
it will take just as long to check 
the tape as to record it, you 
leave to do something else for 
another 30 minutes. But when 
you get back, the screen says 
Bad just above the Ready 
prompt. A quick check of the 
recorder shows that the tape on- 
ly ran for two minutes before the 
computer found a mistake on 
the tape. You rewind the tape 
and CLOAD? again. This time 
you watch while the computer 
starts its check. Sure enough, 
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two minutes later, the message 
Bad appears and the tape stops. 
Well, maybe the head is dirty. 
It has been a while since you 
cleaned it. Out comes the head 
cleaner tape, the goo and the 
swabs. Then, your tape goes 
back in and you CLOAD? again. 
Two minutes later Bad appears 
again and the tape stops. This 
time, you decide the recording 
was bad, probably due to the dir- 
ty heads. So, you rewind the 
tape and CSAVE the program 
again. Another 30 minutes later 
you rewind the tape, cross your 
fingers and CLOAD? one more 
time. You say a prayer in com- 
puter language and watch the 
screen anxiously. But no luck. 
Two minutes later Bad appears 
once more and there does not 
seem to be anything you can do 
about it. 

Tape Dropout 

The problem is "dropout" on 
the tape. A dropout is a spot 
where the magnetic medium is 
thinner than necessary, or ab- 
sent altogether. That spot on 
the tape can hold no data. In or- 
dinary audio use, this spot 
would go unnoticed. But the 
pulses used by the TRS-80 are 
very narrow and must occur in 
the right places. If one of those 
pulses occurs right on the 
dropout it is not recorded. On 
playback, the computer spots 
the missing pulse because it 
does not match the contents of 
memory. At that point the 
CLOAD? operation stops, indi- 
cating a bad tape. 



Can you prevent this? One way 
is to buy only certified cassettes. 
These tapes have been tested 
and are guaranteed to contain no 
dropouts. Unfortunately, they are 
also expensive. The next choice 
is top-of-the-line cassettes. 
These tapes are less expensive 
than certified tapes, and usually 
contain no dropouts. However, 
there is no guarantee, and you 
can expect an occasional defect. 

Two options are available to 
you: buying the more expensive 
tapes or tolerating the occasion- 
al defective cassette. Neither 
option is particularly satisfying. 
Testing the tape before wasting 
time recording would solve the 
problem, but what do we look 
for? The computer does the hard 
part. 

Checking the Tape 

Make a visual inspection. 
Turn the take-up spool past the 
blank leader and inspect the 
tape surface. Reject any tape 
that is even slightly rough. Some 
of the 3-for-a-dollar or 25c tapes 
might as well have been pol- 
ished by a knurling tool and look 
more like alligator hide than re- 
cording tape. The abrasive sur- 
face will wear your tape heads 
early. I buy these cassettes if 
the housing is screwed to- 
gether, well made, and if wheels 
guide the tape. I throw away the 
tape and splice a saved program 
into the empty housing. The 
tape itself is dreadful! 

When you have a smooth tape 
surface, let the computer hunt 
for dropouts. The computer will 



write a pattern of 1's onto the 
tape and then read them back. If 
you receive a non-1 pattern on 
playback, the tape had a drop- 
out at that spot. If only 1's read 
back the tape is OK. 

To understand how this works, 
let's take a look at the format of 
data on the tape. Figure 1 shows 
how it works. The cassette output 
routine generates a series of 
clock pulses and tapes them. One 
such clock pulse is generated 
every two milliseconds (one milli- 
second is equal to .001 second). 
The pause is left for data pulses. If 
a 1-bit is recorded, a data pulse 
appears halfway between the 
pulses. If a 0-bit is recorded, no 
pulse appears between pulses. 
Therefore, if we record an all-one 
pattern, the tape places a pulse 
every millisecond. The tape speed 
in audio recorders is standardized 
at 1 7/8 inches per second. The 
computer will pulse at intervals of 
.001875 inch. 

Since Basic is too slow for 
such operations, read and write 
routines must be in machine 
language. But having the main 
part of the program in Basic 
facilitates entry and running. 
Also, with Basic we can enter 
the program without a lot of 
POKEs, T-Bug, EDTASM or any 
other utility programs and get 
back and forth between Basic 
and the machine language sub- 
routines with the USR function. 

Writing the Program 

Now write the Basic program 
to generate the required 
machine language subroutines 
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Easy to Learn - Like lightning you will be up andxruiTning with a comprehensive and sophisticated word 
processor. Our manual says you can be an expert in Ape pour^our users tell us it takes less than 30 minutes. 
The manual's 1 28 pages are packed with figures. ilfAtraHpris and examples for the beginner and'old pro". 
• Easy to Use - With the ELECTRIC PENCIL youbrocess words, not commands. ELECTRIC PENCIL'S 
menus and simple two keystroke commands keeps'yotir mind on your work, NOT on your manual. ELECTRIC 

•>. so sophisticated you'll be glad she did. David Ahl, 
L 2.0 is the most user friendly word processing 



• Easy to Use - With the ELECTRIC PENCIL y 
menus and simple two keystroke commands keep: 
PENCIL is so easy to use your secretary will WANT' 
the editor of Creative Computing says. "ELE" 



package available." 

• Features - ELECTRIC PENCIL has a 36k+ text buffer (48k\*k system), supports disk, tape and Stringy 
Floppy files(disk version)* and has every major feature you want in\ word processor. It is'bullet proof"- Data 
recovery is a built-in feature. The exclusive DICT-A- MATIC^eaturefuves your office the flexibility of dictation- 
word processing without fancy equipment. Your dictation playback^iontrolled from the computer keyboard. 

• Flexible - It is the only word processing system that is designed like an operating system. You can add 
new programs and features to ELECTRIC PENCIL, such as RED and B\UE PENCIL dictionary/correction - 



control key combinations and new additions to your system are instantly available. Add automatic proofing, 
spelling correction, dynamic print formatting, proportional printing, communications, graphics and typesetting 
and many other add-on features when you need them. A 

• Versatile - ELECTRIC PENCIL runs on TRS-80 model I and model III compilers under all versions of 
TRSDOS, and NEWDOS without modification or patching (Patches required for otfYer operating systems). It 
also supports parallel and serial printers as well as single and double density disk systems. 

ELECTRIC PENCIL is the choice of thousands - make it yours for only $89.95 (disjU^rsion) or $79.95 (tape 
and Stringy Floppy versions). Manual only $24.95. -* 

ELECTRIC PENCIL is available at computer stores, selected B. Daltoi^, 
Booksellers and selected independent book dealers. If your dealer is ouUbf i 
stock, order direct (specify disk tape or Stringy Floppy version). Include I, 
$4.00 for shipping and handling. Foreign residents add $1 1.00 plus purchase ^ , 
price, in U.S. funds. jf 

'Tape and Stringy Floppy versions support tape and stringy files only / 
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COMPUTER BOOKS FOR BEGINNERS 

Everything you need to get started programming your own personal computer. These handy books of programs, and about 
programming, are loaded with easy-to-understand info for beginners. The books include hundreds of ready-to-type-and-run 
programs as well as hundreds of program-writing tips, tricks, hints, shortcuts, secrets, techniques. We offer books cover- 
ing the 13 most popular computers for beginners: TRS-80 Color Computer, Atari 400, Atari 800, Apple II, Sinclair ZX-81 , 
Timex 1000, Micro Ace, IBM Personal Computer, Casio FX-702P pocket computer, Sharp PC-1211 and PC-1500 pocket 
computers and TRS-80 PC-1 and PC-2 pocket computers. 



TRS-80/Sharp/Casio 
Pocket Computers 

99 Tips & Tricks lor the New Pocket Computers, all new programs using 
tremendous power ot TRS-80 PC-2/Sharp PC-1500 LCD graphics, 
printer/plotter graphics, usetul business and home sottware. includes 99 
complete type-and-run programs, learn full range ol expanded BASIC 
128 pages $7.95 

Pocket Computer Programming Made Easy, last new easy read-and 
learn way to quickly understand the BASIC programming language how 
to make TRS-80 PC-1/PC-2. Sharp PC 1 21 1 /PC 1 500 & Casio FX-702P 
computers work lor you. 128 pages $8.95 

101 Pocket Computer Programming Tips & Tricks, secrets, hints short- 
cuts, techniques from a master programmer includes 1 1 ready-to-run 
programs for TRS-80 PC-1 and PC-2 and Sharp PC-1211 and PC-1500. 
128 pages $7 95 

50 Programs in BASIC tor Home, School & Office, usetul ready-to run 
software for PC-1 /PC-2/PC-12H /PC 1500 96 pages $9.95 

50 MORE Programs in BASIC for Home. School & Office, book of tested 
software tor PC-1/PC-2/PC-1211/PC-1500 96 pages $9 95 

Murder In The Mansion and Other Computer Adventures, mystery space 
adventure, games. 24 programs tor PC 1/PC-2/PC-I21 1 /PC-1500 96 
pages $6.95 

35 Practical Programs lor the Casio Pocket Computer, use! H type and 

run software lc the I X /0?P % yaqes $8 95 

Atari 400/800 Computers 

101 ATARI Computer Programming Tips & Tricks, learn by doing in 
struction. hints secrets shortcuts, techniques for Atari 400 and 800 
computers includes 101 ready to-run programs 128 paqes $8.95 

31 New ATARI Computer Programs lor Home. School & Office, practical 

type-and-run software for Atari 400 and 800 96 pages $8 95 

Timex 1000/Sinclair ZX-81 

101 TIMEX 1000/Sinclair ZX-81 Programming Tips & Tricks, secrets 
hints, shortcuts learn by doing instruction techniques lor the ZX 81 
MicroAce and Timex 1000 computers, includes 101 ready to-run pro 
grams 128 pages $7 95 

37 TIMEX 1000/Sinclair ZX-81 Computer Programs lor Home. School 4 
Office, practical type and run sottware for ZX-81 Timex 1000 and 
MicroAce. 96 pages $8.95 



TRS-80 Color Computer 

Color Computer Graphics, complete guide loaded with instruction, how to 
make the most ol TRS-80 Color Computer video graphics, many complete 
programs. 128 pages $9.95 

The Color Computer Songbook. 40 favorite pop folk classical, seasonal 
songs arranged for play on TRS-80 Color Computer, type-and-run music 
programs. 96 pages $7.95 

101 Color Computer Programming Tips* Tricks, learn by doing instruc- 
tions hints, secrets, techniques, insights, for TRS-80 Color Computer, 
includes 1 01 programs. 128 pages $7.95 

55 Color Computer Programs lor Home. School & Office, practical ready 
to-run sottware colorful graphics, for TRS-80 Color Computer, 128 
wges $9,95 

55 MORE Color Computer Programs tor Home, School & Office handy 
companion volume packed with different useful type-and-run sottware. 
colorful graphics tor TRS-80 Color Computer. 1 12 pages $9.95 

My Buttons Are Blue and Other Love Poems from the Digital Heart ol An 
Electronic Computer lor poetry lovers computer fans a high-tech 
classic 66 heartwarming poems written by a TRS-80 Color Computer. 96 
Pages $4.95 



Apple Computer 



101 APPLE Computer Programming Tips & Tricks, secrets hints in- 
sights. 101 ready to-run programs tor Apple If, 128 paqes $8.95 

33 New APPLE Computer Programs lor Home, School & Office, practical 
type and run software for Apple II. 96 pages $8.95 



Program Worksheets 



Tablets of handy printed lorms make writing BASIC sottware 
easy and tun Customized lor computer systems, or use the 
universal form good for any BASIC computer 40-sheet pads 



Color Computer BASIC Coding Form 
Pocket Computer BASIC Coding Form 
APPLE Computer BASIC Coding Form 
TIMEX/Sinclair BASIC Coding Form 
IBM Personal Computer Coding Form 
ATARI Computer BASIC Coding Form 
Universal BASIC Coding Form 



$295 
$295 
$2.95 
$2 95 

$2.95 
$2 95 
$295 



Order direct from this ad. Send check, money order, or MasterCard or VISA account number and expiration date. Include $1 
shipping lor each item ordered up to a maximum ol S3. Or write (or our free catalog. Mail to: 

ARCsoft Publishers 

Post Office Box 132 L 
Woodsboro, Maryland 21798 

(301)663-4444 

Customers wanting airmail send $4 postage per item ordered Foreign customers pay in U S dollars Maryland residents add 5% sales tax Sorry.no COD ^ft 
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when run. The program should 
run whether the system is Level 
II Basic, Model III Basic or Disk 
Basic. The machine language 
portions should be relocatable; 
the computer decides where to 
put them as well as the Basic 
program. This eliminates POKE 
commands, because we don't 
know where to POKE either sub- 
routine. These are character 
strings and VARPTR finds them. 
This works with the Model I or 
the Model III, using Level II or 
Model III Basic. 

For Disk Basic to work, a DE- 
FUSR statement must replace 
the POKE statements. The USR 
call must also be modified. 
Either way, when character 
strings hold the subroutines an 
version of Basic can place them 
into a memory location. This 
protects the Basic operation, 
whether you have reserved 
memory during initialization or 
not. Both subroutines automati- 
cally land in the reserved string 
space to be retrieved by the 
VARPTR function. 

Listing 1 shows the final 
Basic program. In this program 
lines 10 and 20 contain the data 
(in decimal form) which gener- 
ate the write and read sub- 
routines. Lines 30 and 40 read 
these data lists and convert 
them into character strings W$ 
and R$. 

Lines 50 and 60 ask whether 
the computer is to write or to 
read from the tape. Then they 
set M$ equal to the selected 
subroutine. M$ will be the char- 
acter string executed as a sub- 
routine. 

In line 70 VARPTR locates M$ 
in memory and sets the USR 
pointer to that address. VARP- 
TR returns a memory address 
related to the variable name the 
VARPTR argument uses. With 
string variables, the VARPTR 
returns an address containing 
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the length of the string. The next 
two addresses contain the 
string address itself in memory. 
Therefore, VARPTR locates the 
subroutine in memory and we 
can POKE its address into the 
USR pointer (locations 16526 
and 16527). 

Line 80 indicates on screen 
that the computer accepted in- 
put and begins the required sub- 
routine. The message is dif- 
ferent for read and write; you 
can tell at a glance what the 
machine is doing. 

Line 90 executes the USR call. 
The Radio Shack manual sug- 
gests a command like X = 
USR(0). However, any other com- 
mand that can specify a func- 
tion works as well. The Print key 
is easier to hit than X =. 
Besides, who needs to define 
another variable at this stage? 

Line 100 closes the program 
loop. Execution repeats from 
line 50. Both subroutines stop 
any time you hit either Shift key. 
You can regain control without 
resetting. This permits you to 
stop checking a bad tape and 
start over. 

Subroutines 

The Basic program provides 
the necessary man-machine in- 
terface and calls the appro- 
priate machine-language sub- 
routine. The machine-language 
subroutines prepare and check 
the tape. You need not enter 
these subroutines along with 
the Basic program. Part of the 
Basic program generates and 
stores these subroutines. Only 
the Basic program need be en- 
tered and run. The subroutine 
assembly listings explain how 
they work. 

The write subroutine (see List- 
ing 2) contains 20 bytes. After 
turning on the recorder and re- 
cording the leader and sync 
byte, the subroutine enters a 
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Fig. 1. The data format for TRS-80 tapes 
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9 GREAT NEW PROGRAMS FROM 
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RIMS - Rental Inventory Management System 1795.00 

RIMS, a Rental Inventory Management System is a fully automated system de 
signed to meet the needs of the typical Time Rental Business RIMS will save the 
average business over $4 000 per year RIMS tracks each Item in your time rental 
inventory, as well as maintaining performance and income records RIMS can be 
used to operate the computer as a cash register RIMS has extensive error checking 
capabilities RIMS automatically calculates deposits, time out prints rental receipt 
on rental and return, allows instant inquiry into current status of an item, reports 
daily, monthly, yearly income, expenses, cashflow, produces statements for cust 
omers with term rentals, produces inventory labels and rolidex cards, uses a warn 
ing horn to alert you to potential problems and much more Model III 

• FPSS' M FINANCIAL PACKAGE FOR SERVICE STATION ONLY 1349.50 
FPSSTM a a complete financial and bookkeeping package lor Retail Petroleum 
Service Stations FPSS K written in Microsoft Basic* for the TRS-80 Model III 
FPSSTM which includes a 90 page detailed User s Manual offers specialized ac 
counting modules tailormade for the retail petroleum industry FPSSTM i S menu 
driven, keeps track of each sale purchase, charge and collection of a service slat 
ion, with daily, weekly, monthly or annual reports at the user's command Inven 
toty control is especially detailed allowing lor determining gasoline leakage Com- 
missions to employees can be tracked . with two commission rates setup 

FORMGEN™ 2 7 ONLY 1249.95 



FoTTngenTM 2.7 is a sophisticated screen and form generator which in three sep 
aralelv callable modules gives users the abilitv to create their own forms CM set up easy 
menu dnven inputs for standardized forms Complicated calculations may be in 
eluded as part ol the form output, based on the input data Screen layout variable 
array lengths, field sizes, prompt messages lorm printing positions and variables 
used may ad be modified without breaking the program Users save time and very 
little memory is used because most things are done as part of subroutines Form- 
oenTM 2.7 has been used m over 100 Beta test sites in very powerful applications 
with impressive results 

CCMS ESTIMATING SYSTEM M99.95 



The CCMS Estimating System is a comprehensive construction cost estimat 
Ing system written by a contractor, programmer for contractors CCMS "talks" the 
contractor's language with several menu dnven files The key is the systems cost 
code, which references the unit prices established earlier and organizes the estimate 
into divisions modeled after the uniform system adopted by the AIA. AGCA and 
CSII Models I and Hand Compiler Basic 
TRSFLOWlM i.i ONLY 1149.50 



TRSFlow"" 1.1 is a hydraulic model based upon the popular Hardy Cross 
method of pipe network analysis By telling the program certain system parameters 
such as the length diameter and type of pipes. TRSFlosvTM calculates head values 
up to 150 pope junctions and the flows through ISO system elements Within the 
150 system elements TRSFlosvTM can handle 10 pumps and 10 fixed head condi- 
tions TRSFlosvTM allows the system designated to accurately determine pump and 
pipe sizes m any desired network TRSFlosvTM. works with level II Basic on 
TRSDOS. 

BUSINESS MULTI-PACK 199 95 



BUSINESS MULTI-PACK blends four important business functions sales ft 
casting (arithmetic avg. regression analysis, expotentiai smoothing, futures 
analysis), determines the economic order quantity. L1FO or FIFO inventory 
analysis, and a cache of general business utilities These utilities include Pricing Mer 
chandise to achieve a desired profit margam. a perpetual calendar, future vaiue of a 
present sum. present value of a future sum , an amortization schedule Model III . 
48Kbytes. one disk ^ 

■■. PERSONAL ACCOUNTER ' M 2.4 ONLY 159.95 
Personal Accounter 2.4 is an easy to use program for keeping track of one 
or more separate accounts and enables the user to see the current balance search 
for check entries by specific dales, months or year call up total monthly expendi 
tures or check when a certain account was paid A printed copy of all checking ac 
count reports may be ordered Personal AccounterTM 2 4s eery easy to use 
and comes with a reference manual 

— BISPLAN 169.96 

BISPlanTM ti a program for making business plans and pro>ections. With 
BISPIanTM you are led through screen prompts to enter data concerning your 
business plans You can enter estimates of a business proposal thai you are consid- 
enng and produce projections of potential earnings BISPlaaTM will help you 
assess financing requirements, loan payoff rates, length of time before return on in- 
vestment, and profit potential Estimates can be projected up to five years and 
dumped from screen to line printer BISPIanTM , s menu driven and includes a 
manual Available m 16K for the Model 1 with a more extensive version in Models II 
and 111 

^ — DISMON - An Interactive Disassembler S49 95 



Now you can control the entire disassembling process through DISMON. an in 
teractive disassembler Code resides n middle memory and can be used to disas 
semble programs in either high or low memory Models 1 or III IbKbyles with 
cassette 48 Kbytes with disk 
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AT LAST! 

A PROFESSIONAL JOURNAL FOR ENGINEERS 

SCIENTISTS MATHEMATICIANS * STATISTICIANS USING 

MICROCOMPUTERS. 

PLUG INTO-. 

ACCESS! 
The Journal of Microcomputer Applications 
for 

* numerical analysis * computerized design 

* math modeling * process simu'ation 

* statistical analysis * report generation 

The articles in ACCESS are written hy working 
engineers and scientists who share their knowledge of 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And you'll 
even find ways to use your computer you hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
microcomputer into the most productive tool possible. 
Sign up NOW be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada A Mexico 
$20. Other $32). Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 
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Looking for a Spelling Checker? 
Get more than just a spelling checker — get 

HexspeLL 2 

the EVERYTHING checker 
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Hexagon Systems is proud to announce another tirst m text checking - an everything 
checker Hexspeii 2 checks not only flictionary words, but learns and checks codes tor 
mulae and numDers which are so essential in many commercial and technical documents 
With Hexspeii 2 you define what characters make up a word then teach Hexspeii the new 
words it needs to check your text This advanced system Duilds on the unique features ot 
the original Hexspeii (the first TRS-80 spelling checker) Hexspeii 2 features a one step in 
teiactive process a word list that adapts itseit to your word usage a 25 000 word initial 
word list and more than three years of research and experience 

Heisptll 2 upgrade lor registered owners ot Heispell Vers 1 - 
$35 from Heiagon Systems or your nearest dealer 

Hexspeii requires a TRS-80 Mod I or Mod in with 2 drives and 48K US $99 

■ IfiyA/*!!^! P.O. Box 397. Station A 
' < II V ArM7l/ll Vancouver, B.C. Canada V6C 2N2 

Telephone (604) 682 7646 
Micronet 70235,1376 
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loop which writes hex FF (a pat- 
tern of eight 1 bits with their 
clock pulses) to the tape and 
then examines the Shift keys. If 
no Shift key is pressed the loop 
repeats from WCERT1 in the list- 



20 of the Basic program from 18 
to 21. 

Test Reliability Indicators 

We want assurance that the 
program is reading correct data 



ing. This loop will continue in- from tape. A question mark for 

"Read and write 

routines 

must be 

in machine language." 



definitely. The Shift key termin- 
ates the subroutine by turning 
off the recorder and returning to 
the Basic program. 

When the Basic program re- 
appears, it prints the digit in 
response to the Print statement 
in line 90. It returns to line 50. 
Since line 50 starts with a CLS 
command, the zero will disap- 
pear, as soon as it is displayed 
and may even be invisible. 

In the Model I TRS-80, the 
ROM routine CASSON turns on 
the recorder. If your system in- 
cludes the expansion interface 
and you have two recorders, you 
may wish to preselect the re- 
corder. Entering CASSON at ad- 
dress 021 5H can avoid switch- 
ing recorders. Change the sec- 
ond data element in line 10 of 
the Basic program from 18 to 21. 
The rest of the program remains 
unchanged. 

In Model III Basic, CASSON is 
unnecessary. The CSHOUT rou- 
tine writes the leader and sync 
byte to the tape, and turns on 
the recorder. However, the call 
to CASSON can remain. The 
Model III ROM essentially ig- 
nores such calls anyway. The 
only instructions executed by 
the Model III are XOR A followed 
by RET. Leaving the call to 
CASSON in place allows the 
subroutine to run directly on the 
Model I (Level II Basic) or the 
Model III (Model III Basic). 

Listing 3 shows the read sub- 
routine— RCERT. It Is longer 
than the write routine (36 bytes) 
because it has to do more. 
CASSON turns on the recorder. 
Again, systems including two 
recorders may change the entry 
address to 0215H, by changing 
the second data element in line 



every wrong byte should show 
how good the tape is. In RCERT 
the HL register pair acts as a 
screen pointer and keeps the ? 
code in register C. 

Once the registers have been 
initialized, RCERT calls CSHIN 
in ROM. The leader code of the 
internal subroutine synchro- 
nizes to the clock pulses and 
checks for the sync code record- 
ed earlier by CSHOUT. The com- 
puter will differentiate clock 
pulses from data pulses, and 
know where bytes end and be- 
gin. In the Model III, as with 
CSHOUT, CSHIN also activates 
the recorder. 

The next step is to read and 
check data from the tape. Re- 
gardless of the tape's condition, 
it helps to verify that data was 
really transmitting from the 
tape. Since the TRS-80 normally 
uses the blinking asterisk in the 
upper right corner we can use 
the same method. There will be 
no end-of-line codes on the tape 
to blink the asterisk auto- 
matically, so let's blink it every 
64 bytes for a nice steady 
display. Register B will be the 
counter and a DJNZ instruction 
will end the loop. 

Now CSIN, the ROM routine, 
will read a byte from tape. If it is 
really hex FF we skip the error 
display code and go to RCERT3 
in the listing. If another pattern 
than FF is recovered from tape 
the error code will signal. A 
question mark occurs at the 
location the HL register pair 
designates. Then L is incre- 
mented to advance the pointer 
to the next spot. This allows a 
maximum of 256 question marks 
(four lines). We could have more, 
but if the tape is bad you will know 
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by now. If the question marks ex- 
ceed screen memory, they will 
overwrite regular memory and 
destroy all the Basic pointers and 
vector addresses. To avoid prob- 
lems restrict the number of ques- 
tion marks. 

Stopping the Program 

At RCERT3 the subroutine 
looks at the shift keys. As with 
WCERT, this stops the program 
any time the computer reads 
data from the tape. However, 
WCERT can stop whether or not 
the tape is moving. RCERT can 
only stop after a byte reads from 
tape. While the tape is moving 
there will be no problem. Once 
the tape stops RCERT will look 
for another byte until it gets one. 
It will check the shift keys again. 

In the absence of a Shift, the 
DJNZ instruction is performed. 
Normally, this causes a branch 
back to RCERT2 which reads an- 
other byte. This loop repeats until 
64 bytes (correct or not) are re- 
ceived from the tape. At that point 
the DJNZ falls through and the 
call to Blink will be executed. 
This ROM routine causes the 
righthand asterisk to blink on or 
off every 64 bytes. At 500 baud, 
this is about once a second. 
After the asterisk switches, a JR 
instruction returns the program 
to RCERT1, which reloads regis- 



and type Run. "(W)RITE OR 
(R)EAD?" will appear. Load a 
tape and advance it past the 
blank leader. Press Play and 
Record. Now, type W (Enter). 
The display will change to 
"Press 'Shift' To Stop." A C-60 
takes about 30 minutes to load. 

A Shift terminates the sub- 
routine and displays the original 
message: "(W)RITE OR (R)EAD?" 
Turn the cassette over and ad- 
vance the tape to the end of the 
blank leader. Place the tape back 
in the recorder, press Play and 
Record, and once more type W 
(Enter) into the computer. Repeat 
the process to record the test pat- 
tern on side two. 

Shift ends the subroutine and 
returns to the Basic program. 
Return the tape to side one, load 
it and press Play and type R 
(Enter) into the computer. The 
computer displays "Reading", 
and the recorder starts. At the 
sync byte asterisks appear. The 
right hand asterisk blinks at 
about a one-per-second rate in- 
dicating that the computer is 
reading data. (The Model III 
blinks at its own rate.) 

As long as the data is correct 
(All 1's, or hex FF's), the dis- 
olay will not change. If the 
display is blank except for the 
top line, the tape is good. If a 
pulse is missing, a question 



"If a pulse 
is missing, 

a question mark 
will appear 

on the screen. " 



ter B before reading the next 
byte from the tape. This restarts 
the sequence. 

The Blink routine is absent in 
the Model III. CSIN blinks the 
asterisk. This is why the asterisk 
blinks regularly on the Model III. 
As with CASSON, a call to Blink 
will do no harm. In fact, this loca- 
tion in the Model III consists of a 
JR to the same XOR A, RET se- 
quence which replaces CASSON. 

Testing 

To use the program, key it in 

s See List ol Advertisers on Page 451 



mark appears as indicated by a 
zero bit recovered from tape up 
to a maximum of four lines of 
question marks. 

Leader Problems 

The first few seconds of the 
leader (composed of all 0's to in- 
sert the clock pulses) and the 
sync byte (hex A5) prevent 
checking this part of the tape as 
closely as the rest. Neverthe- 
less, this code allows the com- 
puter to synchronize itself, byte 
for byte, with the data coming 



, 



MASTER ELECTRONICS, INC. 

"TRS-80 is a trademark of Tandy 

CAN SET YOU UP IN A 



TRS-80 



STATE-OF-THE-ART COMPUTER 



STARTING AT 15% DISCOUNT! 




FULLY STOCKED 

IN: Model lis 

Model Ill's 

ALL- PRINTERS 

AND — MORE!! 

* PLUS * 
THE ALL NEW: 



Model 16 and the 8.5 meg. Hard Drive! 



Toll FREE: 1-800-531 -7323 



TEXAS CALL COLLECT 512/689-5536 






MASTER ELECTRONICS, INC 

154 NORTH 5th 

RAYMONDVILLE, TX 78580 




"Oh No, 

It's going to take 
hours to make all 



Don't let this happen to you too! 



Order your Editor NOW before you forget. This is one 
utility you can't do without. A must for beginner or 
advanced Basic programmers alike. 

Now type a whole screen full of program lines at a time. 
Move the cursor to any position on the screen and make 
changes as often as needed just by typing over an exist- 
ing line. 

Control Keys allow you to insert or delete characters, whi- 
le commands do such things as adding or deleting lines, or 
scrolling the screen display. 

Renumber command renumbers all program lines plus all 
references to program lines. 



EDIT VI. 3 Mod III Tape . . 

EDIT V2.0 Mod III Disk on Tape 
EDIT V2.0 Mod III Disk on Disk 



19.95 
21.95 
24.95 



Di 3 



des 



SOFTWARE 



86 Hansel Drive. Landing. N.I., 07850 

Tel. 201 398-8281 
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A 

A 

* 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



OMNITEK COMPUTERS INTERNATIONAL, INC. 

1 300 MAIN STREET TEWKSBURY, MASS 

617-851-4580 

Smith-Corona Daisy Wheel Printer 589.00 

Verbatim 5.25" D.L 25.00 

I6K RAM KITS 1 3.00 

Okldata Mlcrollne 80 309.00 

OklcUt* Mlcrollne 82A 419.00 

Okldata Mlcrollne 83A 649.00 

B.M.C. M.G Monitor 89.00 

Epson MX-80 FT 509.00 

Epson MX- 1 00 689.00 

Radio Shack Mill w/48K 879.00 

Radio Shack Mill w/48K and 2 40T dr 

1649.00 and RS232 1739.00 

40 track economy drive Power Supply 

with case 1 79.00 

Tandon drives whh Power Supply and case 

40 track single head 249.00 

dual head 339.00 

80 track single head 299.00 

dual head 399.00 

5.25" Power Supply and case 39.00 

8" Power Supply and case 99.00 

CENTRONICS 7 39 Printer 469.00 



A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



A Omnltek Computers International Inc. * 



A 
A 
A 
A 
A 



TRS-80 is a reg. trademark of Tandy Corp. 
Prices *r^ for mall order only TERMS: Check, 
money order. Mastercard and Visa accepted. 
F.O.B. Tewksbury- freight extra. Mass residents add 
5% sales tax. Write for FREE CATALOG. 



A 
A 
A 
A 
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ELECTRONIC NOTEBOOK 



A totally new concept hi small scale information management for me TRS-80 (R) LOG is an 
assembly language utility which fills the gap between tent editors and data base managers to 
provide a true free form information storage and retrieval system with unheard of ease of 
operation 

LOG CMD creates on a formatted diskette a cOG file from 1 to 170 pages long, each page 
containing 1 lull screen of nformation Pages are accessed individually or sequentially, as if 
thumbing through a Book Information is added updated or deleted from each page in free 
form by an integral cursor oriented tent editor Each diskette becomes a separate organised 
notebook to use and re-use as you please 

Insert. Delete. Tab Ciear and full cjrsor positioning are supported, as wel as blinking cursor 
and auto repeat A: 1 functions operate with the ease o< a single keystroke including Global 
Search Output to prnter >s provided LOG can even be accessed from BASIC without loss of 
program 

Why. when you own a computer, do you still keep records by hand' Throw away your pencil 
and paper 1 Use your computer as you never dreamed of before 1 



Model 
Model 



32 or 48K 
32 or 48K 



$44 95 
$49 95 



(minimum system 32K 2 disk drives 
DOS 2.3 (I) or 1 3 (III) required) 



Write or Call tor further information 

KSoft 

318 Lakeside Drive 
Brandon. MS 39042 



(TRS-80 is a trademark of Tandy Corporation) 



(uppercase only) 
(uppercase /lowercase) 



(601) 992 2239 

MasterCard and Visa accepted 
MS Residents pay 5- sales ta« 
We pay shipping and handling 

• 331 



in. Otherwise timing errors 
creep in and cause apparent 
faults where none exist. 

If a few question marks begin 
the tape you need not discard 
the entire tape. Mechanical 
damage at one end or the other 
is common enough. To save the 
rest, note where the last ques- 
tion mark appears and delete 
that segment. Splice the re- 
maining tape to the plastic 
leader. Usually, you will not lose 
more than 6 to 12 Inches. 

One to four question marks at 
the end, just as the plastic lead- 
er moves under the playback 
head, is usually caused by the 
last incomplete byte recorded 
previously, and noise generated 
at crossover. There is no cure for 
such difficulties; simply make 
sure you have enough tape to 
record your program. 

Splicing 

You can locate a single fault 
by pressing Shift as the question 
mark appears to stop the tape. 
Then delete the section and 
splice the ends together. (The 
splice desynchronizes the tape 
and appears as a defect. Always 
play the entire tape to determine 
the bad spots. If repair is worth it, 
locate the bad spot or you will 
have to re-record the entire tape 
to check the remainder.) 

If multiple faults punctuate 



the entire tape, clean the heads 
and pinch roller of your recorder. 
Dirty heads make even the best 
tape produce garbage. Also 
check playback volume. This is 
rather touchy with TRS-80's. The 
Model III needs a higher play- 
back volume than the Model I. If 
your results are no better with 
clean heads and correct vol- 
umes, discard the tape. 

Sidestepping the Pitfall* 

The certify program on the 
Model I TRS-80 is simple and 
straightforward. Be sure to re- 
cord the program before you 
turn off the machine. The higher 
playback volume required by the 
Model III depends on clean 
heads and a good recorder even 
more than the Model I. 

The tape can be written at 1500 
baud, but playback is something 
else. If an error occurs and a ques- 
tion mark appears, the computer 
can lose synchronization with the 
recorded data. If this happens the 
slight extra time lag between 
bytes will foul up the playback 
timing for the rest of the tape. As 
a result, the computer will treat 
the entire tape as defective, 
even If it actually had only one 
bad spot which minor surgery 
could easily remove. 

It takes thirty minutes to read 
or write each side of a C-60 cas- 
sette, whether the rate is 500 or 



1 'CASSETTE TAPE CERTIFY PROGRAM. 

2 'WRITTEN BY KENNETH J. BIGELOW. 

3 ' 

4 "MILL RUN ON ANY TRS-80 USING LEVEL 2 OR MODEL 3 BASIC. 

5 'MUST BE MODIFIED POR DISC BASIC. 

6 ' 

8 "DATA FOR WRITE SUBROUTINE. 

9 ' 

IB DATA 285,18, 2, 285,135, 2, 62, 255, 285, IBB, 2, 58, 128, 56, 183,48, 245 
,195,248,1 

17 ' 

18 'DATA FOR READ SUBROUTINE. 

19 • 

29 DATA 285,18,2,33,8,61,14,63,285,150,2,6,64,285,53,2,254,2 5 5,4 

8,2, 113, 44, 5B, 128, 56, 183, 194, 248, 1,16, 238, 285, 44, 2, 24, 231 

27 ■ 

2B 'PUT SUBROUTINES INTO MEMORY AS CHARACTER STRINGS. 

29 • 

30 CLEAR15B:WS-":PORI-1TO20:READW:WS-W$+CHR$(W) :NEXT 
40 R$-"":P0RI-1T036:READR:RS-RS+CHR$(R) :NEXT:RESTORE 

47 ' 

48 'GET FUNCTION FROM USER. 

49 ' 

50 CLS: INPUT" (W) RITE OR (R) EAD' J AS:M$-WS : IFAS-"W*THEN70 
6B M5-RSiIFASO"R - THEN5B 

66 ' 

67 'AT THIS POINT, MS CONTAINS THE ACTUAL SUBROUTINE TO BE RUN. 

68 'VARPTR IS USED TO PIND IT AND SET THE USR POINTER. 

69 ' 

70 POKE16526,PEEK(VARPTR(MS)*l) : POKE16527 .PEEK ( VARPTR(HS) *2) 

80 CLSiIPAS-'WTHENPRINT'PRESS 'SHIFT' TO STOP. 'ELSE PRINT'READI 
NG.' 

87 ' 

88 'EXECUTE THE SELECTED SUBROUTINE. 

89 ' 

98 PRINTL'SR(B) 

97 • 

98 'AFTER TERMINATING SUBROUTINE, ASK FOR NEW COMMAND. 

99 ' 

188 GOTO 58 
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1500 baud. 500 baud helps en- 
sure greater reliability when run- 
ning this program. 
Regardless of which machine 



you use, keep the program to 
run whenever your computer is 
idle. It might just as well be 
testing tapes. ■ 





M1M 


; WRITE 


SUBROUTINE POR TAPE CERTIFY PROGRAM. 




• •11* 


jTfllS ROUTINE 


IS ENTIRELY RELOCATABLE. 




■ 1121 


; 












••13* 


1 












•■141 


;ALL CASSETTE 


HANDLING ROUTINES 


ARE IN ROM: 




•■151 


■ 










B1F8 


lll» 


CASOPP 


EQU 


01PBB 




(TURN RECORD 


BR OFF. 














• 212 


00170 


CAS SCO 


BQU 


0212B 




(TURN RECORD 


BR ON. 














• 264 


• •180 


CSOOT 


EQU 


0264H 




(WRITE (A) T 


TAPE. 














• 287 


10190 


CSBOUT 


EQU 


0287H 




(WRITE LEADE 


R/SYNC BYTE. 


00200 

0021a 


I 












00221 


;TO TERMINATE 


THIS ROUTINE 


CHECKS THE SHIFT 


KEYS AT 
















00230 


(ADDRESS 3 888H. IP PRESSED 


THE ROUTINE EET 


URNS TO 


00240 
00250 


1 BASIC 










• •■■ 


00260 




ORG 


» 




(DUMMY START 


INC ADDRESS. 














•••• CD12*2 


00270 


WCERT 


CALL 


CAS SON 




(START RECOR 


DER. 














•••3 CD0702 


00280 




CALL 


CSHOUT 




(WRITE LEADE 


R t SYNC. 














0006 3EPP 


00200 


WCBRT1 


LD 


A.0FFH 




(USE ALL l'S 


AS PATTERN. 














• MB CD64*2 


00300 




CALL 


CSOUT 




(WRITE BYTE 


TO TAPE. 














• MB 3A8038 


•0310 




LD 


A, (38MB) 




(CHECK SHIPT 


KEYS. 














• ME B7 


00320 




OR 


A 




(SHIFT KEY P 


RESSED7 














•MP 28PS 


00330 




JR 


Z,MCERT1 




[IP NOT, REP 


EAT LOOP. 














Mil C3PM1 


00340 




JP 


CASOPP 




(RECORDER OP 


P AND RETURN 


00350 


! 










• ••• 


00360 




END 








••••• TOTAL 


ERRORS 
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00100 


J READ SUBROUTINE FOR TAPE 


CERTIFY PROGRAM. 




00110 

00120 
•0130 


(THIS ROUTINE 


IS ENTIRELY 


RELOCATABLE. 




» 










00140 


(ALL CASSETTE 


HANDLING ROUTINES ME IN RCM . 




00150 


f 








■1PB 

ER OFF. 


00160 


CASOPP 


EQU 


01P0B 


(TURN RECORD 


0212 


00170 


CAS SON 


EQU 


0212B 


(TURN RECORD 


BR OH. 












022C 


••180 


BLINK 


EQU 


022CB 


(BLINK RIGHT 


ASTERISK. 












0235 

FROM TAPE. 


•0190 


CSIN 


EQU 


02358 


(READ A BYTE 


0296 


00200 


CSHIN 


EQU 


0296H 


(READ HEADER 


/SYNC BYTE. 


00210 


( 








0000 


00220 




ORG 





(DUMMY START 


ING ADDRESS. 












0000 CD1202 


00230 


RCERT 


CALL 


CASSON 


(START TAPE. 


0003 21003D 


00240 




LD 


HL.3D00H 


(POINT TO VI 


DEO LINE 5. 












0006 0E3P 


002S0 




LD 


C,'?' 


(PREPARE QUE 


STION MARK. 












0008 CD9602 


00260 




CALL 


CSHIN 


(WAIT FOR SY 


NC BYTE. 












000B 0640 


00270 


RCERT1 


LD 


B,64 


(BLINK EVERY 


64 BYTES. 












000D CD3S02 


00280 


RCBRT2 


CALL 


CSIN 


(READ A BYTE 


0010 PEPF 


00290 




CP 


0PPH 


(IS IT ALL 1 


'S7 












0012 2002 


00300 




JR 


Z , RCERT3 


(IF SO, FINE 


0014 71 


00310 




LD 


(HL) ,C 


(IP NOT, PRI 


NT OUT 












0015 2C 


00320 




INC 


L 


(A QUESTION 


HARK. 












0016 3A0038 


00330 


RCERT3 


LD 


A,(3880B) 


(LOOK POR SB 


IPT KEY. 












0019 B7 


00340 




OR 


A 


(PRESSED? 


001A C2P001 


00350 




JP 


HI, CASOPP 


(IF SO, QUIT 


00 ID 10BE 


00360 




DJNZ 


RCBRT2 


1 REPEAT LOOP 


64 TIMES. 












001F CD2C02 


00370 




CALL 


BLINK 


1 BLINK AST Bit 


ISK. 












0022 18E7 


00380 




JR 


RCERT1 


j REPEAT INDI 


FINITELY. 


00390 


1 








0000 


00400 




END 






00000 TOTAL 


ERRORS 
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A powerful 
data base manager. 

Data-Writer can be used 

with your word processor or by 

itself as a complete stand-alone 

system for managing textual and 

numeric data. 

Use for order tracking, client billing, 
expense recordkeeping, operational 
reporting with totals and subtotals, form 
letter production to a large list or a subset, 
mailing list maintenance and other business 
and personal applications. Data-Writer's ease 
of use appeals to secretaries. 

• Data Entry program to create your data base or odd 
records to an existing data base It nas error checking fea- 
tures and supports both fixed and variable length fields 

• Machine-language File Editor lets you edit your data 
base without an independent word processor Or. if 
you prefer, use your own word processor (Electric Pencil, 
Lazy Writer. Newscript or Scripsit) to create and edit 
your data base. 

• Field Manager that lets you add. delete, re-order or ap- 
pend fields and merge or split data bases 

• Interactive, double-precision Math program that 
processes up to 20 equations of up to 255 characters 
using numbers you enter and your data base field labels 
It includes an in -memory scratch pad to store temporary 
values 

• Two- level Sort that enables you to sort on any field, with- 
out having previously designated it as a key 

• Mailing Label program that allows you to print multiple 
labels from one to four across and to insert a fixed mes- 
sage on every label 

• Machine-language Form Letter processor that allows 
you to insert data from your data base into a form letter 
or contract Store the text for use later 

• Report Generator for columnar tabulations with auto- 
matic headings, pagination, totals and subtotals, and 
sophisticated formatting control 

• Powerful Select-lf command that lets you define a subset 
of your data base. With Select-lf and Sort, you can create 
dozens of new data bases for specific purposes 

• Statistical check on your data base to locate data 
entry errors Stats also reports maximum entered data 
length for each defined field, a tremendous aid when 
designing a report 

• Data-Writer is both powerful and easy to use. 'Why 
hasn't someone done this before?" 

For the TRS-80 Model l/lll (48K. 2 disk drives, lower case re- 
quired ) Available from Software Options, 19 Rector Street 
New York. NY 10006 212-785-8285 Toll-free order line: 
600-221-1624. Price: $145 (plus S3 per order shipping and 
handling) New York State residents add sales tax Visa/ 
Mastercard accepted ^mm^. 

SOFTWARE 




• See List of Advertisers on Page 451 
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TUTORIAL 



Learn position and chain sorts. 



Another Sort of Sort 



Karl L. Townsend 
103 Knollwood Drive 
Lansdale, PA 19446 

Sorting plays a large role in 
programming data base 
files such as mailing or tele- 
phone lists. With few exceptions 
most data base applications re- 
quire data sorting according to 
some prearranged plan. 



1 


Joe 


6 


2 


Sam 


9 


3 


Andy 


2 


4 


Ted 


10 


5 


Mac 


8 


6 


BUI 


3 


7 


Al 


1 


8 


Fred 


5 


9 


Lou 


7 


10 


Ed 

Fig. 1 


4 



Most of us started using the 
bubble sort because it is so sim- 
ple and quick to program. As we 
learned more about program- 
ming and realized the bubble 
sort's lack of speed and its inef- 
ficiency, we moved on to other 
methods such as the Shell, and 
the Heap Sort. 

Most sorts move data from lo- 
cation to location as the sort 
progresses. This very movement 
of data carried to an extreme 
makes the bubble sort so poor. 

If you do much relocating or 
exchanging string data, the 
TRS-80 is likely to go into "mum- 
ble mode" while clearing its 
head. The TRS-80 locks up 
everything while it rearranges 
the string space and rids itself 
of unnecessary strings. You can 
reduce these effects by clearing 
additional string space or by us- 



11 REM POSSORT/VB1 




IBB FOR I - 1 TO IB 




11B READ A$(I) 'READS IN TEST NAMES FROM DATA LIST 




128 NEXT I 




2BB FOR I - 1 TO IB 




21» C(I) - 1 'PRESETS POSITION COUNT ARRAY TO ALL ONES 




22B NEXT I 




23B FOR I - 18 TO 2 STEP -1 "START SORT 




248 FOR J - 1-1 TO 1 STEP -1 




25B IP AS(I) ■> AS(J) THEN C(I) - C(I) ♦ 1 ELSE C(J) - C(J) ♦ 1 


268 NEXT J 




278 NEXT I 'END SORT 




988 FOR I - 1 TO IB 




91B LPR1NT I, AS(I) , C(I) 




928 NEXT I 




938 LPRINT 




1B88 DATA JOE, SAM, ANDY, TED, MAC, BILL, AL, FRED, LOU, ED 
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ing the VARPTR instruction for 
your exchanges. But why move 
the data at all? 

How about a method of sort- 
ing without moving data out of 
its assigned storage location? 
This solves the string clearing 
problem, and also avoids exces- 
sive writing and rewriting of 
data files. Position sorting and 
chaining may be for you. 

Position Sorting 

To start, we will experiment 
with a few routines to look at a 
list of data elements and record 
their relative positions in a file, in 
this case, an array. Program List- 
ing 1 shows a short program to 
do just this. The program con- 
sists of three parts. The first sec- 
tion, lines 100-120, reads names 
to be sorted into the A$ array. 

Since we are not going to 
move the original data, we must 
keep track of our sort. Array C(x) 



1 


Al 


2 


Andy 


3 


Bill 


4 


Ed 


5 


Fred 


6 


Joe 


7 


Lou 


8 


Mac 


9 


Sam 


10 


Ted 


Fig. 2 



accepts and stores the numer- 
ical position of records once 
they are sorted. This array, the 
same size as our data array, has 
a storage position to match 
each data item in the main 
storage array. Lines 200-220 
preset this position array to all 
ones, preparing it for the sort. 

Lines 230-270 contain the 
sort. The test sort is set up to ar- 
range data in ascending order. 
As the sort progresses, each 
data item is compared against 
each of the others. Size, as used 
here, means relative alphabetic 
position. For example, B is larg- 
er than A, and Fred is larger than 
Andy. If a given data item is 
larger than the one against 
which it is being compared, the 
sort adds a one to its equivalent 
position in the C array. This 
process is called incrementing. 
Larger items are incremented in 
the C array more often than 
smaller items. The largest data 
item is incremented every time it 
is compared; the smallest, never 
incremented, remains a one. 

Lines 900-930 form a simple 
print routine enabling us to see 
the results of our labors. If you 
have no printer, change all 
LPRINT instructions to Print to 
show output on the screen. 

Type in the program in Listing 
1. Figure 1 shows the result of 
our sort. Column one lists the 
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consecutive positions of the 
data In the arrays. Column two 
lists data as read from the data 
statement. But take a look at 
column three. These numbers in 
sequence from 1 through 10 in- 
dicate the sorted position of 
their associated data elements. 
If we read through the array 
based on the sequence shown 
in column three, we are reading 
the data in ascending order. We 
have kept our promise; the orig- 
inal data is unchanged in posi- 
tion or order. 

We can now print the data in 
sorted order. Add the following 
lines to your original program. 



960 FOR I - 1 TO 10 'PRINT DATA IN 

ASCENDING ORDER 
060 FOR J > 1 TO 10 
970 IF qj) » I THEN LPRINT I, A$(l) 
900 NEXT J 
990 NEXT I 



As the program runs, you will 
again see the output in Fig. 1. 
However, immediately following 
It is the list of names printed in 
ascending order (see Fig. 2). 

This print routine is a rather 
poor one. Although the large 
amount of time is not obvious 
with this small file, the pro- 
cedure is very slow on a larger 
one. If you analyze the nested 
loops, you will see that the en- 
tire list of 10 items is read each 
time one item is printed. The 
computer searches for a match 
In the C array for each print. This 
can be speeded by jumping out 
of the Inner loop as soon as a 
print is completed, but on the 
average, the computer reads 
half of the entries for each print. 
To print a file of 10,000 data 
items would require about 
500,000 reads. We need a better 
way to print or a different sort. 

Chaining 

Chaining lets us jump from 



1 Joe 


6 


9 


2 Sam 


9 


4 


3 Andy 


2 


6 


4 Ted 


10 





5 Mac 


8 


2 


6 Bill 


3 


10 


7 Al 


1 


3 


8 Fred 


5 


1 


9 Lou 


7 


5 


10 Ed 


4 


8 


Fi9 


3 





one record to the next higher 
one as we print without exten- 
sive searching. We only need to 
read each record once to print It. 
Add the following statements to 
your program: 

eoo x - o 

610 FORI - 10TO1 STEP-1 
620 FOR J « 10 TO 1 STEP-1 
630 IFQJ) » ITHENXW) - X:X = J 
640 NEXT J 
650 NEXT I 

Also, change line 910 to: 

910 LPRINT I, A$(l), C<l), X(l) 

Delete lines 950-990. Now run. 

Figure 3 shows the result. The 
first three columns remain the 
same; a fourth column depicts 
the X array containing the chain- 
ing Information. The numeral 3 
beside Al's name says that the 
next record (Andy) is found in ar- 
ray position 3. At this location, 
column four says to go to posi- 
tion six where we find Bill. If you 
trace each link of the chain, you 
will arrive at Ted. A zero in the 
chaining column indicates the 
end of the file. 

It appears that we can now 
step through the file from record 
to record In ascending order 
without any exchanges. We still 
have a problem, however: How 
do we get to Al's record to begin 
the sequence? Since It is unlike- 
ly that the first physical record 
Is the first In the sort order, let's 



insert a dummy record which 
will always be first. In this case, 
use the name AAA since no nor- 
mal English word will sort be- 
fore It. 

Change Joe in line 1000 to AAA, 
leaving the rest of the names as 
they are. Now run again. 

Figure 4 shows the result. 
AAA is the first record; its chain- 
ing number (seven) leads right to 
Al. Trace the chaining numbers 
and you will step through the en- 
tire file, ending with Ted and a 
zero to indicate end of file. 

To print the names in se- 
quence from this chaining infor- 
mation add the following lines 
to your program: 

950 T - X(1) 
960 FOR I - 1 TO 9 
970 LPRINT I, A$(T) 
980 T - X(T) 
990 NEXT I 

On running again, you will see 
the same data, followed by the 
file printed in ascending order. 
Let's review the additions we 
just made. Line 950 takes the 
chaining information from the 
dummy record and saves it in var- 
iable T. Line 960 begins the print 
loop. Note that It only goes from 
1 to 9 as we do not want to print 
the dummy record. Line 970 is the 
print line. On the first time 
through the loop it prints A$(T), 
the first record as directed by the 
chaining information. The key to 
the chained print, however, is in 



line 980; T is set equal to the next 
link In the chaining column. This 
process continues until all rec- 
ords are printed in order. 

Bubble Sort or Chain Sort? 

I decried the bubble sort as 
slow and inefficient. It appears 
at this point that the chain sort 
procedure is even worse. More 
programming is required to sup- 
port the sort, and data is more 
difficult to print. 

Have we really accomplished 
anything? 

Are there any advantages to 
the chain sorting procedure? 
Figure 5 shows information on 10 
people. Suppose we want to print 
three different listings of this 
data: name order, city order, and 
state order. Normally this re- 
quires sorting into each order 
wanted and then printing. If later 
you need a print in another order, 
you must sort again. How can we 
apply the techniques just learned 
to this type of situation? 

First, we generate a dummy 
record to precede the file. We in- 
sert the record AAA before the 
first entry in each column. Enter 
the program shown in Program 
Listing 2. 

To make things easier when 
printing our file, the program 
provides a multidimensloned ar- 
ray to contain the data. Line 100 
dimensions A$ to 20 rows and 3 
columns. I allowed for a few ex- 
tra lines in the array in case you 



10 REM POSSORT/VI6 












111 


DIM AS(29,3), C(2I), X(2I,3) 












111 


POR I - 1 TO 11 












121 


FOR J - 1 TO 3 












131 


READ AS (I, J) 'READ IN TEST DATA 












141 


NEXT J 












151 


NEXT I 












211 


POR I - 1 TO 3 'SORT COLUMNS IN 


ORDER 










211 


POR J - 1 TO 11 'PRESET C ARRAY 


TO ALL ONES 










221 


C(J) - 1 












231 


NEXT J 












241 


POR K » 11 TO 2 STEP -1 ' STAR! 


POSITION SORT 








231 


POR L - K-l TO 1 STEP -1 












261 


IP AS(K,I) -> AS(L,I) THEN C(K) ■ 


C(K)+1 ELSE 


C(L) 


- C(L)+1 






271 


NEXT L 












281 


NEXT K 












291 


X - 












311 


POR K - 11 TO 1 STEP -1 'CHAIK 


COLUMN 










311 


POR L - 11 TO 1 STEP -1 












321 


IF C(L) ■ K THEN X(L,I) - X: X • 


L: L ■ 1 










331 


NEXT L 












341 


NEXT X 












351 


NEXT I 












411 

R 
411 


INPUT'TO PRINT BY NAME -ENTER 1, 


BY CITY -ENTER 2, 


BY STATE 


-ENTER 


3'jP 


T - X(1,PR) 












421 


FOR I - 1 TO 11 












431 


LPRINT A$(T,1), A$(T,2), A$(T,3) 


'PRINT ROUTINE 








441 


T - X(T,PR) 












451 


NEXT I 












461 


GOTO 411 












111! DATA AAA, AAA, AAA, JONES, NORRISVILLE, PA, BROWN 


PHILADELPHIA, PA 


.SMITH 


CAMD 


EN, 


KJ, GREEN, TRENTON. NJ.OTIS, PHILADELPHIA, PA 










111! DATA TALL, LANSDALE, PA, BROWN, PHILADELPHIA, PA 


ARNESS 


.BUFFALO, 


NY, JAMES, TR 


ENTON,NJ, SAMPSON, DOVER, DEL 














Program 


Listing 2 
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want to include additional test 
data. Since we will sort on all 
three columns, array X is also 
dimensioned to 20 by 3. Remem- 
ber, the chaining array must pro- 
vide a position to match each 
data key on which a sort is 
made. 

Lines 110-150 read the test 
data into the A$ array using 
nested loops. Each time the I 
loop is incremented by one, the 
J loop reads in three data items: 
name, city and state. 

Line 200 starts the sort. The 
program steps through each of 
the three columns in order. 
When I equals one, the names 
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are sorted; on two, the city; and 
on three, the state. 

Lines 210-230 preset the posi- 
tion array to all ones just before 
each column is sorted. 

The position sort itself is in 
lines 240-280. We are now work- 
ing with two-dimensional ar- 
rays. The first time through the 
sort, the I in each array is a one; 
all sort comparisons are based 
on the first column of data 
(names). Subsequent sorts 
change this to a two and then a 
three to sort by city and state. 

Lines 290-340 chain the data 
as before except that the chain- 
ing information is stored in the 
multidimensional array X. The I 
loop controls chain storage to 
correspond with the data col- 
umn being sorted. 

In this area, I added another 
small change at the end of line 
320. L equals one sets the loop 
counter to the loop end count 
when a find is made. When the 
Next L statement is reached, the 
program jumps out of the loop. 
This avoids cycling through the 
loop after a find has already 



been made and the chain num- 
ber has been stored in the X ar- 
ray. On a large file, this is a sig- 
nificant difference; it cuts the 
average time in this loop by 
about one-half. 

Line 400, a mini-menu, allows 
you to select the column you 
want sorted. The print routine 
is as used before except that 
you can select the chaining 
column for the particular print 
requirements. 

The program will hesitate 
while reading in the data and 
performing the sorts. When the 
prompt line for printing appears, 
try each option. You can print, in 
order, any of the three columns 
without re-sorting the data. 

This ability to print in various 
sequences without re-sorting is 
an asset in large files. In the 
multiple sort situation chained 
files really shine. 

To save your sort informa- 
tion, just save the chaining in- 
formation right along with your 
data. This enables you to print 
data in your selected sequence 
next time you use the file. Use 



the following routine: 

800 fori = 1 TO 11 

810 PRINT • -1, X0.1), X(l.2). X(l,3). 

AS(I,1).AS<I.2), ASfl.3) 
820 NEXT I 

I have developed some of the 
concepts of chaining and data 
sorting without rearranging a 
file. The somewhat crude and 
unsophisticated examples 
should demonstrate possible 
applications for your program- 
ming efforts. ■ 

Karl Townsend works on 
system interfaces on the Navy 
Aegis program for RCA. 
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FREE EPSON MX-80 PRINTER 



With the 

purchase of a lr — 

TRS 80 f Model 



For a limited time, Data Services. Inc., wi 
give you a FREE Epson MX-80 Printer ($645 
value), when you buy o TRS 60 Model III, 48k, 
with 2 PEH.COM 40 track drives, at our new low 
prices of $2,395.00. 

(Includes RS-232, Printer Cable. TRSDOS.) ' 

The perfect system, the perfect price! 

TRS 80 Model III, 48k - two PERCOM 40 

track drives - EPSON MX-80 Printer. 

Data Services offers more — APPARAT'S 
NEWDO5 80. version VER 2.0, regularly $149.95 
— now only $1 29.95 (Model III units only.) 

Up to 20% savings on TRS computers — ac- 
cessories — programs, Plus: EPSON / PERCOM / 
APPARAT / HAYES SMARTMODEM / VERBATIM 
DISKETTES / MEMOREX DISKS. 

•TRS-80 is o trademark of Tandy Corporation 
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■ FREE SHIPPIN G in 48 contiguous states. 

■ No Sales Tax on out-of-state orders. 

■ Viso/Moster Card welcome 

■ Personal checks, allow 3 weeks to clear. 

■ (International orders freight FOB. Wichita. 
Kansas) 

CALL TOLL FREE: 1 -800-835-1 129 

or order by mail from: 

DflTfl SBMCES, MC. 

COMPUTER SERVICES SINCE 1970 -118 

P.O. Box 1 1 57 Wichita, Kansas 67201 1 1 57 
(In Kansas, call 1-316-838-9021) 



MULTIDOS 



IS THE DOS WITH THE MOST EFFICIENT DISK BASIC INTERPRETER 
IS THE DOS WITH THE ORIGINAL & STILL THE BEST SINGLE STEP BASIC 
IS THE MOST COMPATIBLE OPERATING SYSTEM ON THE MARKET 
IS EASY TO LEARN — EASY TO USE! 

MULTIDOS does the following AUTOMATICALLY! 

ADJUSTS 



DISABLES 
INTERRUPTS 

EXECUTES 

PREVENTS 

READS 

STEPS 

TOTALS 

SENSES 



for CPU speeds of 1.77 thru 5.32 MHz without the need for slowdown 
during disk I/O. 

when CLOAD, CSAVE, or SYSTEM is entered from the command mode 
(Model I). 

the most commonly used Library command, DIR, with one keystroke. 

system hanging, even without a diskette in drive ZERO. 

single density, double density, Model I and Model III diskettes. 

machine language programs for debugging (controlled execute). 

free diskette space on all mounted diskettes. 

type of double density hardware (RS or others). 



"c_Alolboc/ij ^Does $t ^Bette/f 





VISA & MasterCard 

WELCOMED 

Foreign Orders Add $1000 
For Shipping & Handling 

* For Model I Orders Only * 
Please specify Single. Double 
or P Density 



— MAIL ORDERS — 

Cosmopolitan Electronics Corporation 

P.O. BOX 89 • PLYMOUTH, MICHIGAN 48170 

•••••••• 

— TECHNICAL INFORMATION — 

Cosmopolitan Electronic* Corporation 

C/O VERNON HESTER 
42403 Old Bridge Road • Canton, Ml 46188 • (313) 397-3126 



59995 

$3.00 For 
Shipping A Handling 

Michigan Residents 
Add *% Sales Tax 

COD. Orders Add $1.50 

Personal Checks 
2 Weeks To 



Take /■ 

Clear JM 



^■See List ol Advertisers on Page 45' 
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UTILITY 



LOAD 80 



The Key Box 



Level II Basic 
Model III 



Modify Uni-Key for your Mod III. 



Autokey 



Don Rigg 

17 Bittersweet Bay 

Winnipeg, Manitoba 

Canada 

A member of my TRS-80 user's group re- 
cently showed me a most remarkable 
program. A Basic keyword appears when- 
ever he presses the shift key in combina- 
tion with any other key. The program is 
called Uni-Key, by Rowand Archer, Jr. of 
Hillsborough, NC. It appeared in the Sep- 
tember 1980 issue of 80 Microcomputing. 

The program should run on my Model III, 
but it most inconveniently uses a lowercase 
letter for generating the keywords. This 
works well on the Model I, as a shifted 
character is indeed lowercase. In my case I 
was usually generating lowercase letters 
and the Shift produced uppercase. I would 
have to do all my typing holding down the 
shift key (except when I wanted a keyword) 
or keep using the shift uppercase only tog- 
gle. Neither solution was very satisfactory, 
so I customized Uni-Key for the Model III 
and included a few other worthwhile 
features. 

My version of Uni-Key gives you an alter- 
nate keyboard layout which generates the 
keywords when you press the shift key. You 
can also turn the special keyboard off to 
revert to normal upper and lowercase typ- 
ing. When in keyword mode all the words 
shown in Fig. 1 are available at the touch of 
only one letter key. (You can substitute 
Assembly language or Pascal keywords for 
the Basic keywords.) 

I designed Fig. 1 so you can copy it onto a 
file reference card and keep it at your 
keyboard. The dashed lines associate 
keywords with letter keys. 

Design Specifications 

My Autokey program has the following 
features: It retains the original Uni-Key con- 
cept of using the shift key to generate key- 
words; it uses additional control keys on the 
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Model III by pushing shift, down arrow and a 
letter key. You can turn the routine off to 
return to the regular keyboard. A routine 
automatically sets the memory size, anoth- 
er executes the program as soon as it reads 
in the tape, and a third starts the computer 
with the all caps switch off rather than on 
as is usual. 

The program changes lowercase charac- 
ters to uppercase; its logic assigns key- 
words whenever you press an uppercase or 
control character. 

My program includes a routine which you 
can execute via System. This routine resets 
all Basic control pointers, allowing you to 
re-access a Basic program if you in- 
advertently type New or CLOAD when you 
mean CSAVE. 

Two keys to understanding this program 
are the functions of the keyboard device 
control block, and ASCII code. 

Device Control Block 

The computer often executes a ROM 
routine which looks at the keyboard to see if 
you have pressed a key. That is why the 
computer reacts so quickly when you do. At 
one point in this routine it looks at an ad- 
dress pointer in RAM for where to go next. 
This provides you with an opportunity to tell 
the computer where to go (see Fig. 2). By 
changing this address you will successfully 
intercept part of the computer's operating 
system (Its brain); you can easily fool it into 
changing things around. 

As you intercept each character on its 
way from the keyboard to the Basic inter- 
preter, you can change some of them to suit 
your new purposes. 

ASCII Coding Structure 

The computer stores alphanumeric infor- 
mation in its memory in ASCII (American 
National Standard Code for Information In- 
terchange). 

In a TRS-80, the keyboard scan routine 
looks at a collection of wires between mem- 



ory addresses and the physical keyboard. 
Voltages change when a key has been 
pressed; the changes are then translated in- 
to the proper ASCII value and put into the A 
register. 

Changing Characters 

Look at the code outlined in the ASCII ta- 
bles in the Model III reference manual (Ap- 
pendix C in mine) and notice that all control 
characters (shift, down arrow, character) 
are grouped from code numbers 01 H to 
1 FH. Similarly, all uppercase characters are 
grouped from 41 H to 5AH, while the lower- 
case characters run from 61 H to 7AH. 
Notice that lowercase characters are coded 
exactly 20H higher than the corresponding 
uppercase letters. This symmetry proves 
very valuable. For example, you can change 
a lowercase b (62H) to uppercase by sub- 
tracting 20H. 

My program leaves the control 
characters alone and looks up keywords 
numbered 01 H to 1FH (the first 31). It sub- 
tracts 21 H from the codes for an uppercase 
letter; they continue the number sequence 
immediately after the control codes. Capi- 
tal A with a code of 41 H becomes 41 H- 
21 H, or 20H (next in the sequence above 
1FH). The program changes lowercase 
characters to uppercase by subtracting 
20H whenever you input one from the key- 
board. All other codes remain unchanged. 

Assigning Keywords 

I developed Fig. 1 when I assigned key- 
words to keys. I grouped the keywords near 
the key of the same letter so you can find 
them easily. You can easily change the se- 
quence or the words to whatever you want. 

After I developed the keyboard layout, I 
put words into sequence with ASCII codes 
so I could put them in the right order in the 
program. The numeric listing is shown in 
Fig. 3. You will find this useful if you want to 
change the words. I reserved several control 
codes because some control functions per- 



"A Basic keyword appears 

whenever he presses the shift key 

in combination with any other key." 



form their usual functions (Enter, back- 
space, and so on). Here also, you can by- 
pass codes if you like. 

Program Structure 

After I established the basic structure for 
the keywords I prepared a flowchart (see 
Fig. 4) to give a broad overview of the main 
program functions. 

To use the flowchart start at the top left 
and follow the arrows based on the an- 
swers you get at a diamond-shaped box. 

There are four separate modules. Module 
1 has an ORG of 41E2H, in System RAM. It 
changes an address pointer referred to 
(called) by a ROM routine just after it has 
loaded a System tape. It gives the program 
the Auto Start feature. 

Module 2 is used just once to set the 
pointers and flags and to change the ad- 
dress in the Keyboard Device Control Block 
(DCB) so the new routine will be used. Com- 
pletely automatic, it resets the address 
pointer changed in Module 1 so the com- 
puter operates normally if you load another 



System tape. 

Module 3, the main part of the program, 
determines which key you pressed and 
whether to take any special action. 

Module 4 is the stand-alone routine to 
restart a Basic program. 

The Program 

Program Listing 1 contains the Assem- 
bly language version of the program. It is 
set up to run in a 16K cassette-based sys- 
tem but, by changing the ORG at lines 320 
and 2860 and the memory size values in 
lines 410 and 430, you can run the program 
in any size memory. 

Program Listing 2 is a Basic language 
routine which POKEs the same program in- 
to memory and executes it. 

The program is written in the same se- 
quence as the flowchart in Fig. 4. Lines 
410-450 limit the amount of memory Basic 
will use so it does not destroy this program. 
(If you want to change this, set the value in 
line 410 to the highest address you want 
Basic to use minus 2. Set line 430 to the 
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PRICE BREAKTHRU 

BUll! 

IT'S A MIRACLE!! 



TRS-80 Mod I and III 

hardware 

16K RAM upflrada S13.S0 

External Disk Drlvas 

Inc. p.s. a anclosura** 

40tk 1 side $195.00 

40tk 2 sides $295.00 

80tk 2 sides $425 00 

Signal extender cable 

for ext. drive $12 50 

2 drive expansion 

cable (Mod l or III) 

4 drive expansion 

cable (Mod I) 

Bara Drlvas— 

40tk 1 side 

40tk 2 sides 

Drive Service Manuals $25 00 

Single drive p.s. 

& enclosure $49 95 

Hard Disk (Wlnchsstsr) 

for Mod I, LNW- 

Includas DOSPLUS 4.0 



$20 00 



$25 DO 



$180 00 
$245.00 



6 3 meg 
9.6 meg 
19 meg 
2 x 6 3 meg 
2 x 9 6 meg 
2x19 meg 
Hard Disk 6.3 



$164900 
$1849 00 
$244900 
$244900 
$2849.00 
$394900 
40tk 

51995 00 



floppy combination 

Percom Doubler— 

Data Separator— 

LNW products 

TRS-80 Mod III 

16K L III Basic $899 00 

16K upgrade $13.50 

48K — 1 disk $1349.00 

48K-2disk $1549.00 

2 sided disk 

upgrade $70 00 ea 

VR R8232C— upgrada $70.00 
Direcl Connect 300 baud 
modem upgrade $275.00 

Hard Disk for Mod III— 
6.3 meg $159900 

9 6 meg $1799 00 

19.0 meg $2399.00 

2 x 6.3 $2399.00 

2 x 9.6 $2799 00 

2 x 19 $3899.00 

Coming Soon — Intarnal 
Hard Disk for Mod III 
Floppy Disk III kits for 
Mod III Include p.s. 
controller a cables 
40tk-1 side $440.00 

40tk-2 side $510 00 

2nd— 40tk 1 side $190.00 
2nd— 40tk 2 side $250 00 

•*We use VR Data hardware 
upgrades exclusively 
They are the best around 1 

Prlnfsrs — 

C.ltoh F-10 40CPS 

letter quality $1399.00 



$1699 00 

$200 00 
$225.00 

$4.50 ea 
$1300 00 

$47500 
$575.00 
$375.00 
$479.00 
$749.00 
$65 00 

$2495.00 

$2495.00 

$2895 00 

$229.00 



C.ltoh F-10 55CPS 
letter quality 
C.ltoh tractor tor 

F 10-40 
F 10-55 
Ribbons for above 
printers 
Sheet feeder 
C.ltoh Pro-writer 

parallel 

serial 
Okidata 80 

82A 

83A 
Okigraph 

NEC-7710 RS232 
55CPS 

NEC— 7730 paralle 
NEC — 7720 KSR 
Vertical Tractors 
BiDirectional Tractors 

$325.00 
Sheet Feeder $1175.00 

Twin Feeder $1595.00 

Smith Corona— TP1 pitch 
10/12 pitch — Serial/ 
parallel interface 

Super Deal $595.00 

Standard Cable $25 00 
Tabletop Printer stand — 
12- (holds up to 
50 lbs) $17.95 

Tabletop Printer stand — 
16" (holds up to 
50 lbs.) $24.95 

Diskettes— 10 par box 
Verbatim — 

SVt' SSDD 

5"«"DSDD 
Maxell— 5% " 
Elephant by 
Leading Edge 
Disk head cleaners— 

VR Data (5%") 

Verbatim 5'/,' or 8' 
5%" plastic library case 
8" plastic library case 
Papar A Labels 
9V4 x 11 Fanfold — 
2700 ct 

14'/, x 11 Fanfold — 
2700 ct 

3Vj x "V„ labels— 5M 
Modems 
Hayes 

Smartmodem 

Micromodem II 

Micromodem 100 
Novation 

Auto cat 

D Cat 

Cat 

4202B-1200 baud 

half duplex 

Apple Cat II 



$2395 
$39.95 
$34 95 

$22 95 

$1495 
$29 95 



$27 50 



$3500 
$1500 



$229 00 
$278.00 
$305 00 

$229.00 
$165 00 
$155 00 

$475.00 
$339 00 



Lexicon 

Lex— II $124.00 

Monitors— 

BMC 12" Mean 
Green $89.00 

BMC 13" Composite 
Color $325.00 

Mod I /III software* 

DOSPLUS 3.4 Mod I $87.50 
DOSPLUS 3.4 Mod III $87.50 
LDOS 5.1 Mod I, III $117.50 
Micro Term (Best yat) $75.00 
Super utility (Best yet) $45.00 
Micro Soft — 

Adventure $25 00 

Fortran-80 $80.00 

AIDS. $8000 

Basic Compiler $15900 
TRS-80 Mumath $69.00 
Hayden Software — 
Sargon II $32.00 

Blackjack master $27 00 
Finplan $6900 

Big Five Software 
Super Nova 
Attach Force 
Cosmic Fighter 
Meteor Mission II 



$17 00 
$1700 
$17.00 
$1700 

Defense Command $17 00 
Galaxy Invasion $17.00 
Robot Attack $17.00 

Stellar Escort $17.00 

Broderbund— 

Galactic Trilogy $35.00 

Inc— Galactic Empire, 
Trader, Revolution- 
available 
separately 

$17.00 ea 
Acorn Software- 
Gammon Challenger 

$18.00 
Pigskin $17.00 

Tenpins $18.00 

Invaders $18.00 

Quad $18.00 

Basketball $18.00 

DuelN-Droids $18.00 

Astroball $17.00 

Spacerocks $17.00 

Everest Explorer $17 00 
Elec. Handicapper 
Basketball $80.00 

"An software listed is on disk — 
Cassettes may be available, 
please Inquire 

Books— 

TRS80 Disk & other 

mysteries $15.95 

Microsoft Basic 

Decoded $20.00 

The Custom TRS-80 $20 00 

Microsoft Basic 

faster & better $20.00 

The Custom Apple $17.00 



Terms— COD or Prepaid Only 

F.O.B. Shipping Point 

(215)461-5437 

Prices Subject to Change Without Notice. 

TRS-80 Trademark of Tandy Corp. 



DISK SUPPLY CO. 

Suite 439 111 S.Olive St. 
Media, PA 19063 
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value in line 410 minus the amount of string 
space you want to set aside. It is currently 
set at 32H to give the usual 50 decimal 
bytes for string storage. Clearxxx in Basic 
will also work as usual.) 

Lines 790-870 test for the control B tog- 
gle, which returns normal keyboard opera- 
tion until you type control B again. 

Lines 990-1300 determine whether the 
key pressed (as returned in register A) is a 
control, lowercase or uppercase character. 
I found this particularly interesting as I had 
not used the carry flag feature of CP (Com- 
pare) before. A CP is really a subtract which 
does not change the registers: If the A 
register is smaller than the number com- 
pared to it, a borrow sets the carry flag on. 
Then Z means register A was equal to the 
value compared to; NZ means register A 
was not equal to the value; C means the 
value in A was less than the value compared 
to; and NC means the value in A was equal 
or greater than that compared to. 

Lines 1340-1630, fundamentally the 
same as Uni-Key, skip through the list of 
keywords to get to the right one. They count 
the number of 00 bytes from the start of the 
words table in line 1730. It is very important 
that each word (or phrase) be followed by a 
00. Several commands include an Enter so 
one keystroke also executes the command. 
Examples of these are Run, Auto, and so on. 
They are shown on the reference chart (Fig. 
1) with the symbol <E>. The control J and N 
keys do not have anything assigned and are 
available for your additions. If you add 
words, make sure the end of the last letter in 
line 2820 does not flow over the start of the 
Restart routine in line 2870, as only 10 bytes 
are left. If you need more room, change the 
ORG in line 320 and the memory protect 
values. 

Using the Program 

If you use the Basic version just CLOAD it 
right after you turn the computer on and run 
it immediately. Enter NEW to remove the 
program and it will work as described be- 
low. Watch the auto memory size setting in 
line 110: If you need a different value, set 
the memory size when you turn on the com- 
puter and delete line 110 or change the val- 
ues in line 110 before running the program. 

If you use the Assembly language version 
just start your object code loading by En- 
tering System and the name you gave it 
(mine is KEY) and the program will do the 
rest. It returns you to the Basic Ready 
prompt, with Autokey waiting to ease your 
program typing. 

Each key functions as indicated in Fig. 1. 
For example, if you push the G key you will 
get a capital G. If you push shift G the word 
GOTO appears. If you push the shift key, the 
down arrow key and the G key the word 
GOSUB will appear. All other keys work 

Scanned by Ira Goldklang www.trs-80.com 
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A register 
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Break 


A 
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B 


92 


Toggle 


B 


42 


VAU 


b 


62 




B 


C 


93 


CSAVE" 


C 


43 


CHR$< 


c 


63 




C 


D 


94 


Set 


D 


44 


Data 


d 


64 




D 


E 


95 


Read 


E 


45 


Reset 


e 


65 




E 


F 


96 


FRE(AS) 


F 


46 


For 


1 


66 




F 


G 


97 


GOSUB 


G 


47 


GOTO 


g 


67 




G 


H 


98 


Reser 


H 


48 


Return 


h 


68 




H 


1 


99 


INKEYS 


I 


49 


Input 


i 


69 




1 


J 


9A 


avail 


J 


4A 


) 


i 


6A 




J 


K 


9B 


LLIST 


K 


4B 


LEN( 


k 


6B 




K 


L 


9C 


List 


L 


4C 


LPRINT 


1 


6C 




L 


M 


9D 


Reser 


M 


4D 


MID* 


m 


6D 




M 


N 


9E 


avail 


N 


4E 


Next 


n 


6E 




N 





9F 


POKE 


O 


4F 


PEEK< 


c 


6f 







P 


10 


Point 


P 


59 


PRINT© 


p 


70 




P 


Q 


11 


LEFT* 


Q 


5i 


RIGHTS 


Q 


71 




Q 


H 


12 


Run 


R 


52 


RND< 


' 


72 




R 


s 


13 


SQR( 


S 


53 


STRINGS 


s 


73 




S 


T 


14 


TAB< 


T 


54 


Then 


t 


74 




T 


U 


15 


USR(») 


U 


55 


Using 


u 


75 




U 


V 


16 


CLS 


V 


56 


VARPTR( 


V 


76 




V 


w 


17 


Edit 


w 


57 


Else 


w 


77 




w 


X 


18 


Reser 


X 


58 


CLOAD 


X 
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X 


Y 


19 


TROFF 


Y 


59 


TRON 


y 
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Y 


z 


1A 
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5A 
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7A 




z 
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, 


1C 
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Figure 3 



UP AUTO START 



MOOULf t- 
HAPPENS Only ONCE 
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being loaded 



RESET AUTO START 



ROTECT MEMORY 



OBTAIN OlO «EYBOAP0 OPIVER 
A0ORESS AND STORE IN 

NEW ROUTINE 



SET "ALL CAPS' FLAG OFF 



MODULI t KEYWORD PROORAM 
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CHARACTER FROM 
KEYBOARD 
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ROUTINE 
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FIND CORRECT 
KEYWORDS BASEO 
ON ASCII VALUE 
IN REGISTER A 




put next character 



f RETURN 
UO STSTEH 



MODULI 4 

ROUTINE TU RESTART BASIC - 

TOTALLY STANDALONE 



(RETURN "\ 
to BASICS 



Figure 4 




U00K^ G B 



SMALL 
T, L M E AD^S 



SMALL TIME USER'S GROUP 

BULLETIN BOARD 

- S39.95 — 



442 



• Support aoout 200 USERS. IDEAL tor LOCAL CLUBS 

• General. Club, and Confidential PASSWORD Prot 

• EASY, USER ORIENTED complete UP'DOWN loading 

• Auto Conlig tor N/7/1. N/8/1 fc/7- 1 . or E/8/1 

• The BELOW TERM/HOST req tor BULLETIN BOARD 

TERM/HOST VER 1 .5 (c)1 982 
- $34.95 — 

a ENTRY/EXIT TERM/HOST via Interrupt Handler 

• HEX TRANSLATION of RCV ft XMIT DATA 

• TRANSMIT/RECEIVED Data Continually Displayed 

• Adjustable SPLIT SCREEN FULL DUPLEX Operation 
e BINARY and ASCII FILE Handling Capabilities 

e ASCII (Transparent BINARY File) Handling 
a CTRL CODE SUPPORT frm KBD or XMIT/RCV BUF 
a Additional CONV PROGRAMS are NOT REQUIRED 
a DISK orTAPEtothe TRANSMIT/RECEIVE BUFFER 
e TRANSMIT/RECEIVE BUFFER to DISK or TAPE 
a DISK to TAPE or TAPE to DISK ALL File Types 
a AUTOMATIC CLEAN UP of RECEIVED ASCII Files 
a HEX to DECIMAL CONVERSION F rom Arty USER Prog 
e UPPER/LOWER CASE DRIVER with KEYBD Toggle 
a TEXT SPOOL BUFFER for VIEWING or PRINTING 
a EXIT/RETURN to DOS. BASIC or Other USER Prog 
a HOST May Run MACH LANG or BASIC Programs 
a HOST You May UP/DN LOAD All FILE TYPES in the 
HOST From Any REMOTE TERMINAL or SYSTEM 
a HOST MODE has PASSWORD PROTECTION if Desired 
a VERSION Runs on MODEL 1 S3, TAPE or DISK. 48K 

CHECK or MONEY ORDER or COD 

Freedom Financial Enterprises of Washington, Inc. 
3601 Carnage Dr Raleigh. NC 27612 919-782-9662 



■See List ot Advertisers on Page 451 
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STARFIGHTER 



BY SPARKY STARKS 

Creative Computing says, "The 
game is great — nothing less than ex- 
cellent." 

STARFIGHTER is the finest space 
battle simulation ever written for the 
TRS-80. and that's no idle boast. 80-U.S. 
Journal says that STARFIGHTER ". . .Is 
like no other game ever seen." BYTE 
magazine reports that the game ". . .of- 
fers excitement and excellent use of 
TRS-80 graphics and sound." STAR- 
FIGHTER'S Arcade Action Graphlcs(tm) 
and sounds are enjoyably combined to 
produce truly mind-challenging game 
situations. 

The STARFIGHTER package includes two cassettes (with separate 
Main Mission and New Pilot Training Simulator tapes), or one self- 
loading disk. Also Included is an extreme ly detailed 32-page instruct ion 
manual. 
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LASER BALL 



BY NEIL MATSON AND MATTHEW McMAHON 

"This Is the one I've been waiting for . . . 
an Incredible game in every sense of the 
word!" Will Hathaway, Arcader 
"Superb graphics, great sounds, and, best 
of all, the game really taxes your playing 
skills ..." Pat Henderson, Arcader 

Stand back, arcaders, It's LASER 
BALL — a white-hot sound and 
graphics extravaganza that'll practically 
fuse the circuits In your TRS-80! Your 
LASER BALL must race through a 
twisting maze avoiding or attacking 
killer disruptolds, depending on your 
energy status. Only the fast will survive 
— can you? 

LASER BALL doesn't miss a trick with Its crisp Arcade Action 
Graphics(tm), high score save, 24 separate playing levels, joystick 
compatibility and more. Brand new from Adventure International! 
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LUNAR LANDER 



BY MIKE WALL ANO JACK MONCRIEF 

"Certainly one of the most realistic 

and imaginative simulations for the 

TRS-80. . . " 80-U.S. Journal 

The tension is nearly unbearable as 

your Lunar Excursion Module plummets 

towards a craggy lunar surface that's 

rife with jagged peaks and impossibly 

deep fissures. Only a firm hand on the 

controls and a steady eye on the 

monitor screen can spell the difference 

between a successful landing and an 

explosive death. 

Your Lunar Lander comes fully 

equipped with everything that you'll need to challenge this dangerous 

landing site. Including sound, running high score, two player option and 

breathtaking Arcade Action Graphlcs(tm). 




0.10-0094 
32K Disk Mode 

012-0094 $24.95 
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SPACE INTRUDERS 

BY DOUQ KENNEDY 

"The program Is fantastic . . . the 
graphics are excellent." 80-U.S. Journal 
Those crafty Invaders are back with 
a vengeance and Adventure Interna- 
tional has em! SPACE INTRUDERS has 
been praised by major microcomputing 
publications from 80-U.S. to Creative 
Computing as fantastic," "excellent," 
"top of the line," and, well, you get the 
ideal SPACE INTRUDERS faithfully 
reproduces the hit Deluxe arcade 
machine In all of its frustratingly en- 
joyable glory. An absolute must for any 
serious game collection! 
SPACE INTRUDERS comes ready 
for battle with two player option, 
sounds, joystick compatibility and Ar- 
cade Action Graphicsftm) that'll knock 
your socks off. 



i 



« m\m A 



INIKIK 



a ,» k,* 



odel 1 and 3. 
0.1O-O116, $24,95 
32K Disk Model 1. and, 3 
in j.i-41 1* $24.95 



FROM YOUR FAVORITE DEALER 
ILL TOLL FREE (800) 327 7172 
(ORDERS ONLY PLEASE) 
Shipping 4 handling are extra 

PRICES SUBJECT TO CHANGE WITHOUT Ni' 
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similarly. 

To return to the normal keyboard push 
shift, down arrow, and B. You can now type 
lower and uppercase letters or use the stan- 
dard shift feature to lock in all caps. 
Pushing shift, down arrow, B again will 
restore the keyword mode. If you used shift 
you must toggle it off. 

User Definable String 

You can program an alphanumeric string 
of your choice (up to 68 characters) at any 
time and insert it into your program. 

To use this feature type in a line jump- 



"This 13-byte routine has 
saved me hundreds of hours. . . " 



ing to the first line in your program (for ex- 
ample, GOT0 10). Type in a line 1 setting a 
variable named Z$ equal to your desired 
string (for example, 1 Z$ = "This Is My 
Desired String"). Push shift Z; a prepro- 
grammed line 2 will appear. Enter RUN1. 
From now on , whenever you push sh i ft Z, your 
selected string will appear in your program. 
If you leave this little routine in place until 
you are finished you can change your string 
at any time by putting a new string in line 1 
Z$ = ". . ." and typing RUN1. Before saving 
the final version of your program, type 
Delete 0-2 and you will not have these as a 



permanent appendage. (Of course, you can- 
not use lines 0-2 or Z$ in your own pro- 
grams.) 

Restore Basic Pointers Routine 

This 13-byte routine has saved me hun- 
dreds of hours retyping because I typed 
CLOAD when I meant CSAVE, or when new 
USR routines locked up the computer. 

When you issue the CLOAD command 
the computer first resets all the Basic 
pointers, ready to put the new program in 
the right memory locations. But unless you 
actually read in some new code, the old pro- 







00100 
00110 






Program Listing 1 








r* 






* 






00120 


t* 




AUTO - 


KEY * 






00130 


i* 




JULY 1981 * 






00140 


. * 






* 






00150 


. * 


A 


Program to Produce BASIC KEYWORDS * 






00160 


t* 


With a Single Keystroke-TRS80-NODIII * 






00170 


t* 






* 






00180 


t* 




Don Rigg * 






00190 


t* 




17 Bittersweet Bay * 






00200 


t* 




Winnipeg, Manitoba, Canada * 






00210 


. * 




Tel (204)253-9230 * 






00220 
00230 
00240 


. * 






* 






' 












00250 


** * 


Set 


Up Auto Start *** 








00260 


i 








41E2 




00270 




ORG 


41E2H ; SYSTEM 


Jump Address 


41E2 


C3E07D 


00280 




JP 


START ;AUTOKEY Initialization Rtn. 






00290 


j 












00300 


** * 


Initialization Routines 


*** 






00310 


; 








7DE0 




00320 
00330 




ORG 


7DE0H 








00340 


7 


RESET AUTO START 








00350 


; 








7DE0 


3EC9 


00360 


START 


LD 


A,0C9H 


;RET Code 


7DE2 


32E241 


00370 
00380 


1 


LD 


(41E2H) ,A 


;To SYSTEM RAM 






00390 


', 


SET 


MEMORY PROTECT 








00400 


• 








7DE5 


21DE7D 


00410 




LD 


HL,7DDEH 


;7DE0H-2 


7DE8 


22B140 


00420 




LD 


(40B1H) r HL 


;Put in 'END OF BASIC Ptr 


7DEB 


21AC7D 


00430 




LD 


HL,7DACH 


;Mem Size-32H (50D) 


7DEE 


22A040 


00440 




LD 


(40A0H) ,HL 


;Put in 'START OF STRING SPA 


CE' Ptr 












7DF1 


CD721B 


00450 




CALL 1B72H 


; Reset ALL Pointers 






00460 


; 












00470 


; 


REPLACE KEYBOARD DRIVER 


ADDRESS 






00480 


»* 








7DF4 

ss 

7DF7 


2A1640 


00490 




LD 


HL,(4016H) 


; Obtain OLD KBD Driver Add re 


220F7E 


00500 




LD 


(GETCHR+1) ,HL 


;Put in CALL Statement 


7DFA 


21087E 


00510 




LD 


HL,NEWDVR 


jPut New Driver 


7DFD 


221640 


00520 
00530 
00540 
00550 


? 


LD 
SET 


(4016H) ,HL 
ALL CAPS OFF 


;Addre8s in KBD DCB 


7E00 


3E00 


00560 




LD 


A p 0H 


;0 - Off 


7E02 


321940 


00570 
00580 


; 


LD 


(4019H) ,A 


jAll CAPS Flag 






00590 


1 


RETURN TO BASIC READY PROMPT 






00600 


• 








7E05 


C3191A 


00610 
00620 


; 


JP 


1A19H 








00630 


; *** 


Mai 


i AUTOKEY Program 


**** 






00640 


» 












00650 


I 


ENTRY FROM ROM CALL TO 


SCAN KEYBOARD 


I 
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Listing 


1 continued 


00660 ; 








7E08 3A7E7E 


00670 NEWDVR 


LD 


A,(SUBFLG) /If flag X in middle 




7E0B B7 


00680 


OR 


A ;of a KEYWORD 




7E0C 205E 


00690 
00700 ; 


JR 


NZ r CONTI /Substitution-CONTINUE 






00710 ; 


Get Character 






00720 ; 








7E0E CD0000 


00730 GETCHR 


CALL 


$-$ ;Original Keyboard Scan Rtn. 




7E11 B7 


00740 


OR 


A ;Character Returned in A 




7E12 C8 


00750 
00760 ; 


RET 


Z ;No Key Pressed-Process Ordinarily 






00770 ; 


TEST 


FOR SWITCH CHANGE 






007B0 ; 








7E13 F5 


00790 


PUSH 


AF ;Save Kbd Char 




7E14 PE02 


00800 


CP 


02H ; CNTRL B Toggle 




7E16 200C 


00810 


JR 


NZ, SWTST ; Don't Change 




7E18 3A7D7E 


00820 


LD 


A,(ONOFF) /Get Status Switch 




7E1B C680 


00830 


ADD 


A,80H ;Results in 00 or 80 




7E1D 327D7E 


00840 


LD 


(ONOFF) r A ; Update 




7E20 Fl 


00850 


POP 


AF ;Restore Original Character 




7E21 3E00 


00860 


LD 


A,0H ; Change to NULL»No Key Pressed 




7E23 C9 


00870 
00880 ; 


RET 


/Back to ROM Routine 






00890 ; 


TEST 


IF RTN ON or OFF 






00900 ; 








7E24 3A7D7E 


00910 SWTST 


LD 


A, (ONOFF) ;Get Status 




7E27 FE00 


00920 


CP 


0H ;Rtn ON 




7E29 2802 


00930 


JR 


Z, CTRTST/ Continue This Routine 




7E2B PI 


00940 


POP 


AF ;Get Original Character 




7E2C C9 


00950 
00960 ; 


RET 


.•Routine OFF-Process Ordinarily 






00970 ; 


TEST 


FOR CONTROL CHAR 






00980 ; 








7E2D Fl 


00990 CTRTST 


POP 


AF ;Get Character Pressed 




7E2E FE20 


01000 


CP 


20H ;Key < Spacebar 




7E30 3802 


01010 


JR 


C f CNTRL /Must be CONTROL CHAR 




7E32 1811 


01020 


JR 


LWRTST /Not CONTROL Test for Lower Case 




7E34 FE08 


01030 CNTRL 


CP 


8H /Skip Selected Characters-Backspace 




7E36 C8 


01040 


RET 


Z /Process Ordinarily 




7E37 FE01 


01050 


CP 


1H ; Break 




7E39 C8 


01060 


RET 


Z ; Process Ordinarily 




7E3A FE0D 


01070 


CP 


0DH ; Enter 




7E3C CB 


01080 


RET 


Z /Process Ordinarily 




7E3D FE1B 


01090 


CP 


1BH /Shifted UP Arrow 




7E3F C8 


01100 


RET 


Z /Process Ordinarily 




7E40 FE18 


01110 


CP 


18H /Shifted LEFT Arrow 




7E42 CB 


01120 


RET 


Z /Process Ordinarily 




7E43 1812 


01130 


JR 


FINDST /Find String for Remaining CONTROL C 




hars. 


01140 ; 










01150 ; 


TEST 


FOR lower case 






01160 ; 








7E45 FE61 


01170 LWRTST 


CP 


61H /-a 




7E47 3806 


01180 


JR 


C, UPTST /Below Lower Case-See If UPPER Case 




7E49 FE7B 


01190 


CP 


7BH />z 




7E4B D0 


01200 


RET 


NC /TOO High 




7E4C D620 


01210 


SUB 


20H /Must be a Lower Case 




7E4E C9 


01220 
01230 ; 


RET 


/Change & Process as UPPER Case 






01240 / 


TEST 


FOR UPPER CASE 






01250 ; 








7E4F FE41 


01260 UPTST 


CP 


41H /-A 




7E51 D8 


01270 


RET 


C /Too Low-Between Spacebar t § 




7E52 FE5B 


01280 


CP 


5BH ;>Z 




7E54 D0 


01290 


RET 


NC /Too High Between Up Arrow fc - 




7E55 D621 


01300 
01310 ; 


SUB 


21H /Follow after Controls 






01320 ; 


FIND 


LOCATION IN TABLE 






01330 ; 








7E57 E5 


01340 FINDST 


PUSH 


HL /Save Original 




7E58 21817E 


01350 


LD 


HL f WORDS /Start of KEYWORD Table 




7E5B 47 


01360 


LD 


B,A /Save Number of KEYWORDS to Skip 




7E5C 7E 


01370 NOTDN 


LD 


A,(HL) /Look § BYTE in Table 




7E5D 23 


01380 


INC 


HL /Get Ready for Next 




7E5E B7 


01390 


OR 


A 




7E5F 20FB 


01400 


JR 


NZ, NOTDN /Not End of KEYWORD 




7E61 10F9 


01410 
01420 ; 


DJNZ 


NOTDN /Count Number of KEYWORDS 






01430 ; 


SEARCH FINISHED - STORE LOCATION 






01440 ; 








7E63 227F7E 


01450 


LD 


(STRPTR) f HL /Save Pointer to String Wanted 




7E66 3E01 


01460 


LD 


A r l /Set Flag to 




7E68 327E7E 


01470 


LD 


(SUBFLG),A /Indicate Substitution 




7E6B El 


01480 
01490 ; 


POP 


HL /Restore Original 



01500 



ONE CHARACTER TO SCREEN 



Listing 1 continues 
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More powerful programming tools 
for theTRS 80. Now on disk. 



Better results. Microsoft's Level III BASIC and Editor/ 
Assembler-Plus are programming tools that help you write 
complex programs in less time, with less effort and util- 
izing less memory. Better programs. No matter what your 
programming skill. And for the first time these tools are 
available on disk. 

Editor/ Assembler-Plus. A powerful editing, assembly and 
debugging tool with many sophisticated features that make 
writing TRS-80 assembly language programs easier, faster 
and more efficient. 

• Full disk capabilities. 

• Assembly directly into memory. No need to save object 
code then reload for execution. 

• Macro capability that allows you to define macros for 
commonly used sequences of instructions. 

• Conditional assembly that allows you to generate more 
than one version of a program. 

• Eight breakpoints at a time for program debugging. 

• The INCLUDE statement that allows you to call additional 
disk files for assembly. 

• Other features include extensive operators, automatic 
origin, symbol table printout, quash command, hex, deci- 
mal and octal constants, single step-through instructions 
in memory, five type-out modes, four type-in radices, plus 
extensive edit commands. 

A more powerful BASIC. With Level III BASIC, you get 
power to perform tasks in BASIC that used to require 
assembly language. Plus, new ease-of-use features for 
your TRS-80. 

• Advanced graphics. Develop charts, graphs, even anima 
tion in Level III BASIC. Draw a line, an outline box or 



a solid box by specifying just two points. Then save and 
recall it with BASIC commands. 

• MENU. One command that allows you to construct an 
entire menu. 

• CHAIN and COMMON commands allow you to call 
another program and pass variables to it. 

• Powerful editing commands such as COPY/TRANSFER, 
FIND and CHANGE. 

• DUMP command that makes debugging easier 

• Time-limit response. New INPUT # LEN and LINE INPUT 
# LEN commands allow you to set a time limit on response. 

• RS-232 output from BASIC. With a single command. 

• More. Level III gives you automatic line numbering, 26 
user-definable single stroke instructions, and more. 

Disk or cassette. Disk versions of Level III and Editor/ 
Assembler-Plus are brand new. Cassette versions are also 
available with many of the same capabilities. 
Talk to your Microsoft" dealer. Ask for a demonstration 
of two of the most powerful tools you can get for your 
TRS-80: Level III BASIC and Editor/ Assembler-Plus. On 
disk or cassette. From Microsoft. 

TRS 80 is a trademark of Radio Shack, a division of Tandy Corporation. 
Microsoft is a registered trademark of Microsoft Corporation. 

BETTER TOOLS FOR MICROCOMPUTERS 

MICROSOFT. 

MICROSOFT CORPORATION 
10700 NORTHUP WAY 
BELLEVUE, WASHINGTON 98004 ^282 



Listing 1 continued 














01510 ; 


ALSO BRANCH FROM ENTRY 






01520 ; 


POINT 


IF CONTINUING 






01530 ; 






7E6C 


E5 


01540 CONTI 


PUSH 


HL ;Save Original 


7E6D 


2A7F7E 


01550 


LD 


HL, (STRPTR) jGet Addr of Char to Process 


7E70 


7E 


01560 


LD 


A r (HL) jPut in 'A' 


7E71 


B7 


01570 


OR 


A ;See if Zero 


7E72 


2003 


01580 


JR 


NZ,HORE ; Continue if not Last 


7E74 


327E7E 


01590 


LD 


(SUBFLG) , A ;Set Flag to Stop Process 


7E77 


23 


01600 MORE 


INC 


HL i Point to Next Character 


7E78 


227F7E 


01610 


LD 


(STRPTR) ,HL i Save Address 


7E7B 


El 


01620 


POP 


HL ;Restore Original 


7E7C 


C9 


01630 
01640 ; 


RET 


; Output Character 






01650 ; 


SWITCHES/PIAG5 






01660 ; 






7E7D 

1 


00 


01670 ONOFF 


DEFB 


;FLAG-If Routine ON (00) or OFF (80H 


7E7E 


00 


01680 SUBFLG 


DEFB 


;FLAG-If Currently Sub8tituting(00) 


or Not (01) 








7E7F 


0000 


01690 STRPTR 
01700 ; 


DEFW 


j Address of Char TO BE Substituted 






01710 ; 


REPLACEMENT WORDS 






01720 ; 






7E81 


0000 


01730 WORDS 


DEFW 


00 /Skip Null ( 00H) , CONTROL A <Break> (0 


1H), 










7E83 


00 


01740 


DEFB 


;and CONTROL B <On/Off Toggle> (02H) 


7E84 


43 


01750 


DEFM 


'CSAVE" 


7E8A 


00 


01760 


DEFB 





7E8B 


53 


01770 


DEFM 


•SET( ' 


7E8F 


00 


017 80 


DEFB 





7E90 


52 


01790 


DEFM 


'READ' 


7E94 


00 


01800 


DEFB 





7E95 


3F 


01810 


DEFM 


•?FRE(A$) ' 


7E9D 


0D00 


01820 


DEFW 


000DH /Include ENTER Code 


7E9P 


47 


01830 


DEFM 


•GOSUB' 


7EA4 


00 


01840 


DEFB 





7EA5 


00 


01850 


DEFB 


;Skip Backspace <0BH> 


7EA6 


49 


01860 


DEFM 


•INKEYS' 


7EAC 


00 


01870 


DEFB 









01880 ; *** 


CONTROL 


J Available 


7EAD 


00 


01890 


DEFB 





7EAE 


4C 


01900 


DEFM 


'LLIST' 


7EB3 


00 


01910 


DEFB 





7EB4 


4C 


01920 


DEFM 


•LIST 1 


7EB8 


00 


01930 


DEFB 





7EB9 


00 


01940 


DEFB 


;Skip Enter <0DH> 






01950 >*** CONTROL 


N Available 


7EBA 


00 


01960 


DEFB 





7EBB 


50 


01970 


DEFM 


•POKE' 


7EBF 


00 


01980 


DEFB 





7EC0 


50 


01990 


DEFM 


■POINTC 


7EC6 


00 


02000 


DEFB 





7EC7 


4C 


02010 


DEFM 


'LEFT$(' 


7ECD 


00 


02020 


DEFB 





7ECE 


52 


02030 


DEFM 


'RON' 


7ED1 


0D00 


02040 


DEFW 


00BDH 


7ED3 


53 


02050 


DEFM 


■SQRC 


7ED7 


00 


02060 


DEFB 





7ED8 


54 


02070 


DEFM 


•TAB( ■ 


7EDC 


00 


02080 


DEFB 





7EDD 


55 


02090 


DEFM 


'USR(0) ' 


7EE3 


00 


02100 


DEFB 





7EE4 


43 


02110 


DEFM 


•CLS' 


7EE7 


00 


02120 


DEFB 





7EE8 


45 


02130 


DEFM 


•EDIT' 


7EEC 


00 


02140 


DEFB 





7EED 


00 


02150 


DEFB 


;Skip Shift LEFT Arrow <18H> 


7EEE 


54 


02160 


DEFM 


•TROFF' 


7EF3 


00 


02170 


DEFB 





7EF4 


41 


02180 


DEFM 


•AUTO' 


7EF8 


0D00 


02190 


DEFW 


000DH 


7EFA 


00 


02200 


DEFB 


;Skip Shift UP Arrow <1BH> 


7EFB 


2F 


02210 


DEFM 


'/32755 1 ;Entry for Restore BASIC Routine 


7F01 


00 


02220 


DEFB 









02230 ;*** CONTROL 


9 Available 


7F02 


00 


02240 


DEFB 





7F03 


53 


02250 


DEFM 


' SYSTEM ■ 


7F09 


00 


02260 


DEFB 





7P0A 


3F 


02270 


DEFM 


' ?MEM ' 


7F0E 


0D00 


02280 


DEFW 


000DH 


7F10 


41 


02290 


DEFM 


■ascc 


7F14 


00 


02300 


DEFB 





7F15 


56 


02310 


DEFM 


•VAL(' 


7F19 


00 


02320 


DEFB 





7P1A 


43 


02330 


DEFM 


■CHR$( ■ 

Listing 1 continues 
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■ 3600 amm 



Devil's lower «m 



DEVIL'S TOWERS 
(BY JOHNOLSEN JR.) 

up nan 3600 n 



innnnanaLa 




ln...J..JJ«..n.J«..j!l.. 



ft ft ft 



(SEE YOUR LOCAL DEALER) 
• • OR ORDER FROM • • 

FANTASTIC SOFTWARE 

P.O. Box 27734 

Las Vegas, Nevada 891 26 

(702)362-1457 

MASTER CHARGE 



•36 



VISA 



Aim: 1 2 3 4 Drill 



PRICE "** 16K 1APE $15.95 
32K DISK $19.95 
MOMl I & III 

'MACHING LANGUAGE 
"ARCADE STYLE GAME 

'SOUND 



'GRAPHICS 

'ALPHA & TRtSSTICK COMPATIBLE 

*10 HIGH SCORE SAVE 



^Hi^ACE Perform^ 



n ce Table 




$99.95 

> $2 Shipping 
CA add 6% 



****** 



BASIC** 



2 




© Correct BASIC programs (no dynamic 
renaming, no out-of- range arguments) 
compile without modification. 

You owe it to your programs. 



M«II 



Allen Gelder Software 

(415) 387-3131 

Box 11721 San Francisco CA 94101 



• ■ if, 



EDIT EDIT is to your line-editor as disk is to tape, lets you work and $40 
K1 " play in one more dimension. 
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gram is still intact— you just cannot get 
at it. 

I keep this routine in protected high 
memory; putting it on the end of Autokey 
has worked out very well. I incorporated the 
system jump address into Autokey making 
it quite easy to run it. 

When you want to use it put the Autokey 
program in keyword mode. Press shift, 
down arrow, period and System will appear. 
Press Enter and the System prompt *? will 



appear. Press shift, down arrow, comma 
and the routine's entry address in decimal 
will appear (Z32755). Press Enter. The 
routine will execute and return you to the 
Basic Ready prompt ready to run, list, or 
CSAVE your program. Then you can con- 
tinue as if nothing had happened. Remem- 
ber, do not turn off the computer, or all 
is lost. (J. Kovacic developed the code for 
this routine; it was published in Interface 
Age some time ago.) 



"/ keep this routine in 
protected high memory." 

You can have your own machine lan- 
guage copy of this program by assembling 
the source code listing. You can also enter 
the hex instructions on the left of the listing 
with a monitor. (The Z-Bug program in the 
January 1981 issue of 80 Microcomputing, 
one of the better ones around, works well on 
the Model III.) You can also use the Basic 
program listed, or, if all this seems too 
much I will give you a free high baud copy of 
source and object code. Just send me a 



Listing 1 continued 



7F1F 

7F20 

7P24 

7F25 

7F2B 

7F2C 

7F2F 

7F30 

7F34 

7F35 

7F3B 

7F3C 

7F42 

7F43 

7F44 

7F45 

7F49 

7F4A 

7F50 

7F51 

7F56 

7F57 

7F5B 

7F5C 

7F61 

7F62 

7F68 

7F69 

7F70 

7F71 

7F75 

7F76 

7F7E 

7F7F 

7P83 

7F84 

7F89 

7F8A 

7F91 

7F92 

7F96 

7F97 

7F9C 

7F9D 

7FA1 

7FA2 

7FBE 

7FD0 

7FE7 



00 
44 

00 

52 

00 

46 

00 

47 

00 

52 

00 

49 

00 

29 

00 

4C 

00 

4C 

00 

4D 

00 

4E 

00 

50 

00 

50 

00 

52 

00 

52 

00 

53 

00 

54 

00 

55 

00 

56 

00 

45 

00 

43 

00 

54 

00 

32 

2C 

3A 

0D00 



7FF3 

7FF3 2AA440 

Area 

7FF6 74 
PTR 



02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

027 80 

02790 

02800 

02810 

02820 

02830 j 

02840 »*** 

02850 ; 

02860 

02870 

02880 



DEFB 

DEFN 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFM 

DEFM 

DEFW 





'DATA' 



• RESET ( ' 



•FOR' 

•GOTO' 


' RETURN ' 







INPUT" 









• LEN { ' 



'LPRINT' 



'M1D$(' 


•NEXT' 


*PEEK( ' 



'PRINTS' 



•RIGHT$(' 



•RND( ' 



1 STRINGS (' 



'THEN* 



'USING' 



•VARPTR( ' 



' ELSE ' 



•CLOAD' 



' TRON ' 



'2FORI-lTOLEN(Z$) iPOKEI+32673 ' 

',ASC(MID$(Z$,I,1)) ' 

' :NEXTiPOKEI+32673,0:END' 

000DH ;End of Last Substitution String 



ROUTINE TO RESTART BASIC 



ORG 
LD 



LD 



7FF3H ;32755D 

HL,(40A4H) /Find Start of Text Storage 



(HL) ,B 



; Put Something Non-zero into 



7FF7 CDP81A 


02890 


CALL 


1AF8H 


; Adjust All PTRS 


7FFA CD591B 


02900 


CALL 


1B59H 


>Pix(40F9H) , (40FAH) , perform 


CLEAR 










7PPD C3191A 


02910 


JP 


1A19H 


;To READY Prompt 


0000 


02920 


END 






00000 TOTAL 


ERRORS 
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• Epson > 
Giveaway 



%. 



Epson MX70/80 Cartridges 

CCOOEACH 

^^^ ^^F Min. 3 of same color 

Reloads $2.50 each Min. 12 
$30.00 a Doz. of Same Color 

Cartridges and Reloads Available 
In Black. Red. Green, Blue, Brown 

flH systems 

35 Cherry Court. East Northport. NY. 1 1 731 

N Y S Residents Add Tin Add \7 00 Shipping & Handling 

Prices Subject to Change 

Allow Clewing Time lor Personil Checks 

Money Orders « Certilied Checks shipped same diy 



COMPUTER REPAIRS 
CONSULTATIONS 




E & G UMLOR ENTERPRISES 

RFD#l,Box48A 
FITZWILLIAM, NH 03447 

Offering Soies 

COMPUTER HARDWARE and PERIPHERALS 

also 

REPAIR SERVICE-TAPE DUPLICATION 

BASIC PROGRAM MODIFICATION 

APPLICATION SOFTWARE WRITTEN 

For Further Information Call: 

(603) 586-3142 .«, 



B Dysan 

^CORPORATION 



Sotw v-cmji dtat probian*. buy 100% surface 
tested Dysan diskettes. All orders shipped 
from Dock, wktun 24 houn Call toll FRfct 
rSOO) 235-4137 (oc prices and Iniarmatlon 
Visa and Master Card accepted. 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 (InCal call 
(805i 543-1037) 



"Now you can type in 

all those super 80 Micro programs 

in half the time!" 



tape with one of your favorite programs on 
it and I will return it with Autokey. (Don't 
forget some instructions!) 

Modifications 

As with any program, just when you fin- 
ish, you think of many things to add and 
change. I am planning to change the check 
for 00H bytes at the end of each keyword to 
check for a high order bit in the last charac- 
ter of the keyword instead. I'll use the space 
taken up by the zeroes to add Auto Edit 
from the February 1981 issue of 80 Micro- 
computing. I would be very happy to hear 



from you if you enhance this program— just 
drop me a line. 

I sequenced the initialization code at the 
beginning of the program to make it easy to 
restart if you reset the computer and end up 
back at the CASS? prompt. Push Enter 
twice, Enter System, then /32224, and it 
will start up again. 

You can also set another protected mem- 
ory size in answer to the memory size ques- 
tion and retain it by entering System and 
/32244 to skip the auto memory size routine. 

Now you can type in all those super 80 Mi- 
crocomputing programs in half the time! ■ 



Program Listing 2 



** 
** 

** 
** 

** 



AUTO-KEY 

Don Rigg 
July, 1981 



• * 
*• 
** 
*• 

** 



10 REM 

20 REM 

30 REM 

40 REM 

50 REM 

60 REM 

70 REM *•«***•********•••«******* 

80 CLS:PRINT§524,CHRS( 23) "AUTOKEY NOW LOADING" 

90 REM *** Protect Memory From 32224 (7DE0H) On *** 

100 POKE16561, 222: POKE16562, 125: CLEAR 50 

110 DEFINT B:DEFDBL C 

120 REM *** Read AUTOKEY Object Code *** 

130 FOR A% = 32224 TO 32387: REM 7DE0H TO 7E83H 

140 READ B 

150 POKE A%,B 

160 C-C+B 

170 NEXT 

180 IF C <> 17956 THEN PRINT "Error in Data Stmts 610 to 710": 

END 

190 REM 

200 C=0 

210 FOR A - 32755 TO 32767: 
220 READ B 
230 POKE A,B 
240 C-C+B 
250 NEXT 

260 IF C <> 1432 THEN PRINT "Error in Data Stmt 730":END 
270 REM *** Read KEYWORDS *** 
280 C=0 

290 FOR A% - 32388 TO 32754: 
300 READ B$ 
310 B = ASC(B$) 
320 IF B = 38 THEN B = 13: 
330 IF B ■ 48 THEN B = 0: 
340 IF B = 39 THEN B - 34: 
350 IF B = 33 THEN B = 48: 
360 POKE A%,B 
370 C=C+B 



*** Read RESTORE BASIC Object Code 



REM 7FF3H TO 7FFFH 



REM 7E84H TO 7FF2H 



REM Change 6 to ENTER 
REM Change to NULL 
REM Change ' to " 
REM Change I to 
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Scanned by Ira Goldklang - www.trs-80.com 



PRODUCTS FOR YOUR RAOIO SHACK 






MACRO-80C 

The Micro Works is pleased to announce the release ot its disk-based editor, 
macro assembler and monitor, written tor Color Computer by Andy Ptielps. THIS 
IS IT — The ultimate programming 1001' 

The powertui 2-pass macro assembler features conditional assembly, local labels, 
include files and cross referenced symbol tables. MACRO-80C supports the 
complete Motorola 6809 instruction set in standard source format. There are no 
changes, constraints or shortcuts in the source language definition Incorporating 
all of the features of our Rompack-based assembler (SDS80C). MACR0-80C con- 
tains many more useful instructions and pseudo-ops which aid the programmer 
and add power and flexibility 

The screen-oriented text editor is designed for efficient and easy editing ot 
assembly language programs. The "Help Key' feature makes it simple and fun to 
learn to use the editor. As the editor requires no line numbers, you can use the 
arrow keys to position the cursor anywhere in the file. MACR0-80C allows global 
changes and moving/copying blocks of text. You can edit lines of assembly 
source which are longer than 32 characters. 

DCBUG is a machine language monitor which allows examining and altering of 
memory, setting break points, etc. 

The editor, assembler and monitor — as well as sample programs — come on one 
Radio Shack compatible disk Extensive documentation included. Macro-80c 
Price: $99.95 



SDS80C — Our famous editor, assembler and monitor in Rompack Complete 
manual included Price: $89.95 



PARALLEL PRINTER INTERFACE — Serial to parallel converter allows use of 
standard parallel printers. You supply printer cable P180C Price: $69.95 



MICROTEXT — Get printouts while using your modem 1 Also download to cassette 
General purpose terminal Rompack Price: $59.95 



YOU NEED COLOR FORTH!! 

Why? •Forth is faster to program in than Basic 

•Forth is easier to learn than Assembly Language 
•Forth executes in less time than Basic 
Forth is a highly interactive language like Basic, with structure like Pascal and 
execution speed close to that of Assembly Language. The Micro Works Color Forth 
is a Rompack containing everything you need to run Forth on your Color Computer 
Color Forth consists of the standard FORTH interest Group (FIG) implementation of 
the language plus most of FORTH-79. It has a super screen editor with split 
screen display. Mass storage is on cassette. Color Forth also contains a 
decompiler and other aids for learning the inner workings of this fascinating lan- 
guage It will run on 4K. 16K. and 32K computers. Color Forth contains 10K of 
ROM leaving your RAM for your programs! mere are simple words to effectively 
use the Hi-Res Color Computer graphics, joysticks, and sound. The 112-page 
manual includes a glossary of the system-specific words, a full standard FIG 
glossary and complete source listing COLOR FORTH ... THE BEST! From the 
feader in Forth, Talbot Microsystems Price: $109.95 



THE 



Also available: Machine language Monitor 
Memory Upgrade Kits * Parts and Services 



• Call or write for information 



W©\^J^ P.O. BOX 1110 DEL MAR, CA 92014 



GAMES 

Star Blaster — Blast your way through an asteroid field in this action-packed Hi 

Res graphics game. Available in ROMPACK; requires 16K Price: $39.95 

Pac Attack — Try your hand at this challenging game by Computerware, with 

fantastic graphics, sound and action! Cassette requires 16K. Price: $24.95 

Berserk — Have fun zapping robots with this Hi-Res game by Mark Data 

P-oducts. Cassette requires 16K Price: $24.95 

Adventure — Black Sanctum and Calixto Island by Mark Data Products. Each 

Cdssette requires 16K Price: $19.95 each. 

Cave Hunter — Experience vivid colors, bizarre sounds and erne creatures in hot 

pursuit as you wind your way through a cave maze in search of gold treasures. 

This exciting Hi-Res game by Mark Data Products requires 16K for cassette 

version. Price: $24.95 

_ , California Residents add 6% Tax 

Master Charge/Visa and 
COD Accepted 



^125 



619-942-2400 



WHY $ IN DISK . . .WE'VE PUT SENSE IN CASSETTE 



RELIABLE LOW-COST HIGH-SPEED TAPING 




HE* 



NO-FUSS HIGH SPEED SOFTWARE 

KWICOS (Mod 1.4k to 48k) $26 

KWIK Cassette Operating System for Mod 1 . The easy-to-use Level 
II enhancement for reliable fast taping (select 1000-3000 baud) 
Features: save, load, verify, search, chain-load, catalog, and test- 
read of both BASIC and machine-code programs . . . plus: long pgm 
names, passwords, debounce. slow list . self backup . and more 

K0S3 (Mod 3. 16k to 48k) $26 

The KWIK Cassette Operating System for Model 3. All kwicos 
features at 2200 baud, plus KWIK set of: clock display. Time, Date, 
Cassette high/low. I/O routing, etc. 

KWIKIT (specify Model) S12 

Mini-system for BASIC programs only 
EasyLoad 1000 baud for Mod 1 . 2200 baud 
for Mod 3 Many kwicos features. 

KWINK (Model 1,4MB) $15 

Makes stand-alone fast-loading (2x-6x) 
copies of any standard 500 baud SYS- 
TEM program. (At 6x. 3 minute program 
loads in 44 sec!) 

KLOAD (Model 1) $15 

Similar to kwink . but for BASIC pgms only 
(Specify 16-32-48k) 

KLOAN (Mod 3. 16k-48k) $12 

Makes 500 or 1 500 baud copy of any other 
standard system pgm 

KWIK Software 

Box 328 

^ Bolivar. MO 65613 

2ft Phone (417) 326-7154 

_.»'_. oalle'"iP' luTDet 



CLEGS 



PLATED SPRING STEEL 



EASY SLIP-ON 
INSTALLATION 




CASSETTE EJECTS 
INTO YOUR HAND 

PUTS COUNTER 
IN FULL VIEW 

TAKES LESS 
TABLE SPACE 

A 



NO-FUSS ANY-SPEED HARDWARE 

The amazing LemonAid Loader takes the finickies out of Model I 
loads, but even more amazing make KWIK copies of your Model 
I programs and load them flawlessly at 6 « speed! Instant installa- 
tion . . simply plug between your cable and recorder No internal 
batteries or external power needed. 

New Model LLQ-2 Deluxe loader has volume controlled jack for 
tape listening without plug-pulling, using external speaker/ear- 
phone Ideal for Model I. compatible with Model III ppd S21 99 
New Model LQ-2 loader Built-in low level audio monitor with fixed 
volume. Model I. Mod III compatible $18.99 

Model LL-1. Great little economy loader for 
the Model I. S1 4 99 

Model LSS. Solid state SOFTROL ( 1 ) elimi- 
nates switch-hits. (2) Push button and slide 
switch control of CTR motor makes tape 
positioning a snap without plug pulling 
(3) Cushioned motor-off delay pulls end of 
programs past CTR pinch rollers no 
pinch-hits, plus (4) automatically gaps 
between saved programs. For all standard- 
plug recorders and computers. S18.99 



A NEW ANGLE 
ON TAPING' 



ADJUSTABLE 
RECORDER ANGLE 

% VINYL TIPS 

\ 



$2.99 With urder 
from B ther r.or pany 
Otherwise $4 9S3DC 



Io o 

i raur 



LEMONS 
TECH 

325 N. Hwy65 
P.O. Drawer 429 
Buffalo. MO 65622 
(417) 345 7643 



1 10 pm most any day tor into or order I S cws c-cstpaiO. add S3 tor COO or ove-seas Missouri residents add sales lax 



^See List ot Advertisers on Page 451 
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REMSOFT, INC. 

Let Your TRS-80" 
Teach You 
ASSEMBLY LANGUAGE 



Tired of buying DOOK a'ler DOOK on assembly 
language programming and still not Knowing you' 
POP IrOOl vour PUSH? 

REMSOFT proudly announces a more 
e"'Cient way using your own TRS-80' to learn 

tne fundamentals o 1 assempiy language 
programming at YOUR pace and YOUP 

convenience 

Our uniQue package -INTRODUCTION TO 
TRS-80 ASSEMBLY PROGRAMMING * 

provide you win tne following 

• Ten 45 mmute lessons on audio cassettes 

• A driver program to maKe your TRS-80' video 

monitor serve as a blackboard for tne instructor 

• A display program tor eacn lesson to provide 
illustration and -eintorcement tor wtiat you a*e 

nearmg 

• Step by step dissection of complete and use'oi 

routines to test memory and to gam direct 
control Over the keyboard video monitor and 
printer 

• Mow to access and use powerful routines in 
vou' Leve ii ROM 

for Model 1 

REMASSEM-1,.ape, only $69.95 

REMASSEMLd.sk. only $74.95 

NOW AVAILABLE FOR MODEL 3 

REMASSEM-3,ta P e, $74.95 

REMASSEM-3id.su $79.95 



LEARN TRS-80' 

ASSEMBLY LANGUAGE 

DISK I/O 



Ycu' disk system and you can reaiiy step out 
w |h REMSOFT S Educational Module 
REMDISKV a 3hoM cou-se reveaimg me deta> s 
o' DISK ■ PROGRAMMING using assemp'v 
■anguage intended 'or tne student witn 
e>ce- e->ce m assembly language 
COURSE INCLUDES 

• Two 45 minute essons on aud'O cassette 

• A drive' p'ogram to make your TRS 80 video 
monitor serve as a blackboard tor me instructor 

• A display program 'or eacn lesson to provide 

.-•■ 3i : ■ and 'eintorcemen: lot /.'•a: you are 
•^ea- ng 

• A c^c- e: r' ;c"ip'er , e' , S've lully commented 
program listings illustrating se^uentia hie ' O 

■ i~ 1c — access ' -e i O and track a^s sector i 

• A diskette witn macni^e-readabie source codes 
loi a ^'ograms discussed in Dot" Radio Snac« 
EDTasm ana Macro 'ormats 

• Routines tc convert from one assembler 'ormat 
to tne ome - 

Presently available for model 1 only 
REMDISK-1 only $29.95 

Dealer inquiries invited 

Tnese courses we r e developed and recorded by 
Joseph E Wiiiis and are based on me successful 
series o' courses ne has taugnt at Meta 
Technologies Corporation me Radio Snack 
Compute - Center and omer 'ocations in Northern 
Oti'O Tie mmirrum system required is a Leve' II 
16K RAM 



REMSOFT. INC. 

571 E. 185 St. 

Euclid. Ohio 44119 

(216) 531-1338 



^ 



SHlPP NG CHARGES 

$2 50 WITHIN UNITED STATES •* 

S5 0C CANADA AND MEXICO 
OT»ER =ORElGN ORDERS ADD 2C . 
Oh.O RESIDENTS ADD 6'r. SALES TAX. 



Listing 2 continued 




550 DATA 127,126,225,201,0,0,211,126,0,0,0 




560 REM *** Data For RESTORE BASIC Object Code *** 




570 DATA 42,164,64,116,205,248,26,205,89,27,195,25,26 




580 REM *** Data For KEYWORDS *** 




590 DATA C,S,A,V,E, ' ,0 




600 DATA S,E,T, ( ,0 




610 DATA R,E,A,D,0 




620 DATA ?,F,R,E, ( ,A,$,) ,4,0 




630 DATA G,O,S,U,B,0,0 




640 DATA I,N,K,E,Y,$,0,0 




650 DATA L,L,I,S,T,0 




660 DATA L,I,S,T,0,0,0 




670 DATA P,O,K,E,0 




680 DATA P,0,I,N,T, ( ,0 




690 DATA L,E,F,T,$, ( ,0 




700 DATA R,U,N,&,0 




710 DATA S,Q,R,( ,0 




720 DATA T,A,B, ( ,0 




730 DATA U,S,R, ( ,2,) ,0 




7 40 DATA C,L,S,0 




750 DATA E,D,I,T,0,0 




760 DATA T,R,O,F,F,0 




770 DATA A, U,T, O,&,0,0 




7 80 DATA /, 3, 2, 7, 5, 5, 0,0 




790 DATA S,Y,S,T,E,M,0 




800 DATA ?,M,E,M,&,0 




810 DATA A,S,C, ( ,0 




820 DATA V,A,L, ( ,0 




830 DATA C,H,R,$, ( ,0 




840 DATA D,A,T,A,0 




850 DATA R,E,S,E,T,(,0 




860 DATA F,O,R,0 




870 DATA G,O,T,O,0 




880 DATA R,E,T,U,R,N,0 




890 DATA I,N,P,U,T, ' ,0 




900 DATA ) ,0 




910 DATA L,E,N, ( ,0 




920 DATA L,P,R,I,N,T,0 




930 DATA M,I,D,$,(,0 




940 DATA N,E,X,T,0 




950 DATA P,E,E,K, ( ,0 




960 DATA P,R,I,N,T,@,0 




970 DATA R,I,G,H,T,$,( ,0 




980 DATA R,N,D, ( ,0 




990 DATA S,T,R,I,N,G,$, ( ,0 




1000 DATA T,H,E,N,0 




1010 DATA U,S,I,N,G,0 




1020 DATA V,A,R,P,T,R, ( ,0 




1030 DATA E r L,S,E,0 




1040 DATA C,L,O,A,D,0 




1050 DATA T,R,O,N,0 




1060 DATA 2,F,0,R,I,-,1,T,0,L,E,N,( ,Z,$,) , " : " ,P,0,K ,E, I , + 




1070 DATA 3,2,6,7,3,",",A,S,C, ( ,M,I,D,$, (, Z ,$,",", I ,",", 1 


) ,) 


1080 DATA ":",N,E,X,T,":",P,0,K,E,I,+,3,2,6,7,3,",",I ,":" 




1090 DATA E,N,D,4, 0,0, 0,0, 0,0, 0,0, 0,0,0 





-RSoC 



S A "RADEMARK OF TANDY CORP 



ft ft SUPER" tii? 

ISA's DATABASE 

The only DBMS with all these features: 

* PROVEN in one year of test marketing 

* TOUGH, reliable file structure 

* MENU driven for simplicity and easy use 

* ARITHMETIC with stored calculations 

* FAST set-up and report formating 

* CLEAR user-oriented documentation 

* PRINTS totals & subtotals - mail labels 

* REFORMATS and merges data files 

* MULTI-DISK files Up to 128K records 

* SORTS full disks on up to 40 fields 

* PRODUCTION input of repetitive data 

* USE existing data files 

* COUPLES to word processors 

* POSTS transactions to master file 

* SEARCH by strings, ranges, comparisons 

* DATA COMPRESSION: Over twice as 
many labels as the other system 

For TRS-80* Models 1. II. HI. C 16 - 250.00 
CP/M* - 293.00 

Ask your Dealer or Write ** 351 

Institute for Scientific Analysis. Inc. 
P. O. Box 7 186, Dept. M 2 
Wilmington. DE 19803 (215)358 3735 

t T.M Digital Research 



'T.M. Tandy Corp. 



\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 

prices and information. Dealer 
inquiries invited. COD. and 
charge cards accepted. 




VtSA 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 In Cal. call 
(800) 592-5935 or 
(805) 543-1037. 

• 207 
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BOOST THE POWER AND 
PERFORMANCE OF YOUR TRS-80™ 

WTTH 
WILEY'S FRIENDLY PAPERBACK GUIDES 



THE TRS-80 111 MODEL III USER'S GUIOE 

Tony Bove & LeRoy Finkel 

Get to know the myriad of applications, 
options, and accessories available for the 
TRS-80™ Model Ml — with the help of this clear, 
nontechnical guide. It explains everything you 
need to know to use your micro effectively— from 
handling its disk operating system to coming to 
grips with the incredible array of software on the 
market. 

(1-86242-8) November 1982 
approx. 256 pp. $12.95 

THE GENIE IN THE COMPUTER 
Easy BASIC Through Graphics 
TRS-80™ Edition 

Rachel Kohl, Laura Karp, & Ethan Signer 

Learn how to program the fun and easy 
way— by interacting with the "genie", a microcom- 
puter graphic. A tiny core program on the very 
first page of the book shows you how to bring the 
genie to life— a simple face on the monitor screen 
of your TRS-807 M As you master each new 
programming concept, you can make the genie 
move, smile, talk, tell stories, and even star in a 
movie. Ideal for young people and for adults with 
"technophobia." 
(1-87049-8) October 1982 
approx. 320 pp. $12.95 

FAST BASIC 

Beyond TRS-80 1 " BASIC 

George Gratzer with Thomas Gratzer 

Now you can combine TRS-80™ BASIC with 
assembly language to dramatically increase the 
execution speed of your programs from 4 to as 
much as 1,000 times. This practical guide teaches 
you 20 Assembly Language Instructions and the 
names of 60 ROM routines, then shows you how 
to apply these concepts to your knowledge of 
BASIC. Also includes valuable information on the 
operating principles of the TRS-80J M 
(1-09849-3) 1982 278 pp. $14.95 

Convenience software (contains all the teaching 

and utility programs listed in FAST BASIC) 

Model I Disk: (1-87484-1) 5 V«" disk; 32K of memory 

$19 95 

Model II Disk: (1-86838-8) 5V*" disk; 32 K of memory 

$19 95 

Cassette tor Model I or Model IH: (1-87421-3) 16K of memory 

$19.95 

TRS-80™ Is a trademark of Tandy Corp. 



SUBROUTINE SANDWICH 

John P. Grillo & J. D. Robertson 

Here, in one easy-to-use manual, are 36 
BASIC subroutines— powerful modules that you 
can combine and build onto to write structured 
programs that are clearer, easier to modify, and 
require less composition and debugging time than 
traditional programs. Geared for use with the 
TRS-80™ Model I or Model III. the book is carefully 
structured, with each subroutine a separate 
four-page unit. You'll find crystal-clear explana- 
tions of how each subroutine works, possible 
applications, suggestions for modifying it, and a 
program that incorporates it, complete with 
sample output. Five mother programs demon- 
strate the real-world applications of this practical 
programming technique. 
(1-86920-1) January 1983 
approx. 224 pp. $12.95 

For 36 additional subroutines in the same user- 
friendly format, turn to 

MORE SUBROUTINE SANDWICH 

John P. Grillo & J. D. Robertson 

(1-86921-X) January 1983 

approx. 224 pp. $12.95 

SUCCESSFUL SOFTWARE FOR SMALL COMPUTERS 

Graham Beech 

This easy-to-use manual shows you how to 
write dependable, efficient, even elegant 
programs that work the first time— even if you're 
just a novice programmer. First you'll master the 
principles of successful software design with the 
aid of a PDL (program description language). 
Then you'll learn how to create reliable, structured 
programs that are easily— almost automatically 
convertible to Microsoft BASIC. Applications 
range from data structures, files, and sorting to 
simulations, mathematical equations and compu- 
tations, and more. 
(1-87458-2) November 1982 
approx. 192 pp. $12.95 

Wiley publishes more than a dozen popular, 
paperback guides to help you get the most use 
and enjoyment from your TRS-80™ Look for them 
all at your favorite bookshop or computer store. 

q iSr\ (i JOHN WILEY & SONS. Inc. 

l8o 7(W] 1 9»2 605 Thjrd Av enue, 

H?b^ New York, NY. 10158 

In Canada: 22 Worcester Road.Rexdale, Ontario M9W 1L1 



-515 
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Aerocomp's 
Proven 
Best-By Test! 
The 



it 



ii 




Double Density Controller 

• Technical Superiority 

At last! A double density controller for Model I with higher probability of data recovery than with any other 
double density controller ON THE market TODAY! The ' ddc from Aerocomp. No need to worry about the pro- 
blems that keep cropping up on existing products. AEROCOMP'S new analog design phase lock loop data separator 
has a wider capture window than the digital types currently on the market. This allows high resolution data center- 
ing. The finest resolution available with digital circuitry is 125 ns (nano seconds). The "DDC" analog circuit allows in- 
finately variable tuning. Attack and settling times are optimum for 5-1/4 inch diskettes. 
The units presently on the market use a write precompensation circuit that is very "sloppy . Board to board 
tolerance is extremely wide - in the order of + 100 ns. The "ddc is accurate to within + 20 ns. 
The bottom line is state of the art reliability! 

• Test Proven 

Tests were conducted on AEROCOMP'S ' ddc ", Percom s Doubler A" and "Doubler ir " and LNW's "LNDoubler"** using 
a Radio Shack TRS80* * * Model I, Level 2, 48 K with TRS80 Expansion interface and a Percom TFD100 * disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion interface. 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks. The 6DB6 
pattern was chosen because it is recommended as a "worst case" test by manufacturers of drives and diskettes. An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80, version 
1.0, with Double zap, version 2.0. Unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown in the table. 



* Features 

TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-in installation. Compatible 
with all existing double density software. 

• value 

$139.95 for the BEST double density 
controller on the market. 

$1 79.95 for "DDC complete with dosplus 3.3D 
$229.95 for ddc complete with ldos 



• TEST RESULTS • 



MFR & PRODUCT 


SECTORS LOCKED OUT'AVO 


AEROCOMP "DDC 





PERCOM "DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



Note: test results available upon written request. All tests conducted prior to 8-25-81 

Aerocomp s ia day money Pack guarantee applies to hardware only 

Specials will be prorated Shipping $2.00 in Cont. US. See opposite page for details. 



Data Separators 

The advances that make the "DDC" great are incorporated in the new AEROCOMP Single Density Data Separator f'SDS") 
and Double Density Data Separator ("DDS"). 



• Has your original manufac- 
turer left you holding the bag? 

if you already own a Percom Doubler A". "Doubler li ' or LNW 
LNDoubler . the aerocomp DDS will make It right. Look at the test 
results: 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT "DDS" 


WITH "DDS" 


PERCOM DOUBLER II 


18 


1 


PERCOM "DOUBLER A 


250 





LNW "LNDOUBLER" 


202 






• "DDS" $49.95 

(Use 1791 chip from your dd con- 
troller! 

W L/L/D with disk controller 

chip included § / 9.95 

• Disk controller 

chip $34.95 

(Shipping $2.00 cont us - see opposite 
page for details) 



Note: same test procedures as ddc 
* Trademark of Percom Data Co. 
•* Trademark of LNW 
*** Trademark of Tandy Corporation 



Plugs directly into your existing 
Double Density Controller. 



.-tv 



Do you need a 
Single Density Data 
separator? 

The Internal data separator in the 
WD1771 chip (R/s Expansion interface) 
is not recommended by WD for 
reliable data transfer Do you have any 
of these problems: Lost data, tracks 
locked out. CRC errors, disk retry? you 
NEED ONE! 

• "SDS" $29.95 

(For Mod. I; shipping $2.00) 



See opposite 

pageMMM 
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TRS80* 



DISK DRIVES 

40 & 80 TRACK 

as low as vil^V*95 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the savings along We offer the best 
disk drive value in the market place 
Reliability, features and cost tough to 
beat We deliver... and we stand behind 
our products. AEROCOMP is the only 
manufacturer to offer FREE TRIAI i Buy 
Aerocomp drives today You deserve the 
best 

BEST FEATURES 

• Fast 5 ms track-track access time. 

• Operates single or double density 

• "FLIPPY" feature for lower media cost 
[40-1 &80-I) 

• Head load solenoid 

• Disk ejector 

• Easy entry door 

• NEW EXTERNAL DRIVE CABLE 



CONNECTION 

covrr to hoon up cabic 



longer nerd ro 



EPSON 

MX80 

PRINTERS 

$469.00 

TRS80 Cable (I & ill) S9.95" 

APPLE Cable & Interface, s 105.00 

RS232 Interface S69.95 

Ribbon Cartridge. Black. . . $9.95 

Add $6.00 shipping (Cont. U.S.) does not 
include cable. 

MX80F/T 

All the features of MX80 plus Friction 
Feed Shipping & cables as above 

$569.oo 



ORDER TODAYI 

• 40-Track Drive S299 95 

• 80-Track Drive $409 95 

• 40-Track 'FLIPPY" Drive . . $329 95 

• 80-Track "FLIPPY" Drive. $41 9.95 

• 40-Track Dual-Head Drive . $419.95 

• 80-Track Dual-Head Drive S 569 95 

Aa nixjve .fr'ves Mr (DmpietP w*ri sifvc ckkisu"' (x*wr» sufxVv 
<trnie»!e ( rwl,»ive(.<Mecoi»>«l«xi I IS VAC SO60H/ ;)0vAC 
SO60 Ht svMAile on speik* on*-' AdOi'500 

• 40 Track Bare Drive. . . . S 259.95 

• 80-Track Bare Drive S359.95 

• 40-Track -FLIPPY" Bare DnveS279 95 

• 80-Track "FLIPPY" Bare DnveS369 .95 

• SPECIAL PACKAGES* 

STARTER A S339.95 

40-Track Drive. 2-drive cable. TRSDOS 
2 3 Disk & Manual. Freight & Ins 

STARTER B $369 95 

40-Track "FLIPPY" Drive. cable. TRSDOS 
2 3 Disk & Manual, Freight & Ins. 

COMBO C $465.00 

40-Track "FLIPPY" Drive, 2-dnve cable. 
LDOS • Freight & Ins 

COMBO D $559.00 

80-Track "FLIPPY" Drive. 2-dnve cable. 
LDOS' Freight & Ins 

COMBO E $709 00 

Two 40-Track "FLIPPY" Drives. 4-Dnve 
cable, TRSDOS 2 3 Disk & Mannual. 
Freight & Ins 



COMBO F 

Two 80-Track 

LDOS 



$989 00 

FLIPPY" Drives, 4-drive 

Ins 



•WWi Purchase o' Printer 



COMBO G $889.00 

Two 40-Track Dual Head Drives, cable, 
smoiLDOS2 3 Disk & Manual, Freight & 
Ins 

COMBO H $1289 00 

Two 80 Track Dual-Head Drives, cable, 
LDOS Freight & INS 

DOSR.US 34 or NEWDOS / 80.20 
avoiloble wirh ony pockoge or exrro cost 

AOdSS 00 pei Oirve <c %hip(»ny & rvnony |C(x« US) 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it, packed m the 
original shipping container, for a full re- 
fund. ' Hardware onv Special packages will be prorated) 

We have complete confidence in our pro- 
ducts and we know you will be satisfied! 
ORDER TODAYIII 



WARRANTY 

We offer you a 1 20 day unconditional 
warranty on parts and labor against any 
defect in materials and workmanship In 
the event service, for any reason, 
becomes nescessary. our service depart- 
ment is fast, friendly and cooperative 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug m when you receive them. Each 
drive is 100% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive. AEROCOMP 
MEANS RELIABHtTYII 

ORDER NOVX/II 

To order by mail, specify Model 
Number(S) of Drive, cable, etc (above), 
enclose check, money order. VISA or 

MASTERCHARGE card number and ex- 
piration date, or request COD ship- 
ment Texas residents add 5% sales tax 
Add $5.00 per drive for shipping & handl- 
ing (Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
COD shipments-cash, money orders or 
certified checks only You will receive a 
card showing the exact COD. amount 
before your shipment arrives. Be sure to 
include your name and shipping address 
You will be notified of the scheduled 
shipping date Your bank credit card will 
NOT be charged until the day we ship.n 

DRIVE CABLES 

2-DRIVE $24 95 

■• < wive :■ <•* ?- 

WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7868, OPERATOR 24 

FOR VISA/MASTERCHAROE/C.O.D. ORDERS 

Colilornio dial (800) 852 7777. Operator 24 Alaska 
and Hawaii dial (800) 824 7919. Operator 24 
TOLL FREE LINES WILL ACCEPT ORDERS ONLTl 

For Applications and Inchmeal information call 
(214) 337 4346 or drop us a card 



Dealers inqiries invited 



Ac3GCGIil? 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, TX 75224 ^ 



■ See List ot Advertisers on Page 45' 
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GENERAL 



A general guide to the regions of ROM. 



Memory Map— Level II 



Mark D. Goodwin 
S.R. 79, Box 103 
Orland, ME 04472 



This memory map covers 
Level II ROM memory and 
explains how RAM memory is 
used by the ROM routines. Level 
II uses memory locations 4000H- 
42E7H as Its communication 
region, storing temporary values 



for Basic interpreter functions. 
The map also covers the memo- 
ry mapped Input/output from 
37DEH-37FFH used to com- 
municate with the keyboard, the 
printer, disk drives, and the real- 
time clock. 

This map is a general guide to 
Level II ROM routines, not a 
complete reference source. Use 
this map with a disassembled 
listing of the Level II ROMs. 

Write to me if you wish more 
detail in areas of this memory 
map.B 



Level II Memory Map 



oooo - 


000* 


INITIALIZATION ROUTINE 


oooo 




TURNS OFF DISK AND CLOCK INTERRUPTS 


OOOl 




ZERO A 


0002 - 


OO04 


JUMP TO INITIALIZATION ROUTINE AT 0A74 


ooos - 


0007 


JUMP TO RET OB CODE AT 1C96 VIA 4000 


oooe - 


000ft 


R6T oe 


0008 


OOOA 


JUMP TO RST OB CODE AT 1C96 VIA 40O0 


oooe 


- OOOC 


DISK ROUTINE 


OOOB 




SET JUMP ADDRESS 


OOOC 




JUMP TO SPECIFIED ADDRESS 


OOOD 


- OOOF 


DISK ROUTINE 


OOOD 


- OOOF 


JUMP TO DISK LOADER ROUTINE 



OOIO - 0012 RST lO 

0010 - 0012 JUMP TO RST 10 CODE AT 1D7B VIA 40O3 



IMIIlllllllllllllltlllllluIillllUIIlIllUlllllllIl.llllIl 
0013 - 0O17 KEYBOARD ROUTINE 



0013 




SAVE BC 


OC14 


OOIS 


B * KEYBOARD ENTR* CODE 


0016 


0017 


JUMP TO DRIVER ENTRY ROUTINE 


0O18 


- OCl« 


F.ST IB 


0O18 


OOlA 


JUMP TO RST IB CODE AT 1C90 VIA 4oOA 


OOIB 


001F 


VIDEO ROUTINE 


OOIB 




SAVE BC 


i.'OIC 


- O01D 


B - VIDEO ENTRY CODE 


00 IE 


- OOIF 


JUMP TO DRIVER ENTRY ROUTINE 


0020 


- 0022 


RST 20 


OO20 


- 0O22 


JUMP TO RST 20 CODE AT 23D9 VIA 4009 


0023 


- 0027 


DIB)'. ROUTINE 


0023 




SAVE BC 


0024 


- 0O23 


B » ENTRY CODE 


0020 


- 0027 


JUMP TO DRIVER ENTRY ROUTINE 


OOZB 


- O02A 


RST 2B 


0028 


- O02A 


RET WITH NON DISK VIA 400C 



002B - 002F 



KEYBOARD ROUT I r 



002B - 002D DE - KEYBOARD DRIVER ADDRESS 

002E - 002F JUMP TO KEYBOARD DRIVER 

•SCANS KEYBOARD AND RETURNS WITH BYTE IN A 
IIMIIIII'IllMMMIMIlltllllltlllllUIIUIUMIMIIMIIIII 
0030 - 0032 RBT 30 



0030 - 


0032 


RET NITH NON DISK VIA 400F 


0O33 


- 1037 


VIDEO ROUTINE 


0033 
0034 


003S 
- 0037 


DE - VIDEO DRIVER ADDRESS 
JUMP TO VIDEO DRIVER 
•DISPLAY THE BYTE IN A 


0O3B 


- 003A 


RST 38 


0038 


- 003A 


RET WITH NON DISK VIA 4012 



003B - 003F 
003B - 003D 



POINTER ROUTINE 

DE • PRINTER DRIVER ADDRESS 



Map continues 
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Announcing the best Error 
Free Personal Computer 
Diskette Money can Buy. 
For Less. 

• Error Free 

• 1 year warranty 

• Hub ring installed 

• Write/Protect notch 

• Next day delivery 

$19.90/box of 10 

• No minimum order quantity 

• 8" or 5%" 

• Plus 2 Free BONUS DISKS/Box* 

•5 '/«" SPECIAL ONLY 

If you are a member of a user group or a school district please call for special 
terms on future offers. TSS is the largest specialty supplier of magnetic media 
in the Midwest. We have the products that you want when you need them. 
Please take advantage of this introductory offer and call us now. 

m U TPjLjfc Stora 8 e Sy stems. Inc. 

22255 Greenfield Rd. 
Southfield, Michigan 48075 

CALL TOLL FREE 
1-800-52 1-5700 
1-800-482-4770 (Michigan) 
313-557-3036 (Detroit) 
312-922-0076 (Chicago) 
614-221-1788 (Columbus) 
513-621-1518 (Cincinnati) 
Telex 810-224-4646 




EXPECT A MIRACLE 



*Sf List ol AOvurtstrs on P»g» 451 



YES, TB is the magnetic media supplier that I have always wanted. 

_,8"D 5'A"D,@ 



Please send me 

Box Quantity 

I am interested. Please send me more information 
or call me at ( ) 



ea. 



For faster order entry call any of our toll-free or local numbers 

Company — - — 

Name . 



Title. 



Address 
City 



State- 



Zip - 



Amex/Master Card/Visa orders are accepted 



Expiration Date 

month year 
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Map continued 



OOSC - 0O3F 



JUT* TO PRINTER DRIVER 
•PRINT THE BYTE IN A 



0O40 - 0042 



INPUT ROUTINE 



0040 - 0042 JUMP TO INPUT ROUTINE AI 05D9 

ailllMIIMIMIIIIIIIilllllMIIIIIMIIIIIIIIIIIIIIMIIIIIIH 

0043 RETURN 
IMIIIillllllMIIUUtMllltlttllHIUItlllMIIIMIMMIIIII 

0044 - 0045 NOTHING HERE 



0046 - 0048 



JUMP TO DRIVER ENTRY ROUTINE 



0O49 - 004F 
OC>49 - Ou4B 

0O4C 

004D 

004E - 004F 



KEYBOARD ROUT INT 

SCAN ¥ EYBOARD 
CHECK FOR KEY PRESSED 
RETURN IF KEY PRESSED 
LOOP TILl KEY PRESSED 



■ ■IIIIMIIIIIIIIIMIIDIIIMIIKIIUIIUIU'IIIIIIIXIIXIII 
0050 - 005F KEYBOARD LOOK-UP TABLE 



00S0 
0051 
0O52 
0053 
0054 
Oo55 
00S6 
0057 

oose 

0059 
oo5A 
0O5B 
005C 
OOSD 
0O5E 
005F 



ENTER = CD 
SHIFT ENTER - OD 
CI EAR = IF 
SHIFT CLEAR = IF 
BREAK = 01 
SHIFT BREAK - 01 
UP ARROW ■ SB 
SHIFT UP ARROW ■ 1 
DOWN ARROW • OA 
SHIFT DOWN ARROW = 
LEFT ARROW - 08 
SHIFT LEFT ARROW - 
RIGHT ARROW ' 09 
SHIFT RIGHT ARROW 
SPACE - 20 
SH 1 F I SPACE « 20 



0O60 - 0065 



DELAY LOOP- 



DEL COUNTER 

TEST FOR ZERO 

LOOP TILL ZERO 

RETURN 

• BC IS USED AS THE LOONIER 
IIUIUIIIIIIIIIIIIItllllllllllllltltlUIIIUItUIUIIIIIMI 
0066 - 0O/4 NMI RESET 



0O60 

0061 - 0062 

0063 - 0O64 

0O6S 



0O66 - 0068 

0069 - 006E 

OOoF - 0C71 

0072 - 0O74 



RESE1 STACK POINTER 

TEST FOR DISK 

JUMP IF DISK 

JUMP TO LEVEL II RENTRY 

•THIS IS CALLED BY PRESSING THE RESET 

BACK. OF THE KEYBOARD 



0073 - 01O4 



0075 - 


007F 


0080 


0089 


0O8A - 


0090 


0091 - 


009E 


0O9F - 


0OA7 


0OA8 - 


OOAB 


OOAC - 


OOAE 


OOAF - 


OOBI 


OOB2 - 


OOB4 


OOB5 - 


OOB7 


OOB8 - 


<OBA 


OOBB - 


OOBD 


OOBE 


OOBF 


ooco - 


00C3 


0OC4 - 


OOD5 


0OD6 - 


oooe 


0OD9 - 


OODC 


OODD - 


OOOE 


OODF - 


"Hi 4 


OOE5 - 


0OE6 


OOE7 


OOEB 


OOEC - 


OOEE 


OOEF - 


OOF 8 


OOF 9 - 


OOFB 


OOFC - 


OoFE 


OOFF - 


01O1 


Olo2 - 


01O4 



INITIALIZATION ROU 1 I Hi 

MOVES LEVEL II POINTERS FROM ROM LOCATIONS 

18F7 - 19 ID TO RAM LOCATIONS 408o - 40A6 

SET LOCATION 4IES 4IE7 TO INSTRUCTION 

LD A, 12COO) 

SET INPUT BUFFER POINTER (40A7) TO 41EB 

SET DISK BASIC COMMAND VECTORS FROM 4152 - 41A! 

TO Jp 012D INSTRUCTION «L3 ERROR* 

SET DOS EXIT VECTORS FROM TO RETURNS 

ZERO START OF BASIC MEMORY 

SET STACK POINTER TO 41F8 

CALL INITIALIZATION OF BASIC POINTERS AND 

VARIABLES ROUTINE 

CLEAR SCREEN 

POINT TO 'MEMORY SIZE^' MESSAGE 

DISPLAY IT 

GET RESPONSE 

IF BREAK PRESSED DO II AGAIN 

IF THERE WAS A RESPONSE JUMP 

GET END OF COMPUTER MEMORY AND JUMP 

•THIS IS DONE IF YOU DON'T RESPOND 10 MEM SIZE' 

PUT BINARY OF RESPONSE IN DE 

IF RESPONSE ISN-T RIGHT JUMP TO SN ERROR 

ML - RESPONSE - I 

TES1 IO SEE IF THIS LOCATION EX1SIS 

IF IT DOESN'T EXIST GET NEW RE SPUN St 

TEST FOR MINUMUM RESPONSE 17428 

IF BELOW THEN OM ERROR 

STORE MEMORY SIZE AND START OF STRING SPACE 

CALL INITIALIZATION OF BASIL POINTERS AND 

VARIABLES ROUTINE 

POINT TO RADIO SHACK LEVEL II BASIC MESSAGE 

DISPLAY IT 

JUMP TO READY ROUTINE 



OlOS 


01 IO 


MEMORY 


SIZE 


MESSAGE 






«**«t«**tl*tt(**t*(*«tt(«*(*l«tt«*«t*««*(t««t*«t«««((ttttt(« 


01 1 1 


012C 


RADIO 


SHACK 


LEVEL I I 


BASIC 


MESSAGE 



)12D - 0131 



012D - 012E 
012F - 0131 



L3 ERROR ROUTINE 



E « ERROR CODE 

JUMP TO ERROR ROUTINE 



0132 - 019C 
0132 - 013A 



013B - OliL 
01 3D - 013F 



GRAPHICS ROUTINE 

PUT GRAPHIC CODE ON STACK: 

POINT 

1 SET 
♦1 RESET 
CHECK SYNTAX 
A • X VALUE 



014O 


0141 


0141 


- 0144 


014S 




0146 


- 0147 


014S 


- 014A 


014B 


- 014C 


014D 


- 014F 


OlSO 


- 01 7F 


oiao 


- 0181 


0182 




0183 


- 0185 


0186 


- 018B 


018C 


- 018D 


018E 




018F 


- 019O 


0192 


- 019C 


llllllllllllll 


019D 


- 01C8 


O190 


- 019E 


01 9F 


- 01A4 


01 A5 


- 01A7 


01A8 


- OlAA 


01AB 




01AC 


- 01AF 


OIBO 




01B1 


- 01B3 


01B4 




01BS 


- 01BB 


01BC 


- 01C8 



01C9 - 01D2 



CHECK FOR i 127 

IF - THEN FC ERROR 

SAVE X VALUE 
CHECK SYNTAX 
A - Y VALUE 
CHECK FOR > 47 
IF > THEN FC ERROR 

COMPUTE VIDEO LOCATION AND BIT MASK 
IF POINT THEN JUMP 
RESTORE GRAPHIC CHARACTER 
IF SET THEN JUMP 
RESET BIT 
CHECK SYNTAX 
RETURN 

SET BIT AND RETURN 
TEST BIT AND RETURN 
•••*tt«t«S*«St««**(ttt**««*««*tt*»**t***tt*t*t 
INKEY» ROUTINE 

ADJUST AND SAVE ENCODED STATEMENT POINTER 
JUMP IF SHIFT i WAS PRESSED 
SCAN KEYBOARD 

IF NO KEY PRESSED THEN JUMP 
SAVE CHARACTER 

ZERO LAST KEY PRESSED STORAGE LOCATION 
A ■ STRING LENGTH 

CHECK FOR ENOUGH STRING SPACE 
GET CHARACTER 
SAVE STRING AND JUMP 
SAVE READY MESSAGE AS STRING AND RETURN 

CLS ROUTINE 



O103 - 01D8 RANDOM ROUTINE 
t««*l«(*t(*(»«*t«t*t««*«(***(*«*(***(t*(***(t««*«t«tl(«t(«tt 

01D9 - 01F7 CASSETTE ROUTINE 



01D9 - 01F7 



MAKE A CASSETTE PULSE AND RETURN 



01FB OlFD CASSETTE ROUTINE 

01F8 - OlFD TURN CASSETTE OFF AND RETURN 

•******t«t«tttt(*«tt***«*«««*«***«t«t*t*l(«t(*((«**«t*«(*t«* 

01FE - 0211 CASSETTE ROUTINE 



01FE - 0211 



GET DRIVE NUMBER 



0212 - 021D 



CASSETTE ROUTINE 



0212 021D DEFINE DRIVE AND RETURN 

02 IE - 022B CASSETTE ROUTINE 

021E - 022B RESET TAPE INPUT SO VIDEO DOES' T GO TO 32 

CHARACTER MODE AND RETURN 
lllllllliniliuillllllllllllllllllllllllllllllllllllllllin 
022C - 0234 CASSETTE ROUTINE 

022C - 0234 BLINK « DURING CASSETTE READ 

**(*«««*«tt*(«(t«*(«(*(«i*****««t*««t***tt««t«*««t**((**a«*« 

0235 - 0240 CASSETTE ROUTINE 



0235 - 0236 

0237 - 0238 

0239 - 023B 

023C - 023D 

023E - 023F 
0240 



SAVE BC AND HL 

SET COUNTER TO READ 8 BITS 

GET A BIT 

LOOP TILL B BITS HAVE BEEN READ 

GET HL AND BC 

RETURN WITH BYTE READ IN A 
***«««**«t«tlt*(»**tt**«««*((««*t««*(t**««(******«*((«**«<(* 
0241 - 026O CASSETTE ROUTINE 



0241 - 026O READ 1 BIT AND RETURN 
t«t«*tt(«ttt«*«tM«**«*(t(tt*ttl«((tttt«t(ttt(»t»*t*«(t(SS(l 

0261 - 0263 CASSETTE ROUTINE 

0261 - 0263 WRITE A CLOCK PULSE 
*t***ttt*ttt**t*tt«t«****tt«*t****»****t(ttt**t*I«ttttt(t((t 

0264 - 02 7D CASSETTE ROUTINE 

0264 - 027D WRITE BYTE IN A AND RETURN 

■llllltlllllllllllllllllllllllllllSllllllllllllllllllllIIIII 
027E - 0292 CASSETTE ROUTINE 



027E 
0293 



WRITE CASSETTE LEADER AND RETURN 



0293 - 02A8 



CASSETTE ROUTINE 



READ CASSETTE LEADER AND RETURN 



02A9 - 0313 



02A9 


- 02AE 


02AF 


- 02B1 


02B2 


02B4 


02B5 


- 02B7 


02B8 


02BA 


02BB 


02BF 


02CO 


02C2 


02C3 


02C5 


02C6 




02C7 


- 02C9 


02CA 


- 02CD 


02CE 


02D0 


02D1 


02D3 


02D4 


02D7 


02DB 


- 02E6 


02E7 


- 02E9 


02EA 


02EC 



SYSTEM ROUTINE BENTRY POINT IS 02B2 

READ 2 BYTES AND SAVE THEM 

TURN CASSETTE OFF 

CALL DOS EXIT AT 41E2 

SET ENCODED STATEMENT POINTER 

DISPLAY CARRIAGE RETURN 

DISPLAY ( 

GET RESPONSE 

IF BREAK PRESSED THEN JUMP 

POINT TO 1ST CHARACTER INPUT 

IF SN ERROR THEN JUMP 

IF / THEN JUMP 

READ CASSETTE LEADER 

READ 1 BYTE 

IF NOT NAME HEADER THEN LOOF' 

READ NAME IF NO MATCH SKIP TCI NEXT PR06AM 

ON TAPE 

BLINK « 

READ 1 BYTE 



Map continues 
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NEW MODEM GAME 

Presenting Terminal-War Command a starship as you battle against a human opponent, trie computer, or Doth Yes. the com 
puler can control up to 28 ships Choose from fifteen commands as you light the alien ships and the other player But be careful, the 
aliens win intelligently attack with various weapons advancing and retreating as they try to destroy you 

Every time you play Terminal-War the scenario is different You can also make each game as easy or as hard as you like because 
you control the strength and the number of ships 

Only S29.95 

includes ? detailed manuals 2 disks each with the 2 player modem version. 1 player version, and a special terminal program so 
that 16K computer users can play Terminal-War (The terminal program >s transferee to cassette. Use the 3?K 
computer ) 
Cassette wiih the termmiai program already on it $1 00 

Minimum system requirements 



2 Player version. 1 16K TRS-80 level 2 computer with a full 
duplex modem and 1 32K I disk TRS-80 computer with a lull 
duplex modem 

t Player version 1 32K 1 disk TRS-80 computer 
-DEALER INQUIRIES INVITED — 

TRS-80 is a trademark ot Radio Shack a Tandy Corp 



Ordering Inlormation 

'Specify Mod I or Mod m disks or one disk of each * 

We accept Money orders Ceriified checks COD and per 

sonai checks (Up to 2 weeks to clear) 

Please add $2.00 shipping. NY residents add 7% sales tax 

Mail orders Ocean Computer Products 
P Box 6474 
Ithaca. NY 14850 
24 Hour order line (607) 273 6608 ^52 



I PROFESSIONAL SOFTWARE 

♦ BASIC COMPILER 

T • TRSDOS" 2 COMPATIBLE 

♦ • UP TO 30 TIMES FASTER 

} DISK SORT 



►♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦< 

TRS-80*' MODEL II & 16 nowavailabl ♦ 

♦ 
$339.00* J 



BY MICROSOFT • EASY TO USE 

• INCLUDES MM. CREF-80 • EDIT BO 

• AUGMENTED WITH OUR DOCUMENTATION 



A • MENU DRIVEN 

T - EASILY INSERTED INTO JOB STREAM FOR NON-STOP RUNNING • FULL DISK CAPACITY DISK ^..REDUCTIBLE ♦ 



i YOU DON'T HAVE TO BE A PROGRAMMER TO USE IT' 
RANDOM FILES • EASY TO USE • SPEC s SAVED ON DISK 

J • t.000 RECs SORTING 15 BYTES. INCLUDING ALL DISK I'O - 2 MIN. 45 SEC s 

♦ BASIC CROSS REFERENCE .save hours- 

♦ • SEE JSED LINE'S NAMES AT A GLANCE • PRODUCES NICE PROG LISTING 

4 EPSON mx-80$460°° mxioo$700°°* hurry-limited timei 

♦PAPER 9. .11 18lb WHITE STRIPS TO 8 - *x11 3.000'BOX 

▲ MAILING LIST • high capacity • spans disk • no sorting 

^ • FAST RETRIEVAL-UPDATE • R'S CONVERSION INCLUDED • LONG/SHORT FORMATS 
+ • ESTIMATED AVAILABILITY - DEC 1982 

♦ -PLUS POSTAGE & HANDLING PRICES SUBJECT TO CHANGE WITHOUT NOTICE- 



♦ 

HARD $69 " # J 

r-IAHUoOC ONLY $10" A 



SUPPORTED 

INDISPENSABLE 



4 TRS 80 & TRSDOS ARE 

{REGISTERED 
TRADEMARKS OF 
l TANDY CORP ("«) 980-4563 



GOOD-LYDDON DATA SYSTEMS 

5486 RIVERSIDE DR.. CHINO. CA 91710 



ON PURCHASES ^ 

$59.99* ♦ 

DOC ONLY $10* J 
DED ON PURCH J 

$25.00* ♦ 
$149.95* X 

DOC ONLY $10- ♦ 
DED ON PURCH ♦ 

I 

♦ 

.-186 4 

♦♦♦♦♦♦♦♦/ 



Coordinated 
Business Software 

D.B. Software Co. announces a new 
line of coordinated business software 
designed for the Model III TRS-80. 
The BASE system consists of a Gen- 
eral Ledger System with Accounts 
Receivable and Accounts Payable 
Other modules can be purchased 
and added as needed. 

BASE System (GL-AR-AP) $200.00 

Coordinated Modules: 

Payroll $ 75.00 

Order Entry S1 25.00 

Inventory S1 29.95 

Purchase Order Entry S1 25 00 
Inventory (special for 

Auto Parts Suppliers) S1 29.95 

Also available: 

Job Costing with GL and AP 

(Payroll optional) $500.00 

Mailing Lister S1 00.00 

Coming soon: 

Apartment Management System, 
Fixed Assets System, Manufacturing 
Inventory Management System 
Send S.A.S.E. for more information 
D.B. Software Co. 

1 1840 NE Brazee. Portland, OR 97220 

Phone (503) 255-7735 

DEALER INQUIRIES INVITED 

TRS 80 is a trademark of Tandv Corp 




LEVEL IV PRQDUCT5. INC. 
TR5-BQ® DKLTJUNT DEALER 

NO AUTHORIZED DEALER BEATS OUR PRICES ON PURE R/B EQUIPMENT 




THIB IB A FABT HOVINB INDUSTRY, PRICES CHANBE FASTER THAN ADS, WE HAD A 
COMPLETE AD LAYOUT FOR THIB MONTH WITH PRICE8, BUT BEFORE ME COULD EVEN BEND 
IT IN TMEY CHANBED, BUT THE NEWS IS BOOD , THEV WENT DOWN AGAIN' 

SINCE THIB AD WAS DESTROYED, AND THERE IB NO TIME TO PREPARE A NEW ONE, LET'S 
JUBT TALK ABOUT A FEW THINOB THAT WE AT LEVEL IV THINK SHOULD BE IMPORTANT. 

THERE ARE TWO KINDS OF TR8-80(R> COMPUTERS, THE "PURE RADIO BHACKCR)" VERSION 
AND THE "BUILT-UP" VERSION, THEY ARE BOTH AVAILABLE FROM A NUMBER OF 
SUPPLIERS VIA HAIL ORDER, AT PRICES BELOW RETAIL. 

THE "PURE" VERSION WILL HAVE THE MANUFACTURER'S LIMITED fO DAY WARRANTY IN 
EFFECT, (PROVIDED THE DEALER HANDLED THE BALE PROPERLY>, BUI DON'T EXPECT THE 
LOCAL 8TORE TO 8IVE YOU AN OPEN ARMS WELCOME, THOSE BUYS WORK ON COMMISSION 
YOU KNOW, SO VOUR CHOICE OF A DEALER HAG 80NE IMPORTANCE, SOME OF THEM ARE 
LITTLE MORE THAN WAREHOUSES, VERY FEW HAVE EITHER SERVICE OR SUPPORT 
CAPABILITIES AFTER THE BALE, FOR THE USER WITH A PROBLEN. LEVEL IV OFFERB 
BOTH. WE HAVE A FULL TIME TECHNICAL SERVICE STAFF OF 8, AND A PROBRAMNINO 
STAFF AS WELL, BOTH ARE AVAILABLE TO OUR CUSTOMERS DURINB NORMAL BUSINESS 
HOURS MONDAY THRU SATURDAY, PHONE 1313) 92B-62O0. YOUR HARDWARE PURCHASED 
FROM LEVEL IV ALSO HAS AN EXTENDED WARRANTY, AFTER THE ABOVE >0 DAYS SEND OR 
BRIN8 IT BACK TO U8 FOR AN ADDI1IONAL 5 MONTHS OF COVERAGE • (WARRANTY COPIES 
ARE AVAILABLE ON REQUEST). 

YOU MUST RELY ON THE "BUILDER" OF A "BUILT-UP* UNIT TO PUT IN BOOD 
COMPONENTS. AND PROVIDE BOTH YOUR WARRANTY AND AFTER WARRANTY SERVICE, SELECT 
HIM CAREFULLY IF YOU BO THIB MAY. 

LEVEL IV OFFERS BOTH "PURE" AND -BUILT-UP" UNITS, SEE OUR OTHER ADS IN THIB 
MAGAZINE. 



EPSON 

BNITH-C0R0NA 

HAYES 

HPI 

TPNDGN 

SOFTWARE 

SUPPLIES 




RETAIL STORE NO. 



P- I 30 



LEVEL IV PRODUCTS, INC. 

134 SOUTH FRONT STREET 

DOWAOIAB. MICHIGAN 49047 

PHONE ■■:'.' '8- "■ "J 

PHONE/MAIL ORDER CENTER 

LEVEL IV PRODUCTS, INC. 
3242"* SCHOOLCRAFT ROAD 
LIVONIA, MICHIGAN 4B1S0 
PHONEI (MI> 313-333-4200 
TOLL FREE) 800-321-3303 



CALL FOR OUR CURRENT LOW PRICES CMI3 313-525-6200 OTHERS 800-521-3305 
WE ACCEPT CVISA-MC-CNECKS-CODl INOUIRE ABOUT OUR CASH PRE-PAY DISCOUNTS 



sSee List ot Advertisers on Page 45t 
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CHICAGO... 
What do you do 
when the system 
you bought by 
mail in California 

STOPS... 
DEAn 



I 



<a«r 



*». 



It's tough. You can't send it 
back to the guy you bought it from. And you 
can bet. you're going to pay back all that money 
you thought you'd saved, when you take it to be re- 
paired to a guy you didn't buy it from. 

HERE'S THE SOLUTION. Deal from the start 
with the best dealer in vour own local area vou can 
find. 

In CHICAGO . . . that's EBG & ASSOCIATES 
since 1978 a Eull Service microcomputer store spe- 
cializing in TRS-80. IBM PC and Corvus Concept 
Systems. 

• Computers & Peripherals & Supplies 

• Business & Personal Software* Consulting 

• On-site repair & modification facilities 

• Programmers & Technicians you can talk to 

ALL PRODUCTS COMPETITIVELY PRICED- 
COMPETENTLY REPRESENTED! 

• Lifeboat Assoc. • IA'W Research • Epson 

• Integral Data • Olivetti • LDOS 

• Hayes • Micropro • DOSPLUS 

• MULTIDOS • OKIDATA • Maxell 

• Galactic Sftwre. • Signalman • Corvus 

• Microsoft • Pickles & • SBSG 

• Novation • Trout 

CHICAGO AREA— come in or call (312) 782-9750. 

Get a FREE 3-month subscription to our computer 

newsletter. 

Stop in for a handful of Jelly Beans. 



20:3 North Wabash. Suite 2118 
^ 271 Chicago, IL 60601 



Map continued 




02ED - 0313 


READ PROGRAM AND JUMP 


lIIlMllllllllllllllllllllIIUIIIICIUIIIItlllllllltllllllll 


0314 - OI1C 


CASSETTE ROUTINE 


i>314 - 031' 


READ 2 BYTES AND fLI IK ML 


HNmmUHiiUUHIIUIIHlMIMIIIIHIilHMHIMIIHII 


03 ID - 0329 


SYSTEM ROUTINE 


031 - 0329 


COMPUTE JUMF ADDRESS AND GU 




•FDR ■••■• INPur 


•llllllllllllllllllllllllllllllllll IIII1III1IIII11II1II 


032A - 34T 


OUTPUT ROUTINE 


032 A - u>2b 


SAVE bC AND CHARmLTER *C lUTPUT 


032C - 032t 


CALL DOS EXIT AT 4 1 C I 


032F - 0332 


CHEO FOR DEVICE WPfc 


0333 - 03 54 


GET CHARACTFR TG OUTFUT AND BC 


03 35 - 0337 


IF CASSETTE THEN JUMP 


0338 - 0339 


IF PRINTER THEN JUMF 


033A - 034/ 


DISPLAY CHARACTER ON VIDEO AND UDATE CURSOR 




THEN RETURN 




•UN ENTRY DEVICE 1 YPt FLAG 14090J 




-1 CASSETTE 




U VIDEO 




' 1 PRINTER 


*************************** *******(******(**(*******(******* 


034B - 035/ 


VIDEO ROUTINE 


1.1348 - 03S7 


CURSOR MAlNlbNANCb 


IHIIIUIIIUUIUUtlllMIIMHIUIHIUIIUUIIIIIIIIIUII 


0358 - '.'_'6<' 


Kfc 'BOARD ROUTINE 


0358 - 03SA 


CALL DOS EXIT AT 41C4 


035B - '•:-«." 


SCAN H. 'BOARD AND Ri TURN MI IH CHARACTER IN A 


***t*tttttttt»t*t«****(****lt*(*tt«(«C*l((tt**tt •••*•••••••• 


0361 - U383 


INPUT ROUTINE 


0361 - u36' 


ZERO LAST )E« PRESSED AND CURSOR POSITION 


0368 - 03M 


CALL DOS EXIT AT 41AF 


o36b 


SAVE BC 


U36C - l>370 


bE I START OF BUFFER AND LENGTH 


0371 0373 


GE 1 I NF-U I 


03/4 


SAVE FLAGS 


375 - "J 3/8 


GET INPUT LENGTH AND END OF INPUT 


03/9 - u:-'h 


ZERO END OF INPUT 


o37b - oJBo 


GET BC AND Ht = STAR1 OF INPUT - 1 


".>381 


RETURN WITH LARRY IF bREAt MAS PUSHED 


0382 - ••■a:. 


CLEAR FLAGS AND RE i URN 


IIMIIltlllllllllllllilllllllllllllllllllllllllllllllMlllll 


0384 - c.i3bA 


KEYBOARD ROUTINE 


'.'384 - o38ft 


SCAN KEYBOARD 


0387 


CHECK FOR KEY PRESSED 


038B 


RETURN IF KEY PRESSED 


0389 OJBA 


LOOP TILL KEY PRESSED 


**(***(*(***<*«•**********************«******»**********«*** 


038B - 039B 


PRINTER ROUTINE 


o38B - U3Vb 


SET CARRIAGE POSITION Tu START OF LINE 


MMMMMUIIUIIMItMUIIIIIimtUltUinifltUIHIIIUI 


039C - OJC1 


PRINTER ROUTINE 


039C - 03C1 


FRINT CHARACTER IN A 


(•at******************************************************** 


03C2 - <.-3£2 


DRIVER ENTRY ROUTINE 


3C2 - '.■3C2 


JUMP TO t^l-KKOFhlATE LF-IVER ADDRESS 


***•*•****(*»******•****•***•*****■*••*•****•*(»■***•**••*•• 


03E3 - ■.•457 


►EYbOARD DRIVER 


03E3 - 0457 


SCANS KEYBOARD AND RE 1 URNS MllH BYTE 


•*•(*(*•*• t************* ****************************** («•*•* 


0458 - 058C 


VIDEO DRIVER 


0458 - 058C 


DISPLAY BYTE AND RETURN 


llllllllMtlllllllllllllllllllllllililiiiiillllililllllillil 


OS8D - OSD8 


PRINTER DRIVER 


OS8D - 05D8 


PRINT BYTE AND RETURN 


***••*•*•«•••****•*•*****«•*»•*»<*•********(********•»•***** 


05D9 - 0673 


INPUT ROUTINE 


03D9 - 0673 


INPUT INTO BUFFER 




•ON ENTRY HL = STAR! OF BUFFER 




B » BUFFER SIZE 




MILL EXIT WITH CARRY IF BREAK. PRESSED 


•St********************************************************* 


0674 - 06D1 


INITIALIZATION ROUTINE 


0674 - 06 7S. 


TURN OFF CASSETTE 


0676 - O68O 


SET UK RSTS. VIDEO. ► EYbOARD, AND PRINTER 




DEVICE CONTROL. BLOCKS IN RAM 


0681 - 0684 


SEND VALUE IU CASSETTE PORT 


>>685 - O68A 


ZERO RAM LOCATIONS 40 36 - 4062 


••oBB - 0692 


IF BREAK PRESSED JUMF 


0693 - 0695 


SET STACK TO 40D7 


0696 (<6">fc 


IF NUN DISK JUMP 


069F - 06A3 


SELECT DISK. O A5 CURRENT DRIVL 


_>6A4 - -I6CB 


LOAD DOS LOADER AND JUMF 


06CC - '.ifc D 1 


JUMF TO READY ROUTINE 


a****!*****************!************************************ 


"6D2 - 07O7 


ROn STORAGE LOCATION 


06D2 - II707 


RSI VECTORS AND DEVI lb LON 1 ROL BLOCK ARE 




S1URki> HERE 


•••a******************************************************** 


0708 0781 


SINGLE PRECISION .iDDllION ROUTINES 




Map continues 
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Scanned by Ira Goldklang - www.trs-80.com 



RUN BASIC PROGRAMS AT 




WITH ZBASIC 2.2. 

THE WORLDS FASTEST TRS-80 BASIC COMPILER from SIMUTEK 



BELIEVE IT OR NOT WE'VE ADDED MORE 
NEW FEATURES to the ONLY INTERACTIVE 
BASIC COMPILER for the TRS-80 1 

! Speed increases of 10- 100 times are typical after compilation 
2. Compiled code can be RELOCATED to run anywhere in memory 
Code is even ROMablel 

3 ZBASIC 2 2 NOW SUPPORTS BOTH RANDOM and 
SEQUENTIAL DISK I/O 

4 ZBASIC 2.2 is now a super tool for business programmers 
RANDOM ACCESS FILES, and PRINT USING statements are 
supported as well as a HIGH PRECISION MATH package (with 
no rounding problems). 

5. Special BUILT-IN MACHINE LANGUAGE COMMANDS to 
increase program operation by as much as 1000 timesl Special 
commands are implemented for fast memory searching (CPDR. 
CPIR). block memory moves |LDIR. LDDR). inputting and printing 
HEX numbers, inserting MACHINE LANGUAGE into COMPILED 
CODE, disabling and enabling interrupts, inverting memory. 1 6 bit 
PEEKs and POKES, and stack control, debug and much more. 

6. ZBASIC 2.2 compiles the ENTIRE PROGRAM into to Z-80 
machine language (Not 8080 code or a combination of BASIC and 
machine language like some other compilers ) Clumsy LINKING 
LOADERS, and RUNTIME MODULES are not needed. ZBASIC 2 2 
creates a ready to run MACHINE LANGUAGE program 

7 NO ROYALTIES imposed on registered ZBASIC owners 
8. Typical COMPILATION TIME is TWO SECONDS for a 
4K program 
9 Use TRS-80 Basic to write ZBASIC programsl 

1 0. Compile many existing programs with only minor changes 
|Some BASIC programming experience is required | 

1 1 . Fully compatible with both the Model I and the Model III Mod I 
compiled programs work on a MODEL III. and visa-versa ZBASIC 
works with NEWDOS-80. NEWDOS+ . DOSPLUS. LDOS. MULTIDOS. 
ULTRADOS. TRSDOS etc 

1 2. BUILT-IN and much improved MUSIC and SOUND EFFECTS 
commands 

1 3. Improved CHAINING for disk users 

1 4. TIME $ now available on DISK version. 

1 5. ZBASIC 2.2 now has an INPUT @ command (similar to PRINT @|. 

1 6. The TAB function will now tab 255 columns on a printer (BASIC 
cannot tab past column 64 ) 

1 7. NEWDOS 80 2 USERS can use the CMD dos command" 
functionl 

18 NEW and EASIER to use USR COMMANDS. 

1 9 New math functions to calculate XOR and INTEGER 
REMAINDERS 

20. Logical STRING COMPARISONS are now supported 

2 1 . The disk commands INSTR. MID S ASSIGNMENT are now 
supported on both DISK AND TAPE ZBASIC 

22 DEFSTR is now supported 

23. Eight disk files may be opened simultaneously; random. 

sequential or mixed. 

24 LINE INPUT*, is now supported 

25 Invoke the compiler by simply hitting these two keys: " 

26 NEW 100 • PAGE MANUAL WITH DESCRIPTIONS AND 
EXAMPLE. 

27. ZBASIC 2 2 Comes with CMDFILE/CMD program from 
MISOSYS, to allow appending or merging compiled programs and 
machine language programs from tape or disk 



:0MIN. 2 SEC. 

.-7MIN.34SEC. 

:0MIN. 18 SEC. 
: S95 BYTES 
: 2733 BYTES 



ZBASIC 2.2 DOES NOT SUPPORT THESE 
BASIC COMMANDS: 

1 ATN. EXP. COS, SIN. LOG. TAN. and exponentiation (However, 
subroutines are included in the manual for these functions.) 
2. ERROR. ON ERROR GOTO. ERL ERR RESUME 

3 No direct commands like AUTO. EDIT. LIST. LLIST ETC. although 
these commands may be used when writing programs 

4 Others NOT supported: CDBL. CINT. CSNG. DEFFN, FIX, FRE 
5. Normal CASSETTE I/O (ZBASIC supports it's own SPECIAL 
CASSETTE I/O statements.) 

6 SOME BASIC COMMANDS MAY DIFFER IN ZBASIC. For 
instance. END jumps to DOS READY, STOPjumps to BASIC 
READY etc 

7 MEMORY REQUIREMENTS: to approximate the largest BASIC 
program that can be compiled in your machine (at one time), enter 
BASIC and type PRINT (MEM-6500J/2 Remember, you can merge 
compiled programs together to fill memory 

ZBASIC 2.2 SPEED COMPARISON DEMO 

To help give you an idea how fast compiled programs are, we have 
included this demo program. 

ZBASIC 2.2 DEMO PROGRAM 

Time to compile and run complete program 

BASIC Execution speed MOD 1 . LEVEL II 

ZBASIC Execution speed MOD I . LEVEL II 

BASIC Program size (WITHOUT VARIABLES) 

ZBASIC Program size (WITHOUT VARIABLES) 
(Remember that the ZBASIC program includes an 1879 byte sub- 
routine package ) Program shown exactly as compiled and run in 
BASIC and ZBASIC 

10 » ■■■■■ — ■ ZBASIC 2.2 EXAMPLE PROGRAM AND TIME TEST—=-=» = 
20 CLS:CLEAR100:DEFINT A-X:DEFSTR Z:DIM AA<64, 24) , Z (301 i RANDOM 
30 AA-100:BB--1000!CC-3:OD«-3:EE— 9999:ST«-"START TIME •'♦TIME* 
40 FOR I=1T0127STEP2 :F0R J=47T01STEP-3: XX-POINT ( I, J) iSET ( I, J) 
30 XX-<I-J)/CC»<7*I*J> «XX-ABS<INT<RND<I«J)-AA>*7> iRESETU.J) 
60 XX»PEEK<I*J> : POKE 15360* I *J, J iOUT23S t J AND <3»J) iXX-INPU ) 
70 AB«-STR»<I*J> :BA»«LEFT«(AB»,2) :AA< I /2, J/2) "VOL <BA»> *AA«3 
80 BA«=BA«*RIGHT»<BA«, RND(3>> : XX" 1NSTR < 1 , BA«, "9" > : XX-SOR< I«J> 
90 BA»-MID«<BA«,2, 2) iMID« <BA», 1, 1 > =Z :IF XX THEN 100 ELSE CLS 
100 IF LEN<BAS>>3 OR SGN(XX)-1 AND ASC(BA«)-32 THEN PRINT"***-" t 
110 IFPOS(0>>62 THEN TRON: TROFF : PRINT ELSE XX-NOT (RND (99) ) ♦ 100 
120 A«=INKEY»iIF A««"V" OR A»-"y" AND 1)120 THEN PRINT"TRUE. . ■ 
130 RESTORE :READA, C, Z <J>,D: GOSUB 1701 GOSUB 1701 GOSUB 1701 G0T02 10 
140 NEXT :PRINT'«"; :NEXTI iCLSl PRINT»512, ST«, "STOP TIME ";TIME« 
1S0 STOP' —«—■•-••« END OF MAIN TEST LOOP ■ ' ——■ 

160 DATA 12345, -1, "TEST", -9999 
170 ON RND(6) SOTO 180,190,200,180,190,200 
19f RETURN 
190 RETURN 
£00 RETURN 

210 ON RND (9) GOSUB 180,190,200,180,190,200,180,190,200 
£20 GOTO 140 

NOTICE ZBASIC 2.0 OWNERS: you can upgrade your ZBASIC 2 for no charge 
Just send us your original diskette/cassette and a S A S E with your registered 
serial numDer and copy of your invoice We will send you ZBASIC 2 2 and 
updates to your manual. 
VISA, MASTFRCARD, AMFRICAN FXPRESS. COD ORDERS ONLY 

800 528-1 149 order line 

ZBASIC 2 2 DISK VERSION AND MANUAL 89 95 

ZBASIC 2 2 TAPE VERSION AND MANUAL 79 95 

ZBASIC 2 2 DISK & TAPE VERSION AND MANUAL 99 99 

MANUAL ONLY |APPUES TO PURCHASE | 25 00 

SIMUTEK COMPUTER PRODUCTS INC. 

TECHNICAL QUESTIONS PLEASE CALL (602) 323-9391 
4897 E. SPEEDWAY, TUCSON, ARIZONA 85712 ^ 12 

TRS-80 is tm of Radio Shack, a Tandy Corp 



■ See List ol Advertisers on Page <5J 
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JJlH. ( 



uk 



STOCK MARKET COMPUTER 
SOFTWARE 

Now available 34 programs 'rooi the ooo 

NEW USES FOR THE HOME COMPUTER IN THE STOCK MARKET 

The booK has won praise through the world and b as been pur- 
chased in over 40 countries 

The author has had 20 years expene n ce as a stock oroker and con- 
ducted eight years of computer research developing these 34 
programs Especially valuable to stock or commodity traders 

Available on disks or tapes for TRS-80 Model I Level II and 
Model III Pnce S49 95 

Also Ava.la&e 
Market Average Package Contains weekly pr ces gomg back over 
90 years. Also inc uded are b utility programs Price is S99 95. In- 
valuable for cycle research Send check to 
Thomas V Lenz, Dept M 
596 W. Karval Ct. - Spring Creek 
Elko. Nevada 89801 
(overseas USA Dollar lntematio n ai Money Orde f or a Draft 
payable on a U S A Ba°k) 

State whether you want disk or cassette ►* 144 



n»n«n»n«D»n 



LNW80 D,DDDD " 



D 



COMPUTERS 



n«D«n«n«n»a»n«n»a»n«n»n«n«D«n»n«D«n 




D»D«a«n«n«n»n»D»a«a«n»a«n»n»n»n«D«a 

• IN STOCK NOW!' call for special • 
□ prices on LNWSOs, NEC printers, □ 

• RGB color monitors, and TANDON • 



□ DISK SYSTEMS. 

• »•••« NEW LNW SOFTWARE! 

□ IT % 



***»* 



I 



7180 Woodrow Wilson Dr 
Los Angeles, CA 90068 



a 
□ 
a 

D 

a 



D 

a (213) 650-5754 - (714) 973-1939 □ 

•□•□•□•□•n»n«n«n«n«[>n«n»n«n«D»n»n» 
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Map continued 



".>7..<e - 070A 

07uB - 0701= 

O710 - 0712 

0713 - 071b 

07 I A - o/bl 



POINT K IO .S VALUE 

LOAD bcDE WITH value POINTED TO bv hi and JUMP 

l UAl) BCOE WIIH VALUE FOINlib I (J bY HL 
INVERTS THE VAl Ut IN REG1 • SUb TRAC I I ON 
ADOS THF VALUES IN bCDE TO REG1 AND RI TURNS 
If NO OV ERROR 

t**t**t*«t*«*t*t*«(**«****<«<**tt*t««»*t**tt«tt»«**tS«t***lt 

07B7- (.'7b6 OV ERROR ROU I I NE 



'.'."b.' 


0783 


1 ERROR CODE 


'J764 


■j/Bb 


Jllflf IU ERROR ROOIINE 


07B, 


- 07C2 


SYSTEM MATH ROD I I NE 


07C3 


»7D<. 


S»STEM MATH ROUTINE. 


07D7 


07F7 


SYSTFM MATH RlHIIINE 


07F8 


08< 'b 


SYSTEM MATH ROUTINE 


0809 


o846 


HI- HI ■ lOG(REGl) ROUTINE 


0847 


obvi 


REG1 ■ BCDE * REG1 


(••<••<«•«*<*(*••••*•>••*•(•<••«••$••>•••••••>(•*•*•>«<••••• 


0892 


i>896 


SYSTEM MATH R^MJTINE 


.■99 7 


■ '954 


Ml.l - BCDE . REG1 


.'9;,;, 


1 .9fo ". 


SYSTEM MATH RlHIIINE 


"9to4 


1)976 


SYSTEM MATH ROUTINE 


..V/7 


C.9B9 


REG1 « Abb i REG 1 > 


••>•••••»■•>» 


lllllMIIMIIIMUMtllllllHUtKMIItttlllltl 


\ 98A 


1 ■" : ' 


REfal bGN«R'LL>l . 



'..9^4 I'VflJ SYSIEM MATH ROUIINE 

1..9A4 <>9bO SINGLE FRECIblUN REG1 IO SIAl.h 

IIIIIIIIIIIIIIIIllllllllllMUItlllllllllllllllMIIIIIMtlll 

"9b 1 i..9b3 LlK.D VmLUE FOINIED IO bV HI INTO BCDE 



I « 1 1 



REG I ■ bCDE 



_>9bl" •>9LA LUhIj VALUE IN HCDE IO l_OC»<l iM' rOlNTED TO b» HL 

■ ■■■■IIIIIIIMIIIIIIIIIIIIIMIMIIIIIIIIIIIIIIIIIIIIIIII'III 
^•9Lb 09CD MOVE RLG1 IO (HLI SINOLf- ON • 



.'9(_I 



ivbl 



HOVf ' DE ) 



ru iH< 



.INGLE ONI 



09C? MOVI- (HI > TO (DE) FOR NTF PrIES 

09D3 09DS MOVE <DE) TO (HL) FOR NTF bYlES 

09D6 MIIVI .DE) ru (HL) FOR BVTEG 



0907 


•.■9DE 


MOVE (Dfc) TO (HL) FUR fc bYTES 


..>9DF 


L>9F3 


SYSTEM MA1H ROOIINE 


09f 4 


(JAOB 


System math routine 


OAOC 


0A2S 


SINGLE PRECISION COMPARE REG1 b<_D£ 


0A2A 


ua:.b 


SYSTEM MATH ROUIINE 


0A39 - OA48 INTEGER COMPARE HL - DE 
llllilllllMllllllIMIMMilllMIIIMIIIlllllllllUailllMll 

OA49 OA77 SYSIEM MATH ROUTINE 


0A7B 
0A7F 

C>AA '. 


OA7E 
i>AA? 

0AB0 


DOUbtE PRECISION COMPARE REG*' REG1 
C I NT I REG 11 ROUTINE 
SYSTEM MATH ROUI INE 


OABI 


OAOA 


CSNG(REGl) ROUTINE 


OAOB 


•.'AF3 


CDbltREGl. ROUTINE 


1 IA1 4 


0B1E 


SYSTEM MATH ROUIINE 



OblF OB25 SYSTEM MATH ROUTINE 

nttltltlltltllUlllltUlltMIUItMUIUUUIIIUtUltlllll 

Obi'6 - OB3& FlX(REGl) RUUIINE 

UUtWNUIiUUIUIMIUIMnHIMNUMWIIMNHMIimi 

0837 0B5& INT.REG1' ROUIINE 



".»bS9 


089f 


SYSIEM MATH ROUTINE 








■ ■bAu 

OBAA 


i.'BA9 

ubCA 


SYSIEM MATH RlHIIINE 
SYSIEM MATH ROUTINE 








"bC : 


ubDl 


I N I L GE R SUb I RAC T I UN 


HL 


1)1 


HL 



L>bD.' "bri INIfGEK ADD! I I UN HI - DE ♦ HL 

•**«•«(•»«*»•*•>*•«*****•**•*•**•********•*(■<•**«*•»•*•*•*• 

nbl .' '."C^.'i IN TIGER MULT IF L I CA I ION HL ^ DE « HL 

iiC^b OC6F bYblEM MATH ROUIINE 



■ C/o 


OC 7o 


DCAJbLE PRECISION bUbTRACTION REG1 = REG1 RS82 


• ■L // 


ooj: 


DCHIbl E PRECISION ADDITION Rll.l = REG1 • REU. 


l»o:.:. 


0044 


SYSTEM MATH RIUH IMF 

Map continues 



What Does 



micro 




thm mi gg lint lot TRS-SO' us.rs 



Do For You? 




IT 



• provides you with more information on your TRS-80* than any other single source 

• gives you 20-30 programs in each issue 

• reviews equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80 — its good points and its limitations (80 Micro is 
not affiliated with Tandy) 

• lets you save money— lots of it— by comparison shopping within the ad pages 

• clues you in on how other TRS-80 owners are using and updating their systems 

• tells you what's really happening in the industry 

• brings you Wayne Green's outspoken and often controversial editorials every month 

• and best of all it gives you a no risk subscription offer— 



Subscribe loda> — if you aie not satisfied »ith the first issue— write "cancel" across sour invoice and send it back The SO Mum is sours 10 keep 



YES ... I WANT 80 MICRO 



I Check enclosed for $24.97 
Bill my □ AE □ MC □ VISA □ Bill me 
Name 




■*ftfci \ 



KTQ 



Address 
City _ 



.State, 



Zip 



L 



Card# 

Signature 



.Expire Date 



.Interbank^, 



32DR8 



Canada and Mexico $27.97. one year only. US funds Foreign $44.97. one year only. US funds. DRAWN ON US BANK ONLY 



80 Micro • PO Box 981 • Farmingdale, N.Y. 11737 
*TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. 
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TRS 80™ Model I & III 
External Mini Disk Drives 





Single Chassis w/Power Supply: 

Fully assembled silver chassis with external card edge connector for easy 
cable installation. Chassis includes power supply & one Tandon drive. 



• TM100-1 w/chassls 

• TM 100-2 w/chassls 

• TM 100-4 w/chassls 



$249 
$329 
$399 



Tandon Bare Drives: 

• TM100-1 $199 

57»", single sided. 40 TRK, 48 TPI. Capable of single or 
double density 

• TM100-2 $279 

5'/«". double sided. 40 TRK. 48 TPI Capable of single or 
double density 

• TM100-4 $359 

5'/«". double sided. 80 TRK. 96 TPI Capable of single or 
double density 



FREE SHIPPING 

ORDER NOW - TOLL FREE 

1-800-531-5475 

(512) 250-1523 In Texas 

"If we can't ship the next working day, 
we won't take the order." 



COmpuAdd COrp. Visa. MasterCard. Money Order 

13010 Research Blvd. ° r c f s T hier ' s 5 he H ck - * dd 5% Mles 
Suite 218 

A . . _ ______ TRS 80 is a Trademark of 

AUStm, Texas 78750 Tandy Corp. 



All hardware has a J 20 Day Limited Warranty. 



• 252 



Map continued 


OD45 - 


OD56 SYSTEM MATH ROUTINE 






•.'D37 - 


0D68 SYSTEM MATH ROUTINE 






0D69 - 


ODAO SYSTEM MATH ROUTINE 






0DA1 - 


ODE 4 DOUBLE PRECISION MULT 1 PL I CAT I OK 
REQ1 - REG1 t REG2 






ODES - 


OE4C DOUBLE PRECISION DIVISION 
REG1 - REG1 / REGI 






0E4D - 


OE64 SYSTEM MATH ROUTINE 






OE65 - 


vE6b CONVERT ASCII STRING TO DOUBLE 
•ON ENTRY HL POIN1S TO STRING 


PRECISION 




uE6C - 


0F09 CONVERT ASCII STRING TO M1NUNLM" 
•ON ENTRY HL POINTS TO STRING 


REQUIRED 




OFOA - 


OF 26 SYSTEM MATH ROUTINE 






0F29 - 


0F93 SYSTEM MATH ROUTINE 






KIMIIItlllllllltlltllllltltMIIIIIIIIIIIIIIIIIIIIIMIIIUI 


0F94 - 


OFBC SYSTEM MATH ROUTINE 






OFBD - 


1033 CONVERT REG1 TO ASCII STRING 
•ON EXIT HL POINTS TO STRING 






1034 - 


13E6 VARIOUS SYSTEM ROUTINES 






13E7 - 


143S SOR(REGl) ROUTINE 






1439 - 


14C8 EXP(REGl) ROUTINE 






14C9 - 


1S40 RND(REGl) ROUTINE 






1541 - 


1546 COS ( REG 1) ROUTINE 






1S47 - 


I58A SIN(REGl) ROUTINE 






158B - 


15A7 SYSTEM MATH ROUTINE 






13AB - 


15BC TAN(REGl) ROUTINE 






13BD - 


15E2 ATN<REG1) ROUTINE 






15E3 - 


1607 SYSTEM MATH ROUTINE 


LISTS, 




160B - 


1BF6 CONTAINS BASIC COMMAND ADDRESS 




THE RESERVED WORD LIST, PRECEDENCE OPERATOR 




VALUES, ARITHMETIC ROUTINES LIST, DATA 






CONVERSION ROUTINES LI8T, AND ERROR MESSAGE 




LIST 






RESERVED WORD LI8T1 






AM 


D9 0977 BOSUB 91 1EB1 


READ BB 


21EF 


AND 


D2 2SFD GOTO BD 1EC2 


REM 93 


1F07 


ABC 


F6 2AOF IF BF 2039 


RESET 82 


0138 


ATN 


E4 1SBD INKEY* C9 019D 


RESTORE 90 


1D91 


AUTO 


B7 2008 INP DB 2AEF 


RESUME 9F 


1FAF 


COM. 


Fl OADB INPUT 89 219A 


RETURN 92 


1EDE 


CMM 


F7 2A1F INSTR CS 419D 


RIGHT* F9 


2A91 


CINT 


EF OA7F INT DG 0B37 


RND DE 


14C9 


CLEAR 


B8 1E7A KILL AA 4191 


RBET AC 


419A 


CLOAD 


B9 2C1F LEFT* FB 2A61 


RUN BE 


1EA3 


CLOSE 


A6 4183 LEN F3 2A03 


SAVE AD 


41AO 


CLS 


84 01C9 LET BC 1F21 


SET 83 


0135 


CM) 


83 4173 LINE 9C 41A3 


SGN 07 


09BA 


CONT 


B3 IDE4 LIST B4 2B2E 


BIN E2 


1547 


COS 


El 1541 LLIST B5 2B29 


SOR CD 


13E7 


CSAVE 


BA 2BF5 LOAD A7 4188 


STEP CC 


2B01 


CSNO 


FO OAB1 LOG EA 4164 


STOP 94 


1DA9 


CVD 


E8 41SE LOF EB 4167 


BTR* F4 


2836 


CVI 


E6 4132 LOB DF 0BO9 


STRING* C4 


2A2F 


CVS 


E7 4158 LPRINT AF 2067 


SYSTEM AE 


02B2 


DATA 


88 1F05 LSET AB 4197 


TAB I BC 


2137 


DEF 


DD 41 SB MEM C8 27C9 


TAN E3 


1SA8 


DEFDBL 


9B 1E09 MERGE A8 418B 


THEN CA 




DEF I NT 


99 1E03 MID* FA 2A9A 


TIME* C7 


4176 


DEF SMC 


9A 1E06 MKD* EE 4170 


TO BD 




DEFSTR 


98 1EOO MKI* EC 416A 


TROFF 97 


1DF8 


DELETE 


B6 28C6 MKS* ED 4160 


TRON 96 


1DF7 


DIN 


8A 2608 NAME A9 418E 


USING BF 


2CBD 


EDIT 


9D 2E60 NEW BB 1B49 


USR CI 


27FE 


ELSE 


95 1F07 NEXT 87 22B6 


VAL FF 


2ACS 


END 


BO 1DAE NOT CB 2SC4 


VARPTR CO 


24EB 


EOF 


E9 4161 ON Al 1FC6 


♦ CD 


24VF 


ERL 


C2 24DD OPEN A2 4179 


CE 


2S32 


ERR 


C3 24CF OR D3 2SF7 


t CF 




ERROR 


9E 1FF4 OUT AO 2AFB 


/ DO 




EXP 


EO 1439 PEEK E5 2CAA 


01 




FIELD 


A3 417C POINT C6 0132 


> D4 




FIX 


F2 0B26 POKE Bl 2CB1 


■ BS 




FN 


BE 4153 POS DC 27F5 


< D6 




FOR 


81 1CA1 PRINT B2 206F 


«< 24 


4194 


FRE 


DA 27D4 PUT AS 4182 


' 3A 93 FB 




OCT 


A4 4174 RANDOM 86 01D3 






1BF7 - 


1904 DIVISION SUPPORT ROUTINE 






1905 - 


191C BASIC VARIABLES ROM STORABE LOCATION 




191D - 


1923 'ERROR' MESSAGE 






tt*M*«*l**MMttt«t*Mtt*t **l* »«*»**>! •*»*(**«* »»»«>»•»«>*» 
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Map continued 



1924 - 


1929 


' IN ' 


MtSBAGE 


1929 - 


192F 


'REAOV 


MESSAGE 


19JO - 


1933 


'BREAK 


MESSAGE 


193* - 


1954 


LOCATE 


FOR NEXT FRAME ON STACK ROUTINE 


1933 - 


19*2 


MEMORY 


MANAGEMENT ROUTINE 


19*3 - 


197D 


MEMORY 


MANAGEMENT ROUTINE 



197E 
198* 
19BA 
198E 
1991 
1997 
199A 
1990 
19AO 
19A2 
19AB 
19AE 
19B1 
19B4 
I9B3 
19BA 
19C0 
19C1 
19C9 
19CC 
19CD 
19DO 
19DB 
19DE 
19E3 
19E3 
19E* 
19E9 
19EC 
19EF 
19F0 
19F3 
19F* 
19FE 
1A02 
1AO* 
1A09 
1AOA 
1A11 
1A18 
1A19 
1A1C 
1A1F 
IA22 
1A23 
1A2B 
1A33 
1A3* 
1A3D 
1A3F 
1A42 
1A43 
1A46 
1A4B 
1AS4 



1983 
1989 
198D 
1990 
199* 
1999 
199C 
199F 
19A1 
19AA 
19 AD 
1980 
19B3 

19B9 



19CS 
19CB 

19CF 
19DA 
19DD 
I9E2 
19E4 

19ES 
19EB 
19EE 

19F4 

19FD 
lAOl 
1AOS 
1AOS 

1A10 
1A17 

1A1B 
1A1E 
1A21 
1A24 
1A2A 
IA32 
1A33 
1A3C 
1A3E 
1A41 

1A43 
1A4A 
1AS3 
IAS* 



IF STILL IN INPUT PHASE THEN JUMP 
CHECK RESUME 

IF NR ERROR THEN JUMP 

JUMP TO REAOV ROUTINE 

SAVE LINE NUMBER FOR LAST DATA STATEMENT 

ENTRY POINT FOR SN ERROR 

ENTRY POINT FOR /O ERROR 

ENTRY POINT FOR NF ERROR 

ENTRY POINT FOR RW ERROR 

SAVE LINE NUMBER WITH ERROR TWICE 

BET RETURN ADDRESS AFTER REINITIALIZTION 

BET STACK ADDRESS 

JUMP TO REINITIALIZE VARIABLES 

ZERO BC 

PUT ERROR NUMBER IN A AND C ALSO SAVE IT 

SAVE LAST BYTE EXECUTED ADDRESS 

PUT IT IN DE 

IF STILL IN INPUT PHASE THEN JUMP 
SAVE ERROR ADDRESS 
SET LAST BYTE EXECUTED ADDRESS 
SAVE IT 

IF ON ERROR SET THEN JUMP 

IF NESTED RESUME THEN JUMP 

JUMP TO EXECUTION DRIVER FOR RESUME 

ZERO ERROR OVER IDE FLAG 

BET ERROR CODE 

GOTO NEXT LINE ON VIDEO 

POINT TO ERROR CODE TABLE 

CALL DOS EXIT AT 41A* 

ZERO 

DISPLAY ? 

ADJUST ERROR CODE POINTER 

DISPLAY ERROR CODE 

POINT TO 'ERROR' MESSAGE 

SAVE LINE NUMBER WITH ERROR 

DISPLAY 'ERROR' MESSAGE 

BET LINE NUMBER WITH ERROR 

IF INPUT PIIABC THEN JUMP 

IF LINE NUMBER HON ZERO THEN DISPLAY 

GET BC 

BET CURRENT OUTPUT DEVICE TO VIDEO 

CALL DOB EXIT AT 41AC 

TURN OFF CASSETTE 

GOTO NEXT LINE ON VIDEO 

DISPLAY 'READY' MESSAGE 

IF SN ERROR JUMP TO EDIT MODE 

GET CURRENT LINE NUMBER 

TEST FOR AUTO MODE 

IF NUN AUTO THEN JUMP 

GET CURRENT LINE NUMBER 

SAVE IT 

OUTPUT CURRENT LINE NUMBER 

SEARCH BASIC PROGRAM FOR CURRENT LINE NUMBER 

IF MATCH FOUND DISPLAY ■ ELSE DISPLAY SPACE 

GET INPUT 



1AS7 




BET CURRENT LINE NUMBER 


1A3B - 


1A39 


IF BREAK PRESSED THEN JUMP 


1A3A - 


1ASD 


TURN OFF AUTO MODE 


1A3E - 


1ASF 


IF NUN AUTO THEN JUMP 


1A*0 - 


1A73 


FIGURE NEXT LINE NUMBER AND JUMP 


1A7* - 


1A7A 


DISPLAY > 


1A7B - 


1A7D 


GET INPUT 


1A7E - 


1ASO 


IF BREAK PRESSED THEN JUMP 


1A81 - 


1A83 


GET 1ST CHARACTER AND TEST FOFi END OF STATLMENT 


1AB4 - 


1AG* 


IF END THEN JUMP 


1A87 




SAVE LINE NUMBER 


1A88 - 


1A97 


POINT TO 1ST CHARACTER AFTER LINE NUMBER 


1A98 




SAVE LINE NUMBER 


1A99 - 


1A9B 


ENCODE INPUT INTO TOKENS 


1A9C 




SET LINE NUMBER 


1A9D 




GET FLAGS 


1A9E - 


lftw 


SAVE ENCODED STATEMENT POINTER 


1AA1 - 


1AA3 


CAL- DOS EXIT AT 41B2 


1AA4 - 


1AA6 


IF INPUT PHASE THEN JUMP 


1AA7 




SAVE LINE NUMBER 


1AA8 




SAVE LINE LENGTH 


1AA9 




ZERO A 


1AAA - 


1MAL 


SET FLAG TO INPUT PHASE 


1AAD - 


1AAF 


SET 1ST CHARACTER. SET FLAGS. AND SAVE BOTH 


1AB0 




GET LINE NUMBER 


1AB1 - 


1AB3 


SAVE IT 


1A84 




GET LINE NUMBER 


1AB3 - 


1AB7 


SEARCH FOR MATCHING LINE NUMBER IN PROGRAM 


lAfeS 




SAVE MATCHING ADDRESS 


1AB9 - 


IABB 


SHIFT CLOSET LINE IF NO MATCH TO nAKE ROOM 


1ABC 




SET LINE ADDRESS 


1ABD 




GET FLAGS 


1ABE 




SAVE LINE ADDRESS 


1ABF - 


1ACO 


IF MATCHING LINE NUMBER JUMP 


1AC1 




GET LINE ADDRESS 


1ACZ - 


1AC4 


GET END OF BASIC PROGRAM 


1AC3 - 


1AC7 


FIGURE NEW END OF BASIC PROGRAM 


1AC8 




SAVE IT 


1AC9 - 


1ACB 


TEST OUT OF MEMORY 


1ACC 




GET ENO OF BASIC PROGRAM 


1ACD - 


1ACF 


BET OLD END OF BASIL PROGRAM 


1ADO 




GET LINE ADDRESS 


1AD1 - 


1AE8 


MOVE THE NEW LINE INTO MEMORY 


1AE9 - 


1AEB 


ADJUST ALL THE LINE POINTERS 


1AEC - 


1AEE 


CALL DOS EXIT AT 41BS 


1AEF - 


1AF1 


UPDATE POINTERS AND VARIABLES 


1AF2 - 


1AF4 


CALL DOS EXIT AT 41B8 


1AFS - 


1AF7 


GO GET NEW INPUT 


1AFB - 


1B0F 


UPDATE LINE POINTERS ROUTINE 


1B10 - 


1B2B 


LINE NUMBER ROUTINE 


1B2C - 


1B4S 


SEARCH FOR HATCHING LINE NUMBER ROUTINE 


1B49 - 


1B3C 


NEW ROUTINE 


1B49 




RETURN IF SN ERROR 


1B4A - 


1B4C 


CLEAR SCREEN 


1B4D - 


1B4F 


GET START OF BASIC PROGRAM 


1BSO - 


1B32 


TROFF 


1B33 - 


1BS3 


AUTO OFF 


IBS* - 


1838 


ZERO 1ST TWO BYTES OF BASIC PROGRAM 


1BS9 




POINT TO START OF VARIABLE TABLE 


1BSA - 


1B5C 


SAVE IT 



M*p continues 




Buy one of our computers at our usual discounted 
price and get the new Timex-Slnclair Computer Free. 



LNW Research *«* M 

Modem $2499 

TRS-DOS & CP M Cmpatible— Green 
Phosphor Monitor — Two 40 Trk. 
Drives— 96K— 4 Mhz. Speed— Hi Res & 
Color Graphics— RGB Interface- 
Fan — 6 Month Warranty 



Custom Radio Shack 

Modem, $1899 

—Dual 40 Trk. Drives— 48K RAM— 180 

Day Warranty 

Options: CP M— 64K RAM 



Other Drive Configurations Available 



Sanyo MBC-1000 $1899 

"Affordable High Performance 

Computer" 

40 Trk. Double Sided Disk Drive— 64K 

— 4Mhz Speed— CP'M— Basic 

Language — Detachable Keyboard 



Software: MicroPro • Microsoft • AshtorvTate • Sorclm • UfeBoat 
Printers: Epson • Okidata • C. Itoh • Smith Corona • Comrex 
Specialty Items: LNW Expansion Interface & Doubters Disk Drives 
• TRS-80 Mod III Drive Kits • Printer & Drive Cables 



Timex-Sinclair $89.95 

Atari 400. Atari 800 $Call 

Lobo Max 80 Scall 



Freedom Technology Int'l 

CP/M Conversion Boards for TRS-80 

Freedom Option ... $199 • Freedom 

Plus (adds 16K)...S399 



Visa. Mastercard. Personal 
checks accepted This is a 
limited time offer 



MCKIDIAN 



• 607 



T'aoe^a^s tas-DOS TRS-80 Raa'O SnacK-Tanoy c<yp CP v-0-git* Research Corp 



119 N. 18th Street Phila., RA 19103 
(215)-569-2420 



• St* till of A&fliwi on Pagt 45 1 
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Map continued 



**t»*t*»(*tt***t**tt<t****(**lt**t****t(**(t*tt 

KcUN ROUTINE 

GET START UF BAB 1 C PROGRAM 

il, Eiy 1 
SAVE I T 
>E I ALL ./ARlABLtb TO .lNl.ll -Kb . ISlUN 
.ihj A 

»£ 1 NU ERROR FOR RfcSUMt 
ZERO HL 

ZERO BASH 'UlNlbhb 
RE 3 I LIKE DA ■ A 

INIIIALIil ...KiHHlt i I I M ; I K 

LALL DOS EXIT A I 4 1 bl' 
GE I RETURN ADDRESS 
BE1 b l ar r uk , f • l mi - _>f AC6 
Eat i fa! ALF POINT th 

INITIALIZE lITERAL bIRlNb POOi. 

SET OUTF-ur DEVICE U> UUHI AND 1 URN Lb.faSEIll 
UFt 

ZERU A 
ZERO HL 

CLEAR (-OR FLAB 
3IL.NAL RON NODE 
oEI RETURN ADOREES 
faAVE ENiUL'tU SlAlLMtNi ulNltP- 
RE I URN 
■ IIIIIMIIIilllllll MlilH IMIIIIIIIIIIII mm 
INPUT Ruill 1 Nl 



i Bb : l bb / I I 81 Lm . 

1RB8 - 1BBL DlfaPLAi fal-ALE 

IbEiD IBM JUM1 tO INFUI Ruil'lM 

• in t a 4 > iiiiiitiiiiiiiiiiiuiiiiiii « i • . > « 

lbc ii.ii IJIbNiTF STAIEr-lt.Ni FtKIIME 



■llllllllllll 


165D 


I tit.. 


1B5D 


IBM 


IB60 




iBaVl 


iba; 


1B64 - 


IboO 


IMS 




ie<rf - 


IB/I 


1B72 - 


IB73 


ib/4 


1D/F 


IBBO 


Ibbi 


IB83 


1 BUB 


1B8C - 


lbUE 


1R8F 




lB9l> 


lbV4 


IWj - 


1BVA 


1BVB 


ibVI 


IbAI 


. L'lK, 


1BA7 




iRAti 


1BAV 


IBAA 


1BAL 


1BAD 




IbAE 




1BAF 


1 BB 1 


IBB2 




iiiiiiiiiiiii 


1663 - 


1BBF 



llllllllllll 



'Ldi 



It 9V, 



1L«*.. - |C9I 


H D 


IC9. 


Rfc UiRl. I. Mul 


JC93 - laVM 


I c 


JL-VS 


mE IuRU 


iiiiiiiiiiii 


lllllllllllltlll 


lL-Jf. it. A. 


Rbl '-•fa LUDE 



oEi VnLUE in COMPARE 

POINT TO ...i... I ''. LUHPARE AND SAVE RETURN 

ADDRESS 

COMPARE THE VAL.'LS 

ADJUS1 RE TURN ...il ..i bb AND .->AVE I I 

iF NU SN ERROR THEN Rb I 1" 

jump Tii bN ERROR RQU'INB 
i iiiiiiiiiiiiiiiiiiiii a*a iiiiiitiittti tiiititiii 

FuR ROUTINE 
III! Ill llllllllllllllllll lllllllllll llllllllllll 

BAfalc INIthPtRlth 

LblECF FUR SHIF T 3 

lb SHIFT j i HEN LALl ROUTINE 

SAVE ENLUDED S1A1EMEN1 FUINIfb 

GE I NfeXl CHARACTER 

[f run I I bib slAILMENI JUMF 

LHELI F OR 3N ERROR 

IF I Hi; N i UMF ■ U SN t RRuR RUU T i NE 

LMfcO FUR END OF bAbll FROGRAM 

IF THEN JUMP lu READ> ROUIINE 

SAVE LINE NUMbER 

IF iRUrF (HEN JUMI 

SAVE DE 

UlfaFlur 

LUNVERT LINE NUMBER mND DlaFI-At il 

DISPLAY 

GET DE 

SEI ENCODED STATEMENT. PUlNISR 

GI I Nl ii CHmRAl I E K 

at. . Rt.TuRN ADDRESe 

It END OF blAitMENI R[ I URN 

I.HI I 1 FOR IUI IN 

If NOl I HEN JUMF 

F lliLIRF. JUMF 
bHVl . T 

isE r ENCcrrt : .i..u mi m fdIimiek 

|*l****»(*tta||att|tt|lllll*l llllllll lllllllllll 

RET 10 LUDE 

INC ENCODED SIAIEMLH' POINTER By ; 

IF ALFHA RETURN 

IF SPACE THEN LOOF 

SET FLAGS FUR OTHER LMARAt ERE 

RETURN 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
1D91 - 1D9A RESTORE ROUTINE 

illllllllllllllllliuilllllllllllilllllllllililliilllilillli 
1D9B - IDAS fE /BOARD ROUTINE 



1C9B 


IC 'D 


IC'L 


II. All 


llllllllllll 


ICA] 


ID1D 


•lllllllllll 


IDlfc 


10/7 


ID. t - 


ID. 1 


ID..* 


1D24 


lD2i» 


I D. - 


. D-B 


ID.'L 


ID.D 


. U !-• 


ID3I 




ID'.. 


\J « 


ID -V. - 


id:u 


ID ••* 


ID b 


id:-c - 


i D4 ;. 


IB-44 


ID4V 


1D4A 




IL4f 


ID-tt 


.ti>' 


IDS. 


1 Dfc :■ 


IDV.. 


10V>fa 




IDt.* 




1DSA 




10SB 


ID3I 


id;.» 




1 IK,.. 


ID6I 


1 Ul^ - 


DR1 


i D6S 


ID.". 


ID/6 




in;; 




• IIIIIIIIIK 


1D78 - 


1 DVi • 


ID/8 




111/S 


ID >i 


1D7D 


1D81 


1D82 - 


1DHF 


lDVij 





1 D9B - 1 D9D 

ID9E - lD9r 

1 DAO - 1 DA4 

1DA5 - 1DA7 
1DA8 



SCAN REV BOARD 

IF NO RE> PRESSED RE I URN 

IF SHIFT i WAIT I ILL It* PRESSED 

SAVE I EV 

ADJUST KEY 



llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
1DA9 - 1DAD STOP ROUTINE 

•lllltllltllllllllltlllltlllltlllllllllltllllllllltllltlllll 
1DAE - IDt ' END ROUTINE 

llllllllllllllltltltlttllttlllllllllllllllllllllllllllllllll 
1DE4 - 1 DF & CONT ROUTINE 

tiitKiiiiiiiiiaiiiiitttaiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiiit 

IDF 7 - 1DFF TRON ROUTINE 

«tt«t*lttttltltltl«»l«»!!lltlttltl*l »»••»*»»»»»»»»»•**»«*»«• 
1DF8 - 1DFF TROFF ROUTINE 

■ MlllllllllltllMllllllllllllllKII'IMIIIIMKIIIIMIIIIM 



1E0O - 1E3C DEFSTR ROUTINE 

tiitiiiiiiiiittiiaiiiliiiiiiitiiiiiiiiiiiiliiiiiiiiiiiiiiiii 

1E03 - IEjC DEFINI ROU1INE 
•tlllllllltllllllllllllllalllllllltllllllllllllllllllltltlll 

lEOfc - 1E3C DEFSNG ROUTINE 

• iiiiiitiiiiiiitiiiiiiiiiiiiiitiiiiiiiiiitiKiiiiixaiiiinii 

1E09 - ie:.c DEFDBL ROUTINE 

•llltlllllllllllllltllltllllltlttllllllllllllllllllllKillal 
1E3D - IE44 SYSTEM ROUTINE 

•illiliiiiiiiiiitiiliiilliiilililiiiaaiaaaiiiiaiaaililiaaaai 
iE4v. - ie4d system routine 
•tiiitliiilillaaiiiiiiiiiaitliiliaaiaiaaaiiiitaiiiliKitaiaa 

IE4F 1E/V ASCII 10 cINhF. R0U11M 

<* till iiiiiainiia ittiii iiimiimiiiiiiiiiiiiiini maaaaa 

1E7A - 1EAI LLE.tR ROU11NE 

llaltllltliail llllllllllllillillllllllllllllilliiMllill t**« 

IE A3 - lEErn RUN ROUTINE 

ittiaaiaiiiiiiiitiaiiaaiaaiiaiiiaiaiaiiiaaaaaaiaaiiiiaaiiiia 

1EB1 - 1EC1 (iOSUb ROUIINE 

lailtliailllalillaitl itiiiiiiiiiiiitiiiiillaiiiiltlillliilll 

1EC2 1EDD bOTO ROUTINE 

lllllllllllltlll lllllltllltlltlllltllltll UI1IIHIII1IIIIIII 

lEDE lFy4 RETURN ROUTINE 

llllllltMIIIIIIMIIIIIiailll'IIIIIIMIIIIIIIIIIIIIllltlllll 

IFvS - IF IF DAT.. ROUTINE 

l!lt*tlll<a!*ltl**l«l<l»**!**llll*l*lltlll!l!*lll*!t*l*»'»»« 

lr^l - IFeB LET ROUIINE 

litiiitll«a.iial«*«*i*!t*«*ti*it*»t*»**!llilili*itl*i*l«***i 

IF6C - 1FAE ON ROUTINE 

• ti tiliitilallaaiatitiit nil till tt!tlililiiil*ttt(*t*******« 

1FAF - IFF S KE^LiME ROUT II4E 

lllllllllllllllllllllll III II II Ulllllllllllllllllllllllllltl 

IFF4 - .><"> ' chROR ROLI1NE 

nun iiiiiiiiiiiiiiiiiiMi4iiiiiiiitiiiiiiiiiiiiiiiiiMi>ii 

_<-".'8 - -'.■."8 .tUTu ROU1 If«i 

lliiiaiiliiiilililllilltailaliatlaitillllliiliiitKlillllli* 

1039 - lOos IT RtmllNE 

iiiliilliiiiiiliiillltaliilllMiii iiliiiilliuiiillHlllilll 

;.<o7 ZOot: lFRINI ROUIINE 

■ lUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII'IMIIIIIIIIIIIIIIII 

ZOoF - • lob PR INI ROUIINE 

iiiiiiiiiiiiii iiiiiiiiiiiiiiiiiiiiiiiiiiuiiiitiiiaiiKKiii 

21o9 211 SET UUIFUT DEVICE TO v'IDtU ROUTINE 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiialMaiitiiuiaiiliii 

Z17S . 1 ."l REDO' MESSAGE 

llllllll II II III llllllll IIIIIIIIIIIIIMIIIIIIIIIIIMIISI'llll 

^1/F - Z'199 REDO ROUTINE 

•llllllll aiaaiaiiiiitiiitlltliiiililllllltiltlililllltlltlll 

21VR - 21tt INPUT ROUTINE 

lllllllllllMIIMIIIMIIIIIIIIIItillMIIIIIMIIIIIIIIIIIIIII 
^1EF 2285 READ RCXJTINE 

i*i*i •••iiiiiiiik •tiiiiiatiitiitiiiiitiitiiiiittiiiiiiiiKi 

22Bfa - T29Vi EX IRA IGNORED - MESSAGE 

llllllllllllllllll I***************************************** 

2296 - 22BS data routine 

ili***a*liliilil***lll******************t***»*************** 

22Bb - 2323 NEXT ROUTINE 

•••••tillaaaaiatltata*titllt*ttlt*lt*tttMI*tl*«l***ltil<*t« 

Z~r4 - ; 7CH EXPRESSION EVALUATION ROUTINES 

llllllltllllllllllllllllllllllllllllllllllllllllllllllllllll 

27C9 - 2703 MEM ROUTINE 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
_/D« - 27F4 (RE ROUTINE 

llalllilllllllllliltlllllllllllllllllllllllllllllllMIIIIIII 
^/re. ^7FD FQS ROUTINE 

•••<ll»*l*t*lllt*ll*l*l**********l*******(******(****S****tl 
./It - 28 1« USR ROUTINE 
iiiliiiiiiiiiiiitilliiiliiiliililliiiiiiiiiiiiiiiliiilimu 

2319 - 2AZL EnFRESSION EVALUATION RuUllNEj 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

2A2F - 2Ao-i STRiNb* ROUIINE 

*****l*lltllllial«lllllt»**(***iatllll*llltlllllllll«t****** 

2Aol - 2A9U Iti rt ROUTINE 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

^A91 - -A79 RIGHI* ROUTINE 

■■lllllllll-llllllllllllllltllllllllllllllllllllllllllllllll 

2A9A - 2AC4 MID» ROUTINE 

*****l«*****(**»«***(*******ll***l***((»ll**l*************»l 

2AC5 - 2ADE VAL ROUTINE 

******* ****** * lllllllllllllllllllllllll iiiiiiiiiiiiiiiiiiiii 

2ADF - 2AE6 5YNTAX CHECF. FDUT1NE 

******** «t*t»*»****((**t*************l*lll*l«**t****** **«**• 

2AE7 - 2AEE DISF BASIC ROUTINE 

******** ******* *t*i*****tt*******»***t* •••••• iiiiiiainiiiia 

2AEF - 2AFA INP ROUTINE 

************************************************** iiimiaii 
2AFB - 2B0O OUT ROUTINE 

****t(*t*t*t**t*t*t*»*******t*(«***(***t****«t***t(***(*ll*l 
2B01 - 2B28 EVALUATE EXPRESSION ROUTINES 

**t****«************(***********************(***l***l******* 
2B29 - 2B2D LL1S1 ROUTINE 

I************************************************!*********! 
2B2E - 2B74 LIST ROUTINE 

******•**(******•******************************************* 
2B75 - 2B7D OUTPUT ROUTINE 

•OUTPUT MESSAGE POINTED IU BY HL UNI IL o 

IS FOUND 
**t****((****t*******t***t**llllll****ll*(******(l**(*((»**l 
2B7E - 2BCS DECODE ENCODED STATEMENT ROUTINE 

t**(**l****l*****llt**(**«****llllll**ltllllll****«*****(**l 
2BC& - 2BF4 DELE IE ROUTINE 

«*(******(*(*llllllllll**t*****llll**lll*»lllllllttllllltlll 
2BF5 - 2C1E CSAVE ROUTINE 

*((***t********llltllllllt****tlllltltlllltitll*llllllllilll 
2C1F - 2CA4 CLOAD ROUTINE 

(ttt*(*(*****tlltltl*(t*****lttlllllllllllllllllllltlltllll* 
2CA5 - 2CA9 • BAD ' MESSAGE 

(•t***«|»***l*llt»*t**«*l((**(lllltlllltlltlllltltlltllt*lll 
2CAA - 2CB0 PEEK ROUTINE 

******** ****»******»******************(**********•********** 

Map continues 
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The LAZY WRITER 

word processing system 
by David Welsh 



Seav 




LAZY WRITER Model I & III-S175.00 

NEW EXTENSIONS MAKE LAZY WRITER 
EVEN MORE POWERFUL! 

• LAZYDOC — Standard Legal forms are a snap! 
Let LAZYDOC prompt you for the changes, then 
automatically insert those changes into your 
document. Many features; send for more 

information $59.95 

NEW manual plus disks of legal documents; 

Estate Planning is first of a series. 

• LAZYCALC — Use LAZY WRITER to create 
reports with numerical data, then total your figures 
with LAZYCALC. If you work with figures, you'll 
find this a powerful addition to word processing 
$29.95 

• LAZYTAB — It's easy to enter data in tabbed 
columns, but LAZYTAB aligns decimals too' $15.00 

• LAZYDRAW — Create graphics on the screen, then 
send the results to your printer; works with any 
printer that supports TRS-80 block graphics 

• LAZYDO — Automatically load LAZY WRITER and 
any text file, set printer commands, even print text' 
LAZYDRAW + LAZYDO $19.95 

• SPECIAL: LAZYTAB, LAZYCALC, 
LAZYDRAW and LAZYDO $39.95 

TRS-80 is a Regisle'ed Trademark of Tandy Core 



LAZY WRITER has earned the 

Professional Software Programmers 

Association Seal of Approval 



LAZY WRITER GIVES YOU: 



• Z80 CODE, for fast execution of commands 

• Control codes ANYWHERE in text to let you get 

compressed or expanded type, super/subscripts, etc 

• Page breaks BEFORE you print 

• CUSTOMIZED printer defaults, cursor size, shape, 
speed, etc 

• DISK DIRECTORY plus kill or verify files without going 
to DOS. 

• LONG DOCUMENTS print automatically, while 
preserving page numbering and titling 

• 10 USER DEFINABLE function keys 

• BACK OUT of inserts and deletes 

• A NEWSLETTER for users 

• SET TABS, CHANGE CASE, move or delete NAMED 
blocks of text 

• MEMORY KEY returns cursor to a screen & cursor 
position 



"LAZY WRITER is proof that simple and powerful can coexist. It is 
among the easier word processing packages to learn It's one ot the 
few that allow you to sit down and begin entering text a few minutes 
after loading the software " - David D. Busch, Interface Age 



"This program enjoys some of the best manufacturer support I've 
encountered . . . LAZY WRITER is one of the most sophisticated TRS- 
80 word processing packages around. It has excellent features, 
documentation and support, and can be expected to provide ongoing 
utility for even the most demanding user." - T. A. Daneliuk, InfoWorld 






• 



/y 






"Author David Welsh has packed every feature he could think of into 
the program and the result is a highly sophisticated piece of software in 
both Model I and Model III versions ... For complex printing tasks, 
LAZY WRITER is hard to beat." - Dan Robinson, 80 micro 



ABC SALES 

13349 Michigan Ave. • Dearborn, Ml 48126 

(313) 581-2896 

dealer inquiries invited 
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■See List ol Advertisers on Page 451 
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mas 

In The. . . . 
SOUTH ATLANTIC 



This exciting, realistic war simulation 
puts you in the commander's seat of the 
British Armed Forces. Deal with unpre- 
dictable weather, political unrest, and 
the unruly Argentine Forces to win the 
ultimate goal sovereignty over the 

FALKLAND ISLANDS! 

War in the South Atlantic is available 
fori TRS-80 Models I and III on i 

16K Cass - $14.95 

32K Disk - $19.95 



Order by Check, Money Order, MC or VISA 



PROGRAMS FOR THE 80* s 
P.O. Box 50160 
Indianapolis, Indiana 46250 

(IN residents add k% sales tax) 



317-849-2055 



-418 



TRS-80 is a trademark of Tandy Corp. 




Map continued 



•.'Lbl »'Lt"L 



FOE ROUTINE 



2CBD - 2E52 



PR I NT USING ROUTINE 



2E53 - 2E5F LINE NUMBER ROUTINE 

•**t(t»t»*t«*t«t««t*t*t«>*(l*>«*t(«««<*(((tt**«(t*tt(***t*>( 

2E6o - 2FFA EDIT ROUTINE 

• (ttllt«t*t**MM«*l«*««tMI**«(l**st«t<l*t*«*tt!t*tltl««**t 

2FFB 2FFF NOTHING HERE 

lllllllllltllUtUUIIMItltllUUtlttllUltmiltltllllllM 

3o«JO :/DD RESERVED MEMOR . 



3/DE - 37FF 

37DE 
37DF 
37EO 
37E1 

:-'t. 

37E8 
S7EC 

KEYBOARD MEMOR' 



MEMORY MAPPED INPUT. UUTFUT 

DOS COMMUNICATION SIATUS ADDRESS 

DOS COMMUNICATION DATA ADDRESS 

INTERRUPT LATCH ADDRESS 

DISK DRIVE SELECT LATCH ADDRESS 

CASSETTE DRIVE LATCH ADDRESS 

IK INTER FORT ADDRESS 

FLUFFY DISK CUNIROLCiR ADDRESS 



B] I 

38"J1 

38o2 

38"j4 

"■BoB 

3810 

3820 

3840 

zaeo 



CR C 

SHH I 



4 4» ■ 1 4 



RST JUMP VECTURS 



4f".n> - 4iH'i' RSI OB 

4U03 - 400S RST lO 

4<.><>fc - 4008 RSI 18 

4009 - 4oOB RST 2o 

4i>OC 400* RSI ..'8 

40OF 4nll RST SO 

4012 - 4ol4 RST "8 

!•«•«•• *••»•*»*•**•**• »*****••****•**••••»•**•**•••••*•••••* 

4<J15 - 4<JlC tt Y BOARD DEVICE CONTROL BCOC> 

*01S DEVICE I »Pt 

4<jlfa 4cl/ DRIVER ADDRLbS 

4'>IB 4«>1A NUI USED 

401B - 40IC RAM BUFFER ADDRESS 

illMIIIUMMIIKIIIIMMiailUIIIIIIIIIIKMMIMIMOIUI 

4ulD - 4o24 VIDEO DEVICE CON I ROL Bl OC> 



4'Hf 

4c i.' 1 



DEVICE lYPfc 

DRIVER ADDRESS 

CURSOR FOSI I ION 

CURSOR ON/OFF FLAG 

CURSUR CHARACTER 

NOT USED 

IIIIIIIIIIIIMIIIIIIItlltlalKillMIMIillllllKIKIIIIIIUI 
4025 402C PRINTER DEVICE CONTROL BLOCK 



40 IE 
4U20 
4022 
4023 

4U24 



4<.)2i 

AK.'h 



DEVILE TYPE 
DRIVER ADDRESS 



4028 




LINES PER PAGE 


4o2V 




I INES PRINTED SO FAR 


402A 




NOT USED 


402b 


402C 


RAM BUFFER ADDRESS 


4ci-.'D 


4152 


COMMUNICATIONS REGION 


402D 


4tl7F 


USED BY DOS 


4oeo 


40BD 


DIVISION SUP-FORT ROUTINE 


408E 


408F 


USER ADDRESS 


4090 


4092 


RANDUM NUMBER SEED 


4093 


4oV5 


IN A.O 


4<_>Vfc 


4o98 


OUT A.O 


4099 




LAST KEY PRESSED AF TER BREAK 


4o9A 




USED FOR RESUME 


409B 




NUMBER OF CHARACTERS IN PR INI LINE 


409C 




DEVICE TYPE FLAG 
-1 CASSETTE 

'.' VIDEO 
♦1 PRINTER 


4-J9D 




SIZE OF VIDEO LINE 


40VE 




SIZE OF F-R INTER LINE 


409F 




RESERVED 


4CA(l 


40A1 


START OF STRING SPACE Fill NT tk 


4UA2 


- 4oA^ 


CURRENT LINE NUMBER 


40A4 


4oA5 


START OF BASIC PROGRAM FL.1NIER 


4i H,f, 




CURSOR POSITION 


4UA7 


- 4<_>AB 


KEYBOARD BUFFER ADDRESS 


40AV 




CASSE11E INPUT FLAG 

O IF CASSETTE ELSf NON ZERO 


4uAA 


- 4UAD 


RANDUM NUMBER SEED 


4oAE 




VARIABLE FLAG 


4i.'AP 




NUMBER TYPE FLAG 

2 INTEGER 

3 SIRING 

4 SINGLE PRECISION 
8 DOUBLE PRECISION 


40Bu 




USED DURING EXPRESSION LVAIIImIIUN 


4UB1 


- 4UB2 


MEMOR' SIZE POINTER 


4oB3 


40b4 


NEXT LUCAIION AVAILABLE IN LITERAL STRING POOL 


4"B5 


4iiD» 


LITERAL STRING POOL 


40D3 


- 4O05 


USED FOR STRINGS 


41 'l)f, 


- 40D7 


NEXT LULA1ION AVAILABli IN SIRING SPACE 


40DB 


- 40D9 


MULTIPLE USES 

Map continues 
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Map continued 






4<>DA - 


4<.»Dtf 


LAS>I DOIA 'jK.1l MINI HEAD L INt NUMBER 


40DC 




FOP FLflb 

1 IN IHkX.Ktbs 

g NUI IN 1 Kl«M b:. 




•one 




USED DURING 1NF-UT F-HASE 




*"W 




rim i ir-ti uses 




4>Jl» - 


4'.*.".- 


USED bf DOS 




4<Jtl 




<HJIU FLAO 
V NU AUIO 




■»«* -' 


4i 4 J- 


LUKMNI L 1Mb r*M1W.k 




4.*. 4 


4iCS 


AUIO INCKEMEMI 




4 CO 


4. *_7 


NULUFLE USES 




<"tb 


4.*.'y 


LNCUDLL) UIAUMENI FUlNltK 




40EA - 


•ntb 


EF.ROP LINE NUMBER 




4oti 




USED Kv kkMJK 




4.* 1) - 


4ofcfc 


LASI bVIE EIECUIEb IN tFVKOK LINE 


4><F 




POSITION OF EFcPOR IN LINE 




4"» ■> 


4«rt 1 


UN 1FJKOK ftllNllh 




4-.+ «. 




EhKOF. FLAG 




4i*- - . 


4 of 4 


NU TIME USES 




4l.#t. 


*•'( ft 


LAST LINE HON 




4l#/ - 


4<.>FH 


USED b¥ EfthOh 




4UFV 


4 of ft 


VARIABLES POINTER 




4l*b - 


4«.*L 


ARRAY F-UINILK 




4C»^D - 


4C>FE 


START OF FREE SPACE 




4t* F 


4 l>K< 


USED KV MAD 




4101 - 


41 1<< 


VARIABLE DELLAKhIIUN 1 ABLE 




41 IK 




TRACE FLAG 

<> TRO» F 

NUN ^EfrtJ IRON 




41 IC 




USED BY MATH ROUTINES 




41 ID 


4124 


RE lil 








INIEGER SINGLE 


DUUBLE 


41 lb 






LSB 


41 It 






Lab 


411F 






LSB 


4120 






LSB 


4121 




LSB LjB 


1SB 


4122 




MSB LSB 


LSB 


4123 




MSB 


MSB 


4124 




E«P 


EUR 



412S 
4127 
412F 
4130 
414A 



4126 
4I2E 



4149 
4131 



4152 - 41AS 



41S2 


4134 


41SS 


4137 


4iaa 


413A 


4138 - 


- 4130 


41SE 


4160 


4161 


4163 


4164 


- 4166 


41*7 


4169 


416A 


416C 


4I6D 


4I6F 


41 /o 


41/2 


4173 


- 4175 


4176 


- 41 78 


4179 


41 7B 


417C 


- 417E 


41 7F 


4181 


4182 


- 4184 


4183 


- 4187 


4188 


41BA 


4I8B 


- 41BD 


4J8E 


- 419U 


4191 


- 4193 


41V4 


- 41V6 


4IV7 


- 4199 


419A 


- 419C 


4 190 


- 4I9F 


4IAu 


- 4IA2 


41AJ 


- 4IA5 



41A6 
41AV 
41 AC 
41AF 
4 IB. 
41U'J 
41B8 
41BB 
41BE 
4H.1 
4IC4 
4IL7 
41LA 
41CD 
4IDU 
41D3 
41D6 
4IDC 
41DF- 
41E2 



41A8 
4IAB 
41AE 
4IBI 
4IB4 
4IB7 
4IBA 
41BD 
41C0 
4ILJ 
41C6 
4IC9 
41Lt 
4ICF 
4ID2 
41D5 
4108 
41DL 
41E1 
41E4 



USED BY MATH ROUTINES 

REG2 SAME AS REG1 

NOT USED 

F>RINT BUFFER 

USED BY MATH ROUTINES 



OlSk BASIC LINKS 

CVI 

FN 

CVS 

DEF 

CVD 

EOF 

LOG 

LOT- 

Hklft 

MRS* 

MXD4 

CMO 

TIME* 

OPEN 

FIELD 

GEI 

PUI 

CLOSE 

LOAD 

MERGE 

NAME 

KILl 

•t 

LSET 

RSET 

1NSTR 

SAVE 

LINE 



DOS LINKS 

CALLED FROMl 

19EC 

2/FE 

1A1C 

»368 

1AAI 

1AEC 

1AF2 

IB8L 

2174 

o32L 

Oi"j8 

IEA6 

2v*f 

20C6 

2lWi 

2MB 
2I9E 
222D 
2B44 

OZB2 



41ES - 


41E7 


USED BY INPUT 


41E6 - 


42E7 


INPUT BUFFER 


42E8 
42E9 




ZERO 

START OP BASIC PROGRAM MEMORY 



for the TRS-80 from Micro -IVlega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether tor Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.50 tor postage and handling. 



Terms Check or money order, no COOs or credit cards, please Add amount 
shown for postage and handling to price ot the item A it items shipped within 44 
hours by lust class or priority mail. Virginia residents, add 4% sales las ^ m 



Micro - rVtecjo P.O.Box 6265 ArHnqton,Va 222Q6 



«MCKW»VMM««' 



I71ERRY CHRlETITlflE 

from 

Communications Systems Lab 

Qet your trumty TRS'80 m m prmmmnt thlm 
ye me thmt will from It from CLOAD 
Indigestion <FWH ALL THOSE T/PE fiCCWES INER YOUR TREE) 
SAVE 13XBY OREERINJ BETWEN NOW 40 DECErtER 15 



A 



.. K -R 
Y— Y— Y 

C C— --C 

R -fe- R 



— S. 



-T 

-11 

—A 




COPy COMOITIOMER 

erne 



OATA CONDITIO* KH - THE COMPLETE 
ccmputer/cassette RECORDER INTERFACE «*1CH» 

* ELIMINATES VOLUME CONTROL JUGGLING FOR A 
GOOD aCMO 

* PROVIDES FOR VISUAL CUING OF TAPES 

* HAKES COPIES OF DATA. PROGRAM AW SYSTEM 
TAPES WITHOUT THE COMPUTER 

* ELIMINATES NOISE .MINOR DROPOUTS 
' PRECONDITIONS DATA TO TAPE DECX DURING 

CSAVES FOR A SUPERIOR QUALITY RECORDING 

* WORKS AT BOTH LOW AND HIGH TRS-80 BAUD 
RATES 

* ATTRACTIVELY STYLED TAN CASE, AC POYCED 

REG PRICE 168.95 SALE PRICED $59.95 
copy coHomOMtm- The big brother 

TO THE DATA CONDITIONER DESIGNED FOR THF 
9W1 VOLUC SOFTWARE PRODUCER. HAKES 
INEXPENSIVE DUH ICATES OF TAPES USING YTJUB 
TAPE RECORDERS. DRIVES UP TO 11 DECKS FOR 
MASTERING, 10 DECKS FOR DUPLICATION. HAS 
CENTRAL CONTROL FOR TAPE REMOTES. 
INCORPORATES FEATURES OF DATA CONDITIONER 

RE6 PRICE IW9.95 SALE PRICED $129.95 



* See List ot Advertisers on Page 451 



TO INSURE DELIVERY BY CHRISTMAS, J-Q ORDER GOll to!Hf,24hrM 

please place order by nov 301 1-800-307- 5134 

hute dept n ^361 .. . 

Communications Systems Laboratories 

94-165 Leokane St., naipahj, HI 96797 «tr S -80 is a trademark of tawy radio shack j 
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SERIES 



Actuators and energy translation. 



Cybernetics— Part III 



Stephen Davids, President 
Robot Research and 
Development, Inc. 
Box 541 Station Z 
Toronto, Ontario 
Canada M5N 2Z6 



In my previous two articles, I 
discussed the overall notion 
of a robot system and the spe- 
cifics of sensors, as well as their 
interface to the TRS-80. This ar- 
ticle covers actuators or output 
devices: their nature; modes of 
operation; and interface to the 
TRS-80. I will expand the biblio- 
graphy started in Part Two of 
this series. 

An actuator manipulates or 
alters the environment. The 
muscular system is the human's 
main output device, just as the 
nervous system is the main in- 
put device. The human system is 
effective but severely limited; it 
is capable of only sound, heat 
and motion output. Robots may 
emit light or other forms of elec- 
tromagnetic radiation, or extend 
the range of motion, strength, or 
precision of the human form. 

Energy Translation 

All output from any micro- 
312 • 80 Micro, December 1982 



computer is in the form of elec- 
trical energy. The biological 
world does not generally make 
direct use of this electrical 
energy; we must first translate 
this energy into a more useful 
form (motion, light, heat, or 
sound). 

The standard way to accom- 
plish this translation is to inter- 
face the weak electrical output 
signals of the TRS-80 to an ap- 
propriate actuator giving the 
TRS-80 control of the output de- 
vice as well as feedback on the 
performance of its commands. 

This is a four part operation. 
First the TRS-80 must identify 
that it requires an output. During 
program execution, the TRS-80 
encounters a conditional state- 
ment branching to an output 
subroutine. For example, a pro- 
gram input loop constantly 
monitors an infrared light sen- 
sitive detector diode on the 
robot's forehead. All night the 
robot waits for a high at that 
port address while it charges 
batteries. In the morning, as the 
first rays of light signal the start 
of a sunny day, the sensor drives 
the input port high. The program 
branches to the first line of an 
output subroutine. 

The second part of this opera- 
tion is the selection of an output 
device. Continuing the example, 
the robot now decides, on the 
basis of all information avail- 
able to its sensors and the pro- 
gram it has been given by its 
creator, what to do now that the 



sun has arisen. Assume the 
robot is plugged into a wall out- 
let to charge. Before going 
about its daily chores, it must 
disconnect itself from the power 
supply. I designed my robot 
outlet to greatly facilitate the 
plugging/unplugging operation. 
The robot retracts its connector 
to free itself and terminate the 
charging process. This is ac- 
complished by a single sole- 



must determine the state of the 
output port and act accordingly. 

For example, if the actuator is 
a solenoid as above, the pro- 
gram could drive port address 
05 high to signal the solenoid to 
pull the plug out from the wall. 

The fourth part of the output 
operation is feedback. In my 
first article I stressed that a 
robot system without feedback 
is inherently unstable. In our ex- 



"This system, 

called 

distributed processing, 

is on the 

very frontier 

of cybernetics." 



noid, related to port address 05. 
The program determines that 
port address 05 is to be ac- 
tivated and moves to the next 
part of the operation. 

The third part of the output 
operation is simple for our ex- 
ample, but could be complex for 
an analog output routine. The 
program must determine the 
correct value to be output to the 
actuator. The TRS-80 can drive 
the selected output high or low 
with respect to a reference volt- 
age also on the output bus. The 
decoding circuit or interface 



ample the system is unstable 
because the robot does not yet 
know that the plug has been ex- 
tracted from the wall. A true 
servosystem compares the ex- 
isting state to the desired state. 
The robot must determine if the 
cord is still attached to the wall. 
This may be done in many ways, 
such as checking the charging 
circuit to see if a current is still 
flowing, or trying to close a 
small trap door that contains 
the cord and the insert/with- 
drawal solenoid. If the door can- 
not close or the circuit is still 



TAS Adventure Series 
Package I 

By: Gary Helmburger and Gary Robinson 

(This adventure package it the first to be marketed 
that was created by Trt* Adventure S y item 1 Look tor 
mora tantasttc adventures coming soon! Each TAS 
adventure package include* TWO complete 
adventure* lor one low price!) 

Adventure 1: Isles of Doom • Part I 

The Scenario: A *mall South- tea Island chain. 
Unfortunate navigation left you atranded on one 
island 

The Mission: (il you can get through the shark- 
infested water* to the Island!) The Island was a 
scene of activity during wwn Scattered over the 
island are components that will allow you to Hi an 
old radio transmitter Can you fli it and tap out your 
SOS before tailing prey to the elements of doom? 

Adventure 2: Lost City ot Gold 

The Scenario: You re on a mountain climbing 
eipedition in South America (in Peru, near Lake 
Titicaca) After straying from the beaten path, you 
discover a cave that eventually leads to a forgotten 
pan of the lost Incan city. Grab your pitons. 
The Mission: There an plenty of treasures if you 
can safely collect them and retrace your steps to the 
simple mountain hut. Be lorwarned that most Incan 
cities contain many perils, especially lor the 
uninitiated, seems Incan priests were rather 
paranoid. Requires 32K. 

TAS Adventure Packages arc S 15. 95 on tape 
and $1 9.95 on disk. All media is unprotected! 
TAS Adventures allow you to SAVE up to 10 
versions of the game in progress! Please 
specify Model I or III. 

Get in on the action! The Adventure System 
editor is now completely in Z80 and allows 
easy interactive debugging. Requires 48K. 
Specify Tape or Disk, please. Only S39.95 for 
the complete system AND three adventures! 



STOPPER! 

The BASIC Breakpointer 

By Roxton Baker 
Author of "TRAKCESS" 

Stopper is a unique machine language utility 
that allows interactive program debugging 
when using Level II or Disk BASIC on the 
Model I and III. Stopper was designed by 
Roxton to help debug a new version of 
TRAKCESS that will be announced shortly, 
because there wasn t anything on the 
market that would provide the features 
needed. 

Some of Stoppers commands: Set a 
breakpoint with a hit count, either when a 
line has been executed n times or a 
variable is equal a certain value: or not equal 
a certain value: breakpoints and variables 
may be viewed and modified at any time: 
selective execution of program statements 
and lines: display only the portion of the line 
where the error occurred: TRON functions 
are improved and may be routed to printer; 
set a tolerance on single and double 
precision numbers (to accommodate the 
inaccurate ROM routines and more. 
Naturally single stepping is fully supported. 
With STOPPER you will know exactly where 
the error is and why it occurred. Program 
execution is under YOUR control! 
A special offer from the author and TAS: 
Stopper is S20 on tape or disk. BUT you are 
licensed to make up to four additional 
copies, making the cost for this valuable 
utility only S4. Support co-op purchases by 
ordering today. BASIC debugging will never 
be easier, nor a better utility any cheaper. 
Extra manuals and Z80 source code are 
available. 



LDOS Users! 

A special utility package fust lor YOU 

DRIVE-5 
Four drives not enough? ORIVE-S is a memory 
based disk emulator which allows you to configure a 
fifth drive IN MEMORY! No moving parts, so accee* 
is FAST! In a two drive system. FORMAT and 
BACKUP can be placed on ORIVE-S (with /SYS 
modules) to allow multiple backups with less disk 
swapping. 

LOWDUMP 

LOWDUMP allows you to DUMP files from 
anywhere in memory, including ROM and video 
RAM! LOWDUMP allows all parameters as the 
LDOS DUMP command, including ASCII, for 
dumping tiles without loader Information present. 

SYSGEN 

SYSGEN/CMD allows you to save one or more 
SYSGEN files as normal CMD tiles Keep several 
configurations on the same disk and reload as 
necessary by simply typing the filename. Especially 
useful when the preferred configuration consumes 
so much memory that large programs will not 
execute properly. SYSGEN CMD may also be 
executed from a running BASIC program When the 
resultant CMD file is executed, the BASIC program 
will continue with the next statement, all program 
variables intact! 

UNREPAIR 

Model I TRSDOS cannot read LDOS disks due to 
the F8 DAM used for directory sectors. UNREPAIR 
will rewrite the directory track of a single density 
disk using the FA DAM that will be recognized by 
Model I TRSDOS. UNREPAIR should run with any 
Model I DOS and the Radio Shack E/l. 

An extra BONUS! The TAS LDOS Utility pack 
includes Z80 source code (on disk) of most of the 
above utilities (the most informative). The LOOS 
Utility Pak is S49 95 This package was written by 

■ Les Mikesell j| 

M.TERNKTE 

S#URCE 



j BRAND NEW! j 
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EFFECTIVE 
COMMUNICATION 



is easy with ModemBO. There is absolutely no need 
lo pay any more for a top-quality communication 
package. ModemBO can help your TRS-80 Model I 
and III talk lo a wide variety of machines. The 
ModemBO translation table is easily modified to 
accommodate unusual protocol. ModemBO allows 
tile uploading and downloading. XON and XOFF are 
supported to allow transmission of files larger than 
memory. A special protocol (compatible with the 
CP.'M public domain program MODEM) allows 
error-tree transmission without converting lo 
ASCII XMOOEM. a special version ol MODEM is 
included so that you may give your friends a copy to 
take advantage of faster error-free transmission. A 
host program is included at no extra charge to allow 
accessing your unattended TRS-80 from a remote 
location All local parameters (baud rate, stop 
bits, parity, duplex and more) can be changed 
quickly and easily with a minimum ol keystrokes. 
For specialized applications, one tile may be 
transmitted while a different file is simultaneously 
being received. DOS commands may be executed 
while within ModemBO Special patches insure 
compatibility with ail popular Model I and III 
operating system*. The previou* icreen is restored 
alter DOS commands. ModemBO also allow* 
disabling screen scroll lo permit transmission 
speeds at up to 9600 baud (under direct connect 
situations). A special patch sheet is available lor 
people wanting lo use the Micronet Dow Jones 
service. Also available, on request, is a LYNX 
modem version that allows operation on a Model III 
even it RS 232 is installed. All this and many more 
leatures are what s making ModemBO one ol our 
moil popular program*! Oh, ye*, the price help* 
loo: $39 95 complete including documentation in 
Ihree-ring binder ModemBO i* authored by Le» 
k" Mikesell 




An exciting new arcade game* Threshold-Nine Is 
easy, but only the experienced reach Threshold- 
Zero. As you progress to the taster levels, the 
playing field decreases! Excellent graphics and 
sound, ioystick compatible, all 280 programming) 
Supplied in a back uppable format (disk users will 
need to copy to a TRSOOS system diskette). High 
•cores are saved on the disk version. Includes a 
special pause leature (tor nature calls and other 
interrupt processing) Works on Models I and III 
cassette ($15 95) and disk ($19.95). 

FREE to the first 100 customers who order 
Threshold-Zero A mini-poster of the Threshold- 
Zero Cover Art! Order today and find out why 
Threshold-Zero is already one of our best selling 
games! 



j Order Form 

| Please send me the following: 

I D TAS Adventure Package I (tape) $15.95 

§ . . TAS Adventure Package I (disk) $19.95 

D The Adventure System (tape) $39.95 

. The Adventure System (disk) $39.95 

D LDOS Enhancement Package $49.95 

D Threshold-Zero (tape) $15.95 

O Threshold-Zero (disk) $19.95 

D Stopper $20.00 

D ModemBO $39.95 

□ TAS Subscription $24.00 






Please add $3 to your total order for 
shipping (except TAS subscribers). 
We ship UPS unless you specify 
otherwise. 



Name: 

Address: . 
Address: . 

City: 

State, Zip: 



Mail order to: 

The Alternate Source 

704 N. Pennsylvania Ave. 

Lansing, Michigan 48906 

Ph. (800) 248-0284 

Ph. (517) 482-8270 

Master Card, visa and COO ($1 7S extra) are welcome 1 



sSee List ol Advertisers on Page 451 
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CONTROL . SES 



CONTROL CIRCUIT 



POWER CIRCUIT 



Fig. 1 



functional, the program should 
lump to an error correction 
subroutine or try to extract the 
plug once more. 

Circuits 

In any device that comprises 
both decision logic and working 
circuits, there are voltages and 
currents potentially harmful to 
the more sensitive electronic 
parts. Actuators amplify the out- 
put signal of the microcomputer 
from logic levels to useful work- 
ing levels. These working levels 
may range from 5 volts at several 
hundred milliamps to hundreds 
of volts at 40 or 50 amperes. 
Though the latter conditions are 
rare, it Is common to switch 12 
volts dc at 5 or 10 amperes, 



enough to run small and medium 
dc motors. These conditions are 
sufficient to fry delicate elec- 
tronic equipment like the TRS-80. 
With this in mind, before you 
hook up your TRS-80 to the 
vacuum cleaner, let's discuss 
some basic robotics. 

There are two subcircuits in a 
robot output device. The control 
circuit includes the first output 
stage and the decision-base, in 
our case the TRS-80. The control 
circuit controls the behavior of 
the rest of the output device us- 
ing the logic level voltages I 
have mentioned. 

The power circuit Is the 
business end of the system. The 
actuators and all other output 
devices are part of these cir- 



LEARN VISICALC™ 

THE EASY WAY WITH READY-MADE TEMPLATES 




Load your Visicalc with our templates, 
then key your numbers in. 

DO YOUR: 

ESTNATM8 M CONSTRUCTION JOS COST - The BukJmQ 
Site • Preliminary Costs • Site Clearing, Eicavatcn. and Fill • 
Footings • Foundation • Floor System • Super Structure • 
Roofing • Electrical. Plumbing. Heating, and Ait Conditioning • 
Brickwork • Energy Saving Materials • Interior Wall and Ceiling 
Finish • Exterior Trim • Concrete Floors. Walks, and Terrace • 
Interior Trim • Painting, Floor Covering and Appliances • Gutters. 
Onsite Improvements and Misc • Overhead Contingency and 
Profit 

ANALYSIS IN FINANCE - Break-Even Analysis • Cash 
Budget • Pro-Forma P4L • Pro-Forma Balance Sheet • Ratio 
Analysis • Depreciation Tables (5' • Net Present Values 

PROJECTIONS IN REAL ESTATE - NIREB Forms CIO B 
- Property Analysis • CIO C - Comparative Investment 
Analysis • ClD D - Individual Tax Analysis • CIO G - Excess 
Depreciation • Net Proceeds • ClD l-A - Internal Rate ol 

Return 

BUDGETS FOR THE HOME - Personal Budget • Shopping 
List • Mortgage and Loan • Individual Retirement Account • IRS 
Sche dule A 

Future Templates - Retailing • Energy Audit • Engineering • 
Statistics • Multi-Level Marketing Customize Templates $30 



Run on Apple I 
Commodore 



TRS-80 



< IBM PC • Atari 400. 800 



Orders Only - (800) 525-9391 ext. 533 
Inquiries - (714) 338-5075 

COD — CashienChk or Money Order Only Prepaid- 
Personal Check K • UPS - Add $2 50 sh.pping 
and handling Street Address required • Calif — add 
6 5% sales tax 

SOFTWARE MODELS 

"The Template People" 
P.O. Box 1029 
Crestline. CA 92325 *vo 



cults. A power circuit includes a 
power source and an actuator or 
effector. This circuit is a slave 
circuit, dependent upon the con- 
trol circuit for commands (see 
Fig. 1). 

When the control circuit re- 
ceives an output command in 
the form of a varying voltage 
relative to an acknowledged 
ground, the command simulta- 
neously appears In the power 
circuit to be amplified and in- 
terpreted by the whole process. 
The end result is a change in the 
actuator status. 

Returning to my example, the 
small electrical signals on the 
output bus of the TRS-80 cannot 
operate the solenoid directly. 
This is where the power stage 
comes in. A 12 volt dc power 
supply forms a circuit with the 
solenoid and some type of 
switching device. When the 
switch is closed, current flows 



through the solenoid coil pulling 

the metal plunger due to mag- 
netic action similar to a speaker 
cone (see Figs. 2 and 3). The 
plunger is attached to the plug 
leading to the wall outlet so it 
extends when the solenoid is ac- 
tivated and is retracted by the 
action of an integral spring 
when the power circuit is open 
and the solenoid deactivated 
(see Fig. 4). 

The voltage and current 
operating the solenoid are 
typical of levels dangerous to the 
TRS-80. An excellent design 
practice is to opto-isolate the 
control and power circuits (Fig. 
5). An opto-lsolator is an infrared 
LED emitter/detector pair in a 
single IC package. The theory of 
operation is simple. The LED 
emitter, part of the control cir- 
cuit, is switched on and off by the 
buffered output from the TRS-80 
at the expansion port. The detec- 
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tor acts as a switch electrically 
isolated from the emitter to 
about 3750 volts. When the emit- 
ter diode is on, the detector 
phototranslstor turns on, allow- 
ing current flow to the actuator 
(see Fig. 6). If anything ever goes 
wrong electrically, the most ex- 
pensive component, the TRS-80, 
is not destroyed. 

I have assumed that the robot 
you are building has electrical 
actuators or effectors (these in- 
clude motors, solenoids, lights, 
and amplifiers). Advantages to 
hydraulic and pneumatic sys- 
tems are increased strength and 
speed. Indeed, most industrial 
robots are hydraulic at this time. 



In a hydraulic or pneumatic 
robot the power circuit usually 
includes a control valve rather 
than the actuator itself. The best 
of these, called servovalves, 
monitor precisely the real state 
of the actuator through optical 
or electromagnetic transducer 
feedback loops. These feedback 
devices provide a very high pre- 
cision control of the effector 
and an excellent repeatability of 
operation. This robot is exces- 
sively expensive to design and 
build and is outside the scope of 
this series of articles. 

The motor is probably the 
most useful actuator available 
to the robot builder. When inter- 
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RIBBON LOOPS 
new ribbon for your old cartridge 
top quality nylon • standard matrix ink 
price each in quantity of 
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7.86 7.23 6.65 6.12 5.63 
2.92 2.69 2.47 2.27 2.09 
2.26 2.08 1.91 176 1.62 



MX-70/ MX-80/ MX-1 00 
MX-100 double length 
Decwriter LA34 
Radio Shack 26-1418 



New cartridges are available in black ink only. 
Loops are available in blue or black ink (same price). 
You may mix any combination for quantity price breaks. 
Ribbon loops include DO-IT-YOURSELF INSTRUCTIONS. 

VISA DATA SYSTEMS MasterCard ^99 

(305) 788-2145 • Box 99 • Fern Park, FL 32730 



facing a motor to the TRS-80 
first consider what function that 
motor is to serve. This will help 
decide the type and size of 
motor and speed and voltage re- 
quirements. Sometimes the con- 
trolling speed is critical, as in 
the main drive motors respon- 
sible for propulsion. You can 
build a phase locked servosys- 
tern that contains feedback 
from a slotted disk rotating in 
synchronization with the motor 
output shaft (see Fig. 7). For a 
more complete discussion of 
phase locked servosystems, re- 
fer to the list of references. 

TRS-80 Limitations 

We must face the fact that the 
TRS-80 is not the fastest micro- 
computer designed; while it is 
functional as a robot brain, we 
should not challenge it with too 
many important tasks at any 
one instant. Clever program- 
ming of the TRS-80 allows a 
small number of simultaneous 
motions such as traversing the 
living room floor while playing 
the national anthem and waving 
a small flag. The programmer 
must develop an internal list of 
priorities to ensure that the 
main processor is mainly read- 
ing inputs rather than control- 
ling the behavior of the outputs. 
One way to achieve this is to put 
the burden of counting repeti- 
tive motions or monitoring 
speed on an external circuit. The 
TRS-80 signals the external cir- 



cuit, called an output controller, 
as to the required behavior of its 
actuator. The output controller 
directly drives the actuator and 
monitors the actuator's behav- 
ior, looking for the completion of 
the task assigned by the TRS-80 
or a failure. In either case the 
output controller signals the 
TRS-80 and awaits the next in- 
struction. This way the TRS-80 
has much less to do with each 
actuator, and can handle a 
greater number of tasks than if it 
directly controlled every func- 
tion. This system, called dis- 
tributed processing, is on the 
very frontier of cybernetics. 

Another method of reducing 
the demand placed on the 
TRS-80 by complex motion of an 
actuator such as a manipulator 
arm is to reduce the required mo- 
tion into three single axis motion 
vectors. If an arm manipulator 
(actuator) must move from a start 
position to a finish position 
possessing different coordinates 
in three dimensional space, the 
path trajectory requires an in- 
tegration formula that would 
weaken the knees of the bright- 
est mathematical geniuses. 
Most robot builders would con- 
sider early retirement. The solu- 
tion is to consider each motion 
as being composed of three sep- 
arate straight line motions: left or 
right; forward or back; and up or 
down (Fig. 8). To truly simplify the 
motion, we can design a manipu- 
lator on these same straight lines 
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TANDON DRIVES 



■ARE DRIVES ONLY 

40 track single sided $199 

80 track (dual sided 40) . . $269 
160 track (dual sided 80) . $389 

5 '/4 Inch THINLINE $Call 

8 inch THINLINE $Call 

Winchester Hard Drive . . . $Call 

WE WILL NOT 
BE UNDERSOLD! 



1 DRIVE / Single Cabinet 

40 track single aOdad $240 

SO track (dual sided 40 track) $329 

180 track (dual aided SO track) $449 

1 DRIVE / Double Cabinet 

40 track tingle aided $289 

SO track (dual aided 40 track) $989 

180 track (dual aided 80 track) . $499 

2 DRIVES / Double Cabinet 

40 track aingie aided ... $488 

80 track (dual aided 40 track) ... $839 
180 track (dual aided 80 track) ... $849 
Drtvee in cabinets come aaaembled/lested 
with power supply Order cable separately 



CORVPS HARD DISK 



CORVUS HARD DISKS complete from $2695 

Add 5. 10 or 20 megabytes of storage to your TRW80 Apple. Atari. Heath Zenith. 
IBM. Intertec. S- 100 and many others One or sever si computers can snare a hard diak 
Qet simultaneous access to data for multiple users Available now at SUPER SAVINGS 
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TCS has the LOWEST PRICES on IN STOCK PRINTERS! 

EPSON PAINTERS 

EPSON MX80 $449 

EPSON MX80 FT $524 

EPSON MX100 FT $685 

OR APHTRAX PLUS cornea free In EpeonsM 

EPSON ACCESSORIES 

QRAPHTRAX PLUS (bit Image) ... $79 

MODEL I Interface $29 

MODEL I interface- cable to keyboard $S5 

MODEL III cable $29 

COLOR Computer interface/cable $155 



MATRIX PRINTERS 

STAR MICRONICS $399 

NEC 8023A $495 

C ITOH 8510 / TEC $479 

ANADEX 9501 w/2k buffer $1296 

LINE PRINTER (RS) $Call 

LINE PRINTER VI (RS) $988 

LINE PRINTER VII (RS) $649 

CENTRONICS 352 (200 cpa) $1796 

CENTRONICS 353 (dual mode) $2496 

OKIDATA 82A $429 

OKIOATA 82A w'tractor $479 

OKIDATA 83A $885 

OKIDATA 84A (aerial) $1189 

OKIDATA 84A (parallel) $1089 

HI SPEED BAND PRINTERS 

CENTRONICS 8080 (standard) $CALL 
CENTRONICS (quiet lied) .... JC ALL 

LETTER QUALITY PRINTERS 

C ITOH F-10 (40 cpa) $1596 

DAISY WHEEL M (RS) $1896 

SMITH CORONA TP-1 $899 

BROTHER / COMREX $829 

NEC 7730 $2375 

NEC 3630 $1796 



APPLE Intertace/cabkt . . . $89 

ATARI cable (must have 850 int) $36 

IBM Personal Computer cable $46 

OSBORNE cable $36 

Serial RS232 2k buffered int card $109 

EPSON PACK II 

Screen onented bit Image graphics gener- 
ator for the Model III Create your own 
characters, symbols, etc Documentation 
EPSON PACK II bought w printer $24 96 
EPSON PACK II bought separately $34 96 
Update for EPSON PACK I $7 50 
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CUSTOM SOFTWARE FROM TCS 



SCRATCHPAD 

The BTREE Executive 
Reference Scratchpad al- 
lows the user to store all 
your phone numbers, 
bueineea cards and what 
ever in a multi-key data 
base for immediate 
eccees by ss many keys 
aa you aaaign Extremely 
easy to use Allows 3 
"ekis o« Mtsc data 

I39.S5 



LIBRARY 

The BTREE Library pro- 
grsm allows o**t 2000 
books to be stored on s 
single doubts deneity 
data diskette in s efficient 
BTREE structured tile for 
immediate sceses to your 
data by Author Includea 
* build in reports No 
sotting nareeaary 'or 
reports 

$39.95 



MAIL LIST 

The BTREE MaU List 
program allows ovt 2000 
namee to be stored on s 
single double deneity 
data dlakette Labels can 
be generated in zipcode 
order or by range of zlp- 
codee and alao by a code 
restriction if you wish 



$49.96 



TEXAS COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 +• 

TECHNICAL ASSISTANCE 817/274-9221 

ORDER STATUS 817/277-1913 

TELEX/TWX/Easylink ELN 62100790 



800 433-5184 



No tax out of state Texana add 5% Prtcee subject to change at any lime 
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TRS-80 



TCS MODEL III 48k 2 DISK 



System cease wS* ise ear TCS BaiHiS 1 warranty 




$1695 

With standard 40 track 

double deneity drives 

Over 340.000 bytes 

includes TDOS 

$1995 

With 2 duel heeded 40 

track dbl density drives 

Over 730.000 bytea. 

Includea TDOS 



Fully aaeembled and tested systems that are software compatible and functionally 
identical to Radio Shack unite sold at computer stores for (hundreds more 

■ CONTROLLER BOARDS are high quality double Sided epoxy boards with gold 
plated contacts 

■ POWER SUPPLY la the finest switching type eveileble 

a MOUNTING HARDWARE includes power and data cabiee 

■ DISK DRIVES are Tandon. the aame ones uaed by Radio Shack 40 track, double 
deneity. with a 5 millisecond stepping rate 



TCS MODEL III DISK EXPANSION KITS 



1 Controller. Power Supply. Mounting Hardware & Instructions 

2 Controller, Power Supply. Hardware A one 40 track Tandon drive 

3 Controller. Power Supply. Hardware A two 40 track Tandon drtvee 
3A Kit 3 but with two 80 track Tandon drives (dual sided 40a) 



$279 
(478 
$877 
S87B 



3B Kit 3 but with two 180 track Tandon drives (dual sided 80a) S10M 

t8k of high quality memory chips $16 32k of high quality memory chlpa $32 
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MODEL III SYSTEMS 

Original 00 day manufecturer-s warranty 
MODEL ill 4k Level 1 $5W 

MODEL III 16k $818 

MODEL III 32k $086 

MODEL III 48k $888 

MODEL III 48k 2Dr/RS232 $1844 

TCS MODEL III Systems use original RS 
hardware and quality TCS memory 
180 day limited warranty 

TCS MODEL III 18k $799 

TCS MODEL III 32k $818 

TCS MODEL III 48k . . $848 



COLOR COMPUTER 

Iglnal 00 day manufacturer- s warranty 
■ level 1 $308 



Or 

18k 

16k Extended Basic $398 

32k Extended Basse $CALL 

Color Osak $479 Ota* 1 $348 

TCS COLOR COMPUTERS uae original 
RS hardware A TCS memory 
180 dey warranty 

TCS 32k Extended Basic $499 

TCS 32k Memory Upgrade . . $78 

TCS Color Disk Drive $448 

TCS Color Disk Drtve 1/2/3 $248 



Model II . . Model 16 . . Accessories . . SCALL 

TCS la an authorised TRS-80 dealer F701 In Brady Texaa 



Regularly $188 Introductory Price 12/31/82 



WIZARD'S TOUCH 

Program Development System $99 

BELIEVE IT OR NOT. YOU CAN DEVELOP YOUR OWN PROGRAM IN 15 MINUTESMI 
The WIZARD'S TOUCH Program Development System la a superior program 
generator thet can provide you with the program you3ve been looking for It comes with 
It's own Disk Operating System, providing unlimited beckupe 

With WIZARD'S TOUCH, here's whet you can do 
a Custom design your own apeclel form for maximum eaae of entering your data You 
heve total control ovt defining the number of cherectera assigned to eech field end 
any other entry restrictions 

■ Fully view and edit all fields at all times No need to retype en entire field when editing 
Just type over the mistakes, or insert or delete them 

■ Create a BTREE structured file, allowing you lo ecceae your stored data rapidly snd 
without sorting. Duplicate keys sre si lowed aa well aa sub-key* 

a Enter data at full typing speed 

a Define your own speclsl self -help or prompt Information that will be disptsyed for any 

given field by just touching on* key 

■ Expend your program to support up to 8 calculations tor eech data field Results can 
be displayed In any field or in eny defined display eree Results can alao be saved to disk 
siong with regular data fields Data such ss dates or prtcee can be formatted ea deaired 

■ Generate your own reports with the built-in pre-defined or custom defined report 
generetor Just a few keystrokes can get you a report that can be alphabetized or 
ordered by any field. And it's all autometlc 

The WIZARD'S TOUCH la so fast and easy to uae It makes other development 
systems of the market look like amateurs No royalty necessary for resale of 
programs you develop on WIZARD'S TOUCH It createa a stand-alone fully 
commented. BASIC program which you can easily modify 

Your purchase includea a free eubecrlptlon to our WIZARD'S TOUCH newsletter, a 
quarterly publication with tree programs ideas for applications, update* and more 
Now available lor MODEL l/lll Coming soon lor MODEL II. IBM and APPLE 
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the HOW TO, SHOW & TELL, STEP by 
STEP book. Written tor TRS-80 and all 
computers using Microsoft basic. 

The breakthrough book for non-programmers 
businessmen and professionals who want to 
solve in house problems by writing your own 
customized program and the hobbyist with 
the desire to get beyond the cassette and into 
disk data storage and lile manipulation "DOS 
Random Access & File Handling" is the plain 
speaking, easy to read 150 page book for 
learning HOW TO WRITE SPECIAL PROGRAMS 
for inventories, mailing lists, work schedules, 
record keeping and more Your acquaintance 
with Level I and Level II basic and this self- 
instruction tutorial will assure quick progress 



Please send me a copy of "DOS Random Acceu 
& Basic File Handling" for 29.50 + 1 50 shipping. 
Model I & III D Model ll/CPM a 
Also send the compatible 8" program disk for 
32.50 + 1.50 shipping CPM o or Model II a 
or the 5V 4 " disk for Model I and III for 28.50 + 
1.50 shipping d 

Overseas add 8.00 par book and disk 
airmail. 

Name 



Address 

City 

State 



Master Charge D VISA D 

Expiration Date 

Card # 



Zip 



Check D Money Order D 
COD (2.00 extra) D 

Signature 



Phone Orders (203) 748-3231 
CT. orders add 7.5% sales tax. 



and avoid the time-consuming 
mathematics. 

There are several ways to 
translate the rotational motion 
of the motor into a linear mo- 
tion. Linear (or translational) 
motion is extremely useful in 
push/pull applications. One 
manufacturer makes a ball bear- 
ing device accomplishing this 
within the price range of the 
hobbyist (see list of references). 

The stepper motor is a special 
type of motor whose speed, direc- 
tion of rotation and degree of rota- 
tion can be controlled by com- 
mercially available controllers in- 
terfaced to the logic level signals 
at the TRS-80 edge connector out- 
put bus. Manufacturers of com- 
puter peripherals such as disk 
drives and printers commonly use 
these expensive stepper motors. 
If your robot budget can handle 
this expense, I highly recommend 
the investment. 

The final schematic may be 
found in the TRS-80 Microcom- 
puter Technical Reference 
Handbook on pages 84-89, pub- 
lished by Radio Shack, for the in- 



terface buffer required for ac- 
tuator interface. I have not used 
this circuit before. By all means 
try it yourself and inform me of 
your successes with this or any 
other robot circuit. ■ 



Stephen Davids has designed 
and developed some of the 
world's most fascinating robot 
systems, including talking vend- 
ing machines, robot waiters and 
K-9, the robot dog. 
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CONVERT YOUR TRS-80 MODEL-I OR III INTO A 

DEVELOPMENT 



SYSTEM 



Complete instructions and sample 
schematics are included to help you 
design your own simple stand-alone 
microcomputer systems. THESE 
SYSTEMS CAN BE AS SIMPLE AS 
FOUR ICs one TTL circuit for clock 
and reset, a Z-80 an EPROM. and one 
peripheral interface chip 

When the In-Circuit-Emulation 
cable is plugged into the Z-80 socket 
of your stand-alone system, the sys- 
tem becomes a part of your TRS-80: 
You can use the full power of your 
editor/assemblers debug and trace 
program to check out both the hard- 
ware and the software Simple test 
loops can be used to check out the 
hardware then the system program 
can be run to debug the logic of your 
stand-alone device 

Since the program is kept in TRS-80 
RAM. changes can be made quickly 
and easily When your stand-alone 
device works as desired, you use the 
Developmate s PROM PROGRAMMER 
to copy the program into a PROM 
With this PROM, and a Z-80 in place of 
the emulation cable your stand-alone 
device will work by itself 




Now you can develop Z-80 based 
stand-alone devices such as games 
robots, instruments and peripheral 
controllers, by using your TRS-80 as a 
development system The DEVELOP- 
MATE plugs into the expansion con- 
nector of your TRS-80 and adds 
PROM PROGRAMMING and IN- 
CIRCUIT-EMULATION capabilities to 
your system (with or without expan- 
sion interface) 



The DEVELOPMATE is extremely 
compact Both the PROM programmer 
and the In-Circuit-Emulator are in one 
small plastic box only 3 2" x 5 4" A 
line-plug mounted power supply is 
included The PROM programmer has 
a personality module " which defines 
the voltages and connections of the 
PROM so that future devices can be 
accommodated However, the system 
comes with a "universal" personality 
module which handles 2758. 2508 (8K) 
2716. 2516 (16K), 2532 (32K). as well 
as the new electrically alterable 2816 
and 48016 (16K EEPROMs) 

The COMPLETE DEVELOPMATE 
81. for Model I. with software, power 
supply emulation cable TRS-80 
cable and Universal'" personality 
module $329 

DEVELOPMATE 83 Model III version 
same as above S329 

PM2 PERSONALITY MODULE for 
2732A EPROM $15 

PM3 PERSONALITY MODULE for 
2764 EPROM $15 

ORION 

INSTRUMENTS 
172 Otis Avenue. Dept M. Woodside. 
CA 94062 
(415) 851-1172 ^151 

Masle' Charge and Visa phone orders accepted 
Cahlomia residents please add 6 % sales tax 
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SOFTWARt 



P.O. Box 336 

, Maynard, 

MA. 01754 

617-5684641 



MATH-PAK-1: MATHPAK-2: MATH-PAK-3 

teteiaetlie drill programs where yon enter the ww w 
dkflt by cXglt, Just Ilk* paper end pencil. With umt 
selected difficulty levels, carryover*, reducing, slmptt- 
W caWow. pointing off, e co r tiw a. gamaa. and mora. Uaad 
by schools everywhere. Ordar MATH-PAK-1 for Inte- 
gers. MATHPAK-2 for fractions, MATH-PAK-3 tor 
decimals (L2-1 MQ tl 4.0S •». 

H-O-R-K-S 
Low coat, single an try acco u nting s y s tem tor ma noma 
or offloa. with §1 uaar assigned account codaa, auto 
audit trail, aaar c h wttn totals, 32 or UK, 1 to 4 dr U ee. 
cradtt and debit aummartaa with 3 options, up to 92O0 
antrlaa. S24.tWceeeetto S2t.MMIac 

INVENTORY + 

Why aattta tor lust an Invantory listing? Oat aging 
reports with 2 options, raordar, total listings with pur- 
chass dataa and amounts, total coats, Hams sold, pro- 
Mt/loaa and mora. Uaa aa a stand alone systam with 
dairy updataa, delete, change, and Ills packing 
routine*. (32K - 1 disc minimum) f24.9S/cessette 

S29.NMIac. CASH REGISTER 80 
Uaa your TRS-dO aa a point of sale terminal with 
automatic Inventory lookup, pricing, update, and more. 
Print aalee slips with user adtueted formate, end of 
day raporta with all cash, charge, and check aalee by 
salesper s on. CMO requires INVENTORY* . 4eK. and 
1 disc minimum (2 drives recommended). 
. S24.M/cassette S2S.»5/d!ec. 



Maaa residents and 5% tax. VISA. M.C.. ANO PHONE 
ORDERS ACCEPTED. Dealer Inquiries Invited. Over- 
sees orders add $2.00 for ak shipment. TRS-00 Is a 
t rade m ar k of Tandy Corp. 




WHY BUY A JOY 
MT STICK TWICE! 

\t you sWead* have 
<3n Atari Jou/ST.ck, 
you can usew-eneeur 

TregPHiHiOurKi + -_ 

JOY STICK KIT 

Without Joy Stick Model l/lll 515.95 

With Joy Stick Model I /III 526.95 

— Be Your Own SYSOP !!!!!— 

Bullet 80 Bulletin Board Model I 5130.00 

Bullet 80 Bulletin Board Model III 5150.00 

Screen Artist ll-Create Graphics. 

Save As Basic Routines 532.95 

Pamk New From fantastic Sottware 

Model l/lll Disk 524.95 

Pamk-Model l/lll Tape 16K 519.95 

Bounceoids New From Cornsoft 

Model l/lll Disk 519.95 

Bounceoids-Model l/lll Tape 515.95 



We Also Have In Stock A FULL LINE Of Software 

From ALL The Major Houses. 
Please Call For Information About Any Products. 
After-Market Computer Gallery* ^25? 
P.O. Box 993 

14 Summit Street (Mail Order) flft 

1 Franklin Street (Retail Outlet) ^^ m 
Danbury. CT 06810 aaafisi 

Voice Line -203 743-1299 

BuUet-80 Computer Line - 203 744-4644 

(300/1200 Baud) 

•A Division 01 Computer Services Of Oanbury 



♦TRS-80 MOD m/TRSDOS 
g= OWNERS 

=MRCHspeed= 



*tm of TANDY Corp. 



Are your BASIC PROGRAMS 
much too SLOW? You don't 
have the time to make your 
own MACHINE LANGUAGE 
conversions? If we can agree 
that time is "$", particular- 
ly in our BUSINESS applica- 
tions, then this UNIQUE offer 
is just what you've been look- 
ing for. Well take your BASIC 
PROGRAMS and RE- 

STRUCTURE, COMPACT and 
then CONVERT them into a 
SPEEDY MACHINE 

LANGUAGE PROGRAM. (For 
an APPLICATION & 

DETAILS), send a S.A.S.E. and 
$1 for S&H to: 

R.N. da Silva, P.O. Box n P n , 
Calexico, CA 92231 



comp case 



PE ECT GIFT FOR THE COMPUTER THAT HAS EVERYTHING 




Your investment in a computer is long term. You expect 
many years of reliable service. Comp Case protects 
your investment when not in use or while transporting it 
from office or home. Your computer never leaves the 
case — you simply remove the lid, make the electrical 
connection, and operate. Comp Cases are available for 
most brands of computers and peripherals. 

COMPUTER CASE COMPANY • 5650 INDIAN MOUND 



Comp Case is the perfect Christmas 
gift. Comp Cases are available in 
better computer stores in our area. 
Or call 800-848-7548 direct to 
receive your Comp Case in 
time for Christmas. . ^^^ 

S£ 33 

COURT • COLUMBUS, OHIO 43213 






• See List ot Advertisers on Page 451 
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TUTORIAL 



Convert Fortran and muMath and learn some tricks. 

Model III Machine-Language 
Modifications 



Richard Koch 

2740 Washington Street 

Eugene, OR 97405 



With a push from the Feder- 
al Communications Com- 
mission, Radio Shack launched 
the Model III in September, 1980. 
At that time, the company an- 
nounced that "virtually all our 
software and most non-Radio 
Shack software for the Model I is 
compatible with the Model III." It 
gradually became clear last year 
that this statement applies only 
to programs written in Basic; 
machine language programs 



The Key Box 

Basic Level II 
Model III 

48K RAM 
TRSDOS1.3 
1 Disk Drive 



usually require modification. 

I will report here on a project 
to modify two Model I programs, 
muMATH from the Soft Ware- 
house by way of Microsoft, and 
Fortran, from Microsoft by way 
of Radio Shack. Model III ver- 
sions of these programs should 
be available soon from the sup- 
pliers. Although I give explicit 
details for modifying the pro- 
grams, the main purpose of this 
article is to describe the type of 
code which can fail on the 
Model III. 

If you want to make the 
modifications without reading 
about the details, refer to the 
end of this article where I have 
collected the required changes. 
I have a confession to make: Not 
all bugs in Fortran have been 
removed. I need help from 
readers with one problem I will 
explain later. 

Preliminaries 

I modified Scripsit, the Editor/ 
Assembler, APL80, and MMS- 
FORTH before modifying For- 
tran. Unhappily, most lessons 
learned from these programs 
were irrelevant for Fortran, but 
the lessons may interest you. 

The authors of many of these 



programs changed the key- 
board routine. They provided a 
flashing cursor or debounce or 
special purpose keys. Typically, 



program name: IN IT 




name for search: SINIT 


name for search: SEC 


name for search: SIOFLG 


define size of data: 


02 00 


define program size: 


15 00 


set loading counter: 


00 00 


set loading counter: 


01 00 


set loading counter: 


02 00 


set loading counter 


00 00 


AF 




32 




data relative 00 00 




32 




data relative: 01 00 




21 




program relative: 14 


00 


22 




00 




00 




2A 




49 




40 




F9 




Figure 1 





they loaded location 4016 in the 
keyboard device control block 
(DCB) with the new keyboard 
driver address (all addresses in 
this article will appear in hex). 
Since the Model III keyboard 
DCB has not been changed, the 



new keyboard routines would 
have worked had they not con- 
tained surprises. 

Most new routines only con- 
tain code for the beginning of 
the routine. Then they jump into 
the middle of the old ROM code. 
Addresses in the middle of ROM 
routines are different on the 
Model III, and such code will not 
work. 

This kind of difficulty was 
easy to repair. First I searched 
the code for the address 4016. 
The instruction containing this 
number was usually LD (4016), 
HL and the address of the new 
driver then became clear. If this 
driver contained jumps back in- 
to ROM. I would use the regular 
Model III driver. When that 
failed, I would compare the Mod- 
el I and Model III keyboard ROM 
routines and find the address to 
jump into on Model III. 

The keyboard driver problem 
was the most serious difficulty I 
encountered in earlier modifica- 
tion projects. Fortran just uses 
the Model III ROM routine. 

The printer routine often 
caused trouble. The docu- 
mented printer routine at 3B has 
not changed, but many software 
authors wrote their own rou- 
tines instead. In that case I 
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Turn your 
color computer on 

to the power of 
FLEX and OS-9 

NOW FROM THE WORLDS LARGEST SUPPLIER OF SOFTWARE FOR FLEX AND OS-9 
COMES FHL COLOR FLEX AND COLOR OS-9, JUST LOOK AT THESE FEATURES: 



OS-9 WITH BASIC09 S299 

Unix*-based, multitasking, modular, and 
versatile 

Over 40 utility commands 
Friendly "Shell" command interpreter 
Tree structured multilevel file directories 
Full time sharing support with log in and 
file security 
» Fast, secure, random and sequential 
access files 

Comprehensive English language error 
messages 

Compact real-time multitasking executive 
BASIC09 is the fastest and most compre- 
hensive full Basic language available for 
the 6809. It combines standard Basic with 
the best features of Pascal. It's a unique 
interactive compiler that combines «w 
compiler speed, interpreter 
friendliness, and superlative , 

debugging facilities. A 





HI-RES screen formats 
16x32 and 24x51, upper and lower 
case characters 

• 24 x 64 and 32 x 64 upper case 

• Full ASCII keyboards 

• Easy start-up— just type RUN "FLEX" 
• Online assistance just type HELP 
• Optionally use a standard terminal 

and printer 
• Advance disk I/O and terminal 

capabilities 
" NO additional hardware required 
• We have supported FLEX with 

more software than anyone else in 
. the world for more than 2 years! 



SPECIAL 

1. DBASIC, RS Disk Basic 
under FLEX with a utility to 
copy RS to FLEX disk $30. 

2. ED/ASM line and screen 
editor and macro assembler, 
both more powerful than 
TSC's, and at the same cost, 
only $100. 

3. UTILITIES, a set of 12 
utilities especially designed 
for FHL Color FLEX $50. 




Get on our mailing list, call or send for our 

complete catalog of over 100 products for FLEX and OS-9. 

We're doing exciting things with your color computer! 



FRANK HOGG LABORATORY 

THE REGENCY TOWER • 770 JAMES ST. • SYRACUSE, NY 13203 TELEPHONE (315) 474-7856 
•Unix is a trademark ol Bell Labs. 'OS-9 & BASIC09 are trademarks of Microware & Motorola Inc. *FLEX Is a trademark ol Technical Systems Consultants Inc. 



^ See List of Advertisers on Page 45 1 
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Location 


Now Coda 


OMCodo 


6C66 


000000 


321543 


87 B6 


000000 


321543 


6C61 


000000 


221343 


87C5 


000000 


221343 


6FF4 


4B44 


7344 


B7DA 


21FFFE 


2A4940 


6FA6 


00FF 


COSF 


6FAE 


O0FF 


C05F 


72DB 


OOFF 


C05F 


72F8 


OOFF 


C05F 


7307 


OOFF 


C05F 


730D 


OOFF 


C05F 


7318 


OOFF 


C05F 


738E 


OOFF 


COSF 


73A1 


OOFF 


C05F 


772B 


OOFF 


C05F 


7741 


OOFF 


C05F 


7759 


OOFF 


C05F 


7770 


OOFF 


C05F 


7E58 


OOFF 


C05F 


7FBO 


OOFF 


C05F 


7215 


05FF 


C55F 


72CA 


OBFF 


CB5F 


721 B 


782004FE8018 


CA2A7278667F 


7221 


088720031 B18 


C2287278EE80 


7227 


05FE81380113 


471B1B7887D2 


722D 


000000 


307213 


784D 


2100000909B7 


E67F7E21FEFF 


7853 


20032 B1805FE 


CA5878EE8087 


7858 


813801230000 


DA5D78230909 


7F74 


2811FE1C37C2 


CA7A7FFE1C37 


7F7A 


AC673AA85FE6 


C2AC67E521AA 


7F80 


7F4F06000936 


5F5E2358237E 


7FB6 


1AD1C1E1C9 


23666FCDF6 


5200 

6100 
6106 
610C 


C30061 
222061213061 
1140FF013BO0 
EDB02A2081C3 


C3B587 


000000000000 


000000000000 


000000000000 


6112 
6130 


B587 
215EFF7EB736 


0000 


000000000000 


6136 


00211E5FC238 




000000000000 


613C 
6142 
6148 
614E 
6154 


7961C31079E5 
215EFF36FFE1 
E3E1E3C3F278 
0000CDE07F21 
4AFF36C3C9E5 




000000000000 


000000000000 


000000000000 


000000000000 


000000000000 


615A 
6160 


214AFF36C221 
5EFF3600E1C3 


000000000000 


000000000000 


6166 


0277 


0000 


62C3 


89FF 


0277 


72FA 


CD60FF 


CDE07F 


78EF 


C351FF 


E3E1E3 


7938 


C340FF 


211E5F 




Table 2. Changes for EDIT/CM D 



Location 


OMCodo 


Now Coda 


63D4 


91 6F 


2542 


63DO 


91 6F 


2542 


64B8 


916F 


2542 


6367 


E06F 


6042 


6406 


E06F 


6042 


640F 


E06F 


6042 


6420 


E06F 


6042 


Table 1. 


Changes for muMA TH 


(either 32K or 48K version) 



changed the Instruction LD 
(37E8),A for printing the con- 
tents of the accumulator to the 
equivalent new instruction OUT 
(0F8H),A. Fortran uses the ROM 
routine and needs no change. 

When I began this game, I 
was frightened most by pro- 
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grams with extensive calls to 
the arithmetical routines in 
ROM. For example, APL80 uses 
the Basic ROM to add numbers, 
multiply them, compute square 
roots, calculate sines, and so 
on. The floating point package 
for MMSFORTH also calls ROM 
routines. The good news is that 
the arithmetical ROM routines 
have not changed locations in 
Model III, and programs which 
use them are as easy to modify 
as other programs. Fortran does 
not use the arithmetical ROM 
routines. 

Finally, the routine which sets 
the top of memory is usually in- 
correct. There are four tech- 
niques here. Some programs 
like Checkers-80 simply use 16K 
and have no need for additional 



memory. Other programs come 
on a disk containing several ver- 
sions for different memory ca- 
pabilities; for example, the mu- 
MATH package contains a 32K 
version and a 48K version. Some 
programs find the top of mem- 
ory by directly testing location 
FFFF and working down until a 
live cell is found; APL80 and 
Scripsit work like that. (Such 
programs wipe out protected 
code at the top of memory, so 
readers with serial printer driv- 
ers or other routines there will 
have to make changes.) The 
most sophisticated technique 
for finding the highest memory 
location is to ask the DOS. 
Model I DOS stores the highest 
available memory at location 
4049 and Model III DOS stores 
the information at 4411. 

Fortran examines location 
4049 to find the top of memory. I 
will begin the modification at 
that point. 

Review of Fortran 

The Fortran disk contains 
three programs and an additional 
library file. The programs are 
called EDIT/CMD, F80/CMD, and 
L80/CMD; the additional file is 
called FORLIB/REL Microsoft 
constructed the package to ac- 
commodate writing and running 
very large Fortran programs. Con- 
sequently, at any moment the 
computer memory contains only 
the code to do the task at hand. 

Edit is an editor to simplify typ- 
ing text into the computer; it 
works like the Basic editor or the 
editor portion of EDTASM. When 
a program Is complete, it is writ- 
ten to the disk and the Edit pro- 
gram is erased. 

Unfortunately, Edit Is a com- 
plicated program. It caused 
most of the trouble in the proj- 
ect. Microsoft has written Edit 
to use with programs too large 
for the computer memory. Old 
programs are not read back into 
memory for reedltlng. Instead, 
the computer stores only 
changes and additional text in 
memory and reads from disk 
when it refers to earlier material. 
Thus, Edit must be able to work 
with two files simultaneously 
when writing a reedited program 
back to disk. Even a third file can 
complicate this process, for 
when a large file is written to the 



disk, Edit also writes a small "in- 
dex file" of vital Information 
about the large file for faster 
processing. 

After you write a program, the 
compiler F80 converts it to code. 
This program also juggles three 
files at once. If you call your pro- 
gram EXERCISE, you must save 
it from the editor with the exten- 
sion /FOR. The compiler pro- 



Location 


OMCodo 


Now Coda 


78C5 


4940 


1144 


575B 


321543 


000000 


7C09 


321543 


000000 


5767 


221343 


000000 


7C0F 


221343 


000000 


795C 


7344 


4B44 


797F 


7344 


4B44 


7999 


7344 


4B44 


Table 3. 


F80/CMD Changes 



Location 


OMCodo 


Now coda 


5214 


4940 


1144 


5204 


321543 


000000 


5S2A 


321543 


000000 


5210 


221343 


000000 


5830 


221343 


000000 


500C 


7344 


4B44 


Table 4. 


L80/CMD Changes 



duces a machine language ver- 
sion of the program on a file 
called EXERCISE/REL It also 
produces an Assembly lan- 
guage version of the code which 
you can list and inspect; this file 
is called EXERCISE/LST. 

The program EXERCISE/REL 
is not In a form which can run 
directly from the computer. One 
of Fortran's most important fea- 
tures is its ability to handle pre- 
compiled subroutines. Suppose 
you often need a routine called 
Matrix (no need to explain what 
it does). You can write the pro- 
gram Matrix only once and com- 
pile it to MATRIX/REL code. 
When the program EXERCISE/ 
FOR uses Matrix, Include the 
line CALL MATRIX in the text. 
Even though Matrix appears no- 
where else in the program, the 
compiler will not complain. But 
you must merge or link the file 
MATRIX/REL together with EX- 
ERCISE/REL before you can run 
the program. L80 does this link- 



ing. It converts EXERCISE/REL 
and any routines it uses into a 
single runnable file called EXER- 
CISE/CMD. Many commonly 
used routines are included in 
the file FORLIB/REL; the linker 
must always merge at least 
these programs with the EXER- 
CISE/REL file. 

In summary, during a Fortran 
session with Exercise the disk 
may contain EXERCISE/FOR, 
EXERCISE/ZFO (the index file), 
EXERCISE/REL, EXERCISE/ 
LST, and EXERCISE/CM D. The 
Fortran package juggles them, 
and every routine doing the jug- 
gling can cause trouble on the 
Model III. 

First Steps 

I am using version 1.0 of For- 
tran. Use DOS 1.3 during the 
modification; the "end of file" 
protocol in earlier versions of 
DOS is incompatible with the 
modifications we will make. 

The first change is easy. The 
three programs Edit, F80, and 
L80 find the top of memory by 
examining location 4049; we 



must change this number to 
4411. Use Patch to change 4940 
to 1144 at location 87DB in 
EDIT/CMD, at location 78C5 in 
F80/CMD, and at location 5214 
in L80/CMD. 

These changes do not end our 
"top of memory" problems. For- 
tran programs created by the sys- 
tem still use location 4049 to find 
the top of memory. Solving this 



Model III. During these pro- 
grams, a (perhaps accidental) 
press of the Break key causes 
you to fall back into Debug. This 
dismaying response can, of 
course, be deactivated. 

Location 431 5 controls the ac- 
tion of the Break key. It contains 
C3 when the Break key is ac- 
tivated and 00 when it is inac- 
tive. All three of our packages 



"The Fortran system tracks 

related files by giving 

them the same first name 

with different extension names." 



problem is much more difficult 
(and much more fun); it will be the 
last step of our modification. 

If you did not own a Model I 
you may never have heard of the 
Break key's idiosyncracies. On 
the Model I, this Break key is 
"activated" by turning on 
Debug. After leaving Debug, you 
can run programs as on the 



contain code which sets this 
location to 00 at the start of the 
program and to C3 when it ends. 
We must eliminate this code. 
Replace 321543 by 000000 at lo- 
cations 6C66 and 87B6 in EDIT/ 
CMD, at locations 575B and 
7C09 in F80/CMD, and at loca- 
tions 5204 and 582 A in L80/CMD. 
Our programs also temporarily 



replace the contents of location 
4313 on startup and return these 
contents to normal before end- 
ing. Documentation I own claims 
this location is a "jump director 
for positive DOS commands." 
The Model III has different code 
near 4313. So we eliminate mani- 
pulation of address 4313 by 
changing 221343 to 000000 at lo- 
cations 6C61 and 87C5 of EDIT/ 
CMD, at locations 5767 and 7C0F 
of F80/CMD, and at locations 
5210 and 5830 of L80/CMD. 

The Fortran system tracks 
related files by giving them the 
same first name with different 
extension names. The package 
handles these extensions auto- 
matically. If you wish to compile 
Exercise, you need type only 
these eight letters; the compiler 
automatically looks for EXER- 
CISE/FOR and calls the result- 
ing code file EXERCISE/REL. 
The compiler does this using a 
DOS routine called SPUTEXT. 
This routine was not docu- 
mented on the Model I, and 
Radio Shack changed its loca- 
tion. It has been documented on 
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J J "Deck The 

J Halls With 
80 MICRO . 

Make 80 MICRO part of your holi- 
day season. Every month, 80 MI- 
CRO provides its readers with more 
TRS-80* related programs, articles, 
applications, new product announce- 
ments, and reviews than any 
other magazine. 

And it's as enjoyable as it is informative. 

What a perfect way to say Happy 

Holidays to your favorite Radio Shack 

m icrocomputerist . 

Give a gift that will Last throughout the 

year. Give a subscription to 80 MICRO. 

•TRS 80 is a trademark of the Radio Shack Division of Tand> Corp. 




X 1_j»j 9 I want to give a 
subscription to 80 MICRO for 
the Holidays (12 issues— $24.97) 



J Bill 



[ Check enclosed 

DMC DVISA LJAE 



Card, 



Expire Date 

Signature — 



Interbank* 
My Name . 
Address 



City. 



State Zip 



Please enter a one Near gift subscription to: 

Name _ 



Address 
City 



State . Zip 



Canada & Mexico 127.97. 1 year only US Funds 
Foreign 144.97. 1 year only U S. Funds drawn on US Bank 
All Gift Subscriplions Begin With Jan. 1983 Issue. 
80 Micro»Box 98l»Farmingdale. NY 11737 
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Our crop-The Lemon™, The Lime 1 ", 
and The Orange™ are designed to 
eliminate undetected submicrosecond 
overvoltage transients from electrical 
circuits. Commonly referred to as 
"spikes", or "glitches", these tran- 
sients can cause hardware and soft- 
ware damage to unprotected circuits. 

Today's electronic products are often 
microprocessor controlled - mini and 
micro computers, televisions, video 
cassette recorders - to name a few. 
Each of these products is sensitive to 
fluctuations in electrical power lines. 
Power switching devices such as 
refrigerators coming on and off or air 
conditioners starting up can be respon- 
sible for a momentary surge or spike of 
electricity in a circuit. Even your local 



utility stepping-up transformers to add 
power at peak load times or an elec- 
trical storm passing through can trigger 
surges. Such surges can cause equip*, 
ment to falter at times, not to work at 
peak performance or fail completely. 
An entire data base can be lost. 
Now you can prevent this from 
happening to you with an AC Surge 
Protector from Electronic Protection 
Devices. Each Protector is a solid state 
clamping device with 6 outlets utilizing 
modern high speed semiconductor 
technology. Using our Protectors is as 
simple as plugging it into any standard 
three wire duplex outlet then plugging 
what needs protection into it. Each 
Protector exceeds the IEEE 587-1980 
Guide for Surge Voltages in Low 



Voltage AC Power Circuits. 

When you compare the cost of 
computer hardware, software and your 
time with the price of a Protector (from 
$59.95 to $139.95), you'll want to sour 
your surges with one of the AC Surge 
Protectors from EPD, which are 
available through your local dealer. 



Electronic Protection Devices 

5 Central Avenue 

Waltham. Massachusetts 02154 

In Massachusetts Call: 
(617)891-6602 

Outside Massachusetts Call: 
1-800-343-1813 



Dealer Inquiries Invited 



the Model III. The routine begins 
at 4473 on the Model I and at 
444B on the Model III. Conse- 
quently we change 7344 to 4B44 
at location 6FF4 in EDIT/CMD, 
at locations 795C, 797F and 
7999 in F80/CMD, and at lo- 
cations 5D0C in L80/CMD. 

This last change has a dra- 
matic effect. F80 and L80 now 
work perfectly. At first glance, 
Edit seems to work too. But as 
soon as we try to reed It a file, the 
editor becomes very sick and re- 
fuses to reload the file. 

The DCB 

Now we come to the most an- 
noying of all Model I to Model III 
changes. Radio Shack length- 
ened the DCB for disk files from 
32 bytes to 50 bytes. 

When you use a file, the file 
name is placed in an area of 
memory called the device con- 
trol block or DCB, and the ad- 
dress of this block is given to a 
DOS routine called Open. The 
routine locates the file in the di- 
rectory and replaces its name in 
the DCB with technical informa- 



tion about it. While you manip- 
ulate the file, this DCB becomes 
a sort of scratchpad for the 
DOS. When you close the file, 
the name of the file is returned 
to the DCB. 

The computer always reads or 
writes 256 bytes at a time. For ex- 
ample, when Patch changes a 
single byte of code, the computer 
actually reads in 256 bytes, 
changes that one byte, and then 
writes back all 256 bytes. The 256 
byte memory area from which 
the computer reads and writes is 
called the buffer; the location of 
this buffer is given the system 
when a file is opened, and be- 
comes part of the technical infor- 
mation in the DCB. 

Many programmers arrange 
memory allocation so the file buf- 
fer immediately follows the DCB. 
How does this arrangement affect 
the change in the length of the 
DCB? Imagine that we are going 
to read from a file. First we place 
the name of the file in the DCB. 
This name takes less than 32 
bytes and the rest of the DCB con- 
tains irrelevant information. Next, 



we open the file. The Model III 
scoops up the name and replaces 
it with technical information. This 
information is 18 bytes long (for a 
fairly short file) followed by 24 
bytes of FF. Forty-two bytes in 
memory are changed. Since the 
Model I DCB is only 32 bytes long, 
an extra 10 bytes in the file buffer 
are filled with FF garbage. 

This garbage is Irrelevant be- 
cause the file buffer contains 
nothing interesting yet. Next, we 
read the first record of the file. 
The beginning bytes of this rec- 
ord overwrite the last 10 bytes of 
FF in the technical information 
contained in the DCB. The tech- 
nical information at the end of 
the DCB is information on file 
extents; you can change the last 
few bytes unless the file has a 
large number of extents. 

Most programmers use the in- 
formation in the file buffer only 
when the file is open. When the 
buffer is changed during the 
Open and Close routines, no 
harm is done. In summary, when 
the file buffer immediately 
follows the DCB in a Model I pro- 



gram, the program will probably 
work on the Model III. 

Programs such as F80 and 
L80 can cause trouble on a 
Model III. But this problem will 
only come up once or twice in a 
lifetime, when you try to write a 
file on a dirty disk and force a 
very large number of extents. If 
you are bothered by this possi- 
bility, feel free to change the 
DCBs in these two programs. 

Not all programs are arranged 
in the above manner. Some- 
times the DCB occurs in the 
middle of a program, followed 
immediately by other important 
code. It will be disastrous to use 
the disk during the operation of 
such programs. It turns out that 
Edit and muMATH fall in this 
class. 

MuMATH 

MuMATH is produced by the 
Software House in Hawaii. The 
program is written in Lisp and 
can perform algebraic manipu- 
lations. It expands polynomials, 
differentiates any reasonable 
function, and even integrates 
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using the method of substitu- 
tion. The program happily 
handles very large numbers; for 
instance it can calculate 100! 
down to the last digit and then 
convert the result to hex. Some 
people claim that the very first 
computer program was one writ- 
ten by Ada Byron for Babbage's 
machine (but never run); the pro- 
gram computed Bernoulli num- 
bers. Bernoulli numbers are very 
large rational numbers and the 
whole point is to know their 
numerators and denominators 
exactly; approximations are not 
interesting. MuMATH is the only 
system available for the TRS-80 
which can run Ada's program 
without resorting to tricks. 

When I first converted mu- 
MATH to the Model III, I was 
happy to find that it worked 
without change. Later I dis- 
covered a curious flaw. The 
authors of muMATH included a 
large demonstration file on the 
disk. This file asks muMATH a 
series of questions and mu- 
MATH stops to answer each 
question before reading further. 
Of course, muMATH can answer 
quite rapidly; you must freeze 
the screen if you wish to ex- 
amine the answers. When I first 
tried this program on Model III, 
the questions and responses 
scrolled rapidly across the 
screen; I neglected to look at the 
answers because I had seen 
them all before. But soon a 
strange answer caught my eye 
as it floated off the screen and 
after freezing the display I dis- 
covered that muMATH had for- 
gotten everything it once knew. 

MuMATH repeats questions it 
cannot answer. If you ask it to 
integrate SIN(X), it replies 
-COS(X), but if you ask it to in- 
tegrate SIN(X*X*X), it just 
replies INT(SIN(X*X*X),X). But in 
the demonstration program, 
muMATH replied 1+2 when 
asked to sum one and two. 

The difficulty here is the DCB. 
In muMATH, it is hidden in the 
middle of the code. As soon as 
we try to read the demonstration 
disk, a small part of muMATH 
dies. 

Unfortunately, muMATH uses 
up the complete 32K or 48K of 
computer memory and leaves 
no obvious spot to place a larger 
DCB. However, the DCB can be 
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located safely in a buffer area 
on page 42 of the DOS. There ac- 
tually are two DCBs, one at 6F91 
for reading and one at 6FE0 for 
writing. So to patch either ver- 
sion of muMATH, change 916F 
to 2542 at 63D4, 63DD and 64B8. 
Also change E06F to 6042 at 
6406, 640F, 642D and 6367. 

Fixing the Edit DCB 

Several techniques work to 
find the DCBs for Edit. Perhaps 
the easiest is to look for calls to 
the INIT routine at 4420 and the 
Open routine at 4424. Before 
calling these routines, the com- 
puter loads DE with the address 
of the DCB. Experiments like 



Patch to change C05F to O0FF 
at 6FA6, 6FAE, 72DB, 72F8, 
7307, 730D, 7318, 736E, 73A1, 
772B, 7741, 7759, 7770, 7E58 and 
7FB0. Then change C55F to 
05FF at 7215. Finally change 
CB5F to 0BFF at 72CA. 

Now test the result. Edit can 
read in and change a short pro- 
gram. But nasty surprises are 
ahead. When Edit reads a pro- 
gram longer than eight lines, it 
starts listing lines out of order, 
forgets pieces of lines, and 
ignores the end of the program 
entirely. 

The new problem does not oc- 
cur with DOS 1.1. Reaching into 
the bag of Radio Shack changes, 



"The routine locates the file . . . 

and replaces its name in the DCB 

with technical information." 



these show that the Edit pro- 
gram has DCBs at 5FA0 and 
5FC0. Moreover, there is a tem- 
porary storage area for the con- 
tents of these blocks at 5FE0. 

When the 5FA0 DCB is used, 
the computer overwrites the 
first part of the 5FC0 DCB. We 
are going to move this 5FC0 
DCB to the address FF00; later 
on we will use other pieces of 
this page of memory as a patch 
space. If you have only 32K, you 
will have to change various 
pieces of the modification 
which follow (buy another 16K 
instead!). 

Before using this area, we 
have to protect it from Edit by 
revising the reference to the top 
of memory. At 87DA we find the 
command LD HL,(4411). (The 
number 4411 was 4049 before 
we changed it a moment ago.) 
Change this command to LD H L, 
0FEFFH. Use Patch to change 
2A1144 to 21FFFE at 87DA. 

Next find all references in the 
code to the number 5FC0. Unfor- 
tunately, many programs are 
savvy enough to use the tech- 
nical information stored in the 
DCB; Edit is one of these. Con- 
sequently you also must find 
references to 5FC5 and 5FCB in 
the code. 

Once you find these refer- 
ences, the final step is easy; use 



we have just discovered the "end 
of file" revision. 

The EOF 

The DOS stores certain tech- 
nical information in the DCB 
while a file is open. Call the ad- 
dress of the first byte in the DCB 
"location zero." Then locations 
8 and 12 contain end of file infor- 
mation. To understand this 
information, you must know a 
little more about how DOS 
operates. 

On the disk, a file consists of 
a series of "physical records", 
each 256 bytes long. These rec- 
ords are numbered record 0, rec- 
ord 1 , record 2, . . . The records 
may be scattered all over the 
disk, but the operating system 
handles all of that. 

Sometimes it is inconvenient 
to deal with blocks of data 256 
bytes long. The DOS allows 
users to write files with record 
lengths other than 256. For in- 
stance, Edit files have records 
of length 128. The length of the 
records in a file is called the 
"logical record length" or LRL. 

However, this logical record 
length is fictitious. When rec- 
ords are written to the disk, they 
have length 256. The DOS con- 
verts the logical records in the 
programmer's mind into blocks 
of code exactly 256 bytes long. 



When a program asks that a re- 
cord be written to disk, the re- 
cord is actually written into the 
256 byte buffer we discussed 
earlier. But the buffer is written 
to disk only when it is full. 

For instance, imagine that 
you are working with records of 
length 100 and you want to write 
four such records to disk. When 
you record 0, the operating 
system writes it into the buffer, 
but nothing goes to disk. The 
next record also moves only to 
the buffer, filling spots 100-199. 
The first part of record two 
moves to the buffer, filling spots 
200-255, and then this buffer is 
written to disk. Next the buffer is 
cleared and the end of record 
two is written into its first 44 
spots. Finally record number 
three is written from spot 44 to 
spot 143. The contents of the 
buffer, however, will not be writ- 
ten to disk until further logical 
records are written or you close 
the file. 

The fictitious records of 
length LRL which compose a file 
are called "logical records." The 
actual 256 byte blocks of code 
on the disk are called "physical 
records." Thus in the above ex- 
ample, logical record number 
three is in physical record num- 
ber one. 

Now I can explain locations 8 
and 12 in the DCB. In DOS 1.3. 
the information in these loca- 
tions tells where to place the 
next byte to extend the file. If 
you closed the file described in 
the last paragraph after the four 
records were written, on the disk 
the file would consist of two 
records, each with 256 bytes of 
code. The first record would be 
called record zero and the sec- 
ond record one. In record one, 
only bytes 0-143 would be sig- 
nificant. When we reopen this 
file and fill the DCB with 
technical information, location 
8 will contain 144 and location 
12 will contain 1, because the 
next byte to be written would go 
to spot 144 in record one. Notice 
that the information in locations 
8 and 12 is about physical 
records, not logical records. 

An important special case oc- 
curs when a record ends at the 
boundary of a physical record. 
Suppose that a file contains 
exactly three physical records 



called record zero, record one 
and record two. Then location 8 
will contain and location 12 
will contain 3 because the next 
byte to be added would be in- 
serted at the start of physical 
record 3. 

Locations 5 and 10 in the DCB 
contain similar information. 
Suppose that we are reading 
through a file. Each time we 
read a logical record, locations 5 
and 10 are updated to point to 
the next byte to be read. For in- 
stance, if location 5 contains 52 
and location 10 contains 3, then 
the next read command will 
start by reading spot 52 on phys- 
ical record 3 of the file on disk. 

All this is getting very com- 
plicated. Moreover, the story is 
different for DOS 1.1 and for the 
Model I. If a program uses the 
technical information in the 
DCB, it probably must be altered 
for DOS 1.3. 

Fortran Record 
Number Calculations 

In the Edit program two rou- 
tines perform calculations on 



the above DCB information. Both 
routines calculate which 128 
byte logical record was the last 
one read from disk. Let X equal 
the contents of location 5 and Y 
equal the contents of location 
10. The required record number 
is2*Y-1 ifX = 0,2'YifO<X<80, 
and 2*Y + 1 if 80<X. But the 
routines give a different answer: 
2*Y - 2 if fXX<80 and 2* Y - 1 if 
X = 0or80<X. 

Incidentally, I found these rou- 
tines by searching for the num- 
ber 4442; the routine at 4442 posi- 
tions a file to read the logical 
record number stored in BC. 
Once we find the error it is easy 
to fix. Starting at 721 B, insert the 
code 78 20 04 FE 80 1 8 08 B7 20 03 
1B 18 05 FE 81 38 01 13 (the old 
code here reads CA 2A 72 78 E6 
7F C2 28 72 78 EE 80 47 1B 1B 78 
87 D2 30 72 13). Then starting at 
784D, insert the code 21 00 00 09 
09 B7 20 03 2B 18 05 FE 81 38 01 
23 00 00 (the old code reads E6 7F 
7E 21 FE FF CA 58 78 EE 80 87 DA 
5D 78 23 09 09). 

This change improves the op- 
eration of Edit dramatically. Un- 



fortunately, there are still two dif- 
ficulties. When Edit attempts to 
read or write a file whose length 
is a multiple of 128 bytes, it fails. 
Writing such a file causes a cat- 
astrophic failure and reboot. 

At 7F6C in Edit, a routine reads 
128 bytes of code from the disk 
and stores them beginning at the 
location contained in HL After 
reading, the routine checks to 
see if the record read from the 
disk was the last record in the 
file; if so, it puts 1 A in memory im- 
mediately following the last byte 
of code from the file. 

There is a tricky special case. 
If the last record in the file con- 
tains exactly 128 bytes, there is 
no spot in memory for 1A. The 
routine is supposed to wait until 
Read is called again, when it 
should place 1A at the first 
available memory spot. 

As an interesting exercise, try 
to write such a routine using the 
technical information provided. 
You should know that when the 
Read routine reads a logical rec- 
ord and some of the bytes read 
are not in the file, it sets the zero 



flag and places 1C in the accu- 
mulator. This happens even 
when only a few of the bytes 
read from disk do not belong to 
the file, but it does not happen if 
the file ends exactly at the boun- 
dary of the record. The required 
changes in code are easily im- 
plemented. Starting at 7F74, in- 
sert the code 28 11 FE 1C 37 C2 
AC 67 3A A8 5F E6 7F 4F 06 00 09 
36 1A D1 C1 E1 C9. (It will re- 
place CA 7A 7F FE 1C 37 C2 AC 
67 E5 21 AA 5F 5E 23 56 23 7E 23 
66 6F CD F6.) 

Edit cannot write files whose 
length is an even multiple of 128. 
I can solve the problem, but I do 
not know exactly why it came 
about. 

The Write routine occurs at 
location 7917. After writing, the 
computer checks several mem- 
ory locations. If conditions are 
exactly right, it tricks the stack 
by loading its last four locations 
with data from 5270-5277. For 
weeks I tried to understand this 
code; from the beginning, ex- 
periments disclosed that it oper- 
ated only in the exceptional 



j^L MODEL III 48K Mm 
m 2 DRIVES $1600 M 
W 1 DRIVE $1400 ^B 

P31 Green Phosphor CRT $85 
RS232 |65 
FDC Card $130 
40 Track TAND0N DRIVE (SS)$195 
TAND0N ERIVE PARTS CALL 


1 

* MODEL III TECHNICAL MANUAL | 
Written by factory technician 
| to accompany Radio Shacks Tech* 

Reference Manual* Packed with rare 
Hardware information* 25Pages $10 

RADIO SHACKS TECH. REFERENCE MANUAL 
! $11 


* SERVICES 

We repair all Model III boards 
and Model III systems - overnight - 
in most cases* Tandon drive repair* 
Call for details* 


♦ NO CHARGE TO INSTALL GREEK SCREEH 

[ OR RS232 IN NEW COMPUTER 

NEXT DAI SHIPMENT. 
120 DAI GUARANTEE ON ALL ITEMS 
PRICES REFLECT CASH DISCOUNT 
SHIPPING EXTRA 


************ 

i ALAMO COMPUTER 00* I 
1234- AVANT 1 
SAN ANTONIO, TEXAS 78210 1 

(512) 534-7782 ^ 183 1 
************ J 



^See List ol Advertisers on Page 451 



80 Micro, December 1982 • 327 



TURN YOUR COMPUTER INTO 
A GRAPHICS MACHINE 




WITH THE MIKEEGRAPHIC 
GRAPHIC SYSTEM!! 

" MIKCEQRAPHIC is a hardware/software 
system designed lot the TBS 80 model I 4 
III computers When installed, your 80 will 
come alive with giaphic ability! 1 

It you've been waiting lor a graphic 
system with the best dots/dollars ratio. 
take a look at our MIKEEGRAPHIC " 

HARDWARE 




SOFTWARE 



VU . •« .w -V 






t»««e 

EvtRV OOT C*r» at S€T BfSfT o Tf STfO 
•JJBB »»TES Of FAST JO0 •>• MtMORt 
' UNCTIONS StlECTf D B» OUtPUt «"OHt tnt 
MEUOX. MAPPED *0» SPEED 
OCCUPIES LASt 16* 84 OC« O' MEMO- 
CAN H USEO AS NORMAi MEMORY 
('• row *•»« 3?t* tw *vt o* 'Wtti o rn 
CCHO« COORDINATED ENCLOSURE 
DOES NOT CONFUC' WITH DISK OR CASSETTE lO 

SElT Switching power SUPPlt 

r l\« vi» up «wl* Co«nfH>t«n 
COMES WITH n S OWN WAU TRANSFORMER 
NOT A CHARACTER GENERATOR" 
BASV INSTALLATION 

(R»qu»» om, « a 

or* :'K#o*f cut) 



t W- *•*, '.»-»d I 



• COA«fS WITH SAMPLE AND DRIVER SOFTWARE 

• USABLE THROUGH BASK* OR W'( MINE LANGUAGE. 

• • '. -. . i i ■ n 

OPERATOn manual 
IDOL Kits AVAILABLi 'OR JUSt I'iOO 
MANUAl AVAILABLE SEPARATIIV f OR I'IOO 

E^l onc» 0' mm,il AMI t* 0«OuCt*d '•»» lie 
PurcNBM Prtc« 01 MIKEEGRAPHIC " *N»n ordmo 
PREPAiO. COO. MASTERCHARGE. VISA <y MASTER 
CARD ORDFRS ACCEPTED FOB Bvavta. M 

DEALERS INQUIRIES INvrtD 

ORDER NOW FOR ONLY $340. 

iVHiTE <& FRES BHCH.MJRE 



MTKEE ELECTRONICS CORPORATION 



Irlrplwr 



,TM 



GOLDLABEL BLANK CASSETTES 



• PREMIUM 5 SCREW SHELL 



» DIGIT.L OAU QUALITY 
• GUARANTEED 



i LOW NOISE 



1 DOZEN C-10 LENGTH J8 00 ■ S? 00 Shpg 1 DOZEN C 30 LENGTH $11 00 ■ $? 00 shpq 
? DOZEN MO LENGTH S15 00 • S3 50 shpg ? DOZEN C 30 LENGTH S?0 00 • S3 50 shpg 

Individual storage botes (told only with cassercesi SZ 40 per do/en 

CASSETTE CADDY S5 49 . SI 50 shpg '? Ipr SI0 00 • SZ 50 shpg S3 95 wilh cassette pur 

chase (no shpg ctig on caddy i 

Foreign orders include shipping at 16 0/ per do/en tapei'9 dl pet caddy 13 oi pe' do/ boies 

Shipments Ml U S are by UPS I no delivery to P0 Boies i Add S' 50 per do? lapes lor first Class Ma l 



!!! NEW !!! CASSETTE CADDY !!! NEW !!! 

'IREO OF MISPLACED TAPES AN0 A CLUTTERED WORK AREA- TRY OUR HINGED TOP SMOKED 
PLASTIC CADDY THAT HOLDS tZ TAPES IN ONE HANDY LOCATION 




Visa and Masie'ca'd accepted unciude eipitalion date* Orders paid by cashier s check money order 
or banlicard ate shipped within 48 hours Personal check lakes ' ? wks No COD Some foreign sales 
are restricted Te.as residents add 5 Max on blank cassettes and slorage units 

SEND ORDER TO: COLOR SOFTWARE SERVICES 

PO BOX 1723, DEPT. M 
GREENVILLE, TEXAS 75401 
• DEALER INQUIRIES INVITED *QUANTITY DISCOUNTS AVAILABLE 



case causing trouble. It is easy 
to find the code's "mirror im- 
age"; near 78E8 a routine saves 
the last four locations of the 
stack to 5270-5277. The basic 
problem on the Model III is that 
this "mirror image code" 
sometimes does not run before 
the section of code causing 
trouble. 

The solution I have invented 
runs like this. We modify the mir- 
ror image code so it sets a flag 
when it runs. Then we allow the 
dangerous code to run only if 
this flag has been previously 
set. The modified code is al- 
lowed to affect computer opera- 
tions only during the writing of 
the main file (the index file caus- 
es no trouble). 

Place these patches on the 
last page of memory. Change 
location 5200 from C3 B5 87 to 
C3 00 61; starting at 6100. 
replace the 00s with 22 20 61 21 
3061 11 40 FF 01 3800 ED BO 2A 

20 61 C3 B5 87. Then starting at 
6130, replace the 00s with 21 5E 
FF7EB7 3600211E5FC23B79 
E1 C3 10 79 E5 21 5E FF 36 FF E1 
E3 E1 E3 C3 F2 78 0000 CD E0 7F 

21 4A FF 36 C3 C9 E5 21 4A FF 36 
C2 21 5E FF 36 00 E1 C3 02 77. In- 
cidentally, 6100-6200 is Edit's 
write buffer; we are using it here 
temporarily to store patches 
which will reside up near FFOO. 

Connect these patches to the 
main program by changing 02 77 
to 69 FF at 62C3, CD E0 7F to CD 
60 FF at 72FA, E3 E1 E3 to C3 51 
FF at 78EF, and 21 1E 5F to C3 
40 FF at 7938. 

Edit, F80, and L80 now work! 
Top of Memory 

The instruction manual ex- 
plains that each Fortran pro- 
gram begins the same way: LD 
BC,$$L; JP SI NIT. It warns that 
$INIT sets the stack pointer to 
the top of memory. How is this 
location determined? Since L80 
creates each Fortran program, I 
hoped that L80 set the top of 
memory. No such luck; the pro- 
gram examines location 4049. 

The SINIT routine is contained 
in the library FORLIB/REL: we 
must find 4049 in this library and 
change it to 441 1. Unfortunately 
the library is in code— not Z80 
code, but Microsoft linker code. 
The manual explains that to 
save space in REL files, the For- 
tran system constructs these 



files as long chains of zeroes 
and ones; significant informa- 
tion is not aligned with eight bit 
boundaries. Therefore it is ne- 
cessary to convert FORLIB/REL 
(which is a very large file) into a 
gigantic chain of zeroes and 
ones and then search through 
this chain for the bit pattern cor- 
responding to 4049. (The coding 
method introduces an extra zero 
bit between each of these 
numbers.) 

There might be hope for doing 
this by hand if SINIT occurred 
near the start of the file (and I ex- 
pected to find it there); actually 
SINIT is hidden in the middle of 
things. Therefore I wrote an As- 
sembly language program to 
search the file automatically. 

Using the results of the 
search I can explain how to 
change the code. Use the F com- 
mand of Debug to display the 
file FORLIB/REL. Use the plus 
key to leaf through this file until 
you come to a page which 
begins 8C 00 C9 11 50 E3 2A 00 
. . . Find the two bytes 49 20 
starting at location 5C of this 
file. Use the M command to 
change these bytes to 1 1 22 and 
then push Enter. All modifica- 
tions are now complete. 

I did not actually search for 
4049, though it would have been 
the logical thing to do. Instead I 
looked for the bit pattern cor- 
responding to I NIT. In advance, I 
knew that the SINIT routine 
reads: 



XOR 


A 


LD 


(ADD1I.A 


LD 


lADD2).A 


LD 


HL. NUMBER 


LD 


(A003).HL 


LD 


HU4049H) 


LD 


SP.HL 


LD 


HJB 


LD 


L.C 


JP 


(HL) 



Once I found I NIT, I began 
decoding the bit pattern by hand 
using the rules in a very obscure 
part of the manual. I gradually 
wrote down the information 
shown in Fig. 1. 

A Problem for the Reader 

After making all these 
changes Fortran programs work 
well on the Model III unless they 
write data to the disk. Files like 
FORT06/DAT created on disk 
are incomplete and out of order. 
I do not know how to fix this 
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problem. Can someone search 
for the routine in the FORLIB/ 
REL file that reads and writes 
data files and explain how to 
patch it? 

Summary of Required Changes 

Tables 1-4 list the changes 
you must make to muMATH, 
Edit, F80, and FORLIB/REL for 
the Model III. In each case, I 
list the starting location, old 
code, and new code. Use the 
Patch command to make these 
changes. 

Consider, for example, the first 
change. It asks that location 63D4 
of muMATH be changed from 
916F to 2542. To do this, type 
PATCH MATH48/CMD (ADD = 
63D4, FIND = 916F, CHG = 2542). 
and press Enter. The disk will turn 
on briefly and then the computer 
will print "Patch Made". If it ever 
prints "String NOT Found", you 
made a typing mistake and you 
should issue the command again. 
Replace MATH48/CMD by the cor- 
rect program name in other cases: 
MATH32/CMD, EDIT/CM D, F80/ 
CMD, or L80VCMD. 



Finally, you must modify 
FORLIB/ REL in a different man- 
ner. Run Debug and issue the 
command F. The computer will 
ask for a filespec; type 
FORLIB/REL and press Enter. 
The disk will run and the screen 
will show a display of numbers. 
Each time you press the plus 
key, the disk will run and the 
display will change. Keep press- 
ing plus until you see 8C 00 C9 
1 1 50 E3 2A . . . along the top line 
of the display. Then press M. Im- 
mediately a small square will ap- 
pear at the top left of the screen. 
Move the square down to line 5 
using the down arrow key, and 
then over 12 spaces using the 
right arrow key until it lands on 
top of 49. Type 1 1 22; the two en- 
tries 49 20 will change to 11 22. 
Now press Enter. The disk will 
turn on briefly. Press the Break 
key twice and you will be back in 
DOS. ■ 



Richard Koch is Associate 
Professor of Mathematics at 
the University of Oregon. 



Model 953A EPROM 
PROGRAMMER 




• Programs 2508, 2758. 2516. 2716. 2532 and 2732 five volt EPROMS 

• Complete no personality modules to buy. 

• Intelligent microprocessor based, programs and verifies any or all bytes 

• RS 232 serial interface use with computer or terminal. 

• Verify erasure command • verifies that EPROM is erased. 

• Extended diagnostics error output distinguishes between a bad EPROM 
and one which needs erasing 

• May be used for extremely reliable data or program storage. 

• All power on programming socket under processor control LED warning 
light indicates when power is applied. 

• Complete with Textool zero insertion force socket. 

• High performance/cost ratio. 

• Standard DB 25 I . O connector 

PRICE *289 



BAY TECHNICAL ASSOCIATES, inc. 




HWY 603. P.O. BOX 387 

BAY ST. LOUIS. MISSISSIPPI 39520 

(601)467-8231 



Mayday IS NOW SMART 

Mayday has established itself as the best protection against 
power interruptions to most mini /micro-computers. 

Mayday now has all the features you asked for! 




Constant voltage regulated output 

I/O port which tells computer when AC is off 

• High, low and charge LED indicators 

• Low battery audible alarms and UPS shutdown 
High start up capability for hard disk 

• Zero crossing DC feature that handles any 
type of computer power supply 

New three stage sense circuit that protects 
from all types of power failure-including rapid 
inductive kickback 



protection you can afford! 



■See List ot Advertisers on Page 451 



9£ SUN RESEARCH, INC. 



:'•>•'* [iTi, I II if' \M :Tt7i! il 



NEW DURHAM ,NH 03855 
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Announcing 

ACCESS UNLIMITED'S 




FREE! DOSPLUS 3.4" 
disk operating system 
th any Percom or 
cess Unlimited Drive 
the Model III' 




SAVE $50.00 on fully-tested PERCOM Disk 

Drive for Model III* 

Reg. $499.00. Now $449.00 

Percom's internally-mounted drives, with their widely-acclaimed disk 
controllers, are completely pre-tested with a 48 hour Burn-in. So. you know 
it works right when you get it. Choose single or double-density storage 
capacity. 

A First-Drive System includes the four-drive disk controller, your choice 
of one or two drives, power supplies, cables and a lully-illustrated. easy-lo- 
understand owner's manual. 

Top-of-the-line Access Unlimited addons 
for the Model III* Disk Drive only $334.00 
Single, and $628.00 Double. 

Access Unlimited's drives tor the Model III' bring you all the outstanding 
features of the Percom Drive, plus the superb, deluxe quality of the Access 
Unlimited workmanship that goes into the precision-made equipment which 
bears our name. 

Make sure it's done right. Let us install 
your First-Drive System. 

Purchase your Model III* Drives from us and for $39.95 plus shipping, you 
can have our experienced professionals perform a 48-hour bum-in of your 
Model III* computer, install the drive system, and check out your expanded 
system to make sure everything works correctly. Call for pricing of complete 
Model III* system with 2 to 4 Access Unlimited or Percom drives. 

Get the best! Our own fully-tested drives 
for as low as $275.00 

Every Access Unlimited Floppy and Flippy Disk Drive is electrically and 
mechanically tested, then burned-in for 48 hours under operating conditions. 
The signed test list in your shipping carton is proof of that. 

Our floppy disk drives offer you either single or double density. With 
double-density, it stores up to 364 Kbytes, depending on the format And you 
can use both sides of the diskette on our flippy drives 

SATISFACTION GUARANTEED! If you're not completely 
satisfied with your Access Unlimited Disk Drive, return it 
within 15 days for a full refund. All our drives have a 
comprehensive 90-day limited warranty. 



For a limited time only, you can get top-quality name- 
brand disk drives at rock-bottom prices. 



(But some prices will be good after Sale ends. 
Please call 1-800-527-3475 for pricing) 

Save $$ on our most popular items! 

Percom Data Separator (reg. $29.95) now S23.95 
Screens for Models IMIMII Green, U. Blue. Dark blue. 

and Amber. Bronze for cotor video (reg. $24.95) now $14.95 

Head Cleaning Kit (reg. $29.95) nowS19.95 

Drive Numbering Tabs, pkg. 03 (reg. $4.50) now S3.95 

Rtp-N-Rle 5V4 " (reg. $39.95) now $24.95 

Rip-N-Rle 8 " (reg. $54.95) now $39.95 

AFD 100-40-track single-density drives $275.00 

JUST PURCHASED! Overstock of 
Japanese-manufactured absolutely top quality 
CP/M X based business computers. 
From 160 KB to 40 + MB. 

We have just added approximately $100,000.00 
worth of brand new business and game software. 

Call or write for our new FREE catalog. 




Electric Crayon™ Close-out— only 80 left. 
When these are sold, there will be no 
more! reg. $289.00 now $149.95 

Use the electric crayon with your own monitor or cotor TV set. Use it with 
your Model I or III TRS-80™ and a cotor monitor or color TV set for a very 
tow cost, high quality cotor computer. (Hook up instructions furnished.) 



XTRA Special— Soft sector 
diskettes— Carload purchase- 
As low as $19.90 for box of 10 

SSSD. with hub. 5%" $19.90 box of 10 

SSDD. with hub. 5W 22.80 box of 10 

DSSD. with hub. 5V-." 29.90 box of 10 

DSDD. with hub. 5%" 33.50 box of 10 

SSSD, 8" 22.75 box of 10 

SSSD. 8". high performance 22.90 box of 10 

DSDD 8" 31.95 box of 10 
One year limited warranty against manufactunng delects 



CHRISTMAS SALE! 




SAVE $S 3 WAYS! 
now $184.95! 



Upgrade your 
Model I* to 
Double Density 



Percom's proven Doubter II "" with 
DOSPLUS 3.4** and Move 1-2-3 software 
—a $339.95 value, now $184.95! 

The completely assembled and fully-tested Percom DOUBLER II !M is ready to 
go to work when you get it. All you have to do is plug it in. It can store over 4 
times more on one side ol a diskette than a standard Tandy Model 1 ' drive. It 
reads, writes, and formats either single or double-density. Comes with a 
DOSPLUS 3.4" disk-operation system. Runs TRSDOS*. NEWDOS" 
Percom OS-80" . and other single-density software. (You can change to 
double-density at any time.) Uses Move 1-2-3 utility ($29.95) or other 
appropriate software to read Model III* programs on your Model I*. Has 
on-card high performance data separation and write precompensation 
circuitry. q^^ „tm $159.95 

DOSPLUS 3.4D** 150.00 

Move 1-2-3 29.95 



Total Value 
Now only 
You SAVE 




$339.95 
$184.95 
$155.00 



From 

$1,995(5 MB) 



Check out the benefits 
of Access Unlimited Hard Disk Drives 

V can be used for Model II*. Model III* computers. 

V 5, 10 Megabyte and larger drive units. 

V lets controller handle up to 4 drives. 

V'** works along with existing floppy disk drives 
K" includes host system support software. 
►*" 15-day FREE trial period. 



SAVE on an Arrick Quick Switch^ 

Changes a TRS-80* printer port or a peripheral between computers instantly 
and easily Available for RS-232 and Centronics. Rugs included. 

Now from $99.95. Cables from $31.95. 



EXPLANATION ' Trademark of Tandy Rado Shack Corp 
r* <wjrm <; TT Trademark ot Acoarai Corporator! 
wmmhu.:> TM TraomarK ot Access umrmiBO 

T Trademark ot Percom Dab Company, inc. 



" Trademark o( Micro- Systems Software. Inc 
t Trademark ot Amck Products Company 
* ' •Trademark ot Caurrarc. mc 
x Trademark ot Qgu Research 



Enjoy 1-stop shopping and BIG savings 

Order your disks, software, supplies, and accessories from Access Unlimited. 
We offer low prices on automatic Datamarc"** Sheet and Envelope Feeders 
tor Radio Shack". QUME. Ricoh. Diablo Daisywheel. and Dot Matrix Printers. 
And the more you buy at one time, the more you can save. 

For more information, call (214) 340-5366 Monday through Friday; (214) 
690-0207 after 5 p.m. and Saturdays 



lb order or for FREE literature, call TOLL-FREE 

1-800-527-3475 «© 



Ordering Information 



Order by phone or by mail. We accept Visa. MasterCard, cashier's checks, 
certified checks, and money orders With personal checks, allow additional 
time for bank clearance. Your bankcard will not be charged until your order is 
shipped. On orders over $1,000. we pay freight (surface only) and insurance; 
please add $3.00 shipping and handling under 50 lbs. Over 50 lbs., add 
$5.00 for orders under $1,000.00. Texas residents add 5% sales tax. Allow 2 
to 4 weeks for delivery. 



□ Please send me a FREE catalog. I'm not ready to order at this time. 

□ YES. I'm taking advantage of your Sales prices. 



Name 

Company Name . 
Address 



City 

Phone Number ! 
Quantity 



State 



Zip. 



Item 



Unit Price 



Subtotal 



Subtotal 

State Sales Tax (Texas residents only) 

handling charge 

Check one. Tntal 

□ payment enclosed □ Visa □ MasterCard* 





'If MasterCard numbers ahnufin^mfi 1 


FypiraHm Pahr 1 1 1 — 1 1 1 


Authorized signature, if charged 


ACCESS UNLIMITED 



DEPT. AX 401 N. Central Expy. Richardson. Texas 75080 



• 26 




You've Got 

TOTAL ACCESS 



TM 



Rose 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



TM 



DISK DRIVES 

Torol Access 40T 

Aerocomp 40T Flippy. . 

Aerocomp 80T 

Aerocomp 80T Flippy 
Aerocomp 40T Duol Heod 
Aerocomp 60T Duol Heod 



S239 
$319 
$399 
$409 
$409 
$51 9 



for TRS80 Mod I. Mod lllulDMPCexrernaluTI99/4A 
Incl power supply 6 enclosure 

^$' Apple Compatible Drive $309 

■^ Apple Comp. Disk Controller Roard $99 

* BARE DRIVES 

Torol Access 4CT $199 

Aerocomp 40T Flippy $269 

Aerocomp 80T $329 

Aerocomp 80T Flippy $359 

Aerocomp 40T Duol Head $329 

Aerocomp SOT Duol Heod $469 

* DRIVE CABLES 

2-dnve $24 

4-dnve $34 

Extender coble $13 

* OPERATING SYSTEMS 

TRSDOS 23 Dish 6 Manual $20 

IDOS(lorlll) $119 

DOSPLUS34 $129 

NEWDOS/80 (I a III) $129 

* DISK CONTROLLERS/SEPARATORS 

Aerocomp DDC double dens disk 

controller for Mod I $139 

W/DOSPLU5 33D $179 

w/LDOS $229 

Aerocomp "DDS" double dens, data sep for 

Percom or LN Doubler $49 

Aerocomp SDS' single dens daro sep. for 
Mod. I $29 

* EPSON PRINTERS 

MX80 $469 

MX80 F/T $569 

MX100 $719 

Cable (TRS80) $9* 

MX80 ribbons $9 

* wirh purchase of Epson printer 

* ODD STUFF 

Single drive power supply $44 

Dr:ve enclosure (silve r ) $24 

Diske'tes (box of 10) $24 



120 day worronty on drives. Add $5 per drive 
shipping i nConi Ifr UPS COD charge $1 50. There is o 
15 doy FREE TRIAL ON DRIVES If nor complerely 
sonsfied I'll refund your money (less shipping) I'l: 
rake excepnon ro improper use or mishandling 



* RADIO SHACK COMPUTERS 

26-1061 Mill. LI, 4K 595 

26 1062 Mill. Lll. 16K 799 

26-1065 Mill. 48K 1 dnve. 1495 

26l066Mlll,48Kv2drKS232 1795 

26-3002 16K w/exr DASIC 399 

26-2003 32Kw/exi uAX 499 

26-3004 16K w/o ext DASIC 299 



26 3501 PC 1. Call about ace ... . 129 
26 3601 PC 2. Call about occ . 229 

26 4002 64K Mil. 1 dnve 2899 

26-6001 128KM1 6. 1 -dnve 4199 

26-6002 1 28K M1 6. 2-dnve 4799 

26-6050 DT-1 Terminal 599 

* PERIPHERIALS - Model MHtt-16, CC 

32K LNW E/l w/RS232 complete 375 

LNDOUDLER 5/8 w/o DOS 1 99 

26 1143 l\odio Shads DDen board . 125 

26- 11 25 Mill Hi Res board 299 

26-1 145 Ml R5232 firs RS E/l 85 

26-1 148 Mill RS232 w:rh coble .89 

26-1172 DC Modem I 125 

26-1173 DC Modem II 199 

26-1208 CCR-81 Recorder 51 

26-1 130 Mill Hard Disk pri 2099 

26 1131 Mill Hard Disk, sec 1599 

26-1132ModlH/Dodoprer 32 

26 1 162 Mill 1st dr kir oil RS. 629 

16-02X 13" Color TV. remote .353 

26 3008 C C Joysnd-is. pr 21 

26 3022 CC dnve 1 w/conrrlr 449 

26 4104MH/16 Hi-Resboad 419 

26 41 50 Had Dish 84Mb pn 3799 

26 41 51 Had Disk 84Mb sec 2899 

26 4160 1 -Drive expansion 938 

26 4161 2-dnve expansion 1431 

26-4162 3-arve expansion 1897 

26 4165 1 dnve unit 1099 

26 4166 2 dnve unir 1699 

26-4167 Thmline odd-on d-rve 535 

26-6010 Mil roM1 6 upgrade 1299 

26 601 1 128K RAM board 599 

* PRNTERS & OTHER ACCESSORIES 

26-1158 Daisy Wheel II 43 cps 1599 

26 1447 RS Trooa Assy 206 

26 1448 Sheer Feeder 999 

26 1165 Line PnnrerV 160cps 1195 

26 1455 Acoustic cover 339 

26-1250 DWP-410, 25cps 1207 

26 1459 KS Trocra Assy 199 

26 1251 DMP-400, 140 cps 969 

26-1252 DMP-500, 220cps 1399 

26-1253 DMP-1 00, 50cps 309 

26-1254 DMP-200, I20cps 679 

26-' 191 Multi-pen pbrter 165C 

26-1 192 CGP-1 15 Cola printer 199 

26-1 193 Flatbed plorror 799 

26-1195 Digitizer 369 

26-1196GT-116XPAD' 295 

ANADEX DP-9260A 200cps 1449 

PROVRJTEA1, 120cps, 10" F/T 469 

STARWRITER F 10, 40cps 1399 

PRINTMASTER F 10. 55cps 1599 

rVjrishauser rroaa feed 208 

Purishauset sheet feeder 999 

•LNW COMPUTERS 

96K LNW-80 Model I. NT5C/RGD. RS232 5/8 

Dden conrrlr, w/FREE 1 2' Green Phospher 

tVonira 1695 

NEXT DAY SHPMENT on al in stock Merchancfce 



1 28K LNW-80 Mod II, NTSC/RGO. RS232 CP/M 
comporible. 5/8" conrrlr. w/FREE 1 2" Grn 
PhosMon. . . 2495 

* MEDIA & SUPPLIES 

8 disks SSDCen. Gua. Faever 32 

8 disks DSDDen. Some Guarantee . 39 

5 Flipsorr, holds 50 disks 23 

8" Flipsorr, seme deal 29 

5 Library Dcxes 2.50 

8 ' Library Boxes 3.50 

5" a 8" Heod Cleaning Kir 9 

Tract paper, Ltr sz 20#290C shr 25 

Cell fa ribbon G pnnrwhee! prices 
•SOFTWARE 

All Radio Shods Sofrwae 20% off 

Axon CP/M Model II 160 

Pickles & Trour CP/M Model II . ... 160 
Pickles & Trour CP/AA Model 16 ... 190 

All SNAPPWARF . . . . 10% off 

Al MicroPro 35% off 

•TRS-80 SPECIAL EQUPMENT 
CP/M (48K) fa Mod III w/hadwae and 

software compiere .... 275 

CP/M (64K ,nc) fa Atod III with hadwore 

ond sofrwae 440 

80 x 24 video boad fa Mod III 299 

GREEN Phos Anrigbre CRT 79 

AMBER Pha. Antiglare CRT 89 

16K Memory 200nsec Gua 1 yr 8A1 2 

64K Memor/ 200nsec Gua 1 yr 8/$48 

ZVM- 121 12" Green Phos Man 135 

ALWAYS CALL FOR THE LATEST PWCES. The/ may 
have changed in the 60+ days since this ad was 
written 

ORDERNOW! 
TOLL FREE 
800-527-3582 

Vnre or coll Toll free lines ore fa orders only 
Texas residenrs call 214/458 1966 ond 
deduct $2.00 from your ader If you need 
technical mfa morion or service use rhe Texas 
number. Prices are subject ro change without 
nonce ond ore mcil ader only i accept VISA 
or MASTERCARD you can send a check or 
money orda (allow o couple of weeks for 
personal a company checte ro clear) or 
order COD (cash, cerrified check or money 
order only) Snipping is nor included unless 
otherwise i nd i cored Texos aders odd 5% rax 
No rax added on shipments outside Texas 
Order up - I need rhe money! 



'TM 



TOTAL ACCESS 

P.O. BOX 3002 
RICHARDSON, TX 75080 

214^458-1966 



• TRS80 ft Radio Shade are trademarks of Tandy Corp. copyright 1981 total ACCESS 
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BUSINESS 



Find a solution to your waiting line problems with the TRS-80. 



Queue Up! 



David E. Clapp, Ph.D. 
1769 Kingsway Court 
Cincinnati, OH 45230 



Waiting lines are every- 
where in modern society. 
Nearly all services available to- 
day involve waiting. The cost of 
providing instant service is usu- 
ally high, and is only justified in a 
few rare situations. There is nor- 
mally a tradeoff between cost of 
service and cost of waiting. With 
limited servers, a line develops 
with demand for the service. Typ- 
ically, there is a cost of providing 



a waiting area to accommodate 
the waiting customers (or jobs). 
There is a penalty for customers 
who leave the line when waiting 
seems too long. 

Most firms or institutions which 
provide a service spend some time 
in waiting line analysis aided by a 
computer program. Following is 
a TRS-80 program for analyzing 
simple waiting line problems. 
While the analysis is limited to 
fairly basic models, the level 
achieved is surprising. 

Definitions 

This program is limited to 
Poisson waiting lines, relatively 



(M/M/ 1 )-(GD/ 9999 / 9999 ) 



ARR. RATE = 20 
SVC. RATE = 30 



AVG TIME IN SYS = 1 
AVG NO CUST IN SYS = 2 



EFF. ARR. RATE = 20 
TRAFFIC INTENSITY = .666667 



AVG TIME IN LINE =0666667 
AVG NO. CUST IN LINE = 1 33333 



LIKELIHOOD OF EXACTLY N (FOR N = TO 25 ) CUSTOMERS IN THE SYSTEM. 
.333333 .222222 .148148 .0987664 .0658436 .0438958 0292638 .0195092 .010062 
8.67077E-03 5.78051 E-03 3.85367E-03 2.56912E-03 1.71274E-03 1.14183E-03 
7.6122E-04 3.3832E04 2 25547E-04 1 50364E-04 1.00243E-04 6.68286E-05 
4.45524E-05 2.97016E-05 1.9801 1E-05 1.32007E-05 

Fig. 1 



(M/M/ 1 HGD/ 9999 / 9999 ) 



ARR. RATE= 25 
SVC RATE = 30 



AVG. TIME IN SYS = .2 
AVG. NO. CUST IN SYS. = 5 



EFF. ARR. RATE= 25 
TRAFFIC INTENSITY = .833333 



AVG. TIME IN LINE = .166667 
AVG NO CUST. IN LINE= 4 16667 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 53 ) CUSTOMERS IN THE SYSTEM. 

166667 138889 115741 .0964506 0803755 .0669796 .0558163 .0465136 .0387613 
.0323011 .0269176 .0224313 .0186928 0155773 .0129811 .0108176 9.01465E-03 
7 51221 E-03 6.26017E-03 5.21681 E-03 4 34734E-03 3 62278E-03 3 01899E-03 
2.51582E-03 2.09652E-03 

Nole Output terminated to conserve space 

Fig. 2 



unconstrained, random arrivals 
and departures. The Poisson 
classification is a mathematical 
characterization of a truly ran- 
dom arrival and departure wait- 
ing line discipline. In most cases, 
the Poisson behavior may be as- 
sumed; even in those cases 
which are not theoretically cor- 
rect, the computer program pro- 
vides useful rough results. The 
formal conditions for Poisson 
waiting lines are described in 
most operations research text- 
books; the readers who wish to 
rigorously classify their waiting 
line models should consult such 
a text. In any analysis effort, it is 
the analyst's responsibility to 
validate results for the system 
under study. 

The Kendall notation is used in 
the following descriptions of ex- 
amples of waiting line models, to 
describe the model parameters. 
This convenient shorthand nota- 
tion has the form (M/M/cMGD/K/N). 



The Key Box 

Basic Level II 
Model I 
16K RAM 



These descriptors completely de- 
fine the parameters of a Poisson 
waiting line. The first two letters 
(M) signify Poisson arrival and 
departure rates, while the c desig- 
nates the number of servers in the 
system. The last three letters 
describe the properties of the call- 
ing customers. GD (general dis- 
cipline) implies a first-come first- 
served scheme. If other service 
schemes are in use, this model 
will not work. 

K and N specify available wait- 
ing space and numbers of calling 
customers respectively. As an 
example, consider the notation 
(M/M/1HGD Z9999/9999) indicates 
that customers arrive and are 
serviced according to the Pois- 
son model (M/M). The customers 
file through one server (c = 1) in a 
first-come first-served fashion 
(GD). There is unlimited space for 
waiting (9999) and the calling 
population is theoretically unlim- 
ited (9999). This is the classical 
(M/M/1) waiting line model where 
both arrivals and departures fol- 
low a random pattern. 

The computer analysis of this 
model is in Fig. 1. This printout 
is in response to the query "In- 
put arr. rate, svc. rate, no. serv- 
ers, waiting spaces, customer 



(M/M/ 1 )-(GD/ 10 / 9999 ) 



ARR. RATE = 20 
SVC. RATE = 30 



AVG TIME IN SYS. = 0941175 
AVG. NO. CUST. IN SYS = 1 87134 



EFF. ARR. RATE = 19.883 
TRAFFIC INTENSITY = 666667 



AVG. TIME IN LINE= .0607841 
AVG. NO. CUST. IN LINE = 1.20857 



LIKELIHOOD OF EXACTLY N (FOR N = TO 10 ) CUSTOMERS IN THE SYSTEM, 
.337232 .224821 .149881 0999206 .0666138 .0444092 .0298061 .0197374 .0131583 
8.772 18E-03 5.8481 2E-03 

Fig. 3 
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population." For this example, 
the input was 20,30,1,9999.9999 
where the arrival rate (20 per 
hour) and the departure rate (30 
per hour) were arbitrarily cho- 
sen. The printout echoes this in- 
put data. In an actual problem, 
these rates must be determined 
by studying the system and tab- 
ulating actual arrival and depar- 
ture data. 

The first analytical results are 
the effective arrival rate and the 
traffic intensity. Effective arrival 
rate is only of interest in prob- 
lems where the calling popula- 
tion is not unlimited. Traffic in- 
tensity is the ratio of arrival rate 
over departure rate, providing an 
estimate of how busy the server 
is in the system. For an unlim- 
ited system, this value must be 
less than one, or the waiting line 
will grow infinitely. If the intens- 



ity exceeds one, arrivals occur 
faster than they can be served. 

The next two output values 
concern the average time cus- 
tomers wait in the system and in 
the line. In this example, the 
server is quite prompt and cus- 
tomers only spend six minutes 
in the system, four minutes of 
which are in line. The service 
rate is 30 customers per hour, or 
two minutes per customer, and 
six minus two equals four. 

The service speed is further il- 
lustrated by the line statistics in 
the printout. There is an average 
of 1 .3 persons in line or a total of 
two persons in the system at 
any one time. These results are 
ideal for the customer, but the 
server is not very busy. 

The last section of data in- 
dicates the probability of exactly N 
customers on the system, begin- 



ning with zero, after the system 
reaches steady state. These values 
are computed by the program until 
the probabilities become less than 
0.00001 (an arbitrary limit which 
can be changed in the program). In 
Fig. 1, N varies from zero to 25 
before the probability values be- 
come insignificantly small. The an- 
alyst concludes that the likelihood 
of no one in the system (N = 0) is 
0.33, or that the server is idle 33 per- 
cent of the time. The possibility of 
more than two persons in the 
system rapidly falls off, indicating 
the expected "decaying ex- 
ponential" pattern typical in 
Poisson waiting line problems. 

Examples 

The ideas in the previous sec- 
tion can be illustrated with a few 
examples of simple waiting line 
models. The first example is a 



modification of the model in the 
previous section. Because the 
server was idle a considerable 
amount of the time, activity is 
stimulated and more customers 
assigned to that server. The re- 
sults of an increased arrival rate 
are shown in Fig. 2. 

The traffic intensity increases, 
the server is busy 84 percent of the 
time, and there is a likelihood of 
up to 53 customers in the 
system. If waiting area becomes 
a problem, the analyst can add 
probability values up to an es- 
timate of system saturation. If 10 
persons in the system are a prob- 
lem, the analyst adds prob- 
abilities for nine persons or less, 
yielding 0.84. The probability of 
10 or more is 0.16 (1 minus 0.84 
equals 0.16). Use this type of 
estimate to evaluate the need for 
more waiting area. 



10 CLS:M-200:OIM P<200) 

10 PRINT"1NPUT ARR. RATE. SVC. RATE, NO. SERVERS, WAITING SPACES, CUSTOMER POPULATION" 
25 INPUT Xl,XM,C,XM,XX 

30 CLS : I T-l : MC< : N-XN : K*XK : RH-XL/XM: EL-XL 

SO LPRINT TAB(15>"<N/M/";NC;">-<GP/";N;"/";K;">" 

11 LPRINT 

90 IF K<9999 AMD X > M AND N >M GOTO1090 

% IF M<N THEN 110 

97 IF N>K THEN 120 

100 NN-N:GOT0 130 

110 IF M>K THEN 120 

IIS NN4l:GOT0 130 

120 NN-K 

130 RC-RH/C 

HO P2-1 

150 FOP 1-1 TO nn 

153 P(l)-0 

155 NEXT I 

160 IF NC > 1 THEN 5*0 

170 IF X<9999 THEN 290 

110 IF PC >"1 AND N» 9999 THEN1990 

190 PZ-PZ-RH 

200 IF N<9999 THEN PZ-PZ/tl-RH :<N»1)> 

210 PUI-PZ-RH 

220 FOP 1-2 TO NN 

230 Pd)-P(l-1).RH 

2*0 IF p<I)>-1E-5 THEN 250 

2*2 IF IT-0 THEN 960 

2*» IF I TOO THEN 260 

250 IT-0 

260 NEXT I 

270 I -NN* 1 

210 GOTO 960 

290 P(1)-XK«RH 

W0 P2-PZ»P<1) 

310 FOP 1-2 TO NN 

320 X-K-l-1 

330 PO)-P(l-n«X-SH 

335 PZ-PZ-P(I) 

3*0 NEr» I 

35" PZ-l/PZ 

569 FOP 1-1 TO NN 
370 P(I)-PZ«P(I) 

510 IF P(l)>-lE-5 THEN 390 

312 IF IT-0 THEN *20 

3tk IF I TOO THEN U00 

390 IT-0 

1.00 NEXT I 

*10 l-t*-l 

*20 LL-l-1 

*30 Cft-0 

**0 FOR J*C TO IL 

*50 X-J-NC 

"•60 QL«1L*X*P(J> 

N6S NEXT J 

*70 R-C-PZ 

kit) FOR J- 1 TO NC 

1.90 X*tC-J 

500 R-R'X-P(J) 

510 NEXT J 

520 fl-XM-(C-R) 

530 GOTO 990 

5*0 IF NC< 9999 GOTO 560 

550 PZ-EXP(-RH) 

560 P(1)-PZ«RH 

570 FOP 1-2 TO NN 
SI0 X-l 

590 «KI]-P<I-1)-RH/X 
600 IF P(l)>-lE-5 THEN 610 
602 IF IT-0 THEN 6*0 
60* IF ITOO THEN 620 
610 IT-0 



620 NEXT I 

630 I4M*1 

6*0 QL-0 

650 GOTO 990 

660 IF K9999 GOTO 110 

670 IF RC >-l AND N-9999 THEN 1090 

6J0 P(1)-RH 

690 FOR I- 2 TO NC 

700 X-l 

710 P(I)-P(I-1)-RH/X 

770 PZ-PZ*P(1-1) 

730 NEXT I 

7*0 X-P(NC)/(1-*C) 

750 IF N<9999 THEN X-X«(1-RC:(N-NC»1) ) 

760 PZ-PZ-X 

770 PZ-l/PZ 

710 FOR 1-1 TO NC 

790 P(I)-PZ«P(I) 

800 NEXT I 

» 10 FOP l-MC TO NN 

170 P(I)-P(I-1)-RC 

830 IF P(l)>-lE-5 THEN no 

832 IF IT-0 THEN <*« 

13* IF IT <>0 THEN 850 

1*0 IT -0 

150 NEXT I 

160 l*t»*l 

170 GOTO 960 

110 P(l)-Xr>RH 

112 FOR 1-2 TO NC 

813 X-l 

IIS Y-K-I*l 

117 P<I)«P<I-1)«RH«Y/X 

190 PZ-PZ'P(l-l) 

192 NEXT I 

900 FOR l-NC TO NN 

910 X-K-l-1 

920 P(I)»P<I-1)«RC«X 

930 PZ-PZ»P<I) 

9*0 NEXT I 

950 GOTO 350 

960 Ql-RC-P(NC)/(l-RC):? 

970 IF N<9999 THEN »«•( 1-RC: (N-NC)-tXN-C)«RC:(N-NC)«(l-RC)) 

910 El-XL«fl-P(NN>) 

990 SL^JL-EL/XK 

1000 H5-SI/EL 

1010 NO-QL/EL 

1020 MX- 1-1 

1030 LPRINT M ARR.RATt-";XL;TAB(50)"EFF.ARR. R»TF-";FL 

1035 LPRINT "SVC. RATE-";XM;TAB<30)"TRAFFIC INTENSITY-";RH 

1037 LPRINT 

10*0 LPRINT "AVG. TIME IN SYS. -";WS; TAB (35) "AVG. TIME IN LINF-";Nn 

10*5 LPRINT "AVG. NO. COST. IN SYS.-";SL;TAB( JSV'AVG. NO. CUST. IN IINF-";0L 

10*7 LPRINT 

1050 LPRINT "LIKELIHOOD OF EXACTLY N (FOR N-0 T0";WC;") CUSTOMERS IN THE SYSTEM, 

1055 LPRINT PZ; 

1059 X-0 

1060 FOR 1-1 TO MX 

1061 K-K-l 

1070 LPRINT P(l); 

1071 IF K«6 GOTO 1075 

1072 GOTO 1080 

1075 LPRINT CMM(9):X-0 
10(0 NEXT I 

10*1 LPRINT: LPRINT: LPRINT 
IMS GOTO 20 

1090 PRINT "ARR. RATE-";Xl;TAB( 30) " EFF. ARP. RATE-";EL 

1091 PRINT "SVC. RATE-";XM;TAB(3P) "TRAFFIC I VTTNSITV-" ; pf 

1092 PRII(T:PRINT "INVAl 10 TATA" 
1100 PRINT 

1110 GOTO 20 
1120 END 
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coordination, 
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their limits! 



16-48KTRS-80MODELIor 
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DISK $19.95 
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6 1 /2% sales tax in California 
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BOX 560 
NORTH HOLLYWOOD, CA. 91603 





THIS PRINTER SELECTOR 
HAS GOT THE SMARTS! 

TWOPRINT™ is the Smartest Dual 
Printer Switch on the Market for 
Your Money. 



An original dcsiqn by Hon Utirth 

INTRODUCTORY 

SPECIAL — $99.95* 

*Save $18 off the regular price 
of $117.95 with this ad. 



Hard select of desired 
printer with toggle 
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mode via CHR$(1) or 
CHR$(2) 
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The results are identical if the 
service rate is reduced instead 
of increasing the arrival rate (by 
using a less skilled server or by 
adding tasks to the service func- 
tion). For example, if the arrival 
rate remains at 20 per hour as in 
Fig. 1, and the service rate is re- 
duced to 24 per hour, the traffic 
intensity will be 0.833— exactly 
as shown in Fig. 2. The remain- 
ing results, as well, are identical. 

Fig. 3 shows statistics if only 
10 customers can wait. The ef- 
fective arrival rate reflects the 
fact that customers are turned 
away or leave if waiting area is 
not available. The results in Fig. 
3 are close to the results in Fig. 
1; the likelihood of ten or more 
persons calculated previously 
was quite small (0.16). The an- 
alyst would conclude that plan- 
ning a waiting area for 10 cus- 
tomers is quite conservative, 
but accommodates nearly all 
likely conditions. 

Fig. 4 displays results for a ser- 



vice rate of only 10 customers per 
hour. The traffic intensity ex- 
ceeds one, only possible in a 
waiting line model where waiting 
area or calling population is 
limited. Customers in this sys- 
tem spend a far greater amount 
of time waiting and there is 
almost no chance of finding the 
server idle. The effective arrival 
rate indicates a high number of 
customers turned away due to in- 
adequate waiting area. 

Consider the case where the 
calling population is limited. 
The results in Fig. 5 indicate that 
with a calling population of 100, 
the service is so slow customers 
must nearly always wait. Contin- 
uing this analysis with reduced 
values for the calling population 
does not change the results sig- 
nificantly. This lack of change is 
due to the high arrival rate even 
with a small calling population. 

A final example illustrates the 
case of added servers. Using the 
data in Fig. 5, but adding a server, 



yields the data in Fig. 6. There is a 
reduction in waiting time, but the 
line remains long. Clearly an im- 
provement in service time is 
necessary to produce mean- 
ingful change in the results. 

Further investigation is limited 
only by the analyst's imagina- 
tion. An interesting model is the 
(M/M/N)-(GD/N/N) case where 
there is a server for each custom- 
er, as in a self-service facility. 

Other analyses may be found 
in any basic operations re- 
search text. 



The text by Saaty (see Refer- 
ences) is a classical treatment 
of the theory of waiting lines. ■ 
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(M/M/1 )-(GD7 10/100! 



ARR. RATE = 20 
SVC. RATE = 10 



AVG. TIME IN SYS. = .999448 
AVG NO CUST IN SYS = 9 99448 



EFF ARR RATE= 10 
TRAFFIC INTENSITY = 2 



AVG TIME IN LINE = 899448 
AVG NO CUST IN UNE= 8 99448 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 10 I CUSTOMERS IN THE SYSTEM. 
1.54611E-23 3.09222E-21 6 12259E-19 1.20003E 16 2 32805 E -14 4 46986E1? 
8.49273E-10 1.59663E-07 2 96974E-05 5.46432E-03 994506 

Fig. 5 



(M/M/ 1 )-(GD/ 10 / 9999 ) 



ARR. RATE = 20 
SVC. RATE = 10 



AVG. TIME IN SYS = 900978 
AVG. NO CUST IN SYS = 9.00537 



EFF. ARR. RATE= 9.99512 
TRAFFIC I NTENSITY= 2 



AVG. TIME IN LINE = .800978 
AVG. NO. CUST. IN LINE = 8 00586 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 10 ) CUSTOMERS IN THE SYSTEM, 
4.8852E-04 97704E-04 1.95408E-03 3.90816E-03 7.81632E-03 .0156326 0312653 
0625305 125061 250122 500244 



Fig. 4 



(M/M/2)-(GD/10/ 100! 



ARR. RATE = 20 
SVC. RATE = 10 



AVG TIME IN SYS. = .499445 
AVG. NO CUST. IN SYS = 9.98889 



EFF. ARR. RATE= 20 
TRAFFIC INTENSITY = 2 



AVG TIME IN LINE = .399445 
AVG NO CUST IN LINE= 7 98889 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 10 ) CUSTOMERS IN THE SYSTEM 
7.87235E-21 1.57447E-18 1.55872E-16 1 52755E-14 1 48172E-12 1.42245E 10 
1.35133E-08 1 27025EO6 1 18133E-04 .0108683 989012 

Fig. 6 
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PLEASE ANSWER THESE 5 QUESTIONS 

YES NO 

1. Do you have information that must be kept organized and ^. ._. 
accessible? LJ LJ 

2. Do you ever need to perform statistical analyses? *— ' 

3. Would you like to have a tool that will allow you greater flexibility ._ , f 
in managing your own or your company's money? ^^^ 

4. Could you use a mail list program that will be easy to use, 
maintain an unlimited number of names, allow you great sorting 
flexibility, and even interact with a word processor? 

5. Do you own or have access to a TRS-80 microcomputer? 

It you answered "yes" to any of these questions, we can be of assistance to 
you. Our Maxi Series ol applications programs are designed to give you maximum 
versatility with a minimum of hassle. These programs were created for business use. 
but you'll find yourself using them for personal applications as well. 

Thorough support — Of course, each program comes with in-depth, user- 
oriented documentation, and is menu-driven to make it easy to use. When necessary, 
the Maxi programs are compatible with each other, and, whenever pertinent, are 
interactive with the major word processing and spreadsheet programs published by 
other manufacturers. Also, we maintain a telephone support line to provide you with 
any assistance you might require. 

IUomI 9fofM0W * Daie Kubier \ 44axi Cras ' 

/ Maxi Manager is a remarkable data base manager Its fasl I 

J machine language sort complements its large data storage capacity. I (Check Register Accounting System) 

b,?,?,^matp^ and Pr '?" n9 C3Pa I Ma *' Cras IS a s V s,em "«•' «"»' computerize check writing. 

onities makes Maxi Manager a versatile tool 'or many applications / M _ _> . , . . , T _ . " 

The program now includes Max. Utility, which allows you to wording and analysis for business and personal finance The system 
rescue files on diskettes that have been damaged by excessive wear or f ,ea,u ' es 223 income and expense accounts, each of which will handle 
misuse and lets you expand, add. or delete fields from an existing data / an unlimited number of transactions Extensive register and report 
base Let the unmatched capabilities of Maxi Manager handle your I printing capabilities make Maxi CRAS an indispensible tool for 
data management' I managing money effectively 
Model I A Modal III. Minimum 1 dink driva required 012-0196 $149.99 I Model I * Mod#< HI. Minimum 2 drlv» roquirod 0120145 MM8 

I HOll >Y Da,e Kubler ^fOXf fitOt *y Dave* vM,on,c>, 

Maxi Mail is a powerful mail list management system that J ^jw^w 

I u^ aSy „ ,0 ,if se , / Maxi Stat is the most useful statistical analysis package en the 

3 »nferfa?e1i with" tr^'m^'w^nS^ , . , marhe ' ,oday '« was ^eloped to allow maximum UoSibMy in 
le.ters a andXr?ext ' ° Pressors to generate form J ^signing customized analysis Max. Stat handles the three main 

4 Pnnts mailing labels up to lour across in any format desired I com Ponents ©' statistical analysis 

5 Has virtually unlimited coding capabilities with thirteen fields of I Complete menu driven codebook creation and editing 
information lor each record 2 Menu-assisted data entry 

Maxi Mail is Ihe most sophisticated user-onenfed mail list J 3 User created control files to describe the statistical analyses to 
?l£2j2r»aZ2!i a uifL^ o m,.u ^ De Performed and printed out on the variables of your choice 

T RS40 mm III only 2 dl,k drive, required 0120146 $99.95 j Modi I m Mod* til. Minimum 2 drives required 012-0153 3199.9S 
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Scott Adams, inc. 

_ Send $1.00 lor our 16 page booklat 

I£^MkV ^^k ^^aaf^^ I "Gating Tha Mosi From Your | 

Ks^fl ^^^k ^k I Micro" All 16 pages are packed with 

-■^^^™*^^^™ ■ (ndepth explanations and printout 

samples from tha Maxi Series of ap- 
plications programs. 

THE BUSINESS DIVISION 

BOX 3435 \ 

LONGWOOD.FL 32750 

(305) 830-8194 ^20 
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MAXI STAT Is The Most Versatile 
Statistical Analysis Program 
Available ... On Any Micro. 

Dr. Steven E. Mayer, PhD., Industrial Psychologist — Maxi User 




Focus On: Maxi Stat 



Who can use Max! Stat? 

Anyone who needs an analysis ol statistical data. Maxi Stat has suc- 
cessfully replaced dedicated mainframe and time-sharing statistics 
programs for business, financial and marketing researchers, educa- 
tional administrators, hospitals, medical schools and medical 
research facilities, agricultural testing, and social scientists. 



1 



What does it do? 

If you're familiar with SPSS (Statistical Package for the Social 

Sciences) and what it can do on a mainframe, you have a good idea 

of what Maxi Stat will do for your TRS-80. 

Maxi Stat offers many of the best features of SPSS (modified for 

microcomputers) as well as features you can't get in any other 

system, at any price. Maxi Stat is one of the most useful analysis 

packages available — anywhere. 

Read on to discover what this remarkable new tool can do for you . . 

Maxi Stat offers: 

• menu-driven operation 

• user-created codebook 

• the ability to handle up to 255 variables 

• machine language code allowing speedy data entry 

• fast and easy editing 

• hundreds of tasks performed at one time 

• reports vou can custom design for your specific needs 

• ample screen prompts to guide user 

• frequent automatic backup of data to help protect against power 
failures and system crashes 

• all phases of research analysis, including: 

write subfiles 
frequency distribution 
descriptive statistics 
crosstabs & chi-square 
correlation and linear regression 
t-test 

multiple linear regression 
analysis of variance 
multiple variable response 

Summary 

See for yourself what hundreds of other professionals have already 
discovered — Maxi Stat is THE solution to your analysis problems, 
and It's never further away than your TRS-80. Pull the plug on your 
time-sharing system and discover the power and convenience of 
Maxi Stat today! 



By David Walomck 

Maxi Stat is available 
now for TRS-80 Models I 
and III with 2 disk drives, 
48K RAM, and printer. 



Look who's already using it! 

University of Alaska. Fairbanks. AK. • Florida Hospital, Orlando. FL. • Capital 
Research Services. Topeka. KA • Cantar for Financial Studies and 
Development. Claremont. CA • U.S. Army Psychological Testing Unit. 
Wahiawa, HI • University of Nottingham Dept. of Social Administration. 
Nottingham. UK • Defense Intelligence School. Washington. D C • Dept. of 
Recreation and Park Administration. Unlveraity of Missouri. Columbia. MO • 
Children's Hospital of Philadelphia. Philadelphia. PA • Kingston City Schools. 
Kingston. NY. • Unlversidad de Monterrey. Monterrey. Mexico • University of 
Michigan. Dept. of Pedlatrlca. Ann Arbor. Ml. • Kodak Camera (Australia, Asia). 
Coburg. Victoria, Australia • The Williams Group Advertising and P.R.. Dallas. 
TX • Medical College of Pennsylvania. Philadelphia PA • Parkway Day 
School, Phiiadelph.a, PA • University of Illinois. Chicago. IL • Selkirk Health 
District, Nelson. B.C Canada • Human Communications Systems. Reston, VA. 
• California Research Center. Los Angeles. CA. • WaltRlch Marketing 
Consultants. Orlando, FL. • Rutgers University, Piscataway. N.J. • Bethel 
Theological Seminary, Brooklyn Park. MN • Seton Hall University. Stlllman 
School of Business. S Orange. N.J. • Plan-Test Associates, Phoenix. AZ • 
General Mills Corporation. Minneapolis, MN. • Shearaon, Hayden Stone 
Inveatments. Hollywood. CA • Energy Syatema Research Institute. Raleigh. 
N.C • Mlnnlsota Historical Society. St Paul. MN. • Purdue University, W. 
Lafayette, ID • Nova Scotia Agricultural College, Truro, N.S., Canada • Agrico- 
Chemical Co., Wilmington, DL • Marketing Associates. Charlotte. N.C. • 
University of Ottawa. School of Psychology, Ottawa. Ont . Canada • Rock 
House Publishing. Kowloon. Hong Kong • Center for Applied Social Sciences, 
Boston. MA • Blake and Dickinson Marketing Research, Manchester, N.H. • 
United Nations, New York, N Y . and hundreds more! 



Maxi Stat prints many different report styles. 



Or TIL fclk COMtLATIG* i 1 I MA* R IC*£1 S 1 0*. rkCCkAK 

scour on cou-rct omAxct »»*» *> » wtoicro* or cr* 






I 




: .»• 
1 

: 
: 


. • •"••:" 




r 




1 


• ••' ; . • 




7 




i 
i 
I 

i.e. 


• •' ..." 




i 
A 

D 

T 




• 
i 


.'."'» t • 







«. 


11. 1 11.7 44.5 (1.1 1*.l M.f 


4. 








coLLrcr mT«A»ct ixah *co»r 


1 


s.n. or 

■ 
i.e. or 


i 


• 41.11 

• «).«» 

• 1. 44 

■ .4? 


comilatioh corrricirnT ■ .•• 

• 4» «.. . . 

slop* or Keats si on Linr • .02 n , . 
» iNTUictrr • J.Jt 



$199.95 



»IC«f!!0» ECt'ATIOa i V • .02 » • I. It 

ii»»D**D raao* or rsTiMATT rot »tcat»sio«. 
»t«»ca»o raat-a or conrLATion corrricinrr 
tlCMriCAiKC or co*«ri_»T!0» corrrtriurr 



Soon to ba a.allabla lor IBM PC 



ORDER FROM YOUR FAVORITE DEALER or CALL TOLL FREE (500) 327-7172 (ORDERS ONLY PLEASE) 
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BASF QUALIMETRIC" 

INSURING ATOMORROW FOR TODAY'S INFORMATION 



The BASF Qualimetric standard is a 
dramatic new international standard 
of quality in magnetic media. ..insur- 
ance that your most vital information 
will be secure for tomorrow when 
you enter it on BASF F I exy Disks- 
today. 

The Qualimetric standard reflects a 
continuing BASF commitment to per- 
fection..^ process which begins with 
materials selection and inspection, 
and continues through coating, pol- 
ishing, lubricating, testing, and 100% 
error-free certification. Built into our 
FlexyDisk jacket is a unique two-piece 
liner. This BASF feature traps damag- 
ing debris away from the media sur- 
face, and creates extra space in the 
head access area, insuring optimum 
media-to-head alignment. The result 
is performance so outstanding, 
and durability so lasting, that BASF 
FlexyDisks are protected by the indus- 
try's only lifetime warranty.* 

When your information must be 
secure for the future, look for the dis- 
tinctive BASF package with the Quali- 
metric seal. Call 800-343-4600 for the 
name of your nearest supplier. 




Enter tomorrow on basf today o J BASF 



•Contid BASF tot *imnxt detj,li t 198! BA$r Systems Coipo>*iw< Beafn>n MA 



GAME 
LOAD 80 



A marathon for mice. 



Maze XIX 



Gary Teter 
6692 Shay Lane 
Paradise, CA 95969 



Have you ever wondered how 
a mouse running a maze 
feels? Now you have a chance to 
find out: Put on your mouse ears 
and get ready to play Maze XIX! 

To Play 

After entering the program in 
the listing, hook up an amplifier 
(or a modified tape recorder) for 
sound. After the Hall of Fame 
display press Enter to begin the 
game. 



The object of Maze XIX is to 
guide a moving dot through the 
maze and back as quickly as 
possible. The arrow keys direct 
the dot. Running into the wall 
adds 20 points to your score. 

If you need to leave the com- 
puter while the game is running, 
press Clear to halt the game. To 
continue press any arrow key. To 
end the game, hold down the 
Spacebar. 

The Program 

The program is fairly straight- 
forward. The sound routine, by 
Leo Christopherson (80US, 
May/June 1980), is POKEd into 



S$ in line 950. 

I included a checksum rou- 
tine, making it almost impossi- 
ble to bomb the program with a 
typo in a data statement. Line 
930 checks the length of S$ to 
make sure it is 74. The only way I 
can think of to bomb the pro- 
gram is to exchange a couple of 
numbers in the data statements 
(please do not take that as a 
challenge!). 

All constants in the dot-move 
routine (lines 40 and 50) are 
defined as variables. This 
makes the game run faster be- 
cause variables are placed into 
a table. Those at the top (the 



ones defined first) are refer- 
enced faster than those at the 
bottom (and also faster than 
constants). For this reason I 
defined the variables used in 
lines 40 and 50 at line 910. 

The program should run on 
other DOSes but I have not 
tested it on any. For all you pro- 
gram modifiers, Table 1 is a 
listing of each section, along 
with what each part does. ■ 

Gary is a 15-year-old high 
school junior. He is a founding 
member (and presently general 
manager) of the Ficticious GLM 
Corporation. 



The Key Box 

Basic Level II 
Model I 

16Kto48K RAM 
TRSDOS 2.3 



Program Listing 

10 REM Maze XIX by Gary M. Teter - Copyright (c)1918 by the 

20 REM GLM corporation (no rights reserved, free to all) 

30 GOTO840 

40 S-S*1:IFX>6 3ANDY<7THENF1»- 1ELSEIFX<63ANDY<7ANDF1THEN90ELSEOPEEK ( P) :IFCA 

NDL.E — 3:F-0ELSEIFCANDR,E«3:F = 0ELSEIFCANDU,F — 1 : E-«ELSEIFCANDD,F-1 : E-0ELSEI 

FCANDGGOTO80EI.SEIFCANDHTHEN1H 

50 X«X+E:Y=Y+F:IFPOINT(X,Y)THEN60ELSERESET(X-E,Y-F) :SET(X,Y) :GOT04fl 

60 S»S + 20:K«W+1:E — E:F— F:X-X+t: Y-Y+F: POKES0+6 ,1 :POKES0*16 ,RND( 50) +1»0 

70 O»USR(0) :GOTO40 

H0 C-PEEK(P) :IFCANDUORCANDRORCANDLORCANDDTHEN40ELSE80 

90 CLS:GOSt.'B670:PRINTCHRS(23) : PRINT : PRINT: FORIX-lTOl : IFS<S ( IX) ,GOSUB710:GO 

TOIIBELSENEXT 

100 PRINT-Your score was"SCHRS(8l ' . ■ :PRINT - You crashed'Wtime - ; i IPWOl ,prin 

Listing continues 



10-20 


Credit given where credit is due 


30 


Call initialize variables routine 


40-50 


Dot move routine, and check for wall hit 


60-70 


Change direction and make bounce sound 


80 


Delay until arrow key pressed 


90-160 


Ask for another game 


170 


Sepaate the subs from the program 


180 


Show titles and make starting noise 


190-210 


Draw maze frame 


220-280 


Create the openings 


290-310 


Reset variables, make sound and start game 


320 


Hole routine; choose start of opening 


330-360 


Check for conflicts— force player to turn 


370-380 


Make the hole and return 


390-480 


Display "Play Maze XIX" titles 


490-500 


Loop until Enter key is pressed 


510-530 


Draw the maze frame 


540-560 


Oper the paths 


580-640 


Blinking cursor routine Returns Z$ 


650 


Center title and print slowly 


660-670 


Sound routines 


680-700 


Display high scores and wait until Enter 


710-830 


Set high score, enter initials 


840-1050 


Initialize all variables 


9999 


Save updates on disk 




Table 1 



—Circle 334 on Reader Service card 
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SFINKS 
3.0 

CHESS 
PROGRAM 


tvl 


I the 
finest 
available! 

See 80 U.S. 
June 1982 


PRIZEWINNER 

1WS] Paris 

World 

MkKiamipuK'i 

C he- 
C lumpion^hip 


•32 book openings 
•chess clock 

•printer output 
•problem mode 
•audio alert 
•thinking on 
opponent's time 
•infinite levels 


32K 

Model 1 (E.I.) 
or Model 3 

tape hi dKk 

nnl\ 1 

$39.95 


SFINKS 
1.81 

i- .i.-i ■.=.. 

1'-. C • ,■-- a:. J 

I:..::-u-!\!^;\,, 
C he- 


PRIZEWINNER 

1980 San Jose 

U.S. 
Microcomputer 

Chess 
Championship 


•nine levels 
•problem mode 
•move suggestion 
•mo^e take back 
•audio alert 
•good 
documentation 


32K 

Model 1 or 3 

kipc k»r J:-k 
<ml\ 

$24.95 


SFINKS 

CHESS 
TUTOR 

1 C.i! 11 lO 

pl;i\ Jk'N- 


Step-by-Step 
Programmed 

Learning 
for the 

Newcomer 


•tutor 

•3 level game 
•problem mode 
•audio alert 
•printer output 
•book openings 
•superb graphics 


32K l 
Model 1 or 3 

di-k on is 
oiih 

$19 95 


I 1 . ■ . :■..:. 

M •.. 

1- • .:. V I • 

WILLIAM FINK 
SUITE ?4B 

no:, s main s* 

GAINESVILLE. FL 

:<?h0i ! 


EXCEPTIONAL 

DEALER 

DISCOUNTS 

(904) 377-4847 

/SFINKS I ^ 



Listing continued 
t*s.*elseprint*." 

lit IPCANDHCLS:PRINTCHRS(23) 

12* PRINT:PRINT:S-0:W0:PRINT*Play again? *; 

130 G0SUB586:IFZS«*N*0RZ$«*n*THEN186 

141 irZ$-*Y*ORZ$«*y*THENPRIKTZS: :ELSEGOT0136 

158 PRINT:PRINT*Uae the tame naze? *i 

168 G0SU8566:IPZS-*Y*0RZS-*y*THENPRINTZS;:G0SUBSlB:GOSLB29B:GOTO4B£LSEIFZS- 

•N*0RI$--n-THEMPRIKTIJj:G0SUBl98:COTO48ELSE168 

178 END 

188 GOSUB686:GOSUB676:P0RJY°lTOlS:G0SUB66B:NEXT 

198 CLS:PRINT664,B$; 

288 P0RIX>2T014:I>RINT6IX*64,Z1$;:NEXT 

218 PRINT«8,X$;:PRINT89(8,y$;:POKE16383,191 

228 A«6:B'63:Y-4:FORZ-lT013:Y~Y+3 

238 GOSUB32B 

248 NEXT 

256 PO*E16351,176:POKE162B7,143:POICE14352,176:POXE16287,143:POKE16286.141 

268 A-64:B«125:Y«4:FORZ»14T027 

278 Y»Y*3:GOSUB326 

288 NEXT 

298 X-3:Y-3:E-3.r-B:Fl-6 

388 POXES8»6,2:POXES8+34,4:0=USR(B) 

318 GOTO46 

328 IFA-6THENPL-RND( 49) ♦2ELSEPL-RND( 47) *66 

338 IPPL-PVTHEN326ELSEIPPL*8"PV+8THEN328ELSEIFPL<PVANDPL»9>PVTHEN32B 

348 lFPt>PVANDPL*8<PV*8THEN326ELSEIPPL>PV*8THEN360 

356 IPPL>PVTHEN32S 

368 IFPL+8>B-3THEN32B 

376 PV«PL:rORX-PLTOPL*8STEP2:RESET(X+l,Y) :RESET(X,Y) iNEXTiPLI Z) =PL 

388 RETURN 

396 GOT0688 

488 CLS!PS»"Pl«y , iPRINTCHR$(23) SG0SUB658 

418 IFINKEY$-CKRS(13)THEN5«« 

426 PS-*Maze XIX* :PRINT:GOSuB658 

43- IPINKEY$-CHR$(13)THEN5M 

440 P$«*» 1 quarter - 1 play *': PRINT: PRINT 1GOSUB6 50 

4S6 IPINKEYS-CHRS(13)THENS68 

466 PS-** 2 quarters - 3 plays ** :PRINT:GOSUB656 

476 IPINKEYS-CHRS(13)THEN566 

486 PRINT: PRINT: PS-'Press -ENTER- to begin*:PRINT:PRINT:PRINT:GOSUB65B 

496 I"H«EY$-CHR${13)THeN566ELSEIX-IX+l:iriX>26BTHENIX-6:GOTO«86BLSE496 

566 RETURN 

516 CLS 

526 PRINT664,BSj:PORlX-2T014:PRINTf64»IX,Zl$;:NEXT : PRINT86,XS; 

536 PRINT#966,YS;:P0KE 16383,191 

548 A-0: 8*63: 1-4 tPORIY-lTO13:Y=Y+3:GOSUBS70: NEXT 

556 POKE16351.176:POf.el6287,143!pOKE16352,176:POIE16287,143:POKE1628B,l41 

Hi a -«5jB-125!Y-4jPO«IY-14T027:Y-Y*3sCOSUB576 j NEXT: RETURN 

576 PO«IX-PL(lY)TOPL(IY)*8:BESET(IX,Y) i NEXT i RETURN 

586 IX-B:ZZS-CHRS(143)»CHRS(24) :ZAS«* ■♦CHRSI24) 

596 IX-IX+1 : PRINT! Z$; : IPIX>18THENIX>6 : GOTO* 2 6 

666 I$-INKEY$:IPI$<>"Z-ASC(Z$):IPC>64AiroZ<91)OR(Z>47ANDZ<58)OR(Z>96AND2U 

23) ORZ-320RZ-8ORZ-13THENPRINTZAS;: RETURN 

616 GOTO 596 

626 IX-IX+1 :PRINTZA5;:IPIX>16THEN588 

636 I5-INKEY$:IPXS<>"»-ASC(ZS):IP(Z>64ANOZ<91)OR(Z>47ANDZ<5B)OR(Z>96ANDZU 

23)ORZ'320RZ«8ORZ»13THENRETURN 

646 GOTO 626 

656 PRINTTAB(16-LEM(P$)/2);:PORX>lTOLEN(P$):PRINTMID$(PS,K,l) ; :F0RTD»1T04S: 
NEXT : NEXT : PRI NT : RETURN 

666 POXES6+6,3:POKES6+55,1:0«USR{6) : RETURN 

676 P0KES6+6 f 2:POIES6+34,4:0=USR(6) : RETURN 

688 CLSiPRIiriCBRJ(23);:PRlNTTAB(4)-The Nate xix Hall of Fa»e* 

698 PRINT:FORIX.iT09:PRINTTAB(9>;IX,CHRS(8)-. *;S< IX) ;TAB(19) '- -SS<IXi:NEX 

T; PRINTTABI 8) iIX;CHRS( 8)*. "S I IX) ;TA8( 19) "- "SSI IX) : PRIST: PRINTTABI 4! "Copy r 

ight (c)1918 by the* : PRINTTABI 2) *G LN Corporation' 

766 IPIMKEYJ»C«RStl3)THeNRETURNELSEHJ-HJ*l:IFHJ>275,HJ-6 : G0TO46eELSE7eB 
716 PRINTi896,TAB(3)'You have set a high score.* 
726 PRINTTABI 3) "Please enter your initials* 

736 PORIS-9TOIXSTEP-l:S(IS*l)=S(IS>:S$(IS*l).SS(IS):NEXT:S(IX)=S:IT»IX 

746 PRINT00,**;: PRINTTABI 4) *Tba Naze XIX Hall of Pane *i PRINT: FORI Y=-1T09:PRI 

NTTAB(9);IY;CHR$(8)*. *,S(IY) ;TAB(19) *- *S$(IY) : NEXT: PRINTTABI 8) , IY;CHR$ 1 8) 

*. *S(IY)>TAB(19>*- *S$(IY); 

756 PRINT*64*IT+106,STRINGS (3,132) |:PRINT«64*IT*1B«,**) 

766 GOSUB588iIP(Z>64ANDZ<91)ORZ-320RU>96ANDZ<123)THEN77BELSE76« 

776 PRINTZS;:HS-Z$ 

780 GOSUB5B0lIF(X>64ANOZ<91)ORZ»32OR(Z>96ANDZ<123)THEN790ELSEIFZ-8THENPRINT 
CHRS(8)jiH$-LEPT$(HS,l) :GOTO76BELSE7 80 
798 PRINTZ$;:H$-HS+Z$ 

800 GOSUB5B0:IP(I>64ANDZ<91)ORZ=32OR(Z>96ANDZ<123)THEN816ELSEIFZ--8THENPRINT 

CHRS(8);:HS»LEFTS(HS,2) :G0TO7B8ELSE866 

816 PRINTZ$;:H$«HS+ZJ 

826 GOSUB586:IFZ-8THENHS-LEFTS(HS,2) :PRINTZS; :GOT08B6ELSEIFZ.13THEN83BELSE8 

836 S$IIT)-HS:PRINT«76B,CHR$(31);:IFLEN(H$)O3THENHS-"*:30T0758EI~SERETURN 

846 DATA 33,1.2.14,255,62,2,254,2,48,21,254,3,46,38,17 

856 DATA 13,166,237,97,67,16,254,237,165,67.16,254,21 

866 DATA 12,243,261,17,1,5.123,237,97,71,16,254,237,165 

676 DATA 71,16,254,66.32,243,21,32,239,261,17,186.2.123 

6B0 DATA 237,97,71,16,254,237,165,71.16,254,61,32.243,21 

896 DATA 32,239,261,34 

968 CLEAR586 : Of^INTA-Z: RANDOM :DIHPL[ 46) 

916 S-0iX-S:Y.3:C-6:P-15166:E=6:P-6:L-32:R-64:U-B:D-16:G-2:H-128:Fl=8 

926 SS.*1234S67896123456789612345678961 23456789612345678 961234567896123456 7 

8961234" 

936 IPLEN(S5X>74THENPR1NT*» Length of S$ in line 946 is not correct - shou 

Id be 74 **:STOP 

946 S1«PEBK<VARPTR(S$)+1) :S2=PEEK(VARPTR(S$) *2) :SB-S2»256+S1 

956 RESTORE:FORN-6T073:READD1:POKES8*N,D1:C-C*D1:NEXT:IFC07759THENPRINT** 

Checksua error - check data in lines 856 to 966 **:STOP 

966 lrPEEKJ 16396) -261POKE16526 ,S1 :POItE16527 ,S2ELSEDEFUSR0.S0:CMD*T* 

976 AS-CHR$(191)*CHRS(149) :B$=AS*STRINCS< 29,32) ♦AS*STRINGS(29,32) +CHRSI176) 

+CHRSI191) 

988 CS-CHRS<191)*CHRS<151) 

996 XS-CS+STRINGS(29,131)*C$+STRINGS(29,131)*CHRS(171)*CHRSU91) 

1000 YS-CHRSI 191 )+CHRS< 181) +STRINGSI 29.176) ♦CHR$(191) *CHR$< 181) ♦STRINGS) 29, 

174) ♦CHRSU86) 

1616 ZA$«CHRS(191)*CHRS(1S7) 

1620 Z1S»ZAS*STRING$(29,146)+ZAS+STRINGS(29,14B)+CHRS(174)*CHRS(191) 

1636 FORIX-lT016:S$( IX) •STRINGS (3, 132) : S ( IX) -9999: NEXT 

1646 GOT0186 

1056 END 

9999 PRINT'Saving updates. *:PRINT*MAZE19/BAS*:SAVE , MAZE19/BAS":END 
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GENERAL 



Save money by reloading ribbon cartridges. 



Open Cartridge Surgery 



Bill Grout 

380Channing Way it 171 
San Rafael, CA 94903 



I have a Daisy Wheel Printer II 
from Radio Shack. It's a won- 
derful machine, but the ribbon 
cartridges are longer and flatter 
than those for other machines, 
so you can't substitute any 
other cartridge. These car- 
tridges seem too valuable to 
throw out when the ribbon runs 
dry after only four or five hours 
of printing. 

If you have a printer that uses 
expensive and hard-to-find rib- 
bon cartridges, it is possible to 
reload them with the ribbons 
from cheaper cartridges. 

First, check the ribbon width 
of your cartridge. (In my car- 
tridge it was V* inch wide.) Once 
you know the size and kind of 
ribbon you want, go to the office 
supply store. I bought a smaller 
Qume cartridge with the right 
ribbon, though different in 
shape from my cartridge. If you 



are selective you may be able to 
find a cartridge for dollars less. 

It would be easier to buy a 
spool of ribbon to put into the old 
cartridge, but I found none avail- 
able. So I was forced to buy a 
foreign cartridge and then trans- 
fer the ribbon to my old cartridge. 

Take the new and old car- 
tridges into the kitchen. On your 
way. get a table knife and a roll 
of Scotch tape. 

Carefully open your old ribbon 
cartridge. Remove the rubber 
band from the knob and axle; the 
rubber band turns a spool that 
winds up the used ribbon. Hold 
the cartridge in your hand and 
find the seam where the two 
halves of the plastic case are 
snapped together. They aren't 
glued, so slide the knife blade 
into the seam and work your way 
around the case until you can lift 
the top half off. 

Examine the inside of the car- 
tridge. (See Fig. 1.) Find the 
spool of used ribbon on the 
right. Running back from the 
spool, the ribbon threads 
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Figure 1 



through two gears, around a 
post, and out the front of the car- 
tridge. Notice how the ribbon 
threads around the different 
gears and rollers so you can 
replace the ribbon correctly. 
Tracing the ribbon back, you'll 
see that it goes into the other 
arm of the cartridge, around a 
plastic guide with a piece of 
sponge and a spring attached to 
it. and then around two rollers in 
an S fashion. Finally it goes to 
the empty spool on the left side. 
You'll put in a new ribbon where 
the empty spool is. then thread 
it back to the other spool that 
holds the used ribbon. 

Remove the old ribbon and 
throw it away. Make sure you 
save the two center hubs or 
spools (you'll need them later). 
You have now successfully gut- 
ted your cartridge. 

Open the new cartridge and 
detach the ribbon from the other 
empty spool. Then place the 
new ribbon onto the left axle of 
the old cartridge. 

Here is where the first prob- 
lem may arise. 

The center hole in the spool 
may be a different size than the 
axle in your old cartridge. In my 
case the hole was too large. Ex- 
amine the old spool, which fits 
the axle (it consists of a black 
outer ring and an inner hub). The 
outer ring slides off, and the in- 
ner hub fits into the hole of the 
new spool. 

The second time I tried this 
the old inner hub didn't fit. You 
have two alternatives: you can 
either wrap a piece of paper 
around the axle (make sure the 
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spool turns freely) or just let it 
rattle. 

When the ribbon is on the axle, 
make sure it is unrolling in the 
right direction. As the spool un- 
winds, it should turn clockwise. 
Rethread the ribbon through the 
rollers and the guide, then out the 
arm and into the other arm. Fit the 
ribbon between the two gears that 
are pressed together by a spring 
by depressing the gear with the 
spring to make a small gap be- 
tween the gears. I found it easier 
to remove one of the gears com- 
pletely, position the ribbon and 
then replace the gear. 

All that remains is to attach 
the loose end of the ribbon to the 
old spool. Make sure the ribbon 
is not twisted. When the ribbon 
winds up, the spool turns clock- 
wise. Use a small piece of tape to 
attach the ribbon to the left side 
of the spool, and make sure the 
ribbon is properly aligned. Now 
fit the top half of the cartridge 
back on. and press the sides to- 
gether tightly. This is important 
at the ends of the two arms, for if 
they are not firmly together, the 
ribbon may slide between the 
seams, catch and snap. With the 
top of the cartridge back on, re- 
place the rubber band on the 
knob and axle. 

Pull the ribbon to see if it un- 
rolls freely. If it doesn't, the top 
half of the cartridge may be 
pressing down on the spool. 
Take the table knife and slip it 
into the seam again to free the 
spool inside. Once the ribbon 
comes out with a gentle pull. 
you're ready to replace the car- 
tridge on your printer. ■ 
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UTILITY 



Here's an explanation of their functions. 



NEWDOS80 Files 



Randy M. Resnick 

162 rue de la Convention 

75015 Paris, France 



Remember your innocent 
days when above all you 
preferred to read comic books? 
The styles varied drastically be- 
tween Superman and Donald 
Duck, but all comics shared one 
convention. When the villain 
was foiled or Dewey slipped on a 
banana peel, they shook their 
fists and yelled *#%&!#!!! 

I suspect that when you got to 
the end of the NEWDOS80 
manual and started looking at 
the documentation for the five 



The Key Box 

Basic Level II 
Model I 
32K RAM 
One disk drive 
NEWDOS80 



new file types, many of you 
shook your fists and uttered 
even more sophisticated oaths. 
Assuming that you have at least 
glanced over Appendix A in the 
manual or Section 8 on Disk 
Basic I/O enhancements, I pro- 
pose to lead you to the light at 
the end of the tunnel. 

It is not the fault of the au- 
thors of this fine operating sys- 
tem that standard ASCII just 
does not have enough unique 
characters for all of NEWDOS 
80's functions. 

In Basic Level II and up, the 
four characters %, !, # and $ are 
variable type declarations. Most 
of you know and use the $ suffix 
for a string variable as in A$, C1$ 
or P$(1,4). Likewise, % desig- 
nates an integer variable, ! 
means single precision, and # 
means double precision. You do 
not always see all these sym- 
bols in a program because they 
can also be defined at the be- 
ginning by a line like this: 

10 DEFINT A-F DEFSTR R-Z 

You knew all that. So did I and 
so did Apparat. They had little 
choice, however, but to assign 
additional uses to these same 
characters. What do you make 



of this, for example: 

70 GET 1.#.,(10)#,L%,R* 

Not only do these symbols have 
more than one meaning, but 
they can appear three times in 
one line and represent three dif- 
ferent things. 

When I first examined the ex- 
amples in the book, I found them 
very confusing. With a bit of 
study and practice, however, the 
different meanings, in context, 
are as obvious as the difference 
between two, too and to in 
spoken conversation. 

QETtlng to the Point 

Some file types require that 
you use a declaration symbol for 
all variables, and in some you 
must indicate the exact length 
of a string. Unlike Basic, there is 
no default variable. (With added 
power comes added respon- 
sibility.) 

In line 70 above L% and R# 
are simply the two variables, in- 
teger and double precision re- 
spectively, that the statement 
wants to GET. 

What's between the GET 1 (1 
is the buffer number, File Area 
Number In NEWDOS80 terms) 
and the variables? We'll get to 



that in a moment. First, look at 
this elegant model: 

10 OPEN "0",1. "FILE", "Fl" 
20 PUT 1...AV.; 
30 CLOSE 

The Fl file type, threateningly 
referred to as "fixed-item, user- 
segmented," must be hard since 
it's the last thing in the book, 
right? Wrong! All five new file 
types require that you inform 
the system of the type you are 
using. So, lines 10-30 opened an 
Fl file, wrote one integer value to 
it, and closed it. We could have 
written several values in a state- 
ment such as this one, and 
many thousands with the proper 
loop surrounding it. No fielding 
is involved. We wrote two bytes 
of data in LSB-MSB order (also 
known as internal format 
because this is how an integer is 
stored in memory) to the disk. 

If A% equaled -12345 and 
was written to disk using the 
PRINT#1 statement, it would 
use seven bytes of disk storage. 
The minimum number of bytes 
that a PRINT#1 statement will 
use for an integer variable is 
three: one for the sign, one per 
digit and a trailing blank. Yet, all 
integers in an Fl file use two 
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bytes. It is easy to see that it you 
wrote 1000 integers to a regular 
sequential file, you could waste 
an average of two full tracks 
(4096 bytes) of disk space. 

I rewrote a program that 
stored a 3 by 1024 element in- 
teger array to disk, changing the 
file type from PRINT#/INPUT# 
sequential to Fl by modifying 
four statements. The original 
file this program created was 36 
sectors long and the new one 
with the same data took 24 sec- 
tors. Most data values in the ar- 
ray were zero; all were limited to 
three digits. If the array were full 
of two to five-digit integers, the 
difference could be more than 
300 percent— better than triple 
density! 

Examining line 20 of my pro- 
gram gives us the syntax for the 
GET and PUT commands for 
NEWDOS80 files. After the GET 
command and its buffer number 
and comma are two more com- 
mas, the variable name and a 
semicolon. These last two items 
have a name: IGEL (Item Group 
Expression List). An IGEL is 
much easier to tame than a 
Field statement. It is simply a 
list of variables, each type- 
declared, separated by commas 
and ending with a semicolon. An 
IGEL can also exist by itself in a 
line or several lines such as: 

145 GOTO 155 

150 A%, B%, G$:' three integers 

151 L$(X,1), R#;:' string and numeric 
155' program continues . . . 

Your program must branch 
around the items in the IGEL 
See the manual for more ex- 
amples and how to use com- 
ments in the lines of an IGEL to 
enhance readability. If the IGEL 
has its own line number, it is 
called a free-standing IGEL. To 
use one in a program, the syntax 
is: 20 GET 1„150. There is no 
ending semicolon, and only one 
comma is used after the comma 
that comes with GET 1. You will 
often use the same IGEL for 
GET and PUT statements in the 
same program. This version of 
line 20 would read the disk data 
of the file and assign it to the 
variables named in lines 150 and 
151 above, assuming the data is 
written with exactly the same 
types of variables in the same 
order. 

If you want to write a Sequen- 
ce* List of Advertisers on Page 451 



tial file of the Fl-type numbers 
only, and use it like the PRINT*/ 
INPUT* type files, you have the 
tools to do so. Program Listing 1 
is an example. 

The first four lines fill the array 
with 1278 useless numbers be- 
tween - 10000 and + 10000. 1 en- 
courage you to substitute mean- 
ingful data for this section, such 
as the 426 highest scores in 
Chess Master Version 3.0, the 
dates they were achieved, and 
whether they increased in the 
last game. 

The other odd-numbered lines 
are remarks. Using a free-stand- 
ing IGEL, the program is easy to 
write and debug. Compared to a 
PRINT#/INPUT# type file pro- 
gram, it accomplishes the same 
task about 28 percent faster, 
and uses Va the amount of disk 
space to store the same data. 

To use strings in such a file you 
must state their lengths in the 
IGEL such as (23)A$ or (5)Q$(X,Y). 
This number creates a space in 
the file for the string. If the actual 
string is longer, it is truncated 
and, if shorter, the remainder of 
the space is filled with binary 
zeros (nulls). 

You can randomly access 
these new file types as well! The 
MF and FF type files are similar 
to TRSDOS's random files, ex- 
cept that you decide the record 
length (1-4096) and you do not 
need Field or LSET and RSET 
statements. The system keeps 
track of record numbers for you. 
For other file types, you must 
know where the record you want 
is located in the file (called its 
RBA). Further, if you have al- 
ready worked with random files, 
you will appreciate the fact that 
some NEWDOS80 file types can 
manipulate a part of a record 
without re-writing the whole rec- 
ord. This can be complex, and I 
would not try it on payroll files 
during working hours! Even so, 
if you work with long records, 
partial I/O can save access time, 
and in some cases can avoid the 
loss of important records. 

File Positioning 

If you dream in Assembly lan- 
guage, if you can multiply 16-bit 
hex numbers (signed or un- 
signed) in your head, or if you 
have read this far, you will have 
no trouble understanding file 



positioning. 

100 OPEN "R",1,"Fll£","FI" 

Where are we? At the first 
byte in the file. If no other con- 
trol information is specified for 
a GET or PUT statement exe- 
cuted just after an OPEN state- 
ment in modes I, O, R or D, NEW- 
DOS80 processes the data from 
the first byte of the file. If we 
asked for data after the EOF we 
would get an error and program 
execution would be broken, so 
the first necessity is a test for 
the end of the file. (Note: Pro- 
gram abort by error does not 



close the file nor does it neces- 
sarily write any data. This is great 
for troubleshooting, but you 
should proceed with caution!) 

NEWDOS80 has extended the 
LOC( ) statement to five sepa- 
rate functions. The LOC( )$ func- 
tion, used with an Fl file, returns 
a zero when it occurs before the 
EOF (end of file), and a minus 
one when it is positioned at or 
beyond the EOF. A test for EOF 
could be as simple as that of 
Program Listing 2. 

Since LOQ )$ is always zero 
except at or beyond the EOF, line 
120 will fall through the test until 



3 


DIMA%(2,425) 


5 


FOR X =0 TO 425:FOR Y =0 TO 2 


7 


A%(Y,X)= RNCX20000) - 10000:NEXT Y.X 


9 


'—sequential output of array - 


10 


OPEN"0",1."FILE","FI":GOTO30:' branch around IGEL 


20 


A%(0,X).A%(1,X),A%(2,X);:'~ IGEL - 


30 


FOR X = TO 425:PUT1„20:NEXT.CLOSE 


41 


' program continues .... 


49 


' — sequential input to array — 


50 


OPEN"l",1,"FILE","FI" 


60 


FOR X =0 TO 425:GET1„20:NEXT:CLOSE 


61' 


No need to test tor EOF. 


63' 


we know the file has 426 rec s 


Program Listing 1. Storing integers in an Fl file 




DISK DRIVE WOES? 

PRINTER INTERACTION? 

MEMORY LOSS? 

ERRATIC OPERATION? ym « i 

Don't 

Blame The 
Software! „ 

Power Line Spikes, Surges & 

Hash could be the culprit! Floppies, printers, 

memory & processor often interact! Our patented ISOLATORS 

eliminate equipment interaction AND curb damaging Power Line 

Spikes, Surges and Hash. MONEY BACK GUARANTEE! 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; Integral 
Surge/Spike Suppression: 1875 W Maximum load, 1 KW load 
any socket $69.95 

• ISOLATOR (ISO-2) 2 filter Isolated 3-prong socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $69.95 

• SUPER ISOLATOR (ISO-3) similar to ISO-1 except double 
Isolation & Suppression $104.95 

• SUPER ISOLATOR (ISO-11) similar to ISO-2 except double 
Isolation & Suppression $104.95 

• MAGNUM ISOLATOR (ISO-17) 4 Quad Isolated sockets; For 
ULTRASENSITIVE Systems $181.95 

• CIRCUIT BREAKER, any model (AddCB) Add $9.00 

• REMOTE SWITCH, any model (Add-RS) Add $16.00 

AT YOUR MasterCard, Visa, American Express 

DEALERS ORDER TOLL FREE 1-800-225-4876 

(except AK. HI. PR & Canada) 
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100 


OPEN r,VFILE'7'Fr,C=1 






110 


GET 1...ZV.; 






120 


IF LOC<1)$ THEN 140 






130 


C = C + 1:GOT0 110 






140 


CLOSE 






ISO 


PRINT'Last Item Processed. 


Rec 


■:C 


Progra 


m Listing 2. EOF test 


in 


Fl file 





1180 


OPEN"R".1."FILE","FF 


',12 






1190 


A$ = "hello test ":B% = 


00 






1200 


PUT 1,„(10)A$,BVo; 








1210 


GET1,#.,(5)D$; 








1220 


GET1..,.(5)L$: 








1230 


GET1,..,UV.; 








1240 


CLOSE 






Program 


Listing 


3. File positioning 


within a 


record 



it becomes true. The exact point 
where LOQ )$ becomes true de- 
pends on the file type and several 
other functions, including: 

LOQ )!— This returns the Rel- 
ative Byte Address (RBA) of the 
next item (the one about to be 
processed) in the file. This item is 
the next record in record seg- 
mented files or the next byte in 
non-segmented files. The data at 



this location will be processed by 
the next access. This value is 
zero before the first access. 

LOQ )#— This is the start of 
the last record processed. It is 
called the REMRA (REMem- 
bered Record Address). If 
LOC( )! is zero there is nothing 
to remember, so this value is 
marked invalid by the system 
and asking for LOC( )# will 



SENECA ELECTRONICS 

SUPER DISCOUNTS TRS-80" AND OTHERS 



TRS-80* 

BELL & HOWELL" (APPLE) 

ATARP 

VIC COMMODORE' 

and OTHERS... 




TRS-80" 16K MODEL III $810.00 ^"* 

TRS-80" 64K MODEL II $2995.00 
ATARI" 800 W/16K $650.00 
VIC-20" HOME COMPUTER $245.00 
ALL MACHINES COME WITH FULL 
MANUFACTURES WARRANTY!! 

COMPUTER FURNITURE. PRINTERS. PERIPHERALS. YOU NAME 
IT. WE GOT IT. AT THE PRICE YOU WANT TO PAY. WE ACCEPT 
CERTIFIED CHECKS. MONEY ORDERS. VISA & MASTERCARD 
SHIPPING CHARGES WILL BE ADDED TO CHARGE CARD ORDERS. 

SENECA ELECTRONICS 

RD -1. HARMONY. PA 16037 

(412)452-5654 .^474 



create an error. 

LOQ )%— This is the current 
EOF address of the file. When 
extending files in the R or E 
modes, this value and the data 
added to the file may not be writ- 
ten to the disk yet, so in the case 
of a crash, it is possible to lose 
all new data. Close updates the 
EOF on the disk. To force this 
update without a Close, the 
statement PUT 1,&„; ensures 
sensitive data is written before 
further processing. It has no ef- 
fect on file positioning. The form 
PUT 1,!%,,; positions a pointer 
to the current EOF from any- 
where in the open file. 

These last three functions of 
LOQ ) return byte addresses rel- 
ative to the first byte of the open 
file; there are some differences 
in their functions as well as that 
of LOQ )$ among the five file 
types. These differences relate 
to whether the file is segmented 
into records. If it is segmented, 
these RBA and REMBA values 
indicate the beginning of a rec- 
ord; in unsegmented files, they 
indicate the next byte in the file. 
This is the trickiest part of play- 
ing with these LOC functions, 
and requires experimentation. 
Keep in mind that you will see a 
lot of error messages. The man- 
ual is very explicit about the 
LOC functions, so take another 
look at it if you have problems. 

The Easy Way 

If you open an MF or FF file in 
any of the random modes, you 
must state the record length in 
the Open statement. These two 
file types can be accessed ran- 
domly by record number (as in 
GET 1,45,50 or PUT 1,45„A%; 
where you will be moving data at 
record number 45, either into the 
IGEL with the line number of 50 
or from the IGEL within the 
same line as in the PUT). The 
system does not know the rec- 
ord numbers in the other three 
file types, but you do. 

If your data is segmented so 
all records in the file have the 
same length, you can easily 
compute the position of a record 
just like the system does. Other 
than making your listings more 
complicated, there is little rea- 
son to do this, since you can let 
the system handle it, by using 
MF or FF files. It is good to know 



the formula to better under- 
stand the process and for de- 
bugging purposes. Multiplying 
the number of bytes in the rec- 
ord by the number minus one of 
the record you wish to obtain 
gives the relative byte address 
(RBA) of that record. You sub- 
tract one because the first rec- 
ord number is one. but the 
lowest byte address is zero. 
That is, in a file of 10-byte rec- 
ords, Record 1 is at (1-1)* 10 or 
zero, Record 2 starts at (2-1)«10 
or 10, Record 234 starts at 2330 
and so on. This Relative Byte 
Address (RBA) is designated by 
the symbol !. Instead of asking 
NEWDOS80 for LOQ1)! for ex- 
ample, you tell it: 

230 GET 1.12330..: 

If you asked for LOQ1)!. NEW- 
DOS80 would answer 2330 for an 
unsegmented file, and in the FF 
file discussed above (which has a 
stated record length of 10) would 
answer 2340, the next record's 
RBA. Note that this GET did not 
GET anything. It only positioned 
the file, because it has a null 
IGEL in it. The same line with a 
non-null IGEL or IGELSN (that is 
IGEL plus SN for Statement 
Number) would perform a normal 
GET function. PUT 1.!2330..A%; 
would indeed write the two byte 
form of the value of A% starting 
at the relative byte 2330. 

If your data structure is not 
this simple, you can build an in- 
dex file while you are writing the 
data. The first item written will 
always be at !0, the first byte in 
the file. After the first PUT, you 
could ask for the value of 
LOQ1)! and store it in an array. 
When the entire file is written, 
your array contains the RBA or 
Relative Byte Address for each 
record, regardless of the varying 
lengths of these records. You 
can then store this array to disk 
as an index file which you can 
use later for sequential or ran- 
dom access or sorting pur- 
poses. Picture the efficiency of 
loading an array with the record 
positions from an index file, ac- 
cessing a single value in a very 
long record, sorting the values, 
rearranging the index numbers 
in this new sorted order and 
writing them to a new index file. 
The speed and space gained will 
amaze you! (See the partial 
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record I/O in the manual.) 

Regardless of where you are 
in a file, GET or PUT without ex- 
plicit positioning will process 
the next record (if the system 
knows the record length or the 
file is marked) or the next item if 
the file is unmarked. We'll get to 
marked items in a moment, but 
first there are a few other sym- 
bols to clear up. Refer to Pro- 
gram Listing 3. 

Here, the file opened is an FF 
type file and the stated record 
length is 12. Do you care to 
guess the values of D$, L$ and 
U%? In the first record we wrote 
a 10-letter string and an integer 
value. The # in line 1210 sent 
Basic back to the REMRA or last 
record processed instead of ad- 
vancing to the next one, and 
read the five characters Hello 
into DS. The * in line 1220 forced 
the action to remain in the same 
record and to start at the next 
byte to read the "test" part of 
the string. The same command 
in line 1230 read 100 into U%. If 
the system is not told the record 
length the * symbol does not ac- 
complish anything. To read or 
modify a single item in a record, 
or to change the structure of the 
record requires that you know 
exactly how data is organized. 
Other partial record techniques 
include: 

• GET 1,„A%„C%; The extra 
comma between variables skips 



the variable between A and C in 
marked-item files. 

• GET 1„,(7)$,A%; In fixed- 
item files, the number of bytes in 
parentheses is skipped from the 
current position and A% is read. 

• PUT 1,„(10)#,A%; In fixed- 
item files, the number of bytes in 
parentheses is nulled and A% is 
written. Handle this with care! 

Marked-Item Files 

After all this work, let's let the 
system handle things for a 
change. Of course, the system is 
paid in bytes and marked-items 
make it work overtime. Another 
general point: In marked-item 
files, the PUT statement IGEL 
can use expressions, like 3*A!/ 
234.3-20 and MID$<D$,2,X + 5), or 
literals and constants as in PUT 
1,„"abc",12.3;. 

The code in Program Listing 4 
will create an MU file of five 
records, each consisting of a 
string entered from the key- 
board followed by a numeric ex- 
pression related to the string 
length. The computer prints the 
record number and waits for you 
to enter some data. As soon as 
you hit enter the fifth time, it 
places this important data on 
the disk. 

After creating the file, ex- 
amine it with Superzap. The 
marking bytes within the file are 
well defined in the manual. In 
the MU type file, each record 





1000 


CLEAR 1000 




1001 


CLS:FORX = 1 TO 5 




1002 


PRI NTT AB(25)"REC' - ;X; : PRI NT: LI N El N PUTA$(X) 




1003 


NEXT 




1004 


OPEN"0",1,"TEST/MU"."MU' - 




1005 


FOR X = 1 TO 5;' WRITE FIVE RECS TO FILE 




1006 


PUT1 ,„A$(X),5. LEN(A$(X)) + 2; 




1007 


NEXT 




1008 


CLOSE 


Program 


Listing 4. Create and write MU file of strings and 


integers 







2000 


DIM KlOOV'dimenston array to max. possible records. 


2002 


CLS:L = 1:OPEN"l".1.-'TEST/MU ,- ,"MU" 


2004 


GET1..,;:I(L) = L0Q1)!:' no data transfer 


2006 


IFLOC(1)$THEN2010 


2006 


L = L + 1:GOTO2004 


2010 


CLOSE:PRINTL;" RECORDS IN FILE" 


2012 


PRINT:PRINT"REC RBA":PRINT 


2014 


FORX = 0toL-1:PRINTX + 1;" "iKXfcNEXT 


2016 


PRINT" = = = EOF - - - = >";I(L) 


Program Listing 5. Create index array l( ) with RBA for each 


record 





Which TRS-80* Accounting Software 
Do I Buy . . . 

That's a tough question I know. I asked it myself not very long ago. I'm Mike 
Motta As president of Shawmut Systems, specialists in TRS-80* custom soft- 
ware, my customers were asking me for Model II and 16 Accounting Software 
— GL. AR. AP and Payroll But I said "Why write the software. There must be a 
good package already available." So I searched for the best I could find And I 
found it! 

Now. when I tell you that these are the best Accounting programs I've seen on a 
microcomputer, you probably think that you are just listening to another sales 
pitch. But you're not You're listening to a businessman with over twenty years 
combined experience in sales, management, and programming. So when I say 
that these programs will work for you. it really means something. 

Each program, designed for the Model II cr 16. will work with one or more floppy 
or hard disks. Wilh each program. I'll include a 200 page manual written with 
the first time user in mind, and a set of sample data files so you can start using 
the program right away. 

But I won't stop there. If you have a question, or a problem, call me. You won't 
get an operator, or order taker. You'll ge*. me. And if I can't talk to you on the 
spot. I'll call you back. And I'll fix your p-oblem. FAST. 

Now I could say a lot more about these programs, but you really won't know 
how good they are until you try them. So. order the programs you need, and try 
them for 14 days. If you're not convinced that these are the programs for you. 
send them back, and I'll refund your morey 

My price for these programs is only $289.00 each, postpaid I could charge hun- 
dreds more, but I want you to have the best programs at the best possible price 
So mail or call your order m today. I'll make sure you 'ii be satisfied 
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"TRS-80 is a Trademark 
ol Tandy Corp. 



Send check, money order or 
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Mass. residents add 
5% sales tax. 
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WE ACCEPT Visa, MasterCard and American Express, or 
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TM — Trademark of Tandy Corporation 



• See List of Advertisers on Page 451 



80 Micro, December 1982 • 349 




begins with a start-of-record 
mark (SOR). This adds one byte 
of overhead for each record, but 
in working with variable length 
strings, the strings can be read 
in order, because the system 
knows where each one starts. A 
marking byte is also added to 
each numerical item in the file to 
tell the system whether it is in- 
teger, single or double preci- 
sion, and to each string to tell 
the system its length. Strings 
exceeding 127 bytes use two 
marking bytes. 

Ml) type files are easy to work 
with and flexible but use extra 
disk space and can be slow. 
Random processing is possible 
using the RBA file positioning 
techniques discussed earlier. 
The Mil file, as the manual 
states, was intended to replace 
PRINT#/INPUT# file types and is 
excellent for data that is widely 
varying in nature, such as 
strings to 255 characters long 
mixed with numbers of varying 
precision. 

Program Listing 5 is a quick 
demonstration of how to build 
an index array from the Mil file. 
You could save the index as an- 
other file, or use it for proc- 
essing during program execu- 
tion. Try it on the five-record MU 
test file, with the array l( ) con- 
taining the RBA values. GET 
1,!I(0),.A$,B; obtains the first rec- 
ord, and record N would be ac- 
cessed using GET 1,!I(N-1)„;. 
This allows true random access 
to a file containing records of 
varying lengths. The extra mark- 
ing bytes eliminate the space 
wasted in field item files. The 
MU file can be updated as well, 
but the new record must fit into 
the same space as the one it 
replaced. 

If you can use strings that are 
of consistent length (e.g. phone 
numbers), there are more appro- 
priate file types. For example, if 
a file contained only strings of 
seven characters mixed with in- 
tegers, you might use an MF file 
setting the record length at 
eight for the string plus three 
bytes for each integer, five for 
single precision, and nine for 
double precision numbers. You 
can process this type of file by 
record number. Again, the more 
you think out your data format, 
the easier it will be to choose the 



right file type for fast access 
and disk space economy. 

If the data is mixed but in an 
iron-clad format, you can use 
the Ml type file. This file type 
can not be updated randomly, 
but it can be read using the 
intra-record techniques de- 
scribed earlier. 

The Structure of File Types 

Here is the order of how much 
work the system does, from al- 
most none of it to nearly all the 
housekeeping: 

Fl: This file is a continuous 
stream of data bytes. All control 
is in the programmer's hands. If 
you ask for a number and are 
positioned at a string, the sys- 
tem will calmly return a com- 
pletely meaningless value. The 
system can not help you re- 
cover. It has no way to detect 
such an error, unless you try to 
input past the EOF. These files 
are very compact but require 
that you be aware of every facet 
of the data structure. 

FF: All records have the same 
length, which you must state in 
the open statement. Expres- 
sions are not allowed in the 
IGELs. The system will handle 
I/O by record number. Again, the 
files are very compact, and other 
than the record length, the sys- 
tem is ignorant of the data struc- 
ture. An important attribute of 
this file type is its ability to 
process a single item in a record 
without reading or writing the 
whole record. 

Ml: The system adds bytes to 
the data in the file to mark their 
types. The file can only be writ- 
ten sequentially (or extended), 
but can be read randomly by file 
positioning. 

MF: This file is like Ml but you 
can update it randomly and ac- 
cess it by record number or file 
positioning. Expressions are 
allowed in IGELs. You specify 
record length in the Open state- 
ment. 

MU: The system marks all 
items and the start of each 
record. This type adds the most 
extra bytes, but is very flexible 
with records and strings of vary- 
ing lengths. Used with an index 
file containing the RBA of each 
file SOR, strings of up to 255 
bytes can be rapidly accessed 
randomly and sorted or manipu- 
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NEWDOS/80 Version 2.0 
The Support Keeps Coming. 
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Apparat's newest, 
disk operat- 
ing system for 
the TRS-80 * 

NEWDOS/80 Version 2.0, has 
added many new enhancements 
and features to make your Model 1 
or III computer more powerful. 
We've kept one thing the same. 
Our support. 

Version 2.0 is our second 
upgrade of our original NEWDOS 
for the TRS-80. Each version 
builds and improves on the 
capabilities of the preceeding 
versions. Just as important, 
Apparat's commitment to 
supporting our products makes a 
good product even better. By 
providing our customers with 
zaps on an ongoing basis, we're 
continually making NEWDOS/80 
Version 2.0 a more powerful tool. 



Version 2.0... 

High Performance DOS 

NEWDOS/80 Version 2.0 

builds even more performance 
nto NEWDOS/80. The versatility 

and sophistication of Version 2.0 
ncludes features like: 
Double density support on the 
Model I 

Enhanced compatibility 
between Model I and III 
Triples directory size 
Dynamically merge in basic 
(also allows merging of non 
ASC II format files) 
Selective variable clearing 
Can display basic listings page 
by page 



• Automatic 
repeat function key 
• Routing for 
peripheral handling 

• Enhanced disassembler 

• Command chaining 

• Superzap to scan files 

• fast sort function in basic 

These new features, added 
to the existing capabilities of 
NEWDOS/80, makes it one of the 
most powerful additions you can 
make to your system. And 
Apparat's commitment to support 
assures that you've purchased a 
superior product, both today and 
tomorrow. At just $149.00 it could 
be the best investment you will 
make for your TRS-80. 

If you're thinking about 
upgrading your system, call 
Apparat today. Dealer inquiries 
welcome. 

303-741-1778 

TRS-80 l» a registered trademark of Tandy Corp. 
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Apparat, Inc. 

440 1 So. Tamarat ftirkway, Denver CO 80237 1.1031741 177R 
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lated using this index file. The 
MU system is very easy to use 
and understand. 

Final Thoughts 

Hundreds of other details, 
tricks and tidbits can be learned 
by experimentation or gleaned 
from the NEWDOS80 documen- 



tation. The program modules in- 
cluded here could be com- 
pressed considerably, and there 
is a lot of room for sophisticated 
programming techniques once 
you have mastered these funda- 
mental concepts. I have found 
them to be well worth the time 
spent studying them. 



One way to picture the entire 
file situation in NEWDOS80 is 
as an analogy to computer lan- 
guages. In Basic and other high- 
level languages, you enter 
words and numbers and manip- 
ulate them, without Knowing 
how or where they are stored. 
The operating system makes 







AS - "THIS IS A STRING IN THE FILE 










BV. 


= c 


- -123456 D#= 3.5759458 




Writing the above data creates the following disk images: 








00 5448 


4953 


2049 


5320 


4120 5354 


5249 


4E47 


THIS.IS.ASTRING 


10 2049 


4E20 


5448 


4520 


4649 4C45 


0000 


0020 


IN.THE.FILE .... 


20 F191 


0A30 


D1C5 


4B0C 


6482 

FFand Fl FRee 






.0. K.d. 


00 9C54 


4849 


5320 


4953 


2041 2053 


5452 


494E 


.THIS.IS.ASTRIN 


10 4720 


494E 


2054 


4845 


2046 494C 


4572 


0000 


G.IN.THE.FILEr.. 


20 7300 


20F1 


9174 


0A30 


D1C5 4BDC 
Ml and MF Filet 


6482 


"" 


a....t.0..K.d. 


00 709C 


5448 


4953 


2049 


5320 4120 


5354 


5249 


p.THIS.IS.A.STRI 


10 4E47 


2049 


4E20 


5448 


4520 4649 


4C45 


7200 


NG.IN.THE.FILEr. 


20 0073 


0020 


F191 


740A 


30D1 C54B 
MU File 


DC64 


82— 


S....t.0..K.d. 


00 5448 


4953 


2049 


5320 


4120 5354 


5249 


4E47 


THIS.IS.A.STRING 


10 2049 


4E20 


5448 


4520 


4649 4C45 


2C20 


3020 


.IN.THE.FILE..0. 


20 2D31 


3233 


3435 


3620 


2033 2E35 


3736 


3934 


- 123456.3.57594 


30 3538 


200D 








PRINT* Flit 


—~~~ 


~—~ 


56.. 




Fig- 


1. Comparison of the various file formats 



the rules, and sometimes uses 
time analyzing data and worry- 
ing about where to put it in mem- 
ory. Some of us rebel in the face 
of such a dictatorship. The need 
to be independent of the operat- 
ing system's tyranny gives us 
the desire to direct the computer 
and run things our own way. To 
do this we learn to use Assem- 
bly or machine language. My 
first Assembly language pro- 
gram stored and analyzed one 
string. I had to write the program 
this way, since that string hap- 
pened to be 43,548 characters 
long! 

NEWDOS80's new file types 
give you the power to create 
your own data structures and 
use your imagination more free- 
ly than do the older (still fully 
supported) file types. At the very 
least, you can save disk space 
and time. The rules are still in 
the hands of the operating sys- 
tem, but the choice is so varied 
you hardly notice! ■ 

Randy Resnick is a musician 
living in Paris. He is currently 
working on laser-graphic 
svstems. 
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ACCOUNTING 

the Language of Business 



KPLUS 

Computer Technology, Inc. 






SOFTWARE 






FOR FINANCIAL MANAGEMENT 

We make it easy! Plus Accounting Software Packages are menu- 
driven for easy and confident operation. Our extensive documen- 
tation for installation and operation is easy to understand. And, 
Plus is easy to buy, we are amazingly inexpensive. The Plus techni- 
cal support package with our 800 number "hot-line" makes it easy 
to stay up-to-date and informed. 

Select a package for a specific application, or get the total system. 
You can be sure your professionally-designed Plus Accounting 
Software Package will provide efficient, cost-effective financial 
management for your most demanding needs. Make a sound 
business decision today... make your financial control and planning 
management a Plus. We speak your language. 



spoken here! 



AVAILABLE: 



PLUS FINANCIAL AND ACCOUNTING SOFTWARE PACKAGE 

• GENERAL LEDGER • ACCOUNTS RECEIVABLI 

• ACCOUNTS PAYABLE • FIXED ASSETS 

• PAYROLL • EASYTRAK™ ACTIVITY MONITORING SYSTEM 



All packages menu-driven. Each accounting package is available 
"stand alone", or can automatically post to General Ledger. 
Flexible user-defined file sizes for flexibility. Complete with 
extensive documentation and thorough installation guide. 
Furnished on disc. 



PLUS PROGRAM AVAILABILITY: 

TANDY MODELS II & III 

THE IBM PERSONAL COMPUTE 




.v.* 00 * 



SPLUS 

Computer Technology, Inc. 

PLUS COMPUTER TECHNOLOGY, INC. 

6900 North Austin Avenue— Chicago, IL 60648 

1-312-647-0988 

1-800-323-4240 (Outside Illinois) 

WHAT WE DO FOR YOU IS OUR 
MOST IMPORTANT PRODUCT. 









1 


• 73 






UTILITY 



Color Diskdump 



by Ken Knecht 



Ihave written a Basic program tor the 
TRS-80 Color Computer that lets 
you see what is stored in a disk file. The 
program also reads any area of 
memory. 

Since the Color Computer displays 32 
characters on each line, many lines are 
needed to display a single disk sector of 
256 bytes. This program displays the 
decimal codes of each character in the 
file with their ASCII equivalent above 
them — if it is a printable ASCII char- 
acter. If the ASCII character is a space 
then no character is shown. If the char- 
acter is not printable then a period is 
displayed. You can choose to print the 
program's output on your printer if 
you have one. 

When you start the program, you 
are asked for the name of the file. You 
can also select a display of memory. 
The file can be any type: direct, se- 
quential, data, Basic program, ma- 
chine language and so on. Next, you 
are asked which sector you wish to be- 
gin with. The program tells you if this 
sector is beyond the length of the file. 
If the sector is valid, as the program 
continues you have frequent opportu- 
nities (every 32 bytes) to restart the 
program and look at another file or an- 
other sector of the same file. When 
each sector has been displayed, you 
can restart the program, go to the next 
sector, or display any sector. 

The location of the bytes displayed 
within the sector is displayed above ev- 
ery eight-byte line together with the 



The Key Box 

Color Computer 
16K RAM 
Disk Basic 
One Disk Drive 



Model I users had it; 
now Color Computer 
owners can have it, too. 
So examine those files. 



sector number. You are always aware 
of where you are in a file. The sector 
count begins with one, and the byte 



count within the sector with zero. 

If you choose to read memory, the 
display is the same, except you see the 
contents of memory. You are asked for 
the starting memory address. After 
each four lines you can continue incre- 
menting memory addresses, start at a 
new address, or end the program. ■ 

Ken Knecht can be reached ai 1340 
W. 3rd St. #130, Yuma, AZ 85364. 



10 CLEAR1000 : p=0:CLS 

20 INPUT'OUTPUT TO PRINTER (Y/N)";Z$:IF Z$="Y" THEN P=-2 

25 INPUi"READ FROM DISK OR MEMORY (M/D) " ; Z $: IF Z$="M" THEN 230 

30 F$="":PRINT"FILE NAME (PRESS ENTER TO" : INPUT"END PROGRAM) ";F$ 

:IF F$="" THEN END 

40 INPUT "STARTING SECTOR" ;S 

50 OPEN"D",l,F$:IF S>L0F{1) THEN 210 

60 FIELDil,128 AS A$,128 AS B$:GET #1,S:V=0 : SK=0 

70 FOR X=0 TO 96 STEP 32: FOR Y=0 TO 31 STEP 8 : PRINTiP , "SECTOR" ; S 

; "BYTES" ;V; "TO";V+7 

80 FOR Z=l TO 8 

90 L$=MID$(A$,X+Y+Z,1) :L»ASC(L$) :IF L<32 OR L>122 THEN PRINTiP," 

. ";ELSE PRINTiP," "+L$+" "; 
100 NEXT Z:IF P=-2 THEN PRINTiP," " 
110 FOR Z«l TO 8 

120 L=ASC(MID$(A$,X+Y+Z,1)) :IF L<10 THEN PRINTiP," "+STR$(L)+" " 
;ELSE IF L<100 THEN PRINTiP, STR$ (L) +" " ; ELSE PRINTiP ,STR$ (L) ; 
130 NEXT Z:IF P— 2 THEN PRINTiP," " 
135 V=V+8:NEXT Y 

140 INPUT "CONTINUE (Y/N)";Z$:IF Z$="Y" THEN 150 ELSE 220 
150 NEXT X:IF SK=0 THEN SK=1 : A$=B$:GOTO 70 

160 PRINT"INPUT -1 TO END, FOR NEXT" : PRINT" SECTOR, OR THE SECT 
OR NUMBER" :INPUT"FOR A SPECIFIC SECTOR" ;N 
170 IF N=-l THEN 220 

180 IF N=0 THEN S«S+1:IF S>LOF(l) THEN 210 ELSE 60 
190 S=N 

200 IF S<=LOF(l) THEN 60 
210 PRINT'NO MORE DATA IN FILE" 
220 CLOSE: GOTO 30 

230 BS="":PRINT"START AT WHAT MEMORY ADDRESS" : PRINT" ( PRESS ENTER 
TO QUIT, A":PRINT"A POSITIVE NUMBER FOR ADDRESS" : INPUT B$:IF B$ 
="" THEN END ELSE B«VAL(B$) 

240 FOR Y-l TO 4 : PRINTiP, "BYTES" ;B; "TO" ;B+7 :FOR Z=B TOB+7:L=PEEK 
(Z) 

250 IF L<32 OR L>122 THEN PRINTiP," . " ; ELSE PRINTiP," "+CHR$( 
L)+" "; 

260 NEXT Z:IF P=-2 THEN PRINTiP," " 
265 FOR Z=B TO B+7 :L=PEEK (Z) 

270 IF L<10 THEN PRINTiP," "+STR$(L)+" ";ELSE IF L<100 THEN PRIN 
TiP,STR$(L)+" ";ELSE PRINTiP, STR$ (L) ; 
280 NEXT Z:IF P=-2 THEN PRINTiP," " 
285 B=B+8:NEXT Y 
290 INPUT "CONTINUE (Y/N)";ZS:IF Z$="Y" THEN 240 ELSE 230 

Program Lisiinu 
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Circle 28 on Reader Service card — 



Slaying 
Monsters 
Should Be 
Mostly 
Fun and 
Games 
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Be one of more than 16 million 
alter-egos that your computer can 
generate. Walk into a labyrinth 
filled with traps, treasures and 
monsters. There you'll test your 
strength, constitution, dexterity, 
intelligence . . . against thou- 
sands of monsters in over 200 
cavernsand chambers — growing 
in wealth, power and experience as you progress 
through the four levels of the dungeon. 

Your character will do whatever you want him to do. 
Do battle— in real time— with the likes of giant ants, 
ghouls, zombies. . .Explore the various levels of the 
maze and discover the great treasures within. 

The Game Manufacturer's Association named The 
Temple of Apshai the computer game of the year. 
The Temple is the very first computer game — ever to 
win the Hobby Industry award for excellence. There 
can be only one reason for that: it's a great game. 

So what will you think of The Temple of Apshai now? 
how that it's even better than ever. With better 
graphics — animated movement — and completely 
new sound effects that make your computer come 
alive and make The Temple even more fun* 

The Temple has a superbly illustrated 

56-page Book of Lore, and your 

ocal dealer has it for the ATARI* * 

TRS-80,** APPLE,** and IBM** 

computers. 

" If you al ready have The Temple of Apshai . you 

can enjoy these great improvements. Just 

send us your original cassette or disk 

together with your check for $5.00 and 

well send you the brand new version — 

with better-than-ever graphics and sound. 

••ATARI. TRS-80. APPLE and IBM 

are trademarks of Atari. Inc.. Tandy 

Corp., Apple Computer, Inc., and IBM. 

respectively. 

1981.AUTOMATEDSIMULATIONS, 

INC., P.O. Box 4247. Mountain View. 
Ca.. 94040. 
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BUSINESS 



Forms Maker 



by Charles Perelman 



Here's an easy-to-use utility that cre- 
ates forms, such as invoices, on the 
Model II screen. With the arrow, tab, 
and repeat keys you can move rapidly 
around the screen placing keyboard 
characters where you want them. You 
can erase or type over any entry, copy 
the form directly to the printer, or save 
to disk for future use. 

Although written in Basic, the pro- 
gram takes advantage of the Model II 
supervisor calls with machine-language 
USR routines. The program was written 
with TRSDOS 2.0. Twenty-two lines 
are available for your forms. Instruc- 
tions appear at the bottom of the 



With USR routines and 
this Basic utility, 
you can create business 
forms on your Model II. 

screen. Use valid TRSDOS file names 
when saving forms to disk. 

Program Overview 

The program is modular and self- 
documenting. USR routines are identi- 
fied with U variables. Lines 220 and 230 
load a Basic patch to implement PEEK 



Program Listing 

10 '****************************** 

2 'FORMS MAKER 

30 'BY CHARLES R. PERELMAN, A PROFESSIONAL CORPORATION 

40 '9777 WILSHIRE, BEVERLY HILLS, CA . 90212, 1982 

100 '****************************** 

110 ' INITIAL SETUP 

12 CI. EAR 2000 

130 DEFINT L,M,S,U-Y 

140 DIM Ul(23) ,U3( 12) ,S(959) 

200 '****************************** 

210 'IMPLEMENT PEEK AND SCREEN PRINTER 

220 FOR X-0 TO 23:READ U1(X):NEXT 

2 30 V-0: DEFUSR-VAR PTR(U1(0)):V-USR(0) 
240 FOR X-0 TO 12:READ U3(X):NEXT 

300 '******************************** 

3 10 'SET UP REGISTERS FOR USR CALLS 

320 U2(0)-15872:U2(2)-8448:U2(4)-4 352:U2(6 
500 '******************************* 

510 'INSTRUCTIONS 

520 CLS: PRINT"MODEL II REQUIRES FILES TO BE OPENED WHE 
BASIC. IF YOU":PRINT"NEGLECTED TO DO THIS, PRESS <BR 
'SYSTEM', PRESS < ENTER > . " : PR I NT"TH EN TYPE 'BASIC FORM 
AND PRESS <ENTER> TO RESTART." 
530 PRINT:PRINT" IF YOU HAVE OPENED A FI 

ONTINUE. " ; 

540 ZS-INKEYS:IF Z$- HM THEN 54 ELSE IF ASC(ZS)<>13 TH 
550 CLS: PRINT025, "FORMS MA KER " : PR INT : PR I NT" AFTER MA 
E FROM MENU, USE ARROW KEYS AND TAB TO POS ITI0N . " : PR I N 
N SCREEN. TYPE IN ANY KEYBOARD CHARACTER ON TOP 22 LI 
560 PRINT"CHANGE BY OVERTYPING OR ERASE WITH BACKSPACE 
BAR.": PR I NT" PRESSING THE <CRTL> KEY AND <X> WILL RE 

THE MENU. ": PR I NT" <CR TI.xD> SAVES THE SCREEN TO DISK, 



) -256: U2 (8) — 13873 



N ENTERING 
EAK>, TYPE 
SMKR -F: 1' 



LE, PRESS < ENTER > TO C 



EN 54 
KING CHOIC 
T"CURSOR 
NES ." 

OR SPACE 
TURN YOU T 

AND <CRT1. 

LisurtR continues 



for reading the screen. Additional ma- 
chine language is read in lines 240-320 
for the screen-to-printer routine and to 
prepare registers for the screen-to- RAM 
and screen-to-disk routines. Data line 
12020 contains the PEEK instructions, 
and line 12030 contains the screen-print 
routine. 

Movement of the cursor with the ar- 
row keys is nondestructive. From the 
top line, the up arrow moves the cursor 
to the bottom of the screen in the same 
column and vice versa with the down ar- 
row from the bottom line. From the 
right margin, the cursor moves down to 
the beginning of the next line. Moving 
backwards, it goes up to the end of the 
previous line. From the right edge on 
the bottom line, the cursor moves to the 
beginning of the same line. Tab erases 
any characters it passes over. 

The error traps go to error-handling 
routines beginning at 10270. When 
working with a form, after pressing 
<CTR L> <P> for printout you must 
turn on the printer to continue with the 
program. 

Forms Maker lets you make master 
forms as needed for reproduction on 
a copier or with a stencil. Revisions 
are simple and efficient with the masters 
on disk. ■ 

Charles R. Perelman (9777 Wilshire 
Blvd., Beverly Hills, CA 90212) is an at- 
torney, a CPA, and a certified tax 
specialist. 
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Model II 
TRSDOS 2.0 
Model II Basic 
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THE COLORQUEST EXPERIENCE 

For the TRS-80C and the TDP System 100 Color Computers 




Written by Kevin Hsrrboldt ft Tim Nelson 




** »** " " wa u m 



BEYOND THE CIMEEON MOON Areal-time science fictionadventuregameof mind-blowing magnitude — staged in deep space on a 
malign, sentient spacecraft. Written in fast machine code with 3-dimensional high-res graphics and sound. Choose from a myriad of fate*. Survive 
the laser barrage aet up by a guantlet of robots bent towards your destruction. 

Written by Kevin Herrboldt ft Tim Nelson 

} 





£ki 



ADVENTURE TRILOGY A Trilogy of quests featuring 3-D high-res graphics in machine code. First comes ritual combat on the WORLD 
UNDER THE CIMEEON MOON, to test your worthiness as a warrior. Once proven, you will be teleported to DAZMAR'S UNDERWORLD OF DOOM to 
search for the Eye of Dazmar. The FORSAKEN GULCH is the final arena, where a wicked idol awaits restoration. 
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THE NIBBLER & MS. NIBBLER A fast maze chase game featuring the nibbler man and three bumbling preditors Written in machine 
code and joystick compatible, this fun packed game is enjoyed by all. MS. NIBBLER is similar to THE NIBBLER described above but features a 
different maze and MS. NIBBLER for the ladies. 
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COMBAT GAMEPACK 3 action packed games featuring lifelike graphics and sound. EXTENDED BASIC required 2-1-0 TANK COMBAT 

pits two players against each other in 5 different terrains. STELLAR BATTLE lets you pilot a flexwing fighter through deep space fighting dorian 
squadrons. GALACTIC BLOCKADE is a favorite two-player arcade game of speed and skill. 

ORDERING 
ALL GAMES ARE $24.95 for 16K Cassette; $29.95 for 32K Disk. 

Include $3.00 tor shipping in the U.S. ft Canada. $6.00 for Foreign orders. C.O.D. add $2.00 

AVAILABLE AT DEALERS EVERYWHERE. IF NOT, ASK WHY! 



VEGAS GAMEPACK The thr.lls of a Las 
Vegas casino at home! Extended BASIC required. 
CASINO CRAPS. 21. ONE ARMED BANDIT. UP 
AND DOWN THE RIVER, ft KENO. A bank tracks 
players winnings from game to game. 



NELSON 

SOFTWARE 

SYSTEMS 
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9072 Lyndale Avenue So. 612/881-2777 



A Division of Sof Maw Corporation Minneapolis, Minnesota 55420 U. S. A. 



COLOR-STI CK 



X HERE AT LAST' 

Finally an interface for tht Color 
Computer to let you us* the famous 
x ATARI JOYSTICK' 

Just plug it into the joystick port 
and plug the Atari Joystick into it. 
The Color-Stick can iiprove scores 
SIX and mart while Baking saw gates 
■ore exciting and fun to play. 

Color-Stick interface $19.95 each 
or two for $34.95. (less joysticks) 
Atari Joysticks $9.95 each. 

Better Software Company 
P.O. Box 2778 
Greenville S.C. 29682 
(883-295-3648) 
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Add $2.11 per order shipping and 
handling. Ue accept VISA, MASTERCARD 
CHECKS and HONEY ORDERS. 
C.0.0. add $3.88 extra per order. 
S.C. residents add 4H sales tax. 



Color Computer Programs 
From Star>Kita 

SPELL 'N FIX — Essential for serious word 
processing! Finds and fixes spelling and 
typing mistakes last. 20.000* word diction- 
ary can be expanded. Truly professional 
program. $69.29 for RS disk or cassette. 
$89 29 for Flex. 

HUMBUG - The Ultimate Monitor has 37 
commands to enter, examine, start, stop, 
even single-step machine language pro 
grams, and more. $39.95 on disk or cassette 
for 16K or 32K systems. $49 95 for 64K 
systems 

CHECK N TAX - Set of programs to 
balance checkbook and keep tax data on 
disk. $50. 

REMOTERM - Allows using a terminal to 
give the Color Computer a full 24x80 display 
for serious users or remote operation. 
$19.95. 

LFPR1NT — Permits use of a non-standard 
printer. $19 95 

NEWTALK — Voice output program to 
examine and check memory. $20. 
SHRINK — Our fast version of Eliza. $15 
OXXO - Our fast version of Othello $15. 
CHECK "N TAX requires 32K. all others 
16K. Wc accept cash, check. COO. Visa or 
MC. NY State residents please include sales 
tax. 



Star-Kits 



P.O. Box 209— E 
Mt. Kisco, NY. 10549 
(914)241-0287 



Listing continued 

><P> PRINTS HARD COPY . ": PR INT: PR INT"PRESS ENTER TO CONTINUE."; 

570 Z$-INKEY$:IF Z$-"" THEN 570 ELSE IF ASC(Z$)<>13 THEN 570 

6 00 '**************************** 

610 'MAIN MENU 

620 CLS:PRINT@34 0,"MAIN MENU" : PR INT : PR INT" 1 . CREATE NEW FORM":P 

RINT"2. EDIT OLD FOR M . " : PR I NT "3 . RECALL CURRENT FORM FOR EDIT. 

":PRINT"4. END PROGRAM .": PR INT: PR INT"PLEASE PRESS NUMBER FOR CH 

OICE."; 

630 Z$-INKEY$:IF Z$-"" THEN 630 

640 IF INSTR("1234",Z$)-0 THEN L»9 1 1 : M- 1 :G0SUB 10120:GOT0 630 

650 CLS:0N VAL(Z$)G0T0 1020,2020,3020,4 020 

1000 *************************** 

1010 'CURSOR MOVEMENT 

1020 PRINT§1840, "PRESS <CRTL> AND: <X> FOR MENU, <D> TO SAVE TO 

DISK, <P> TO PRINT" ;: PR INT@0,"" ; 
1030 B$-INKEY$:IF B$-"" THEN 1030 

1040 IF ASC(B$)=28 OR ASC(B$)=8 OR ASC(BS)-9 THEN PRINT B$ ; 
1050 IF ASC(B$)-31 AND R0W(Z)=21 THEN L-P0S (Z ) : PR INT@L , "" ; ELS E I 
F ASC(B$)«31 THEN PRINT CHR$(255); 

1060 IF ASC(B$)-30 AND R0W(Z)-0 THEN L- 1680+P0S (Z ) : PR INT0L, "" ; EL 
SE IF ASC(B$)=30 THEN PRINT CHR$(254); 

1070 IF ASC(B$)-29 OR ASC(B$)>31 AND ASC(B$)<128 THEN PRINT B$ ; 
1080 IFR0W(Z)>21 THEN PR INT@l 680 , "" ; :G0T0 1030 
1090 IF ASC(B$)-4 THEN G0SUB 10220:G0T0 1020 
1100 IF ASC(B$)=24 THEN W-1:G0SUB 10320:GOTO 620 
1110 IF ASC(B$)=16 THEN G0SUB I0420:G0TO 1020 
1120 GOTO 1030 

2 000 **************************** 
2010 'LOAD FORM FROM DISK 

2020 PRINTG320, "ENTER NAME OF FILE TO RECALL: ";:LINEINPUT F$ 
2030 ON ERROR GOTO 10270 

2040 CLStPRINT CHR $ (02 ) : 0PEN"I", 1 ,F$ : PR INT!?1 840 , "FILE NAME IS: " 
;F$ 

2050 FOR L-0 TO 1680 STEP 80:G0SUB 10520:LINE INPUT! 1 , A S : PR I NT A 
$;: NEXT 

2060 CLOSE:PRINT CHR $ ( 1 ) :GOTO 1020 
3000 *************************** 

3010 'RECALL FROM RAM 

3020 W-2:G0SUB 10320:GOTO 1020 

4 000 **************************** 

4010 'END PROGRAM 

4020 PRINT CHR$(31)+CHR$(26) :M = 3:G0SUB 10120:PRINT CHR$(30):END 
10000 **************************** 
10100 'SUBROUTINES 
101 10 'FLASHING MESSAGES 

10120 E$(1)-"0NLY I TO 4 PLEASE" : E$ ( 2 ) - M FI LE NOT FOUND" : E$ ( 3 ) -"B 
YE FOR NOW": E$ (4) -"TURN PRINTER ON" : E$ { 5 )-" IMPROPER FILE NAME." 
10130 PRINT CHR$(02):FOR X-l TO 2 : PR I NT£ 1 760 , " *** "+E$(M) + " ***'* 
; : FOR Y-l TO 800: NEXT 

10140 PRINT CHR$(25) : PR INTP1 760, SPACES ( 80) ; : FOR Y=l TO 500:NEXT: 
NEXT X:PRINT CHR $ (0 1 ) ; : PR INT(?L , M " ; :R ETUR N 
10200 '************************** 
10210 'SAVE TO DISK 
10220 ON ERROR GOTO 10270 

10230 PRINTS 1760, "ENTER FILE NAME: ";:LINEINPUT F$ : PR INT01 760, 
"SAVING FILE "; 

10240 OPEN "0",1,F$ 

10250 FOR L=0 TO 1680 STEP 80:GOSUB 10 520 : PR I NT# 1 ,AS : NEXT 
10260 CLOSE: PRINTS 17 60, SPACES (80) ; : RETURN 
10270 IF ERR-53 THEN M-2:G0SUB 10120:RESUME 620 

10280 IF ERR-52 THEN PR INT: PR INT: PR INT"F ILES NOT OPENED WHEN BAS 
IC ENTERED. YOU MUST START PROGRAM AGA IN . " : PR INT"AT TRSD0S READ 
Y, ENTER 'BASIC FORMSMKR -Ft 1'": FOR X-I TO 1 000 : NEXT: SY STEM 
10290 M-5:GOSUB 10120:RESUME 620 
10 300 *************************** 

10310 'SCREEN TO RAM 

10320 V1-0:U2( 1 ) =94 : U2(3)-VARPTR (S(0) ) : IF W- 1 THEN U2(7)--l ELSE 

U2(7)-0 
10 330 DEFUSR2-VARPTR (U2 ( ) ) : VI -USR 2 ( ) :RETURN 
104 00 ****************************** 

10410 'EXECUTE SCREEN PRINT 

10420 M-4:G0SUB 10120 

104 30 V3-0:DEFUSR3-VARPTR (U3 (0 ) ) : V3-USR 3 ( ) : CS-INKEY $:R ETURN 

10S00 ***************************** 

10510 'READ SCREEN TO AS TO SAVE OR LOAD 

10 520 Vl-0:U2(l)-ll:U2(7)-CVI(CHR$(L-INT(L/80)*80)+CHRS(INT(L/80 
) )):U2(5)-204 8 0:A$-SPACE$(80) : U2 ( 3) -CVI (CHR S (PEEK(VAR PTR (AS ) + l ) ) 
+ CHR$(PEEK(VARPTR (A$)+2) ) ) : DEFUSR 2 -VAR PTR (U2(0)) :V1-USR2(0) :RETU 
RN 

12000 *********************** 
12010 'MACHINE LANGUAGE USR ROUTINES 

12020 DATA -13023,8797,26623,1744 1,8830,26625,-15583,8955,26627, 
14910, 1330, 104, -12255, 8773, 10757, 1769 7, 8779, 107 59, -15583, 8959, 23 
2 59,264 30,-8910,-13990 

120 30 DATA 33, 17 84, -15 08 2, -324 50, -4 5, 2 04 86, 3 34 2, 4 296, 4 559, 80, -16 
103,-4 848,201 
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Scanned by Ira Goldklang - www.trs-80.com 




LARQECAPACITYSYSTEMSLARCECAPA 



This graph was produced with lass than two dozen 
keystrokes on a TRS-80 Model I with EPSON MX-80 
printer plus GRAFTRAX. 

YOU CAN DO IT TOO WITH AUTOPLOT, the 
sensational automatic curve plotter written in BASIC 
+ fast machine language. 

• Plot functions y»f(x). x«f(y), or x-ffv), y-g(v) 

• Plot data from keyboard or disk file 

• Linear or logarithmic presentation 

• Numeric integration or differentiation 

• Automatic scaling and labelling of axes 

• 4 different print sizes and formats 

• Many more features 

AUTOPLOT for TRS-80 

(Model I or III with 48k, 1 disk drive) 

on disk with 40 page manual $79. 50 

AUTOPLOT for LNW-80 

( + Hi-Res video graphics) $99.50 

NEW AUTOPLOT for CQP-115 

Color Graphics Printer $69.50 

CA. residents add 6% sales tax 

Phone orders, VISA and MASTERCARD welcome 

MENLO SYSTEMS 

3790 El Camino Real, Suite 221 
Palo Alto, CA 94306, Tel. (415) 856-0727 " 524 

TRS-80. CGP-11S TH o< TmOy Cecp. MX-S0. GRAFTRAX. TU & EPSON In* 



SMALL & (REQ. 32K 2 DISKS) 

LARGE CAPACITY 
m PROGRAMS M ||| 

ON TDOS (A MINI DOSPLUS) 
ACCOUNTS RECEIVABLE 

5000+ CUSTOMERS 
15000+ TRANSACTIONS 

BALANCE FORWARD 99 TRANSACT CODES 
30-60-90-120 AGED STATEMENTS SHOW 
DATE/INV*/DESCRIP/AMT (WITH AGEING) 
SELECTIVE FINANCE CHARGES « RATES 
FAST ENTRY POSTING W/AUDIT REPORT 
SUB-ACCTS "r OF CREDIT LIMIT DATE OF 
LAST PAYMENT SALES ANALYSIS SPECIAL 
90 DAY ACCOUNTS LABELS 

$100.00 

GENERAL LEDGER 

400+ ACCOUNTS 
5000+ TRANSACTIONS/MONTH 
NO OTHER SYSTEM OFFERS... 

t REPORT FLEXIBILITY/CAPACITY 
t DEPARTMENT P & L (UP TO 5) 
t UNLIMITED ACCOUNT CATAGORIES 
t STATEMENT OF CHANGES (ASSETS) 
t PERCENT PSL comparison 

100"'r sales MTDvsYTD 

or net sales QTDvsYTD 

or total Exd MTDvsQTD 

$150.00 

TEST SETS $50.00 MANUALS $3000 
HOLMAN OP SERVICE 
2059 WEST LINCOLN 3.00 S&H 

OROVLLE CA 95965 VISA OR MC 
916-533-5992 COD* 

*C0D(CASH CERTIFIED CK MONEY ORDER) 

^355 
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Pep up uour UN€ INPUT 
routine with €-Z UN€ INPUT. 

The contents of avanoble ore 
not destroyed if UN6 INPUT is 
terminated immediately. Rl> 
of the€DIT subcommands con 
be used to edit them. UN€ 
INPUT can be terminated bu 
the up arrow, down arrow or 
enter key and the terminating 
key can be tested to alter 
program control. 

ONLY $14.95. Suppied on 
cosserte for the TRS-80 
Models I & III Disk Basic 
systems. Specify RAM 
version when ordering. Send 
check or money order to: 
Howard Bowe 
1 6 Lombard! Place 
flmituville, NV 11701 




TRS-80 MODEL II 

£^*3000 



TRS-80 MODEL 16 

128-K$ 

26-6002 



4825 



8 4 MEGABYTE HARD DISKS (PRIMARY UNIT)$4000 



WE ALSO CARRY EPSON AND OKIDATA 
PRINTERS, XEROX 820 AND 

ALTOS COMPUTERS. 
NO OUT-OF-STATE TAXES. 

Sold with the manufacturer s limited warranty Copies 

of such warranty may be obtained for review from 

Perry Oil and Gas Co 



WE ACCEPT 

CERTIFIED CHECKS. 

CASHIERS CHECKS 

AND MONEY ORDERS 




TRS-80 MODEL III 

48-K $4 QCA16K $Q4 Q 

26-1066 I 9w^/26-1062O I W 
WITH 2 DISK RS-232 TAPE VERSION 

(ALL RADIO SHACK EQUIPMENT) 



16-K $ 

TRS-80 COLOR 26-3004 

16-K $>flOe 32-K $ 



309 



26-3002 



425 



26-3003 



COLOR DISK DRIVES 

o-*475 12-3*315 



T.M.TANDY CORP. 



PERRY OIL & GAS INCORPORATED 

Dept. No. A-1 137 NORTH MAIN ST.. PERRY. MICHIGAN 48872 

PHONE (517) 625-4161. MICH " 124 

FOR OUR PRICES. PLEASE CALL TOLL FREE 1 -800-248-3823 



•* See List of Advertisers on Page 45 1 
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TUTORIAL 



The Key Box 

Model I or III 

16K RAM 

Cassette or Disk Basic 



Your routines can become efficient. 



Screen Strings 



Don Davidson 
2413 Main Road 
Silver Creek, NY 14136 



String variables play an im- 
portant role in almost every 
program. Learn how your micro 
handles the strings and you can 
make your routines more efficient. 

String Variables 

When a string variable is put 
into a Basic program, the com- 
puter's type, name, length and 
address are stored in memory in 
the variable list table just above 
the program. Each string record 
occupies six bytes in the table 
(Fig. 1). The decimal values in the 
figure are for A$. five bytes long, 
at decimal memory address 
17143 (247 + 256*66). The values 
for any variable can be found us- 
ing the VARPTR command. 

Enter the short demonstra- 
tion in Program Listing 1. Line 30 



finds the location of the record 
for A$ in the variable list table. 
Line 40 gets the length of the 
string, 50 obtains the address of 
the string and 70 converts this 
address to a decimal number. 

Run the program. Note the ad- 
dresses of the string and its 
variable pointer. The string is 
located about fourteen bytes 
above the beginning of the pro- 
gram. The pointer is about 250 
bytes above that, depending on 
your spacing. 

Edit line 10 to read: 10 A$ = 
"ABCDE" and run it again. The 
string length changes to five, as 
you might expect. The string ad- 
dress stays the same, while the 
pointer address increases by 
two (we used two more bytes in 
the program). 

Enter as a direct statement 
(no line number): POKE VP,3: 
PRINT A$. 

The result is ABC. We changed 
the length of the string by chang- 
ing the number stored in the ad- 
dress found by VARPTR. Next, if 



the LSB (least significant byte) of 
the string address is less than 
254, try another direct statement: 
POKE VP + 1 , LSB + 2: PRINT A$. 

This adds two to the address 
in the table telling where the 
string is stored. The result should 
be CDE. So, the computer can be 
told the length and address of 
any string by POKEing the values 
into the variable list table. 

One more point. Change line 
10 again: 10 A$ = CHRS<65). 

This time AS = A, but its ad- 
dress is the last byte in your 
computer's memory. Any time a 
CHRS or STRINGS is used in a 
string, or when two or more 
items are combined with a + to 
form a string, the computer as- 
sembles it in reserved string 
space in high memory. 

Try: 10 FOR I = 65 TO 69: A$ = 
A$ + CHR$<I): NEXT. 

The location of A$ will be 20 
bytes below the end of computer 
memory. What is in those last 
twenty bytes besides our 5-byte 
string? We can PEEK them 



VARPTR RE'jRNS T »«'S ACORESS 



lD l3 S lD B H 



CODE IS IS STRING VARIABLE) 

SECONO CHARACTER Of STRING NAME 

FIRST CHARACTER OF STRING NAME 

STRING LENGTH 

LEAST SIGNIFICANT B-fTE OF STRING ADDRESS 
MOST SIGNIFICANT B'U OF STH'NG ADDRESS 



Figure 1 



to find out. But wait a minute! AS 
already points to the beginning 
of the 20 bytes. It is simpler to 
use a direct statement again: 
POKE VP,20:PRINT A$. 

The result is ABCDEEABCD 
DABCCABBAA. 

Reading from right to left, the 
computer interpreted CHR$(I), 
put it in memory, then added it 
to the existing AS, which it also 
put in memory. It repeated this 
for five loops, each time using 
the next lower space in the re- 
served string area specified by 
the CLEAR nnn statement. In 
this instance, we did not reserve 
any, so the computer set aside 
50 bytes for us. 

Defining a Screen String 

The video screen is memory 
mapped in addresses 15360- 
16383: a string can be created in 
screen memory. Make the fol- 
lowing changes in the program 
and run it. 



10 a$ * •- 

35 poke vp.64 poke vp* 1.0: poke 

VP ♦ 2.60 
80 PRINT A$ 



Line 10 creates AS in the 
variable list table. Line 35 makes 
it 64 bytes long, beginning at the 
screen's upper left (0 + 256 * 60 
= 15360 decimal). Now any- 
thing on the first line of the video 
screen is AS and is printed. To 
show this more vividly enter: 
FOR I = 1 TO 15:PRINT A$;:FOR 



360 • 80 Micro, December 1982 



J = 1TO200:NEXT:NEXT 

As the screen scrolls, what- 
ever moves up to the first line 
becomes A$. 

Such a string can be made up 
to 255 bytes. It can be put any- 
where on the screen as long as 
the whole string is within the 
limits of video memory. 

Screen Strings for a Text Editor 

To show the method's poten- 
tial, consider a Basic text editor. 
Text editors or word processing 
programs, handy for written com- 
munication, are very expensive. 
The basis of their operation is 
represented in this very simpli- 
fied routine: 



10 REM 

20 l$ = INKEY$:IF»= ""THEN 20 

30 REM * TESTS FOR CONTROL 

CHARACTERS HERE 
40 TEXTS - TEXTS ♦ IS 
50 PRINT IS:: GOTO 10 



The program works well until 
it unexpectedly stops. If you 
were not watching the screen 
when it happens, you may lose a 
few words. 

Why? Line 40 works like the 
loop in the demonstration pro- 
gram using 20 bytes of memory 
to create a 5 byte string. A 
60-character line uses 1890 



bytes (nV2 + 1.5 x n), leaving 
more than 1800 garbage bytes. 
When the reserved string space 
is full, the computer has to stop, 
sort out extra debris and rear- 
range current strings to make 
room for more before resuming 
its task. 

By establishing a screen 
string for the video line where 
the input will be, we can delete 
line 40 and get TEXTS when the 
line is finished. With this meth- 
od we create only 60 extra bytes 
for a 60 character line— one for 
l$ each time a character is 
entered. You may wonder about 
all the times the program loops 
through line 20 when there is no 
input. The interpreter reestab- 
lishes the address of l$ each 
time, even though it does not 
change. Since its length is zero, 
no string storage is used. 

The reduction from 1800 to 60 
bytes is a big improvement, but 
we can go further. A character 
picked up by IN KEYS becomes 
IS and is stored in the next free 
space of the string storage area. 
The computer keeps track of the 
next byte in addresses 16598 
and 16599. With our routine, 
each time another character is 
entered the address stored in 
16598 is decremented by one. 



DEMONSTRATION PROGRAM 




5 CLS 




11 AS-*ABC" 




21 T-24: PRINT "AS- " AS; 




31 VP- VARPTR(AS) : PRINT TAB(T) "ADDR. OF VAR . PTR. -" VP 




41 PRINT 'LENGTH OF AS-IS' PEEK(VP)s 




SI LSB-PEEK(VP*1) : MSB-PEEK (VP+2) 




6i PRINT TAB(T)"ADDR. OF STRING: LSB-' LSB ", MSB-" MSB 




71 DEC- LSB ♦ 256»HSB: PRINT TAB(T) "DECIMAL ADDR. OF STRING - 


' DEC 


91 LIST 1I-7I 




95 ' 




Program Listing 1 





S \ 


VE L RESTORE THE CONTENTS OF A SCREEN 




Save The Screen 


97 


'S ■ MOST SIGNIFICANT BYTE OF SCREEN ADDR. 
AS- SCREEN STRING INCLUDES 3 SCREEN LINES + 63 BYTES OF 4TH LINE 
BSll-3)- SAVES ALL BUT LAST BYTE OF EACH QUARTER OF THE SCREEN 
P(l-3)- LAST BYTE OF EACH QUARTER OF THE SCREEN 


111 


S-61: AS-": VP«VARPTR(A$) i POKE VP,255: POKE VP+1,1: FOR I-l 




TO 3: 

POKE VP+2, Si B$(I)-ASi S-S+l 1 P( I ) -PEEK (S*2S6-1) 1 NEXTi RETURN 




Restore The Screen 


117 


■S - LAST BYTE OF EACH QUARTER OF THE SCREEN 


111 


CLS: S-15359: FOR 1-1 TO 3: PRINT B$(I);: S-S+256: POKE S,P(I): 
IF I<3 PRINT: NEXT ELSE NEXT: RETURN 


195 


■ 




Program Listing 2 



NO BREAKS 



SLAVE DRIVER© KEEPS YOUR PRINTER WORKING 
WHILE YOU AND YOUR COMPUTER DO MORE 
IMPORTANT |OBS . . . 



&*°*Di 



^toc*. 



**L 



ir ^ 



COMPUTERS ARE FAST . . . PRINTERS ARE SLOW. That's a 
problem more people are realizing every day as they wait for 
the slow printer to finish before they can use the fast 
computer again. Technology has come to the rescue by 
designing an electronic device that takes the output of the 
fast computer fast and feeds it to the slow printer slowly, as 
the printer needs it. It's called a printer buffer. 

SLAVE DRIVER 6 is an inexpensive, universal printer buffer. 
It can be used with all popular micro-computers that have a 
Centronics parallel port to the printer. SLAVE DRIVER® 
receives information from the computer at up to 4000 
characters per second and holds it until your printer can 
handle it. Your SLAVE DRIVER® is controlled by a custom LSI 
and uses standard Centronics signals. 

60 SECOND INSTALLATION 

SLAVE DRIVER® is designed to be plugged directly into the 
input port of the Epson and other similar printers. It is 
powered by the printer or an AC adapter. Other Centronics 
compatible printers can be attached using the adapter cable. 
Installation can be completed in less than 60 seconds. Just 
plug it in. SLAVE DRIVER® takes up little space; about the 
size of a paper back book. Such a little fellow for such a big 
job! 

EASY USE AND FLEXIBILITY 

SLAVE DRIVER® is completely transparent to the user, no 
machine language programming to learn, no control codes 
to send, no programs to change. The buffer-full light and the 
reset switch give full flexibility of operation. List your 
program to SLAVE DRIVER®, return to programming while 
the listing prints. Dump a line of data to SLAVE DRIVER® and 
compute the next record while the data prints. Send 
complete reports to SLAVE DRIVER®, make disc back-ups, 
even turn off the computer and go home. SLAVE DRIVER® 
oversees the printer until all the work is done. 

JUDGE FOR YOURSELF 

Each SLAVE DRIVER® comes complete with interface cable, 
power supply, instruction manual, 30-day money-back 
guarantee and limited one year warranty. To order send 
your check or money order to the address below: $189.95 for 
the expandable 8K model (holds approximately a 4-page 
letter); $289.95 for the 64K model (holds a 32-page double- 
spaced report). Please include $3.50 for shipping. Visa and 
MasterCard users may phone 703/228-5800 to hasten your 
order. (VA residents please add 4% sales tax) 

IN STOCK AND AVAILABLE NOW 

FREEDOM MICIK>-*YSTiMS . 36 c 
Star Route 2 * Wytheville, VA 24382 



703/228-5800 



oooooooooooooooooooooooooooooo 
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„ EPSON 

E$ MX-80 AND MX-100 

OWNERS 



MXPLUS ™ GIVES YOU 
CONTROL OF YOUR PRINTOUT 

• SELECT CONDENSED, BOLD, OR WIDE 
PRINT INSTANTLY USING THE PRINTER 

PANEL BUTTONS. |N0 COMPTER CONTROL CODES REQUIREO) 

• ACTIVATE PERF-SKIP AND LEFT MARGIN 
INDENT TO AUTOMATICALLY FORMAT YOUR 
PRINTOUT INTO NEAT PAGES THAT CAN BE 
PUNCHED AND BOUND. 

MXPLUS™ INSTALLS IN MINUTES, NO SOLDERING! 

MXPLUS IS A PLUG-IN MODULE FOR ALL EPSON MX-80/100 
PRINTERS AND IS COMPATIBLE WITH ALL INTERFACE BOARDS. 
MXPLUS HAS A 1 YEAR WARRANTY. 



ORDER TODAY 

ORDERS CALL 24 HR 800-835-2246x441 

INFORMATION CALL 213-969-2250 



ORESSELHAUS COMPUTER PRODUCTS 

BOX 929 

AZUSA. CALIFORNIA 91702 



S49.95 

P0STPAI0 CALIF A00 6'\ 

SAME OAY SHIPPING 

WITH MC/VISA 



BASF 6106A 
DISK DRIVES 



Reconditioned to new unit performance. 40 track. 12 M Sec T-T. SS, SO or DO. 
Compatible with TRS 80' MOD I. Ill and color also Heath 8 9 computer. 

BARE DRIVE $124.95 

2 DRIVE CABLE 21.00 

4 DRIVE CABLE 32.00 

TECH MANUAL 10.00 

iSold only with drive) 

DUALP/SW/CASE 74.95 

DUAL P/S (BARE) 59.95 

SINGLE PIS W/CASE 44.95 

SINGLE PIS (BARE) 34.95 

Cases finished in black wrinkle. Color options available, add $2.00. Specify 
color: Tan. Blue. Green. Silver. 

DUAL P/S WiCASE 54.95 

SINGLE PIS W/CASE 34.95 



POWER SUPPLIES 



POWER SUPPLY KITS 



BASF DRIVE REPAIR 

3S.OO PLUS PARTS 

90DAY GUARANTEE 



Terms: 

Add 3% VisalMC. COD. M.O. cashier's check, personal checks delay shipment. 
Send to: COMPUTER PERIPHERAL RESOURCES 

(C.P.R.I 
P. 0. BOX 834, OAK HARBOR. WA 98277 
or PHONE (206) 679 4797, ORDER NUMBER •' 4?n 

All shipping UPS ground, western states add $4.00. midwest and east add 
$8.00. Washington residents add 6'n sales tax. 



1$ is used to compare to con- 
trol codes and take proper ac- 
tion, or to print It on the screen. 
The current 1$ then becomes 
garbage. If only we could use 
the same location to store 1$ for 
the whole line. 

After the string location is es- 
tablished and the program is 
ready for a line of input, get the 
contents of the least significant 
byte of the string storage ad- 
dress with M * PEEK(16598). 
Then change line 10 in our sim- 
plified routine to 10 POKE 
16598.M. 

This will cause the same ad- 
dress to be used each time. Ex- 
cept for the rare instance where 
the first letter of a line is the last 
available byte of string storage, 
there is no pause during entry as 
there is no change in total string 
storage until the line is finished. 
This routine is also faster than 
the original, since no string con- 
catenation takes place during 
input. 

Another problem with Basic 
word processors crops up when 
they reach their specified line 
length in the middle of a word. 
The slight delay while shifting a 
word to the next line sometimes 
causes the loss of one or two let- 
ters. This is resolved by writing a 
short machine-language sub- 
routine into the input routine so 
characters typed beyond the 
line length get a short beep from 
the amplifier. Input continues 
uninterrupted until a space is 
typed. The last word is shifted to 
the next line. 

To make or revise your own 
word processor, use these hints 
on screen strings. 

First, establish the screen 
string. POKE the desired line 
length plus twenty into the 
VARPTR to allow for overrun at 
the end of the line. Print the line 
number if desired. Then PEEK 
locations 16416 and 16417 for 
the current cursor location. 
Transfer these to the address of 
the screen string in the variable 
list table (in VARPTR + 1 and 
VARPTR + 2). The screen string 
will start at the cursor location. 
An input routine similar to the 
one in Program Listing 3 (lines 
220-260) is used. 

Be sure to have your program 
check the cursor location for 
each line. If it is greater than 



16319, PRINT @ 1023, " " to 
scroll the screen. Then redeter- 
mine the cursor location. This 
prevents the screen from scroll- 
ing during input. Scrolling would 
move your input out of the 
screen string location. 

To further reduce time-con- 
suming string manipulation, ex- 
change pointers instead of 
strings when moving lines. 

By now, your mind is probably 
running away with Ideas for in- 
cluding this method in some of 
your own programs. Here are a 
few short applications you may 
find useful. 

Saving a Screen Display 

Sometimes it is convenient to 
save the contents of a screen 
display for recall later in a pro- 
gram. In Listing 2, line 100 is a 
one line subroutine to save the 
screen. Line 110 is another one- 
liner to restore it. 

Subroutine for String Input 

You have a full we 1 1 -form at ted 
screen. You need an input from 
the keyboard. But when you 
press enter at the end of the in- 
put, it erases the next line on the 
screen. Or someone uses a com- 
ma or colon in their input; the 
computer only takes part of the 
input and prints ?Extra Ignored 
on the next line. The unemo- 
tional computer can ignore this, 
but it ruined your nice display. 
Listing 3 lists the essentials of a 
subroutine to prevent this prob- 
lem. Now, in programs for things 
like data management requiring 
a lot of input, the program will 
not hang In the middle of a line. 

Saving Disk 
Directories in an Array 

Program Listing 4 gives a rou- 
tine for putting disk directories 
into a string array for NEWDOS 
or other systems allowing DOS 
commands from Basic, it is 
handy for making an index of 
your programs. 

A Block of Screen Strings 

Program Listing 5 is a short 
routine for creating a block of 
screen strings. Its use can save 
a portion of the screen, compare 
current screen graphics with the 
originals, or output selected 
lines or line segments to a 
printer.B 
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SPECTACULAR GAMES 



For TRS 80 

COLOR COMPUTER 




If not available at your local daalar ask why not and 

Call Toll Free 800-426-1830 



RAINBOW 



Excapt WA.,AK„ HI., (8:00-4:00 Mon.-Frl.) "g" i/a 



• See List ol Advertisers on Page 4St 
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MODEL II USERS 
Access DEC with 

REFORMATTER 



ReformaTTer conversion software lets 
you read and write DEC RT- 1 1 single 
density diskettes on your Model II 
under TRSDOS or CP/M. 

ReformaTTer is ideal if you want: 

• Access to large system data bases 

• Distributed data processing 

• Offline program development 

• Database conversion 

With ReformaTTer, you have: 

• Automatic file conversion between 
Model II and DEC RT-1 1 single 
density diskettes. 

• Complete DEC file reorganization 
and maintenance facilities. 

• Access to RSTS/E, RSX1 1-M and 
VAX/VMS via DEC resident utilities 
reading RT- 1 1 . 

Customers like Memorex, Upjohn, 
Arthur Young & Co., the (J.N., Stan- 
ford CI., and Sandia Labs enjoy the 
benefits of ReformaTTer. So can you. 
Specify the version of ReformaTTer for 
your operating system: 

TRSDOS - DEC 
CP/M - DEC 
TRSDOS version runs on one drive. 
CP/M version requires two. 

Other Model II versions of Refor- 
maTTer conversion software include: 
TRSDOS ~ CP/M 
TRSDOS ~ IBM* 
CP/M - IBM 
Order ReformaTTer today at $249 
each version. 

'Available exclusively 

from Radio Shack, 

Cat. '26-4714. 




• 380 

(415) 324-9114 

TWX: 910-370-7457 

467 Hamilton Ave., Suite 2. Palo Alto, CA 94J01 

I Please send complete information on the follow-l 

I ing versions of ReformaTTer. 

I 

I Please send ReformaTTer TRSDOS— DEC 

I CP/M-DEC 

I My check for S249 (plus $5 shipping. Cal res. 

I add 6V 2 % sales tax). 

J Charge to my Visa MasterCard. 

J * exp. date 

I Signature 

I Name 

I Company 

I Street 

J City 

J State 



I 



Zip 



Mail to MIcroTech Exports. Inc. 
I 467 Hamilton Ave.. Palo Alto. CA 94301 
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SUBROUTINE 



( Variables L t S tc 



STRING 



INPUT 



supplied by the calling program ) 



SO 



AS- 



2ie 

220 
233 

240 
25B 
260 
29-~, 



MAX. LENGTH OF INPUT STRING 

SCREEN LOC. ( TO 1(23 ) 

SCREEN ADDRESS OF S 

LEAST SIGNIFICANT BYTE OF SC 

MOST SIGNIFICANT BYTE OF SC 

COUNT OF STRING LENGTH 

ADDRESS STORING LSB OF NEXT AVAILABLE SCREEN STOR. ADDR. 

CONTENTS OF II 

SCREEN STRING 
BS-INPUT STRING RETURNED TO THE PROGRAM 
K»0: AS-": N-16598: V-VARPTR(AS) : SC-S+15360: SM-INT(SC/256) : 
SL-SC-SM«256: POKE V,L: POKE V+l.SL: POKEV*2,SM 

FOR I»S TO S+L-l: PRINT ? I, CHRS(14)j: NEXT: PRINT?S,;: HC-PEEK(M) 
POKE M,MC 

IS-INKEYS: IFIS-" OR IS-CHRSU0) OR IS-CHRS(26) OR IS-CHRS(27) 
THEN 230 ELSE IF IS-CHRS(13) THEN BS-LEFTS(AS.K) : RETURN 
IF IS-CHRSI8) OR IS-CHRS(24) THEN K-K-l ELSE K«K*1 
IF K<L PRINT IS;: GOTO 226 
IF K-L PRINT CHRSU5) IS;: GOTO 221 ELSE 228 



Program Listing 3 



LOAD 



DIRECTORIES 



INTO 



T R I N G 



ARRAY 



309 
310 

320 
330 
340 
350 
360 
370 
330 
395 



«-] 



•BS ARRAY SAVES ENTRIES 

AS- SCREEN STRING 

E$- DISK I.D. 

I - ENTRY COUNTER 

SL- LEAST SIGN. BYTE OF SCREEN ADDR. 

SM- MOST SIGN. BYTE OF SCREEN ADDR. 

K - GETS LENGTH OK ENTRY 
CLEAR 4800: CLS: DIM BSI300): AS-'": V-VARPTR(AS) : POKE V,13: 
PRINT"(IF MO MORE DISKS TO BE LISTED, ENTER 'NONE'.)": 
INPUT-ENTER I.D. NO. OF DISK WHICH YOU HAVE INSERTED" ; ES 
IF ES-"NONE" THEN 370 ELSE SL-108: SM-60: CMD "CIR" 
I-I+l: SL-SL+20: IF (SL+4) /64-INTI (SL+4) /64) THEN SL-SL+4 
IF SL>255 THEN SL-SL-256: SM-SM+1 

POKE V+l.SL: POKE V+2.SM: K-INSTR(AS," "): IF K-l THEN I-I-l: GOTO 318 
BS(I)-LEFTS(AS,K-1)+STRINGS(15-K,32)+ES: GOTO 330 
REM * BS ARRAY NOW CONTAINS THE DIRECTORY ENTFIES • 
REM * PUT SORT ROUTINE HERE • 



Program Listing 4 



CREATE 



BLOCK 



SCREEN 



STRINGS 



N 



SCREEN LOCATION OF 1ST STRING (0 TO 1023 ) 
LENGTH OF STRINGS 
NUMBER OF STRINGS 



400 DIM AS(N-l) : SC-S+15296: SM-INT (SC/256) : SL-SC-SK«256 
411 FOR I- TO N-l: A$(I)-*": V-VARPTR I AS ( I ) ) : 

SL-SL+64: IPSL>255 THEN SL-SL-256: SM-SM+1 
420 POKE V,L: POKE V+1,SL: POKE V+2,SM: NEXT: RETURN 

595 <................. ............ 

End of Routines for article 

Following are Teats to check out SCREEN STRING Routines 

700 > ■ ■ at ■ TEST FOR SAVE - RESTORE SCREEN ROUTINE ■ ■ ■ ■ 

710 CLEAR1200: CLS: S-15423 

■ Fill The Screen 
720 FOR I- 65 TO 80: PRINT STRINGS(63 ,1) ; : POKE S,I: S-S+64: 

IF K80 PRINT: NEXT ELSE NEXT 
725 GOSUB 100: S-459: FOR 1-1 TO 300: NEXT 
730 FOR 1-0 TO 2: PRINT? I*64+S , STRINGS ( 40 , 32) ; : NEXT 
740 PRINT? 529, "PRESS ENTER TO CLEAR SCREEN" ;: INPUTE 

1 Restore The Screen 
750 CLS: PRINT? 529, "PRESS ENTER TO RESTORE SCREEN" ;: INPUTE 
760 GOSUB 110 

770 FOR I-1TO 400: NEXT: PRINT?384 , ;CHRS ( 200) ; : PRINT*384 , ; : END 
795 ------- TEST FOR STRING INPUT ---.-•- 

800 CLEAR 500: CLS: P-512 

805 PRINT?P,CHR$(31) ; 

810 INPUT'INPUT SCREEN LOCATION (512 TO 1000)";S 

820 INPUT'MAX. LENGTH OF INPUT STRING";L 

822 IF S+L+7 >1S23 PRINT'RUNS OFF BOTTOM OF SCREEN.": GOTO 810 

825 PRINT?P,CHR$(31) ; 

830 PRINT?S, "INPUT: *;: S"S*7: GOSUB 200 

840 PRINT CHRSU5);: N-N+l: PRINT? N*64 , "BS-"CHRS(34 i BS;CHRS(34) ; : GOTO805 

850 END 

875 REM TO TEST DISK DIRECTORY ROUTINE, ADD LINE 390 FOR J-0 TO I: ? BS(J 

) ,: NEXT: END 

895 '----TEST FOR BLOCK OF STRINGS-*-- 

900 CLEAR1000:CLS:INPUT"LOCATION OF 1ST STRING (0 TO 1023) ";S 

910 INPUT'LENGTH OF STRINGS' ;L 

920 INPuT'NUHBER OF STRINGS" ;N 

925 DIMBS(N) :CLS: FORI -6 5T07 8: FORJ-0TO63STEP4 : PRINTUSING" » 1 1 "; J;CHRS(I) ; I HE 

XT: NEXT 

927 INPUT'PRESS ENTER TO PRINT BLOCK OF STRINGS" iZ 

930 GOSUB400:FORI-0TON-1 :BS( I) -ASH) :NEXT 

940 CLS:FORI-0TON-1:PRINTBS(I) :NEXT 



Program Listing 5 



Scanned by Ira Goldklang - www.trs-80.com 



Announcing 



STOCKVUE 



The first comprehensive "what if" program designed 
just for the stock market investor. 

STOCKVUE confers enormous decision-making ability to anyone 
who trades in stock and/or options. 

Basically the program provides, in spread sheet format, calculations 
of dividends, interest (margined trades), trade commissions (based 
on user's choice of full-service or discount broker), and exact open- 
ing cost according to SEC rules on margin requirements. 

You provide information related to the opening trade plus a couple of 
hypothetical figures: a future date for closing the position and a likely 
price for the stock on that date. The program quickly posts all the 
details and the bottom line— net return on investment. 

Then other variations are easy to consider, just by moving to the in- 
put variable of your choice and changing it. STOCKVUE instantly 
recalculates and displays the new answer— like VISICALC! 

Versions available: IBM PC, TRS-80 III, CP/M. Price $129.95, tax- 
deductable. VISA and MasterCard welcome. 

Other programs available from Star Value Software: OPTIONVUE— 
for trading option spreads, straddles, and combinations; OPVALU— 
for assessing the fair market value of call and put options. 

Call or write for more information: 

mm wmme m^mmm 

12218 Scribe Drive, Austin, TX 78759 

Phone 512/837-5498 ^e 



PACKER Machine language program thai edits all or part 
ot your Basic program to run taster save memory or 
ease editing The 5 options include UNPACK -unpacks 
multiple statement lines into single statements 
maintaining logic inserts spaces and renumbers lines 
SHORT— deletes unnecessary words spaces and REM 
statements PACK— packs lines into maximum multiple 
statement lines including all branches MOVE— moves 
line or blocks ot lines to any new location on program On 
2 cassettes lor 16K. 32K & 48K 
For TRS-80 Mod I or ill Level ll or Disk Basic . S29 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM format 
tapes Includes verity routines The Model III version 
allows use ot both 500 and 1500 baud cassettes speeds 

For TRS-80 Model I or III Level II S15 95 

CASSETTE LABEL MAKER A mini word processor to print 
cassette labels on a line printer Includes 50 peel and 
stick labels en tractor teed paper 

For TR-80 Model I ol III Level II & Printer $1/95 

PRINT TO LPRINT TO PRINT Edits your Basic program in 
seconds to change all Prints to LPrintS (except Prmt@ or 
Pnnt«i or LPnnts to Prints Save edited version 

For TR-80 Mcdei I or III Level ll S12 95 

FAST SORT ROUTINES for use with Radio Shacks 
Accounts Receivable Inventory Control l and Disk 
Mailing List Systems tor Model I Level ll Sorts In 
SECONDS 1 Ycu ll be amazed at the time they can save 
Supplied on data diskette with complete instructions 

FAST SORT tor Accounts Receivable $19 95 

FAST SORT for Inventory Control I S19 95 

FAST SORT (oi Disk Mailing List ispecify data diskette of 

cassette for 1 drive system) $14 95 

ALL THREE ROUTINES S44 95 

Prices subject to change without notice Call or write tor a 
complete catalog Dealer inquiries invited VISA and 
Masteichargt accepted Foreign order in US currency 
only Kansas residents add 3 sales tax 
On-I ne catalog in Wichita FORUM-80 316-682-2113 
0' can our 2A hour phone (316) 683-481' or writi 
COTTAGE SOFTWARE .„ 
614 N HARDING 
WICHITA KANSAS 6^208 
IRS 80 is a trademark ol Tandy Corporation 



□ 



TIRED OF NO DISK SOFTWARE? 



□ 



TRS-80 




TOLL FREE 
ORDERS ONLY 

800-426-1830 



Flexplus 

Compatible 

Software 

Sleuth Disassembler A program which 
allows user to examine modify and dis 
assemble obiect program files on disk or m 
memory on 6809 systems Will convert an 
object file m RAM to a text file on disk 

Tabularasa (Electronic spread sheen These 
programs enable the user to generate and 
maintain tabular computation schemes pro 
vidmg a simple user interface and sophisti 
cated report generation 

Cross Assembler A set of modules for 
6800/1 6805 6802 8060/5 and Z 80 
micro processors which will enable the user 
to convert a master assembly module to 
assemble code for any of the above micros 

PASCAL 



FLEXPLUS DOS 



FLEXPLUS s a powerful easy to use disk operating system Spectral Associates has adapted 
TSC s FLEA to the best DOS completely compatible wiCi Radio Sheet* software lor use or the 
Color Computer Eliminate the need for Radio Shack s TRS DOS use FLEXPLUS with 
Editor Assemble' and haye the options of a full range of utilities FLEXPLUS works on the 32K 
Radio Shack disk system with 64K memory chips wtfi a High Resolution multi screen format that 
supports a 24 ime by 51 character display' Also included *rt special enhancement* to Radio 
Shack s Dsk system when you are 'unning FLEX with single or double s.ded single or double 
density 35 40 and 80 track dnyes 

Advantages of FLEXPLUS are: 

• Best pnee anywhere 

• Easy start-up — just type "RUN FLEX* 

• Allows you to save RS compatible disk files from FLEXPLUS 

• All FLEX compatible software will run including INTERRUPT 
DRIVEN SOFTWARE 

• NO HARDWARE MODIFICATIONS NEEDED 

• Warranty will not be voided — no need to open computer 

• Wide range of available software 

• Requires Supercharger board 

• «1 49 95 for FLEXPLUS. Editor/Assembler and Supercharger 



EXCEPT WA, HI. AK 



SPECTRAL 
ASSOCIATES 

145 Harvard Ave. 

Tacoma, Washington 98466 

(206) 565-8483 

WRITE FOR COMPLETE 
CATALOG 

ADD IX FOR SHIPPING NO COD 

VISA OR W ASTERCH ARGE ACCEPTED 



AVAILABLE ON DISK: 

• Editor Assembler 

• Super Monitor 

• Color Text Star Word 
Processor 

• Sound Source 

• Compuvoice 



Call or write us lor price information 
and for a complete list of Fle«plus 
Compatible Software 



SUPERCHARGER - Allow machine language access 

to all 64K RAM in a Series E PC board 

No hardware mods $39.95 

DISK BASED EDITOR/ASSEMBLER MACROS 

CONDITIONAL ASSEMBLY • will work with Super 

charger $49.95 



FANTASTIC BARGAIN 

FLEXPLUS. Editor/Assembler and Supercharger 

ALL FOR ONLY $149.95 

^ 119 



□ 



*■ See List ot Advertisers on Page 451 
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TUTORIAL 



How they work for Fortran and Basic. 



Boolean Logic Operators 



John Crew 

1 106 Karin Drive 

Normal, IL 61761 



The Level II Basic reference 
manual mentions only brief- 
ly that numeric variables (in- 
teger, single precision and dou- 
ble precision) can be used like 
Logical Fortran variables and 
how If . . Then statements work. I 



shall deal with the more under- 
standable Fortran Logical vari- 
ables before proceeding to their 
Level II Basic equivalent. Ref- 
erences to Fortran apply spe- 
cifically to WATFIV-S, although 
they are true for most versions. 
A Logical variable can receive 
two different values (represent- 
ing true and false) because of 
some logical operation. Figure 1 
gives examples of Logical vari- 
able assignment statements in 
Fortran and their Level II Basic 



C THIS PROGRAM READS STUDENT ID NUMBERS AND TEST SCORES 


C (WHICH RANGE TO 100) AND PRINTS AN AVERAGE SCORE FOR 


C EACH STUDENT A NEGATIVE ID NUMBER IS USED TO INDICATE 


C THE END OF THE DATA 

c 

REAL INDAVG 


INTEGER IDNUM. SCORES(5), I. SUM 


LOGICAL FINISH 


5 READ 10, IDNUM, SCORES 


10 FORMAT (I6.5<1X.I3)) 


FINISH = (IDNUM LT. 0.0) 


IF (FINISH) GO TO 40 


SUM = 


DO20I = 1,5 


SUM = SUM + SCORES(l) 


20 CONTINUE 


INDAVG = FLOAT(SUM) / 5.0 


PRINT 30, IDNUM. SCORES. INDAVG 


30 FORMAT C 7STUDENT NUMBER: \I6.' FIVE TEST SCORES'. 


+ ' ',5(1X,I3), AVERAGE OF THESE TEST SCORES: ', 


+ F3.2) 


GO TO 5 


40 STOP 


END 


Program Listing 1. Sample Fortran program. 



equivalents. 

An assigned Logical variable 
can replace a logical expression 
(see Fig. 2). Program Listings 1 
and 2 demonstrate Logical vari- 
ables. In both sample programs 
the variable name Finish replaces 
a logical expression after the 
keyword If. If the variable Finish 
contains a value representing 
false, the program will skip the 
rest of the If.. Then statement. 

The sample Basic program is 
like a Fortran program, but with 
minor differences. Fortran pro- 
grams must define any variables 
in the first non-comment pro- 



The Key Box 



Basic Level II 
Models I or III 



gram lines. Logical variables 
must have their own definition 
statements. Read and Print 
statements usually have an ac- 
companying Format list. The pe- 
culiar default rule assigns a type 
to each undefined variable so that 
it is best to define all variables. 

A Logical variable separates 
the evaluation of some logical 
expression from the If. .Then 
statement or statements where 
it would normally appear. You 
might wish to set a flag for later, 
or to test the same condition in 
several places in your program. 
Evaluate the common condition 
in a subroutine and store the 
result in a Logical variable, sav- 
ing typing and memory space. 

Level II Basic returns a - 1 for 
a true logical expression and 
for a false one. In an If.. Then 
statement, when the computer 
reaches the end of the logical ex- 





Legal assignment ot a Value to a LOGICAL Variable 


LEVEL II BASIC FORTRAN 


RS = 

Fig. 1. 


equivalent to 
P» = -1 P = TRUE. 
Q! = ■ FALSE. 
(NOT P») OR (P« AND O!) R = (.NOT. P) OR (P AND Q) 

P Q. and R are LOGICAL variables 

Legal assignment of a value to a Logical variable. 
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BUY DIRECT 

AT DISCOUNT PRICES 
It's simple .... 




NEW! 



Radio Shack TRS-80 

Hard Drives 
Model I & II. . .from 



$ 



TRS-80 Color Computer 



BUY 
DIRECT 




PRICED 
FROM 



2087 



TRS-80 Model 
Computer 



TRS-80 Model III 
Computer 




PRICED 
FROM 



BUY 
DIRECT 



599 



Smith Corona TP-1 
Daisy Wheel Printer 




PRICED 
FROM 




PRICED 
FROM 



TRS-80 Model 16 
Computer 




PRICED 
FROM 



FRANKLIN 

ACE 1000 



A ATARI 



C^ commodore 



CALL FOR PRICES 



ALL TRS-80'S ARE PURE RADIO SHACK EQUIPMENT 



1-800-841-0860 



Write for our Consumer Discount Price List 

Micro Management Systems, Inc. 

PARCEL DIVISION - DEPT NO. 4- 

2803 THOMASVILLE ROAD EAST 

CAIRO, GEORGIA 31728 

912-377-7120 



[ 



BUYING DIRECT-MAIL 
QUESTIONS & ANSWERS 



i 



Why Purchase A Computer By Direct-Mail? 
When buying a name-brand product - price is usually 
the main reason. The product is the same quality no 
matter where you buy. 
Do I Really Save Money - If I Need Help? 
When you buy by direct-mail the firm has geared its 
operation to sell at low prices. The savings will give 
you additional money to buy the extras you may need. 
Automakers don't teach you how to drive a car - we 
don't teach you how to use a computer. We do sell you 
a name-brand computer at low, low prices. Buy the 
computer and software you want, then you can learn to 
do-it-yourself and consult a professional only when ad- 
ditional help is required. 

What About The Warranty On My Equipment? 
If you purchase your computer equipment from a 
direct-mail firm • make sure the firm is an authorized 
dealer. Beware of firms selling modified or altered 
name-brand products as the manufacturer's warranty 
may no longer apply. Micro Management Systems 
sells only original factory-pure name-brand products 
covered by the manufacturer's warranty. Write us for 
a free copy of the warranty on any product we sell. 

Which Direct-Mail Company Should I Buy From? 
Micro Management Systems - Cairo, Georgia. We sell 
name-brand products. We offer low, low prices. We 
have a large inventory to assure prompt delivery. Our 

obligation to you QUALITY PRODUCT - PRICE 

-HONESTY - RELIABLE. 
Who Is Micro Management Systems? 
Micro Management Systems has been selling com- 
puter equipment to the consumer on a direct-mail basis 
since 1978. Since that time thousands of consumers 
have purchased from us. We are HONEST and 
RELIABLE. If you plan to purchase by direct-mail 
you owe it to yourself to call us. We offer quality name- 
brand products, low prices, prompt delivery, toll free 
phones for quotes and orders, references, convenient 
ordering. All products we sell are factory-pure and 
backed by reliable name-brand manufacturers. 

WE SELL AMERICA - Call us 1-800-841-0860 
Write for our CONSUMER DISCOUNT PRICE LIST. 



TRS-80 COMPUTERS 

COLOR COMPUTER 
Priced From '289 

MODEL III TRS-80 
Priced From *599 

MODEL II TRS-80 
Priced From *2899 

MODEL 16 TRS-80 
Priced From '4098 



FRANKLIN 

ACE COMPUTER 
CALL FOR PRICE 



A ATARI 

f Z. commodore 

SffB SMITH CORONA 



1-800-841-0860 



Micro Management Systems, Inc. 

PARCEL DIVISION • DEPT NO. 4- A 

2803 THOMASVILLE ROAD EAST 

CAIRO, GEORGIA 31728 

912-377-7120 



• See List ol Advertisers on Page 45 J 
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A NEWSLETTER FOR POCKET COMPUTER USERS 

This timely, compact publication provides up to the minute 
information on pocket computers, including models such as 
the Radio Shack TRS-80 PC-1 and PC-2, Sharp Electronic's 
PC-1 500 and PC-1 21 1 , and others as they are announced. Sub- 
scribe now to receive a valuable bonus absolutely FREE! 

■ Up to the Minute News ■ Product & Equipment Reviews 

■ Important Operating Tips ■ Practical Programs ■ More 
By Subscription Only: for a calendar year period (January — 
December). You get all issues published to date for the calen- 
dar year in which you subscribe, at the time you subscribe. 

MC/VISA Phone Subscriptions: (203) 888-1946 
□ I am interested. Please send me more information. I have a: 

D Radio Shack PC-2 □ Sharp PC-1500 □ 

a 1982 Regular Subscriber (Issues 11 - 20). $30.00 in U.S. 

(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 
D 1982/83 Subscriber (Issues 11 - 30). $60.00 in U.S. 

(U.S. $72.00 to Canada. U.S. $90.00 elsewhere.) 
a 1983 Regular Subscriber (Issues 21 - 30). $36.00 in U.S. 

(U.S. $42.00 to Canada. U.S. $50.00 elsewhere.) 
Orders must be accompanied by payment in full. We do not 
issue invoices for the POCKET COMPUTER NEWSLETTER. 
Thank you for your remittance. 

Name: 

Addr: 

City: State: Zip: 

MCA/ ISA #: Expires: 

Signature: 

POCKET COMPUTER NEWSLETTER 
P.O. Box 232, Seymour, CT 06483 



I 



^25 



I 



FREE 

EASY 

CALC 

UPGRADE 




Instant Software announces a new version of 
Easy Calc! 

For all the customers who have the old version of Easy 
Calc, Instant Software would like to make a free up- 
grade to improve the quality of the program. If you 
have a copy of Easy Calc which is not version 2.7, 
please send the original disk back to Instant Software 
and they will upgrade the program FREE I 
Send your program to: 

Instant Software 

Attn: Production Dept. 

Rte. 101 6c Elm St. 

Peterborough, NH 03458 

(603) 924.9471 



Level II Basic 



Fortran 



equivalent to 
W - - 1 P = TRUE. 

Q! = Q = .FALSE. 

R% = (NOT P#) OR (Pt AND Q!) R - (.NOT. P) .OR. (P .AND. Q) 

P, Q, and R are LOGICAL variables 



Level II Basic 



Fortran 



equivalent to 



If A - A THEN... 

IF - 1 THEN... 
IF NOT THEN... 

Q% - - 1: IF QV. THEN. 



Q% = 87: IF Q% THEN., 



IF A = A THEN... 

IF (.TRUE) THEN... 

IF (.NOT. FALSE.) THEN.. 

= TRUE 
IF (Q) THEN... 



Q - .TRUE. 
IF (Q) THEN... 

Fig. 2. Tests which are always true. 



IF Pi THEN... 
IFQITHEN... 
IF RV, THEN... 
IF (R% OR O!) AND NOT (R% AND Q!) PRINT "R XOR O IS TRUE." 
IF A%(3) THEN... 
IF INS - "Y" and P! THEN... 
P! = 21: Q! = 16: IF P! AND O!. ...-ALWAYS TRUE 
P! - 64: Q! - 12&IF P! AND Q! THEN... 'ALWAYS FALSE 
IF A + 9 THEN-'FALSE ONLY IF A - - 9 

Fig. 3. Additional examples of using Logical variables in Level II 
Basic. 



10 REM THIS PROGRAM READS STUDENT ID NUMBERS AND TEST 

20 REM SCORES (WHICH RANGE FROM TO 100) AND PRINTS AN 

30 REM AVERAGE SCORE FOR EACH STUDENT. THE END OF THE 

40 REM DATA IS INDICATED BY A NEGATIVE 10 NUMBER. 

50 CLEAR 0: DEFINT A-Z: DIM SCRE(4) 

60 READ IDNUM!: FOR I = TO 4: READ SCRE(I): NEXT 

70 FINISH = (IDNUMK0) 

80 IF FINISH GOTO 160 

90 SUM ■ 
100 FOR I = TO 4 
110 SUM - SUM + SCREfl) 
120 NEXT 

130 INDAVG! = CSNGTSUM) / 5.0 
140 PRINT USING "STUDENT NUMBER 
FOR I = TO 4: PRINT USING " 
AVERAGE OF THESE TEST SCORES: •##»#" ; INDAVG! 
150 GOTO 60 
160 END 
170 DATA 123456, 97. 78. 84, 76, 89, 654321. 79. 80, 91, 83, 100.-1, 0, 0. 0, 0, 

Program Listing 2. Level II Basic version of Fortran sample 
program. 



FIVE TEST SCORES: "; ION U M ! ;: 
SCREU);: NEXT: PRINT USING " 



pression (indicated by a "," a ":", 
the conventional "Then," or the 
beginning of another Basic state- 
ment), it compares the result of 
the evaluation to 0. If it is (indi- 
cating a false expression) the 
computer scans for the keyword 
Else and, on locating it, executes 
any following statements. If Else 
is absent in that line the computer 
moves to the next program line. 
All Level II needs is stored in 
a register upon reaching the end 



of a logical expression after the 
keyword If. A number, numeric 
variable or complex arithmetic 
statement can replace a logical 
expression (see Figs. 2 and 3). 

These techniques should 
work in other Microsoft versions 
of Basic, perhaps not with Pock- 
et Computer Basic. ■ 

The author is currently a 
junior at Illinois State University 
majoring in Physics. 
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ARRANGER 



100''. Machine Language D'sk Index Program 

lor the TRS-80 Model l&lll 

Automatically recognizes ALL maior DOS's' 

TheArrangensa master index system that 
automatically records the names of your 
programs, what disks those programs are 
on and type of DOS Features include — 

• Automatic single and double density 
recognition 

• Accepts LDOS. DOS-. TRSDOS. 
DBLDOS. NEWDOS/80, MULTIDOS 

• Works interchangeably with Model III. I 
double density. 

• Capacity ot 200 disks. 44 filenames/disk 

• Quickly locates any amount of free 
granules 

• Finds a program in less than 30 seconds 1 

• Alphabetizes 1500 filenames in 40 sees ' 

• Option to sort by any extension 
(/BAS. /CMD. rn?) 

• Easily updates diskettes previously 
added with only 2 keystrokes 

• Backup function built in 

• Uses 1 to 4 drives. 35. 40 or 80 tracks 

• Radio Shack doubler compatible 
Requires 32k 

1 disk minimum 

JUST $29.95 

FREE SHIPPING 

Specify. TRS 80 Model number 

(If you've added double density to 
your Model I. please indicate) 

TRIPLED SOFTWARE ^ 



P.O. Box 642 
Layton. Utah 8404 1 
(801)546-2833 



VISA OR 
MASTERCARD 



COLOR HI-RES 

GRAPHICS 

FOR THE TRS-80 " MODEL I 

Create spectacular color 

graphic displays with your 

TRS-80 Model I with 

COLOR-GRAF 

Connects to the expansion port of 
your computer and uses your color 
TV for the graphics display. 
You control a color display thai includes 

■ 256 x 1 92 pixel resolution 

■ 1 5 colors plus transparent 

■ 4 graphics modes 

■ easily movable animated patterns 

Complete documentation and software 
allows you to set each pixel, create 
patterns, draw lines, and much more' 

COLOR-GRAF comes in a 7'2"x6"x 
3" cabinet complete with 40 pin con- 
nector, power supply, RF modulator. 
documentation and software for $195. 

For information, or to order, write or call 

Solectronics 

400 Asbury Ave., Evanston, IL 60202 
(312)866-8737 M 



STOCK MARKET DATA 
over 20 YEARS on 
DISK or TAPE 

NOW AVAILABLE- 

OVER 2 YEARS OF WEEKLY OR DAILY 
CLOSING PRICE DATA ON D I SK OR TAPE 
FOR THESE PROVEN MARKET INDICATORS 



I *62 



I 982 



* DOW JONES INDUSTRIAL 

• DOW JONES TRANSPORTATION 

• DOW JONES UTILITY 

* STANDARD AND POOR'S 500 

ALSO INCLUDES- 

PROCRAMS TO MAINTAIN THESE FILES. 
CREATE F I LES FOR YOUR OWN STOCKS . 
AID SAMPLE PROGRAMS I LLUSTRAT I NG 
RUTMING AVERAGE AND CYCLIC MARKET 
ANALYSIS TECHNIQUES. 

WEEKLY DATA 

□ 101 MODEL l/lll CASSETTE. S J 4. * 9 

D 102 MODEL III DISKETTE ... f 3 4 . 9 9 

3 10 3 HARDCOPY PR I NTOUT . . . . S 2 2 . » 9 

DAILY DATA 

3 104 MODEL l/lll CASSETTE. $44. 99 

- 105 MODEL III DISKETTE. *44 99 

3 10« HARDCOPY PRINTOUT. ... 132. »» 

FREE SHIPPING WITHIN CONTIICNTAL USA 

(ADD 10% FOR SHIPPING ELSEWHERE | 

24 -HOUR TOLL-FREE ORDER LINE 

I^F! 1-800-227-3800 EXT. 942 ',. , 3 



YOUNG IDEAS, INC 



^ 172 

SSS N. NEW DALLAS 
ST. LOUIS, MO 



• SUITE 3 1 
S3 I 41 



-ATTENTION ALL TRS-80 OWNERS- 

No matter how your Model I. II, or III is used, whether it be business 
or pleasure, this product can benefit you 

The FATIGUE FIGHTERtm reduces the operator fatigue 
(irritated, watery eyes and headaches) caused by the harsh white 
video display thereby making computer use more efficient and/or 
enjoyable The graph at the right will help explain how it works. 
Superimposed on the standard eye sensitivity curve is the band pass 
curve of the FATIGUE FIGHTERtm as recorded by a 
spectrophotometer. A marker is also on the graph at the ideal 
psychological tolerance color As you can see, the green color of the 
FATIGUE FIGHTERim takes advantage of both eye sensitivity and 
psychological tolerance to make the di c play less irritating. 

The FATIGUE FIGHTERtm is made of tough '„ inch thick acrylic 
sheet which adds absolutely no distortion or fuzziness to the display 
and is industry proven to be an excellent material for optical filtering 
(e.g. lenses for laser safety goggles) It installs easily on all three 
TRS 80 s models with a pressure sensitive adhesive which will not let 
the filter fall off yet allows easy removal if necessary Finally, the black 
and silver border design makes it a perfect match for the computer 
styling. 

If you want a FATIGUE FIGHTERim of your own but prefer not 
to order by mail, check with your local computer stores to see if they 
have them in stock. Otherwise follow the ordering instructions below 

Sana Nam* 4 Address Typed or Clearly Primed with Check or Money Or- 

T0 ORDER* der ,us - FUNDS > '°' S14.95 Each, including Shipping. Canadian Orders 

* add S1.00 Each. All Other Foreign Orders Add $2.00 Each tor Shipping. 

NO CREDIT CARD ORDERS. COD'S (U.S. ORDERS ONLY) are S2.50 Addi- 
IASA0 IS « tlonal Per Order A are Accepted by Mail or by Calling 904-378-2494 9-5 

T*N0t CORP M-F Florida Residents Add 5% Sales Tax. 

IRADEMARK ALL MAIL ORDERS MUST BE SCNT TO THE U.S. ADDRESS 



tSJ 



SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ,05 



DEALER INQUIRIES INVITED' 



CANADIAN DEALERS ONLY— For pricing and ordering inlormatlon contact: 

MICRO- COM P ENTERPRISES. 955 Brock Hd S Unit 3. Pickering. Onl LlW 2X9 Phone 416-839-4561 



Psychological 
Tolerance Color 



MAXr- 



Eye Sensitivity 
Spectral Curve 




Violet 



Blue 



Green 



l — i — r 

Yellow Orange Red 



This product resulted fro* the 
following Psychological studies 
show green to be aost pleasant 
for ex t e n ded viewing. Eye sensi- 
tivity peeks in the* gree n band 
of the sp e c trust. Contrast is en- 
hanced by reducing the eatoient 
light falling on a CPT. These 
three rectors ©os" 
operator fatigue. Finally, we 
wanted aort then »jst function. 
Urn wen ted a filter that visually 
•etched TfcS-W styling. Pictured 
here is proof o* our success, f 
product we ere proud of. 



• See List ol Advertisers on Page 45 ) 
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UTILITY 



LOAD 80 



The screen stops when full 



Scroll Your Listings 



Mark C. Pax ton 

4056 Three Oaks Boulevard 

Troy, Ml 48098 



The assembly program pre- 
sented here changes the 
way LIST functions on your non- 
disk Level II TRS-80: When you 
enter the List command, the 
screen fills with source lines of 
any Basic program resident in 
memory, and stops once the 
screen is full— it does not spin 
madly past you. 

To continue viewing the pro- 
gram listing one line at a time, 
press the up arrow key for each 
new line desired. If you wish to 
scroll backward one line at a 
time, press the down arrow key. 

Using the Program 

Key the source code in Pro- 
gram Listing 1, using an editor/ 



The Key Box 

Basic Level II 
Mods! I 
16KRAM 
Printer Optional 



assembler, and create a system 
tape named SCRS. Set the mem- 
ory size to 32540 and load the 
system tape. When the program 
stops loading, control transfers 
to the ready mode, from the sys- 
tem mode. 

At this point you can either 
CLOAD or key in a Basic pro- 
gram. When you execute the 
LIST command the screen fills 
with lines; listing will stop when 
the screen is full. The machine 
then waits for your input — how- 
ever, it recognizes only the up or 
down arrows. To break out of 
this mode before listing has 
completed, repeatedly hit the up 
arrow key and the Break key at 
the same time until the break is 
recognized. 

To switch between normal 
LIST mode and the modified 
LIST mode, key in the SCRS 
command, or the SCROFF 
command, in normal command 
mode as illustrated below: 

> 

>SCRS 

> 

>SCR0FF 

> 

SCRS (SCRoll Screen) causes 
the LIST command to scroll one 
line at a time. SCROFF (SCRoll 
OFF) returns the LIST command 
to its normal operating mode. 

Analysis of the Program 

The program takes advantage 
of three DOS exits: 41E2H, 
41B2H, and41DFH. 



The DOS exit at 41 E2H is called 
from the System command rou- 
tine (at 02B2H). The SCRS pro- 
gram uses it to pass control back 
to the Basic ready mode, once it 
has completed loading. 

The DOS exit at 41 B2H is part 
of the ready routine which starts 
at 1A19H, 41B2M is called from 
1A1CH. At this point, you have 
already made a keyboard entry 
which has been compressed to 
space compression codes wher- 
ever possible. Therefore, this 
DOS exit is used to slip out and 
check the input buffer for the en- 
try of a new command: SCRS or 
SCROFF. If you do not enter 
either of these commands, con- 
trol returns to Basic and no 
harm is done. If you enter either 
SCRS or SCROFF, then you ex- 
ecute the appropriate routine in 
the program to activate or deac- 
tivate the modified LIST mode. 

The DOS exit at 41 DFH is part 
of the LIST/LLIST command rou- 
tine logic. LIST starts at 2B2EH, 
and LLIST starts at 2B29H. The 
two commands use the same 
code. However, between 2B29H 
and 2B2EH, the output device 
type indicator (located at 



409CH) gets set to 01, which in- 
dicates the printer. (The default 
code is zero, for video. A minus 1 
means the cassette.) The call to 
41 DFH is made from 2B44H; it is 
called once before each line is 
displayed. 

If you have a line printer on 
your system, put a check in the 
SCRS program to see if the out- 
put device type indicator (at 
409CH) contains an 01 H. If it 
does, you can return immediate- 
ly to Basic to avoid problems. 
It is not necessary that you do 
this however; the only adverse 
effect is that the screen clears 
every time you enter LLIST. 

The program in Listing 1 is not 
very large considering the func- 
tions it performs. This is due 
largely to the use of numerous 
ROM routines to perform gener- 
al tasks. A short study of the 
listing itself will prove beneficial 
and may add new ROM routines 
to your own repertoire. ■ 



Mark Paxton, a professional 
programmer and systems an- 
alyst, also teaches Cobol part- 
time. 







Program Listing 




41E2 

SYSTEM CUD 
41E2 C3AP7F 
41B2 

TEST SUPPER 


■ •■IB 

98B29 
MI30 


ORG 41E2H 

JP AUTO 
ORG 41B2H 


j SET UP AUTOSTOP OP 
; SET UP USER EXIT TO 

Listing continues 
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OUR PRICES, SELECTION 



:u 



ECTIO 


r 


• j i j 



MAKE IIS COMPETITIVE. 
OUR PEOPLE MAKE US EXPERTS 



Red Baron. 
Home of the Nation's Largest Computer Printer Inventory. 



NEC 8023 

Outstanding Graphics, Print 
Quality & Performance 




144 x 160 dots/inch • Proportional Spacing 

• Lower case descenders • N x 9 dot matrix 

• 8 character sizes • 5 unique alphabets 

• Greek character set • Graphic symbols 

• 100 CPS print speed • Bi-directional logic- 
seeking • Adjustable tractors • Single-sheet 
friction feed • Vertical & horizontal tabbing 

NEC 8023 Of*«ll 

Dot Matrix List $795 Q I'd 1 1 

Televideo CRT's 

Price, Performance & Reliability 

910 List $699 CPoll 

925 Ljst $995 ~ 

950 List $1195 Prices 

Other Quality Printers at Red Baron 

List Discount 

Anadex DP-9501A $1725 $Call 

Anadex DP-9620A $1845 SCall 

Anadex WP-6000 $3250 SCall 

C Itoh 8510 Prowriler . . . . $845 SCall 

IDS Microprism 480 $799 SCall 

Diablo 630/6 $2995 $2570 

NEC Spinwnter RO 

Serial Parallel 77xx $3055 $2500 

Parallel 35xx $2290 $1800 



Interface Equipment 

Complete Stock of Options. 
Cables and Accessories. 

GRAPPLER + APPLE INTERFACE $1 

CCS APPLE SERIAL Interface & Cable . $1 
ORANGE INTERFACE for Apple II 

Parallel Interface Board and Cable . . $' 
NOVATION DCAT 

direct connect modem $1 

Novation Cat Acoustic Coupler $1 

COMPLETE STOCK OF EPSON 

ACCESSORIES $C 

CUSTOM PRINTER CABLES FOR Apple, 

Atari. IBM, TRS-80 (all models) SC 

HAYES MICROMODEM II $3 

PRINTER STANDS: Large $ 

Small S 

PRINTER RIBBONS-Most Types $C 



IDS Prism 80/132 

Affordable Color, Speed 




Dot Resolution Graphics • 9-wire staggered 
printhead • Lowercase decenders • Over 
150 CPS • Bi-directional, logic-seeking 

• 8 character sizes • 80-132 columns 

• Proportional spacing • Text justification 

• Optional Color 

Prism 80 Base List $999 Of*-* II 

Prism 132 Base List $1,299 plsdll 



Smith-Corona TP- 1 

Daisy Wheel Printer For Under $900 




Letter quality • Standard serial or parallel data 
interface • Drop-in ribbon • 144 WPM • Various 
fonts available • Loads paper like typewriter • 
Handles single sheets for forms 



Smith-Corona TP-1 List $895 



SCall 



The Epson Series 

High-Quality Printers 
at a Low Price. 



The Okidata Series 

Hi-Res & TRS 80 Block Graphics 




Epson MX80 List $645 * «* . , 

Epson MX80FT List $745 Xf,3| 

Epson MX-100 List $995 * 

Full Line of Epson Acessories. 



120 CPS • 9 x 9 Matrix • Bidirectional logic 
seeking printing • Lower case descenders 
• Four print styles • Optional Hi-Res Graphics 

Okidata 82A List $649 CPtll 

Okidata 83A (w Tractor) . List $995 Qwdll 



f)^* 




Our People, Our Product 
Both Are Specialized. 

Red Baron is an organization of compu- 
ter printer specialists. They know the 
capabilities of each printer, and how to 
match one to your exact need. Call for 
expert consultation today! 



Here's How To Order: 

Phone orders are welcome; same-day shipment on 
orders placed before 11:00 a.m. Free use of Master- 
Card and Visa. COD's accepted. Personal checks 
require 2 weeks clearance. Manufacturer's warranty 
included on all equipment. Prices subject to revision. 
APO/FPO Orders Welcome. 

Call For Free Catalog: 

(800) 854-8275 

CA, AK, HI (714) 630-3322 

Red Boron 

COMPUTER PRODUCTS 




1100 N.TUSTIN »207 
ANAHEIM, CA 92807 



! Baron Computer Products. 1982 



LOAD 
80 

LOADS 
EASY 



LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 




In the April, 1981 issue of 80 Micro we introduced LOAD 
80 to save you the time and trouble of typing our programs 
yourself. LOAD 80 cassette tapes contain dumps of the 
major program listings in 80 Micro. 



If you have not yet ordered any LOAD 80 tapes and wish 
you had, don't worry. We are now offering a "back issue" 
cassette program. You can order any LOAD 80 cassette 
from April, 1981 to date for $9.97. Back issues of 80 
Micro are also available with the LOAD 80 cassettes for 
$3.50. With the complete documentation found in the com- 
panion magazine issue, you should have no difficulty 
loading any of 80's major programs. 



Please send me the following: 

month year month 

Tap«s Magazines 



year 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes: August 1962 Double Issue 
add $1 50 per tape for postage and handling 


$17.97 
$9.97 






80 Micro 

add $1 00 per magazine tor postage and 

handling 


S3 50 








T 


0TAL 





Check Enclosed Bill my: 



MC : AE 



VISA 



NAME 

ADDRESS 
CITY 



STATE. 



CARD* 

SIGNATURE 



ZIP, 

EXP. DATE. 

INTERBANK*. 



Please allow 4-6 weeks 'or delivery 

LOAD 80 • 80 Pine Street • Peterborough NH 03458 

Attn Debra Boudneau 
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41B2 


C3C37F 


00040 




JP 


USEXIT 


41DF 




00050 




ORG 


41DFH ;EXIT 'LIST' CMD 


41DF 


C31C7F 


00060 
00070 
00080 
00090 
00100 
00110 




JP 


SCRS 












* MAINT-DATE- 


■=--> 02.12. Rl * 






* DESCRIPTION 


■■*> M.C.PAXTON * 
«--> SCROLL UP • 






00120 


* OR 


DOWN OF 


BASIC LISTINGS * 






00130 








7F1C 




00140 




ORG 


32540 ;SET MEMSIZE TO THIS 


7F1C 


J 5 


00150 SCRS 


PL'SH 


DE ;LINE DELIMITER 


7F1D 


Cb 


00160 




PUSH 


BC ;NEXT LINE PTR 


7F1E 


£5 


00170 




PUSH 


HL :PTR TO LINE I 


7F1F 


23 


00180 




DF.C 


HL 


7F28 


2B 


80190 




■zvx 


HL 


7F21 


n 


00200 

00210 
00220 




iX 


DE.HL ;DE-PTR TO BEGIN 
; OF LINE (PTR TO 
j NEXT LINE) 


7F22 


2AA440 


00230 




LD 


HL,(40A4H) ;BEG OF BASIC 


7F25 


B7 


00240 




OR 


A ;CLR CARRY 


7F26 


EDS 2 


00250 




SBC 


HL.DE 


7F28 


2003 


00260 




JR 


NZ.CONT ;NOT FIRST LINE 


7F2A 


CDC 901 


00270 
00280 




CALL 


01C9H ;CLS ON 1ST LINE 


7F2D 


ED5B2040 


00290 


CONT 


LD 


DE.14020H) [DE-CURSOR P 


OSITION 










7F31 


21303F 


00300 




LD 


HL,3F80H ;HL-DELIMITE 


R LINE ADDRSS 










7F34 


B7 


00310 




CR 


A ; CLEAR CARRY 


7F35 


ED52 


00320 




SBC 


HL,DE ,-CHECK TO SEE IF AT 


BOTTOM OF SCR 










7F37 


FA3E7F 


00330 




JP 


M, KBSCAN ;JUMP TO KBSCAN IF 


AT BOTTOM 














00340 












00350 




> SCROLL 


SCREEN FORWARD ROUTINE <-«-.= 


7F3A 


El 


00360 


UP 


POP 


HL j UP SCREEN ROUTINE ; 


RESET 


REGS 


00370 






;AND GOBACK FROM WHE 


NCE WE CAME) 










7F3B 


CI 


00380 




POP 


BC 


7F3C 


Dl 


00390 




PC? 


DE 


7F3D 


C9 


00400 
00410 




RET 




7F3E 


CD2B00 


00420 


kbsca: 


CALL 


2BH .-KEYBOARD SCAN ROUTINE - 


LOOK 


FOR 


00430 






;UT ARROW ENTRY OR DOWN ARRO 


W ENTRY. 














00440 






; IGNORE EVERYTHING ELSE 


7F41 


B7 


00450 




OR 


A 


7F42 


28FA 


00460 
00470 




JR 


Z , KBSCAN 


7F44 


FE5B 


00480 




CP 


5BH ;UP ARROW 


7F46 


28F2 


00490 
00500 




JR 


Z, UP 


7F48 


FEOA 


00510 




CP 


0AH [DOWN ARROW 


7F4A 


2804 


00520 
00530 




JR 


Z , DOWN 


7F4C 


18F0 


00540 




31 


KBSCAN 


0002 




00550 


TSTSCR DEFS 


2 






00560 


; .... 


> BACKU 


DISPLAY ROUTINE <-"« 


7F '-,? 


AF 


,1CS7i- 


DOWN 


XOR 


A 


7F51 


F5 


00580 




PUSH 


AF 


7F52 


21C03F 


CO590 




LD 


HL,3FC0i: 


7F55 


224E7F 


00600 




LD 


(TSTSCR), HL ;SET A-0. A IS 


CTR FOR 1 OF 














00610 






; LINES O!! SCREEN TO BACKUP 


OVER 


SET 


006 20 






; TSTSCR VARIABLE TO LAST LI 


NE OF SCREEN 










7FS8 


B7 


00630 


AGN2 


OR 


A ; CLEAR CARRY 


7F59 


114000 


00640 




LD 


DE,4CH 


7FSC 


2A4E7F 


00650 




LD 


HL, (TSTSCR) ;HI. = LINE ADD 


KESS 












7F5F 


ED52 


00660 




SBC 


HL.DE [CALC NEW SCRN LINE 


ADDRSS 










7F61 


224E7F 


00670 




I.:: 


(TSTSCR), HL ;SAVE FOR NE 


XT TIME 










7F64 


CD5A1E 


006 80 




CALL 


1E5AH ;CO:iVRT TO HEX (INT 


DE 


IT GOES 










7F67 


7A 


00690 




:,:. 


A,D 


7F68 


B3 


007OC 




OR 


E ;!!Z-LINE t THERE, Z-N 


O LINE • 










7F69 


200S 


00710 




JR 


NZ,COt,'T2 


7F6B 


Fl 


00720 




POP 


AP 


7F6C 


3C 


00730 




INC 


A [INC CTR FOR 1 LINES 


TO 


BACKUP 










7F6D 


F5 


00740 




PUSH 


AF ;SAVE CTR (IN A) 


7F6E 


18E8 


00750 




JR 


AGN2 ;DO IT AGAIN 


7F70 


21003C 


00760 


COHT2 


LD 


HL.3CO0H ;LOAD ADDRESS OF SC 


R 1ST LINE 










7F73 


CD5A1E 


00770 




CALL 


1E5AH ;DE-HEX LINT i ON RET 


7F76 


CD2C1B 


00780 




CALL 


1B2CH ,-BC-PTR TO NEXT LINE P 


TO 




00790 






; ON RETURN 


7F79 


50 


00800 




LD 


D,B 


7F7A 


59 


00810 
00820 




:,? 


E,C ;DL ■ BC 


7F7B 


2AA440 


00830 


ag;. 


LP 


HL,(4l)A4ll) [Hl. = BEGl.J M>DRSS 


OF BASIC TEXT 








7F7E 


BS 


0084G 
00850 




PUSH 


HL 


7F7F 


44 


00860 


TEST 


LU 


B,H 


7FB0 


4D 


00870 




LO 


C,L 


7F81 


B7 


00880 




OR 


A 


7F82 


ED52 


00B9O 




SBC 


HL,DE 


7F84 


El 


00900 




PC? 


HL 


7F85 


280C 


00910 
00920 




JR 


Z.DONE 


7F87 


CS 


00930 




PUSH 


BC 


7F88 


DDE1 


00940 




?;; 


IX 


7FSA 


DD6E00 


00950 




1.3 


L,(IX) 

Listing continues 
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Listing continued 








7F8D DD6C01 


89960 




LD 


H r (IX+l) 


7F9I C5 


88970 




PUSH 


BC 


7F91 18EC 


0B98B 
08990 




JR 


TEST 


7P93 Fl 
G. 
7P94 47 


01080 


DONE 


POP 


AF /RETRIEVE COUNTER IN A RE 


81010 




LD 


B,A 


7F95 B7 


01020 




OR 


A 


7F96 78 


81030 




LD 


A,B 


7F97 2807 


01040 
010S0 




JR 


Z, ABOUND 


7P99 DDES 


01060 




PUSH 


IX ;PUT ADDRESS OP PREV 


LINE PTR 










7P9B Dl 


01070 




POP 


DE I INTO THE DE REGIST 


ER PAIR 










7P9C 3D 


01080 




DEC 


A 


7P9D P5 


01090 




PUSH 


AF 


7F9E 18DB 


01100 

01110 




JR 


MB 


7FA0 4E 


01120 


AROUND 


LD 


C,(HL) JPUT EVERYTHING BACK 


IN PLACE 










7PA1 23 


01139 




INC 


HL 


7PA2 46 


01140 




LD 


B, (HL) 


7FA3 23 


01150 




IMC 


HL 


7FA4 ES 


01160 




PUSH 


HL 


7PA5 C5 


01170 




PUSH 


BC 


7PA6 CDC 981 


01180 




CALL 


01C9H ;CLS 


7PA9 CI 


01190 




POP 


BC 


7PAA El 


01200 




POP 


HL 


7PAB Dl 


01210 




POP 


DE 


7FAC Dl 


01220 




POP 


DE 


7PAD PI 


01230 




POP 


DE ;DE=DELIMITER LINE NO. PR 


OH STCK 










7PAE C9 


01240 
012S0 




RET 




7PAP 3EC9 


01260 


AUTO 


LD 


A,0C9B 


7PB1 32E241 


01270 




LD 


(41E2B) ,A 


7PB4 21191A 


01280 




LD 


HL.1A19H 


7PB7 E3 


01290 




EX 


(SP) ,HI, 


7PB8 C9 


81308 
01310 

01320 




RET 


GO TO 1A19H <READY> 




/•USER 


EXIT: 


CHECK INPUT B'Jr'FER FOR SCRS/SCR 




OFF ENTRY • 


01330 
01340 








7PB9 S3 


CMDLIT 


DEFM 


•SCRSSCROFF 1 


7PC3 ES 


013S0 


USEXIT 


PUSH 


HI. ;SAVE DUFPER POINTER 


7PC4 08 


01360 




EX 


AF,AF" ;SAVE REGISTERS 


7PC5 D9 


01370 




EXX 


/SAVE REGISTERS 


7FC6 El 


01380 




POP 


HL /RETRIEVE PTR TO BUF 


PER 










7PC7 D7 


01390 




RST 


10H /LOCATE 1ST BYTE OP 


COMMAND ENTRK 










7PC8 2B 


01400 




DEC 


HL /POINT BEFORE COMMA N 


D ENTRY 










7FC9 E5 


01418 
01420 




PUSH 


HL /SAVE POINTER 


7PCA 11B87P 


01430 




LD 


DE,CMDLIT-1 /POINT TO LITERA 


LS - 1 










7FCD 0684 


01440 




LD 


B,4 /LOAD 1ST COMMAND LB 


NGTB 










7PCP CDB27F 


014S0 




CALL 


CMDTST /IS IT <SCRS>? 


7FD2 2817 


01460 




JR 


Z, SCRON /GO-IP YES 


7FD4 El 


01470 




POP 


HL 


7PDS 0606 


01480 




LD 


B,6 /LOAD 2ND COMMAND LE 


NGTH 










7PD7 11BC7F 


01490 




LD 


DE r CMDLIT+3 /POINT TO NEXT L 


ITERAL 










7 PDA CDE27F 


01503 




CALL 


CMDTST /IS IT <SCROPF>7 


7PDD 2813 


01510 
01520 




JR 


Z, SCROFP /GO- IF YES 


7PDP 08 


01530 


GOBACK 


EX 


AF.AF* /REPLACE THE ORIG RE 


CS 










7PE0 D9 


01540 




EXX 




7PE1 C9 


01550 
01S6O 




RET 




7PE2 23 


01570 


CMDTST 


INC 


HL 


7FE3 13 


01580 




INC 


DE 


7FE4 1A 


01590 




LD 


A,(DE) /GET BYTE PROM LITER 


AL 










7FES BE 


01600 




CP 


(HL) /DOES IT MATCH THE C 


ORRES PONDING 


01610 






/BYTE THAT MAS ENTER 


ED IN THE 


01620 






/BUFFER AREA? 


7PE6 2002 


01630 




JR 


NZ,NOPE ;IF NOT, THEN GET OUT 


7FE8 10F8 

E 

7PEA C9 


01640 




DJNZ 


OlDTST (MATCH -TEST NEXT BYT 


01650 


NOPE 


RET 


/Z=FOUND, NZ-NOT POUND 




01660 


1 •••••«**••***•***** 




01670 


;* SCRON ROUTINE • 




01680 








7FEB 3EC3 


01690 


SCRON 


LD 


A.0C3B 


7PBD 32DF41 


01700 




LD 


(41DFH),A /ENABLE THE JUMP 


7FP0 180S 


01710 
01720 
01730 
01740 
017S0 




JR 


READY zGOBACK TO <READY> 




S* SCROFP ROUTINE * 


7PP2 3EC9 


SCROPF 


LD 


A.0C9H 


7FP4 32DF41 


01760 




LD 


(41DPH),A /DISABLE THE JUMP. 


RESTORES 


01770 






/THE LIST COflKAHD TO ITS ORG 


I HAL MODE 


01780 






/OP OPERATION. 


7FP7 21191A 


017 90 


READY 


LD 


HL,1A19H /<READY> RTI1 ADDRE 


SS 










7PPA E3 


01800 




EX 


(SP) ,HL /STICK IT OB THE STA 


CX 










7PPB 18E2 


01810 




JR 


GOBACK /RETURN TO < READY > P. 


TN 


■ 1B2B 








1A19 


01830 




END 


1A19H 


•0000 TOTAL 


ERRORS 









o 





Selling 80 Mi- 

w lk^ ^^~ oro w '" ma ^ e mon- 

^^^ ^k^| ^^^ you. Consider 

^r^^^J Fact #1: Selling 80 Micro in- 

^^^^^r creases store traffic— our dealers 

^^^ tell us that 80 Micro is the hottest- 

T^r selling computer magazine on the news- 

stands. 
Fact #2: There is a direct correlation between 
store traffic and sales — increase the number of people 
coming through your door and you'll increase sales. 
Fact #3: Fact #1 + Fact #2 = INCREASED $ALE$, 
which means more money for you. And that's a fact. 

For information on selling 80 Micro, call 800-343-0728 
and speak with Ginnie Boudrieau, our bulk sales man- 
ager. Or write to her at 80 Micro, 80 Pine St., Peter- 
borough, NH 03458. 



micro 



80 Pine Street Peterborough, NH 03458 

800-343-0728 



IS 



HARD COPY 



STORAGE 

a problem? 







Here's the ideal way to keep your 
growing collection of 80 Micro in 
order! The 80 Micro Library Shelf <K* {for- 

. . .sturdy, corrugated, white, dust-resistant boxes will keep 
your issues of 80 Micro orderly and available for constant 
reference. Self-sticking labels are available for the boxes, too, 
not only for 80 but also for Microcomputing, 73 Magazine, CQ, 
QST, Ham Radio, Personal Computing, Interface Age, Byte 
and Radio Electronics. Ask for whichever labels you want 
with your box order. Each box holds a full year of the above 
magazines. Your magazine library is your prime reference: 
Keep it handy and keep it neat with these strong library shelf 
boxes. One box (BX1000) is $2.00, 2-7 boxes (BX1001) are $1.50 
each, and 8 or more boxes (BX1002) are $1.25 each. Be sure to 
specify which labels we should send. Shipping and handling 
charges are $2.00 per order. Call in your credit card orders on 
our toll-free line 800-258-5473, or use the order card in the back 
of the magazine and mail to: 



micro 



ATTN: BOOK SALES 

Please allow 4-6 weeks for delivery. No COO orders accepted 



Peterborough. 
NH03458 
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120 

DAY 

WARRANTY 




'NO YOURE NOT SEEING THINGS, THATS FOUR INTERNAL DRIVES IN 

A MODEL III WITH UP TO 4 MEG. DISK STORAGE AVAILABLE NOW. 

ONLY FROM DISPLAYED VIDEO!!" 

* DISPLAYED VIDEO IS DRIVING DOWN 

PRICES ON DISKS! 






DISPLAYED VIDEO is now offering TRS-80* MODEL III with TANDON disk drives, one of the most reliable 
disk drive systems on the market, for INCREDIBLY low prices. 

MODEL III with 48K. dual 40 track double density disk drives, complete systems with TRSDOS and ONE BOX 
OF DISKETTES 

PLUG IT IN AND GO $1,749.00 

MODEL III with 48K. dual 40/40 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES 

PLUG IT IN AND GO $2,149.00 

MODEL III with 48K. dual 80 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES 

PLUG IT IN AND GO $2,149.00 

MODEL III with 48K. dual 80/80 track double density disk drives, complete systems with NEWDOS 80 and ONE 

BoxoFDisKF.rTEs^XC IT IN AND GO $2,449.00 

MODEL III with 48K. four 40 track double density internal disk drives, complete systems with TRSDOS and ONE BOX OF 

D.SKETTES PLUG u IN AND GO. $2,399.00 

MODEL III with 48K. four internal drives of any configuration available to achieve up to 4 meg of disk storage 

MODEL III Internal Drive Kit: Includes controller board, dual drive mounting bracket. 

dual power supply, all hardware cables and connectors (gold plated) $329.00 

MODEL 16 w/1 drive.. ..$4,450.00 w/2 drives $4,850.00 



CALL 



D ispla yed 
Tdeq 



IMMEDIATE DELIVERY 

120 Days Parts and Labor Warranty 
DEALER INQUIRIES INVITED 

Free Shipping in the U.S. 
48 Contiguous States 



Visit Our Two 
RETAIL LOCATIONS: 

886 Ecorse Rd.. Ypsilanti. MI 48197 
(313) 426-5086/(313) 482-4424 
111 Marshall St.. Litchfield, MI 49252 
(517) 542-3280 

Radio Shack Authorized Dealership at: 
111 Marshall Street, Litchfield, Michigan 49252 #P142 

To Order: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO. 

886 Ecorse Road, Ypsilanti, Michigan 48197 




* TRS 80 is ,i trade mark of the Tandy Corporation 
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Prices subject to change without notice 





DISPLAYED VIDEO IS DRIVING DOWN 
PRICES ON DISKS! 



> 



DV'S COLOR COMPUTER FIRST DRIVE 

$425.00 

80 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY , 

-\C# $275.00 y^c*, 

+C& 40 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY V Oj*7 ' 

$239.00 

TEAC'S NEW 40 TRACK SLIMLINE W/CASE & POWER SUPPLY 

$269.00 

TWO DRIVE CABLE $23.99 

With Ciold Plated Connectors 

NEWDOS 80 $ 1 1 5 .00 MODEL I or III 

Bare Drives & Cases Available Upon Request 

DV'S 5 MEG. HARD DISK 

$1949.00 

ATHANA DISKETTS 
$26.95 

100 Percent Certified W/Own Hub Rings 



<-$ 



ft© 



EPSON PRICES 

We're not going to make you call for prices. 
Here they are in black and white!! 

MX 80 (W/GRAPHTRAX) PLUS $459.00 
MX80FT (W/GRAPHTRAX) PLUS $545.00 
MX82FT (W/GRAPHTRAX) PLUS $555.00 

MX100 (W/GRAPHTRAX) PLUS $709.00 
PRINTER CABLE $23.99 



Stop In Our Two 
Retail Locations: 

886 Ecorse Rd.. Ypsilanri, MI 48197 

(313) 426-5086/(313) 4824424 

or 

111 Marshall Street, 

Litchfield. Ml 49252 

(517) 542-3280 



We Carry A Full Line of OKIDA' ( A Printers 




D ISPLA YED 
~IDEO 




IMMEDIATE DELIVERY 

180 Days Parts and Labor Warranty 

DEALER INQUIRIES INVITED 

Free Shipping in the U.S. 
48 Contiguous States 



c 



Radio Shack Authorized Dealership at: 

111 Marshall Street. Litchfield. Michigan 49252 *P1 42 

To Order: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO. 
886 Ecorse Road. Ypsilanti. Michigan 48197 

'TRS-80 is a trademark of the Tandy Corporation ,„ Prices subject to change without notice 
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SERIES 



APL Primer— Part I 



by Margaret M. Grothman 



w 



hat's the difference between monadic and dy- 
adic functions? Stay tuned for a description 
of system commands and variable names. 



API. is such a concise and efficient 
computer language that Basic seems 
clumsy by comparison. It has built-in 
functions that let you do with a few 
keystrokes what would take many pro- 
gram lines in another language. Be- 
cause of its large library of built-in 
functions, APL lends itself well to 
mathematical and statistical applica- 
tions. Functions not built in can be de- 
fined by you and called by name. This, 
plus its ability to operate on arrays, 
gives APL its strength. 

APL80, written by Phelps Gates and 
published by Ramware (Milford, NH 
03055), is a large subset of the standard 
APL language, and is available in ei- 
ther 16K cassette or 32K disk versions 
for the Model I. All the examples here 
work with the 16K version. 

Because the large number of func- 
tions exceeds the number of symbols 
on a normal keyboard, standard APL 
requires a keyboard with special sym- 
bols, such as Greek letters. Since the 
TRS-80 has no such keyboard, shifted 
letters represent many special APL 
symbols. 

APL as a Calculator 

APL has no print or write statement. 
To print to the screen, type your mes- 
sage in single quotes. 

Enter: 'THIS IS A MESSAGE.' 
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Rcsull: THIS IS A MESSAGE. 

Another example is: 

Enter: '10. II f 3' 
Result: 10+11+3 

If you omit the single quotes, APL 
behaves like a calculator. You are us- 
ing the execution mode, which is like 
the command mode in Basic. 

APL does not use the dash sign for 
subtraction. The dash functions as a 
prefix to indicate a negative number. 
The sign for subtraction is also a dash, 
but it is in a lower position and is pro- 
duced by pressing the clear key. 



Enter: 30_ 
Result: 18 



i: 



Enter 30-12 

Result: SYNTAX ERROR: 30 



i: 



The second example will not execute 
because APL cannot find an operator. 
The negation sign indicates only that 
12 is negative. 

In APL80, you set the symbol for 
multiplication by pressing the shift key 
followed by X. It appears on the screen 
as a small graphics block followed by 
the letter X. The asterisk, which is the 
multiplication operator in Basic, is the 
power function in APL80. 



Enter: I0 § \ 3. 
Result: 30 

Enter: 10*3 

Result: 1000 (10 cubed) 



Division requires the percent sign. 
The slash, used for division in Basic, is 
used in APL for other functions. 

Enter: 15%3 
Result: 5 

APL is accurate to six significant 
digits. 

Enter: 3.333333 X 10 
Result: 33.3333 

Enter: 6.666666 X 10 
Result: 66.6667 

Only six digits are displayed in the 
answer, regardless of how many you 
enter. Also, in the second example the 
sixth digit is rounded up. 

Combined Expressions 

APL has no hierarchy of operations. 
Expressions are executed in order from 
right to left. This is one of the hardest 
features of APL to adjust to because it 
differs from other programming lan- 
guages, and from mathematical con- 
vention. One reason for the right-to- 
left rule is that it is easy to remember. 
APL has so many functions that re- 
membering a hierarchy would be dif- 
ficult. 



Enter: 3,X2+12 
Result: 42 



The result is not the same as the 



NOW f 



JFD-III Floppy Disc Controller Kit ^$279°° 



Thousands of our controllers have been installed and the user satisfaction has been 
tremendous. Those who have compared the rest say that ours is the best. 

Kit includes controller board, mounting brackets, cables, power supply for 2 internal drives, and illustrated instruc- 
tions. This controller has been tested for compatibility with most major operating systems including TRSDOS. LDOS. 
NEWDOS/80. DOSPLUS, and MULTIDOS. The controller supports any mix of 5V4" drives including single or 
double density, single or double sided, 35, 44, 77 or 80 track drives. 



JHD-III Winchesters for TRS 80 Model III 

5 Mbyte formatted — $1,795 10 Mbyte formatted — $1,995 



These drives plug into the 50 pin I/O expansion port. System includes host adaptor, cables, fan cooled cabinet. 
Controller features 1 1 bit error detection and correction, automatic track remapping and variable sector interleaving. 
An LDOS compatible driver is included with the kit for those who already own LDOS . 

TERMS: Cashier's Check or COD. Personal Checks take 3-4 weeks to clear. 



To order call (505) 265-5072 
or send order to: 




JAM Systems, Ltd. 



137 Utah N.E., 
Albuquerque, NM 87108 



TRADEMARK CREDITS 

TRSDOS is I Trademark of Tandy CocporalH 

LDOS is a Trademark of Logical Systems. In 



NEWDOS is a Trademark of Apparai. Inc 

DOSPLL'S is a Trademark of Micro-Systems Software. Inc 

MULTIDOS is a Trademark of Cosmopolitan Electronics CorporaiH 



Dealer inquiries invited. ^101 
Call for the name of dealer nearest you . 



TRS-80 

100% Radio Shack Equipment 

SAVE A BUNDLE 

Order Toll Free 1-800474-1551 

FLA Residents 904-438-6507 collect 

EPSON OKIDATA CITOHetc. 



TJim SALES CO. 



704 W Michigan Ave; P.O. Box 8098 
Pensacola, FLA 32506 



"TRS-80 15 a trademark ol Tandy Corporation 



y*See List ol Advertisers on Page 451 
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1983 

SOFTWARE 
FOR 
MODEL I HI 



>_ San 



J* * •", j - 



CONSUMER SOFTWARE 



WHOLESALE PRICES 



OVER two years of research 
and development have gone into 
these sophisticated software 
selections." 



MICRO SCRIPT' v . the professional word fm—m at »n 
altordeble price' for novice and speed typists alike Bells 
A * rustles 1 You bei' » serious masterpiece which fills the 
void in any program library ... . *24 95 

MANAGEMENT SYSTEM I™, 'he lull blown Mm & label. 
pioqiam with lightning Soil is halt! hies can be 
created added, updated, listed, deleted or saved to tape 01 
winter Includes Merge search total and label printing 

ham 

GENE RATIONS M the Genealegy Program Tiace your 
roots m the toe mat recogni/ed by genealogists worldwide 
Create your family tree and compile information lor all 
descendants on file *19 95 



C«c\e*ea 



derSe^eNBR. 



MICRO SHORT' W Enioy the convenience ol programming 
shorthand ?7 statements and 9 commands at the stroke 
ol a single key A must lor any programmer $14 9S 

MICRO MATH™ an educator endorsed program now 
available to Ihe general public Foul basic math functions. 
hone skills of all ages. Uniguc graphics full dimensional 
sound Report card & wrong answer retrieval Printer 
routines included $16 9b 

SUPER 10C :V . the ultimate logkeeping system for 
amateur ladio operators Features column headings lound 
in conventional radio logs, nothing is left out 1 FREE 
callsiqn duplicating program included 119 95 

AMATEUR RADIO THEORY REVIEWS"- 1 Upgrade sue 
cessfully 1 Pass the FCC Esam. Over Bb'i of our customers 
have passed! Eipenence an approach to learning even 
teitboobs cannot provide Specify license Class t24 96 

-MANY MORE- 



MICRO-80 INC. 

E. 2665 Busby Road 
Oak Harbor, WA 98277 
1 206 675 6143 - 132 
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Basic or Pascal result, and does not 
follow accepted mathematical prac- 
tice, in which multiplication is per- 
formed before the addition. Here, 2 
is added to 12 first, and the result is 
multiplied by 3. 

You can alter the order of execution 
by using parentheses. Expressions 
within parentheses are executed from 
right to left. The parentheses in the 
next example force execution of 3 
times 2 before adding 12. 



Enter: ( 3gX2) • 
Result: 18 



12 



If you evaluate 8 + 20x2+12, 
mathematical convention requires that 
multiplication be performed before ad- 
dition, making the correct answer 60. 
Presenting this task to a Basic inter- 
preter or a Pascal compiler produces 
the same result. But if you enter APL 
line 8 + 20 X 2 + 12, the answer is 288. 
The right-to-left rule causes execution 
in this order: 

2+12=14 
20x14 = 280 
8 + 280 = 288 

The result of each operation be- 
comes data for the next operation. If 
you want the expression evaluated con- 
ventionally, use parentheses to execute 
20 x 2 before the two addition opera- 
tions. The equation 8 + (20 i X 2)+ 12 
produces the mathematically correct 
answer. 

Here are two more examples: 

Expression: 7x5 
5x10 



Enter: 7 fJ X5<Vo5 fJ X10 
Result: .7 



Expression: 4(3) . 

3/15 + 7 

Enter: 4 X3 °7o (3 *lo 15) + 7 
Result: 1.66667 

The first example requires no paren- 
theses because the normal right-to-left 
execution causes no errors. The second 
example, however, requires parenthe- 
ses around 3% 15 to prevent the 7 from 
being added to 1 5 before division takes 
place. When in doubt, use parentheses; 
extra ones do no harm. 

Monadic Functions 

The terms monadic, dyadic, and 
niladic describe the number of 
operands or arguments a function re- 
quires. All the functions introduced so 
far are dyadic: they require one 
operand before the function symbol 



and one after. A monadic function has 
only one argument, following the sym- 
bol. Niladic functions have no 
operands. None of APL80's built-in 
functions are niladic. 

The absolute-value function is an ex- 
ample of a monadic function. Its sym- 
bol is produced by typing shift, J. (In 
APL80, all symbols preceded by a shift 
are displayed on the screen with a small 
graphics block.) 



- 100 (use the negation sign, not the 



Enter- J 
minus). 
Result: 100 



A monadic function generally shares 
its symbol with a dyadic function. For 
example, the dyadic use of shift, J is 
the residue function, which returns the 
remainder when division is executed. 

Enter: 3_ J 16 

Result: 1 (3 goes into 16 with a remainder, or 

residue, of 1). 

The residue function can be used to 
extract the fractional part of a positive 
number. (In APL80, the residue func- 
tion doesn't work with negative 
arguments.) 

Enter: l,J 8.75 
Result: .75 

Each dyadic arithmetic function has 
a corresponding monadic function that 
uses the same symbol. The division 
symbol °/o used as a monadic operator 
produces the reciprocal of a number. 
(The reciprocal is one divided by the 
number.) 

r 

Enter: 07 o5 
Result: .2 

The dyadic multiplication function 
shares its symbol, shift X, with the 
monadic sign function. This function 
returns a 1 if the operand is positive, 
- 1 if negative, and if it is zero. 



Enter: X5 
Result: 1 



Enter:- X -5 

Result: - 1 

The minus sign (clear key) may be 
used as a monadic function to change 
the sign of a number. 

Enter: _2 
Result: -2 

Another symbol that does double 
duty as a monadic and a dyadic func- 
tion is the exclamation point. 
Monadic! is the factorial function. Re- 
member to put the symbol before the 

Circle 38 on Reader Service card — 




Save more money (and data) with our hard disk drive 

Introducing the new, low-priced Winchester hard disk drive 
from A.M. Electronics. Designed to put the power of hard 
disk data storage within reach of more system owners than 
ever before. 

More megabytes per buck 

Our drive features an unformatted data capacity of 6.7 
megabytes, with an average access time of 75 milliseconds 
Up to four drives can be daisy-chain connected for even 
greater capacity. 

Ready to run with TRS-80 

Each drive comes complete with controller board, ST-506 
interface, and a DOS Plus 4.0i for complete plug compati- 
bility with your TRS-80 system. 

Quality you can count on 

Manufactured from the finest components, the A.M. 
Electronics hard disk drive has an expected life rating of 
five years when used 50% of the time. 

Power consumption is unusually low: typically one amp 
less than other Winchester systems. 

™TRS-80 is a trademark of Tandy Corp. 



The disk and read/write heads are fully enclosed in a 
module using an integral air recirculation system with an 
absolute filter. You can depend on stable operation and high 
reliability in any office environment. 

Think of the possibilities 

Word processing, large mailing lists, database management, 
financial planning and forecasting . . . demanding applica- 
tions like these and many more are now possible — and 
affordable — with the new A.M. Electronics hard disk drive. 

For more information, or to find the location of your 
nearest dealer, please contact: A.M. Electronics, Inc., 3446 
Washtenaw Ave., Ann Arbor. Ml 48104. 313/973-2075. 
Telex: 220821 HPC. In Europe, contact AM. Electronics, 
Ltd., 10 Barley Mow, Barley Mow Passage, Chiswick, 
London W4 4PH, England, Tel. (01)994-6477, Telex: 
8811418. 



FOIA.M. ELECTRONICS 

Y,,m ii I THE POWER BEHIND THF DRIVES'" 



See m Al 

1IMH 

Mo* I»-0*C 1, tMl 



argument, not after, as you would in 
conventional mathematical notation. 

Enter: !4 

Result: 24 (4 times 3 times 2 times I ) 

The dyadic function that uses ! is 
called the combinatorial function. It is 
used to find the number of combina- 
tions of a certain size within a larger 
number. For example, 3!4 returns 4, 
the number of combinations of 3 that 
can be formed out of four objects. 

The @ sign is also used for a 
monadic-dyadic function pair. The 
dyadic form is used to find logarithms 
to any base. The first argument is the 
base and the second is the number. To 
ask for log 16 to the base 4, 

Enter: 4@16 

Result: 2 (exponent to which 4 must be raised to 

obtain 16). 

When (a is used as a monadic func- 
tion, the natural log is returned. For 
example, to find the natural log of .7, 

Enter: @.7 
Result: -.356675 

Variable Assignments 

You may use long variable names in 



APL. APL.80 will accept names as long 
as 60 characters. Since using the vari- 
able requires typing the entire name, 
short names are desirable. 

Variable names can consist of any 
combination of letters and numbers, 
but must start with a letter. Names can 
contain dashes but not spaces. Assign a 
variable by typing shift followed by the 
left arrow. 

Enter: NUMBER- 15 

The value assigned to a variable is 
displayed when you enter the name. If 
you type an unassigned name, an error 
message results. 

Enter: NUMBER 
Result: 15 

Enter: NAME 

Result: VALUE ERROR: NAME 

Variables are used in expressions in 
the same way as constants. New vari- 
ables may be defined in terms of al- 
ready defined variables. 



Once a variable is assigned, it keeps 
its value until assigned another. 



Enter: VALUE- 
Enter: VALUE 

Result: 45 



M MBER.X 3 



Enter: NUMBER- 
Enter: NUMBER 
Result: 16 



-NUMBER + 1 



The monadic version of the plus sign 
is used to transfer the value assigned to 
one variable to another. It is called the 
identity function. After the transfer 
the same value will be assigned to both 
variables. 

Enter: V-(15*2)+ 3 X 45 
Enter: W— + V 
Enter: W 
Result: 360 

Text material may also be assigned 
to variables. These are called literals. 
To assign a literal, type the name in sin- 
gle quotes. 



Enter: NAME1* 
Enter: NAME2* 



-FOZZY' 
-'BEAR' 



Arithmetic operations may not be 
performed on literal variables. 



Enter: NAME3-NAME1 + NAME2 

Result: DOMAIN ERROR: NAME3-NAME! 

+ NAME2 




PRACTICAL PERIPHERALS 

Bl FFERKD PARALLEL INTERFACE 

FOR EPSON PRINTERS 



$159.95 

Plus Shipping 
And Applicable Tax 



The MBP-16K is an intelligent Centronics-compatible parallel interface 
for the Epson MX-80. MX-80 F/T. and MX-100 printers, with 16,384 bytes of 
onboard RAM for data buffering. 

The buffering capability of the MBP-16K increases your data processing 
efficiency by eliminating the wait normally experienced while printing. An 
Epson printer prints at 80 characters per second; at this speed it takes 
about five minutes to print a 16,000 character document. During most of 
this time the computer is waiting for the Epson to finish one line so it can 
send the next. The computer can't do anything else during this period 
because its's tied to the printer By using the MBP-16K it takes the 
computer only lour seconds to send a 16,000 character document. The net 
result is to eliminate the computer-waiting-for pnnter/pnnterwaiting-for- 
computer bottleneck, and keep both working. Any program that involves 
printed output will be speeded up by using the MBP-16K 

The MBP-16K supports all standard Epson Commands, is compatible 
with GRAFTRAX-80. and is plug compatible with the standard Epson cable. 
The MPB-16K does not require any user software for control. 

The MBP-16K is easy to install — it simply plugs into the existing 
auxiliary interface connector inside the Epson without modification of the 
printer. 



"VIZ. A. CON." 
A CONSOLIDATION SYSTEM FOR VISICALC USERS 

NEW PROIHCT ADDS J-DIMENSIONAI. CAPABIIITi FOR VISICALC MODELS. 

In the past, lo do a consolidation with VISICALC. a use had to replicate the model in 
memory and laboriously build the formulas to sum the cells The tirst thing one 
discovers using this approach is that you quickly run out of memory The second is that 
recalculation time gets much longer The third is that you spend a lot of time operating 
and controlling the consolidation process 

Now with the help of VIZ A CON you can add a third dimension to your VISICALC 
models You can combine multiple pages ot VISICALC data from a model for 
hierarchical consolidations teg Department. Division. Company, etc.) or (or 
summations over periods of time (eg Month. Quarter. Year-To-Date. etc.) 

VIZ. A CON creates data files usable with VISICALC You can use VISICALC tor 
what if games at any level of your consolidation Then use VIZ A CON to find out 
what happened at other levels 

VIZ. A CON gives you the ability to set up special formulas (eg rations, 
percentages) that can be recalculated after a consolidation process You can customize 
tit es. 'ow and column headings footnotes, etc for each report created by VIZ A CON 
Reports can be automatically saved in standa'd ASCII form that can be used with a 
word processor VISICALC precision is maintained for ail data 

TRS-80 Modal l/lll Disk J89 95 

TRS-80 Model II 64K $119.95 

IBM PC 64K and above $1 19.95 



ASSET MANAGER 

ASSET SYSTEM is a completely computerized asset depreciation system 
particularly designed for the *8K TRS 80 Model II. DOSPLUS 3 4. and dot matrix printer 
The system 

i) assigns contrci numbers lo each asset 

2) accumulates assets according to General Ledger codes 

3) computes depreciation expense on each asset 

The ASSET SYSTEM is comprised of six primary programs 

1) Asset Sys'em Menu 4) Asset sort 

2) Properly 5) Search 

3) Reports 6) Delete 

The SYSTEM is configured to handle 500 asset numbers Counters are displayed on 
the screen as the data is being entered This enables you to monitor your progress as 
data is entered 

TRS30 MOD III Disk only S79.9S 

Also available 

Ganaral Ladgar Program Disk Modal III $1 25.00 



MICRO SOLUTIONS, INC. Software Center 



Master Charge & Visa 
9949 Harwin, Houston, Texas 77036 



(713) 789-5443 or 1-800-231-6667 
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new . 
ford Processing 

Catalog 




of Letterheads, Forms i 
and Supplies ... I 



Featuring Micro-Pert" . . . continuous Letterheads with 
a clean, trim edge when detached. 

Full color catalog also offers checks, statements and 
invoices designed to work with programs from over 200 
software sources. Plus stock tab paper, labels, diskettes, 
printwheels, work station furniture and accessories. 

■ Quality products at low prices. 

■ No "handling charges" or hidden extras. 

■ Small quantities — as low as 500 checks, 
statements, invoices. 

■ Money Back Guarantee 

■ One source for your word processing needs. 

Fast service . . . buy direct by mail or 
PHONE TOLL FREE 1 + 800-225-9550 

(Mass residents 1 + 800-922-8560) 8:00 A.M. to 5:00 P.M., ET 













NAME 








PHONE 


COMPANY 


STREET 


CITY. STATE and ZIP 




To help 


us 


send 


you correct information: 


SOFTWARE BRANO 




PACKAGE » 

| — 1 Do o*n 

I I programming 



COMPUTER MAKE 



[_: 



Not 

Purchased 



LINE OF BUSINESS 



Numoerol 
Employees 



Nebs 
Computer Forms 

r™JJ* 12 South Street. Townsend, h 



CODE 15150 



-533 



, Massachusetts 01469 



A division ol New England Busircss Service. Inc 



Do your own taxes like an expert 
with TAX/SAVER 



TAX/SAVERI" The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type in your figures and you've done your own tax return. 

• Output to video or lineprinter. (Overlays available.) 

• Tax deductible. 

• Manual: Tax information, lists of deductions, tax glossary. 

• TAX/SAVER'" I: completes long and short forms, itemized 
deductions, interest, dividends, income averaging. 

• TAX/SAVER™ II: all features of TAX/SAVER'" I plus 
business income and capital gains. 

• 40% Discount on yearly updates. 



Reviews and Users' Comments: 

About TAX SAVER" 

"This is a very valuable tool'" R Perry, Personal Computing Magazine. 

"Tax Preparation Software". December 1981 
"This is the perfect program for those doing taxes for others ( . good for an 
individual, too!!) - BM . Missoula, MT (Professional Preparer) 

About TAX FORECASTER": 

"VERY HANDY!" T. Pettibone, "Sottware Critic". 1982 ..342 

®Copynght 1982 'Registered trademark ol Tandy Corp 



TAX/FORECASTER", a quxk lax planner tor 1982 1983, lets 
you see how financial decisions will alteci your laxes. Merely change 
one or more entries lo see your tax refigured 

NEW' profess,onal TAX/FORECASTER" 

» ^1*-" adds disk storage of clieni files and income averaging 

Orders will he filled in late January to allow inclusion of new lax laws 
TO ORDER: 



Call colled 203-324-3009 oi 203-544-8777 or mail this 
coupon lo Micromatic Programming Co. 

P.O. Box 158, Georgetown, CT 06829 

Please enroll me in member's service and send 

D TAX SAVER" 1 i" $89.95 Manual Included 
D TAX SAVER" II (?■ $139 95 Manual Included 

□ TAX FORECASTER" ;° $59.95 

□ PROFESSIONAL TAX FORECASTER" 

Q 599.95 (requires 48K) 
($15 off any TAX FORECASTER" with any TAX SAVER") 
D Tax Form Overlays (set o( 6) (a $39 95 
D Please send me more information 

Please check one: 

TRS 80* Model I D 32K. 2 drives D 48K. 2 drives 
TRS 80* Model III D 32K. 2 drives □ 48K. 2 drives 

Add $3 5(J lor postage- and handling. CT residents add 7 .."•■ sales tax 

Name _ 











City 




3 Visa 


Zip 


. 1 Check 
Card No . 


□ Master Charge 


F*p H.(ti> 



• See List ol Advertisers on Page 451 
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There is a way, however, to combine 
literals. 

Enter: NAME3— NAME], NAM E2 
Enter: NAME3 
Result: FOZZYBEAR 

Or better yet, 

Enter: NAME3"-NAME1.",NAME2 
Enter: NAME3 
Result: FOZZY BEAR 

The comma is used to chain vari- 
ables together. This is the catenation 
function. It may be used for combining 
any variables, not just literals. 

In the following example, variables 
are used to convert 10 degrees Celsius 
to Fahrenheit degrees. The first line as- 
signs the value 10 to the variable name 
CELSIUS. The second line applies the 
conversion formula, F - 32 + 9/5 x C, 
and assigns the result to the variable 
FAHRENHEIT. The last line retrieves 
the value of FAHRENHEIT com- 
puted in the second line. 

Enter: CELSIUS"^ 10 

Enter: FAHRENHEIT-32 + (9V 5) X CELSIUS 

Enter: FAHRENHEIT 

Result: 50 

This operation could be done in two 
lines by using the quad symbol in the 
second line. The quad symbol is usual- 
ly represented by a little box called a 
window. In APL80, it is obtained by 
typing shift, Q. Replace the second and 
third lines in the above example with 
,Q*-32 + (9%5) I X CELSIUS. 

Quad used in this way causes the 
value assigned to the variable to be 
displayed right away, making it un- 
necessary to enter the variable name 
separately. You will be seeing the 
quad function later in another use. 

Although this example illustrates the 
assignment and use of variables, it is an 
awkward way of doing the job. To ap- 
ply the formula to a different value of 
CELSIUS would require retyping the 
lines. There is a better way. 

An APL80 Program 

A more efficient way of converting 
Celsius temperatures to Fahrenheit is 
to define a function that can be called 
by name. Until now, we have done 
everything in execution mode. To cre- 
ate your own functions in APL, you 
must be in the definition mode. The 
system command )DEF takes you to 
that mode. 

To avoid typing long names when 
the function is used, I've shortened 
FAHRENHEIT and CELSIUS to 



FAHREN and CEL. You do not have 
to type the line numbers; they are done 
automatically in the definition mode. 
This function consists of only two 
lines: the title line and line 1 . When line 
number 2 is presented, press break to 
exit from the definition mode. 

)DEF FAHREN 

1: 32-(9»o5) XCEL 

2: break 

To call the FAHREN function, as- 
sign a value to CEL, then type and en- 
ter the function name. 

Enter: CEL-5 
Enter: FAHREN 
Result: 41 

This is a niladic function, one with 
no arguments. Later you will write this 
function as a monadic function, in 
which the value of CEL need not be en- 
tered separately first. 

Try using FAHREN once more. 
This time assign seven values to CEL, 
each separated by a space. 

Enter: CEL*- 15 10 - 5 5 10 15 

Enter: FAHREN 

Result: 5 14 23 32 41 50 59 

You have assigned a series of val- 
ues to CEL. The variable CEL is now 
a vector, similar to a one-dimensional 
array in Basic. No dimension state- 
ment is required; dimensioning is 
done automatically in APL. You 
need only write an assignment line 
with the desired values following the 
left arrow, separated by spaces. 
When FAHREN is called, the defined 
operations are performed on each 
member of the vector. 

You have written an APL program. 
APL programming is just writing user- 
defined functions. 

Another APL80 Program 

A defined function need not be re- 
stricted to one formula as in 
FAHREN. The function CONE de- 
fined below computes the base area 
and the volume of a cone when its 
height and the radius of its base are as- 
signed to HT and RAD. Again, short 
variable names are used to avoid the te- 
dium of typing long names. To use 
CONE, assign values to RAD and HT, 
then type CONE. 



)DEF CONE 

1: 'THE AREA OF THE BASE IS' 

2:3.1416_XRAD*2 

3: 'THE VOLUME OF THE CONE IS' 

4: (3.1416 r o 3) § X (RAD*2) | X HT 

5: break 



Enter: RAD-1 2 3 

Enter: HT-1 2 3 

Enter: CONE 

Result: THE AREA OF THE BASE IS 3.1416 

12.5664 28.2744 

THE VOLUME OF THE CONE IS 1.0472 

8.3776 28.2744 

Like FAHREN, CONE requires 
that its variables be defined in advance. 
Also like FAHREN, CONE can be re- 
written to avoid the separate assign- 
ment statements. Since CONE has two 
arguments, it will be rewritten in Part 
II of this series as a dyadic function. 

It is possible to assign a single value 
to one variable and a vector to the 
other. In this way you can determine 
the effect of holding one variable con- 
stant while varying another. 

Enter: RAD-2 

Enter: HT-4 5 6 

Enter: CONL 

Result: THE AREA OF THE BASE IS 12.5664 

THE VOLUME OF THE CONE IS 16.7552 

20.944 25.1328 



Other System Commands 

The definitions of several APL80 
commands mention the word "work- 
space." In APL, workspace refers to 
the area of memory in which assigned 
variables and defined functions are 
stored. Work in progress can be stored 
and retrieved by saving and loading the 
workspace. 

All system commands are preceded 
by a right parenthesis. 

• )CLEAR erases all the assigned vari- 
ables and defined functions from 
memory. In APL jargon, you have 
cleared the workspace. 

• )FNS lists the names of all the func- 
tions defined in the workspace. 

• )VARS lists all variable names that 
have been assigned. 

• )SAVE saves the workspace to tape. 

• )LOAD loads a saved workspace 
from tape. 

• )CHECK is used to verify a saved 
workspace. 

• )ERASE removes a function or vari- 
able from the workspace. The function 
or variable name follows the word 
ERASE. 

• )EDIT allows you to make changes 
or insertions in a named function. 
The edit function will be described 
next month. 

• )OFF clears APL80 from memory 
and returns you to Level II Basic. ■ 

Margaret Grothman can be 
reached at 51 17 Denton Place, Madi- 
son, WI 53711. 
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FREE 

business software 
directory 

• Radio Shack's Model I, II. III. 

• Heath's MBASICand HDOS 

• CPM: Xerox. Alto... 

• IBM Personal Computer 



IDM2 is GREAT !" 



-publisher of 80- US 



"(Gl.) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack... MAIL- X has a greater capacity ... 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

" imperceptively fast. . .(DBMS) is a good and reliable 
workhorse" -publisher ot Interface Age 



Data base manager, integrated accounting package 
(AR. AP. GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



H^ 



Micro Architect, Inc. 

96 Dothan St.. Arlington, MA 02174 




FINALLY 
NEW! 

FROM 
COMPUTEX 



An audio cassette based Assembly Language and 
Basic Language course designed to help you learn 
how the software "pros" write programs to sell. 
Actual classes were recorded along with student 
comments and questions (the next best thing to 
being there). 

Z80 Assembly Language Course $150.00 

(includes manuals and class handouts) 

Basic Language Course $130.00 

(includes manuals and class handouts) 

CERTIFICATES OF COMPLETION A VAILABLE 
Call or write for our tree brochure 



TRAINING DIVISION 




'UM/ 



17321 El Camino Real 
Houston, Texas 77058 



(713)488-8022 



the micro computer pros 








DEMON 







7REN& 

P.O. Box 741, Bloomfield Hills. Ml 



By Jeffrey Sorensen and Philip MacKenzie 

The end is near; the demonic forces have invaded our galaxy. 
It is up to you to defend the galaxy from destruction. At 
your command is a powerful star cruiser equipped with high- 
energy missiles and defensive shields. Only with practice and 
patience will you be able to defeat the many waves of demon 
attacks and reach the three special challenge levels that will 
test your mental and physical dexterity. (Disk version saves 
high scores.) 




Software Company 

48013 (313) 540-8143 



16K Model l/lll Tape SI 9.95 
32K Model l/lll Disk S24.95 
Add S1.75 for shipping and handling 
Michigan Residents add sales tax 
Dealer Discounts Available 



-See List ot Advertisers on Page 451 
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TECHNIQUE 



L4=^ 



.. ~> 



LOAD 80 



The Key Box 

Basic Level II 
Model I or III 
16KRAM 



Speed up your Basic displays. 



POKE Graphics 



3lf CLS:PRINTCHRS(23) :PRINT»20,*POF.E GRAPHICS'; :FORAT«1TO1000:NE 

XT:CLS:GOTO350 

311 AN*PEEK(293) : IPAH-73THENAS-173B5:AH$-*Hodel III*ELSEAS-17129 

:AN$-*Model I* 

311 • 

James Schaefcr 
33 Jackson Road 
Berlin, New Jersey 18009 
609 767-2751 

312 PRIMTCHR$(23) iPRIIIT00, , I see you ace using a '+AMS; iFORAT-lT 

O1000:NEXT!CLS 

314 IHFOT'Nhat line No. is the string you want to change in'jAL 

316 Al -PEEK (AS) :A2-PEEK(AS+1) ! A3-PEEK(AS+2) ! A4-PEEK(AS+3) 

310 A9-A3+A4*256 

320 IPA9-ALTHENCLS:PRINT*I have found line No. ";AL:GOT0324ELSEC 

LSiPRINT'l am looking at line No. "|A9 

322 IFA9<ALTHENAS-Al+A2*256:GOT0316ELSEIFA9>ALTHENPRINT*I can no 

t find that line. Please Check your input. *:PORZZ-1TO1000:NEXT:C 

LSiGOTO310 

324 A0-AS:PRINT'It starts in memory location No. *>A0:PRINT* 

320 PRINTPEEK(Afl) j : A0-A0+1 :AJ"AJ*1 t IFAJ<4THENGOT0328ELSEIPPEEK(A 

0) O0TBEHGOTO32B 

330 PRINT i PRINT' 

*:PRINT*This is the computer code for the line.* 

iPRINT'The first two numbers (nl+n2*256) - start address of next 

line." 
332 PRINT'The next two numbers (n3+n4"256) - present line nuaber 
.*:PRINT*The remaining numbers are the ASCII & Internal Codes fo 
r the" j PRINT "prog ram line.*: INPUT'Fress 'ENTER' to continue.* ill 
sCLS 

334 PRINT'Press the up arrow to go to next higher memory locatio 
n.*: PRINT* Press the down arrow to go to next lower memory locati 
on.* i PRINT'Press ' C to change the present memory location. "i PRI 
NT'If 'C is pressed you type in the new Code No. fc press 'ENTER 

336 PRINT'As you change each memory location you will be shown w 
hat'jPRINT'ia in the next location. Be careful not to change so 
mething" :PRINT*outside of the string parenthesis. Press 'BREAK' 
to escape.' 

337 A0-A0-AJ 

338 PRINT'Memory location', A0; " - '; PEEK ( A0) , 'ASCII ■ "i 

340 IPPEEK(M) >-32ANDPEEK(A0) <'191THENPRINTCHR$(PEEK(A0) ) ELSEPRI 

NT'Computer code* 

342 COSUB390:COTO338 

350 PRINT'Por introduction press 'I' any other key to start. 'iGO 

SUB390 : IFAKEYS<>*I*THENGOTO310BLSECLS 

352 PRINT'Uslng poke graphics can add fast graphics to a BASIC p 

rogram. 

First you make up dummy strings. Example >> GRS-";CHRS(34) ; '0123 

456789*;CHRS(34);* 

Next you poke a graphics character code into each memory* 

354 PRINT'location. Then when the string is printed in the progr 

then graphics will appear on the screen. In this example if 

we poke graphics character '191' into each location between 

the parenthesis when GR$ is printed we will sie '; 

356 PRINTSTRINGS(10,191);* 

printed. >>Press any key for program*; :GOSUB390:CLS:GOTO310 

365 GOT0365 

390 AXEY$-INXEY$:IPAKEY$-**THEN390 

392 IPASC(AKEY$)-91THENA0-A0+1 

394 1PASC(AKEYS)-10THENA0«A0-1 

3 96 I FASC ( AKEY $ ) -67 ORASC ( AKEY $ ) - 9 9THEN 3 9 8ELS ERETURN 

396 INPUT'New code '; AN :POKEA0, AN: RETURN 

Program Listing 



James S. Schaefer 
33 Jackson Road 
Berlin, NJ 08009 



POKE Graphics add high 
speed displays to a Basic 
program. 

The first two memory loca- 
tions of each line store the start- 
ing address of the next line. To 
find the start address of the next 
line use the formula n1 + n2*256. 
The next two memory locations 
store the present line number. 
To find the present line number 
use the formula n3 + n4*256. 
Control, text characters and 
space compression codes com- 
bine to store the rest of the lines. 
A zero ends each line and tells 
the computer to go to the next 
line or end the program. 

To create POKE graphic 
string(s) first make up dummy 
string(s) to change into graphic 
strings(s). Begin the program 
with these strings because the 
computer must "see" the graph- 
ic string(s) before they are 



printed. 

The POKE Graphics program 
starts at line 300, leaving enough 
room for any graphic display you 
put in your program. For exam- 
ple, start a 15 character dummy 
string in line 10 by writing 10 
G1$ = "123456789012345" To 
change this into a graphic string 
find the memory locations and 
POKE the new graphic codes 
into the locations now storing 
123456789012345. 

You can use the POKE Graph- 
ics program when you have 
keyed in line 10 as above. 

Line 310 PEEKs location 293 
to see if the program is in a 
Model I or Model III. A 73 stored 
in this location indicates Model 
III; any other indicates Model I. 
You are then informed of this in 
line 312. Line 310 also sets AS 
(address start) equal to the 
memory address of the begin- 
ning of the Basic program by us- 
ing the pointer at addresses 
16548 and 16549. This makes the 
program compatible with both 
the Model I, the Model III and 
Disk Basic. Line 314 asks what 



Memory location 


•###• = 71 


ASCII = G 


Memory location 


##### = 49 


ASCII = 1 


Memory location 


•#•## = 36 


ASCII = $ 


Memory location 


##### - 213 


ASCII » Internal Code 


Memory location 


##### = 34 


ASCII = " 


Memory location 


##### = 49 

Table 1 


ASCII = 1 
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EPSON PRINTERS 



COOSOL COMPUTER PRODUCTS 

HAYES SMART 

MODEM & CHRONOGRAPH 








- 


I 


ft'Slif 




qS 


| 









• EPSON MX70 S288 • HAYES SMARTMODEM (300 BAUD) 

• EPSON MX80 F/T GRAFTRAX PLUS CALL • HAYES SMART MODEM (300 & 1200 BAUD) 

• EPSON MX1 00 GRAFTRAX PLUS CALL • RS-232C COMPATIBLE 

OTHER PRINTERS * ^ Boft HALF " 0UPLEX OPERATION 

• NEC PC-8023A-C . CALL • TOUCH TONE and PULSE DIALOG 

• NEC 3550 CALL • AUTO-ANSWER/DIAL'REPEAT 

• NEC 351 0.351 5. 3530 S1695 • COMPLETELY PROGRAMMABLE 

• NEC 7710. 7715, 7730 $2275 • BUILT-IN AUTO MONITOR 

• NEC 7720. 7725 $2645 • STATUS AT A GLANCE 

• CITOH 851 OAP CALL • 851 OACD CALL • DIRECT-CONNECT DESIGN 

• CITOH 1541 SP CALL • 1541SRE CALL • HAYES CHRONOGRAPH 

• CITOH F10-40PU $1395 • F10-40RU $1395 • NOVATION AUTO-CAT AUTO ANS 

• CITOH F10-55PU S1795 • F10-55RU $1795 • SIGNALMAN MARK 1 (300 BAUD) 

• 0KIDATA82A CALL • 83A CALL • U.D.S. 103 OALP (300 BAUD) 

• 0KIDATA84A . CALL • 82A TRACTOR $55 • U D S 103 JLP (300 BAUD) 

• TALLY MT 1602 MT 1605 $1495 • U D S 202 SLP (1200 BAUD) 

• TALLY MT 1802 MT 1805 $1795 „.,,.,..., 

• DIABLO 630 and 620 SERIES CALL TE """ , * l » 

• QUME SPRINT 5 45'RO.KSR & 55/RO.KSR CALL • TELEVIDE0 910 $595 • 912 

• ANADEXADX-9500-P.ADX-9501-P S1295 • TELEVIDEO 920 $750' • 950 

• C0MREXCR-1-S.CR-1-C.CR-1-Q. CALL • ADDS Viewpoint A1 A2 A3 

• SMITH-CORONA TP-1 CALL 

^105 

COOSOL. INC. P.O. BOX 743. ANAHEIM. CALIFORNIA 92805-0743 



SANYO COMPUTER 




$229 • SANYO MBC- 1000 S1599 

$595 • SANYO MBC-2000 $2699 

• SANYO MBC-3000 S4999 

• SANYO ACCESSORIES* SOFTWARE CALL 
OTHER COMPUTERS 

• ALTOS Computer Systems CALL 

• ADDS Computer Systems CALL 

• NEC PC-8001 A, PC-801 2A. PC-8031 A. and 
JB-1201 (NEC SYSTEM) $2149 

$209 • NEC Other CPU's and Software CALL 

$219 • DYNABYTE 5605-6-1 S5999 

S8g • DYNABYTE OTHER SYSTEMS CALL 

$,75 • XEROX 820 SYSTEM w/5 1/4- DRIVES $2499 

$1 99 • XEROX 820 SYSTEM w/8" DRIVES $2995 

c,?aq ^ORWAR^O^HEABOVE^^^^^^CALL 

I COOSOL SPECIAL DISCOUNTS 

APPLE SOFTWARE CALL 

BMSOFTWARE CALL 



PHONE 7 DAYS 
A WEEK 



Calif. (7141545-2216 
(800) 854 8498 



J 



TRS-80- "CAN YOU BUY DIRECT?" 




SAVE SALES TAX* 
PLUS DISCOUNT 

•TEXAS RESIDENTS ADD ONLY 4« 



"WE ARE CLOSER" 



FORT WORTH COMPUTERS 



IN TEXAS CALL 817-573-4111 

TOLL FREE ORDER NUMBER: 1 • 8 00- 4 33-S-A-V-E 

. -m TRADE MARK OF THE TANDY CORPORATION 377 PLAZA GRANBURY • FORT WORTH • TEXAS 76048 



■ See List ol Advertisers on Page 45 1 
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HOW YOUR TRS-80 8 CAN OUTSMART I BM-PC 9 | 
With X YZT software you rTRS-80 becomes a real pro! I 

INTERACTIVE CONTROL LANGUAGE (rel.2-A) . . S59.00/S 1 ma 

The most powerful control language ever designed lor the micro. Intended for 
control of computer operation, software enhancement and customization. Just 
check list of features: 

• Interactive program/ICLcoexecution* 

• Enhances DOS. assemblers, 
compilers, wordprocessors. 
database, etc • 

• Provides data for keyboard input 

• Access to display output* 

• &RETCODE indicates result of 
execution* 

• Conditional execution of DOS 
commands & /CMD files 



• Complete control over computer 
operation 

• Powerfull command language 
processor 

• Interaction with operator 

• Control interception* 

• Queue structure for data 
manipulation* 

• Variables and information passed 
between programs 

• Virtual I/O for keyboard and display operations* 

• Exclusive ICL feature 

LIBRARY SUPPORT OPTION . . .$79.00/510 ma 

Upgrade your DOS with libraries' Organize your files neatly - put all 
/BAS files into BAS/LIB. /CMDs to CMD/LIB. /RELs to REL/LIB, etc. 
Use regular DOS commands to list, copy. kill, print, load, save . files 
directly to/from libraries. Your processing will be faster, plus LSO 
saves space -minimal file size is 1 sector, not granule! In addition, the 
compress option saves another 30% of space. Using LSO we 
managed to place all files that previously occupied 2.5 diskettes 
onto one diskette and still 10% of space remained free! 
SPECIAL OFFER: ICL and LSO $99.00 

To order, specify Mod l/lll and DOS. 

Check. MO.COD plus S2.50 s/h 

Foreign orders • extra $ 1 00 

XYZT COMPUTER DIMENSIONS, INC. 

/ N 2 PENN PLAZA. SUITE 1 500 

/ ml--/ — 7» NYC. NY 10121 

^ f K / (212)244-3100 ^'56 

Dealers inquires welcomed * registered trademarks 
NEWDOS/80* □ DOSPLUS' U LDOS' C TRSDOS" □ NEWDOS*-* 3 
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line and AL (associate line) 
holds the line number. 

A1 holds the least significant 
byte and A2 holds the most sig- 
nificant byte for the memory lo- 
cation of the next line. (Remem- 
ber n1 + n2*256.) A3 holds the 
least significant byte and A4 
holds the most significant byte 
for the present line number. (Re- 
member n3 + n4*256.) 

Line 318 makes A9 equal to 
the present line number (A3 + 
A$*256). If A9 equals AL then 
you have the line number you 
need and AO = AS. AO is the 
memory location for the line you 
need. Line 328 prints the ASCII 
and control codes to check for 
the dummy string. AJ records 
the number of memory locations 
the line uses so that after the 
code is printed you can return to 
the beginning of the line in 
memory. If the line found does 
not equal the line you need A9 is 
set to equal the start of the next 
line in memory. This continues 
until the line is found or there 
are no lines left. 



You can now step through 
memory locations searching for 
the 123456789012345 you want 
to change. The up arrow steps 
up in memory; the down arrow 
steps down in memory. Press 
the up arrow until you see the 
contents of Table 1 . 

Now you can change the 1 
stored here into a graphics 
code. Press C and answer the 
question New code ? with a 
graphics control code between 
128 and 191. After you change 
this memory location you will 
see the new code. If you change 
the 1 into graphic code 191 the 
screen will show: 

Memory location ##### = 191 
ASCII = ■ 

If you wanted this, press the up 
arrow to move to the next higher 
memory location. If not, press C 
to change the code stored in the 
memory location. Remember 
that if you change one outside 
of the quotation marks you 
could destroy your program. Be 
careful! ■ 



MUM 



P.O. BOX 5636 • STATION "A" • CALGARY • ALBERTA • CANADA • T2H 1Y1 
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CANADIANS 

All our software now available 
at the lower American prices 



Some Examples 

■ Scarfman 23.95 

■ Defence Comm 19.95 

■ Robot Attack 19.95 

■ Space Castle 19.95 

■ Meteoroids 19.95 

■ NewDos80 2.0 149.95 

■ Mod III 16K 10% Off 

■ 5-1/4" Disks 34.95 

■ 3M8" Disks 49.95 

■ Green Screens 37.95 

■ Cables from 39.95 

■ Rams-16K 24.95 



Other Products At 
Similar Savings 

■ Cornsoft Group 

■ Big Five 

B Apple Games 

■ Atari Comp Games 

■ Adventure Inter. 

■ Instant Software 

■ Med Systems 

■ Spectral Assoc. 

■ Sub Logic 

■ Modem 80 

■ Printers 



MOST TRS-80 PROD 
AT 10% DISCOUNT 



Enclose cheque or 

Money order 

with all orders. 

Add 5% for Visa orders 

Sorry no C.O.D.s 
No phone orders. 

ADD1.50/ORDER 
FORSHIPR/HAND 
3/4 WEEKS DEL 
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THE 

SGIGCTRIC 

INTERFACE 




Sri*** 



Daisy wheel quality 
without daisy wheel expense* 

You need the quality print that a daisy wheel printer provides hut the thought 
of buying one makes your wallet wilt. Selectric™ Interface, a step-by-step guide to 
interfacing an IBM Selectric I/O Writer to your microcomputer, will give you 
that quality at a fraction of the price. George Young, co-author of Microcom- 
puting magazine's popular "Kilobaud Klassroom" series, offers a low-cost alter- 
native to buying a daisy wheel printer. 
Selectric Interface includes: 

♦ step-by-step instructions 

♦ tips on purchasing a used Selectric 

♦ information on various Selectric models, in- 
cluding the 2740, 2980, and Dura 1041 

♦ driver software for Z80, 8080, and 6502 chips 

♦ tips on interfacing techniques 

With Selectric Interface and some background in electronics, you can have a high- 
quality, low-cost, letter-quality printer. Ratals not included. 



ISBN 0-88006-05 1 -4 1 28 page 



$12.97 



Credit card orders call TOLL-FREE 

1-800-2 ^047^. Or mail your order with 
payment plus $1.50 shipping and han- 
dling to: Wayne Green Inc. Attn: Retail 
B<x>k Sales, Peterborough, NH 0M5S. 
Dealer inquiries united. 

A \\ avne Urecn Publication 



Yes, 1 warn Selectric Interface. Enclosed i- 512.17 (BK7188) per 

. .'pv pUi>. rl.Vtur -lnppiny ,mJ li.ii'iJIiiii;. 

MAsTIR I VISA L AMI.X 



c ard t 
Signature 
Name . 
Addrev. 
Cit> 



Expires 



State and Zip . 

A \\.i\ik' (ireen PuHicatmn 

All order- shipped I 'PS it complete -treet address is given. 



sn: 



UTILITY 



Easy Picture Editor 



by Ron Ginger 



The TRS-80 Color Computer pro- 
vides some great graphics commands 
that make graphics programs easy for 
the novice programmer — easy, but tedi- 
ous. All graphics require \ and y coordi- 
nates and some require several argu- 
ments. Keeping the arguments straight 
and getting the right coordinates takes 
careful work and much patience. Draw- 
ing the picture on graph paper helps 
keep things organized, but it's hard to 
see exactly what the screen will look like 
until you type in the entire program. 

I use a GIG I color graphics terminal 
connected to a VAX 11/780 at work 
and have access to some powerful 



Simple commands for 
art or game graphics: 
lines, boxes, and circles 
for the Color Computer. 

graphics editor software that lets me 
generate picture files by simple menu- 
driven keypad commands. I discovered 
that the same capability was possible for 
the Color Computer. 

The program lets you create a 
drawing with simple keyboard com- 
mands and then save a tape file, in Basic 
program format, that can be loaded and 



Program Listing 



REM *********************** 
REM * PICTURE EDITOR * 
REM * BY RON GINGER * 
REM * VER 1 JAN 9 1982 * 
REM *********************** 
10 CLEAR 1000:PMODE 3,1:PCLS:DIM LS(5B) 

15 D$=CHRS(94)+CHRS(9)+CHR$(10)+CHRS(8)+CHRS(95)+CHRS(93)+CHRS(9 

l)+CHR$(2l) 

20 CSS(0)="GRN YEL BLU RED" : CSS ( 1) ="BUF CYN MAG ORA" 

25 CLS:BL$=STRINGS{32," ") : FC=4 :CM=1 :CS=0 :BC=1 

30 C$(l)=" GREEN ":CS(2)=" YELLOW ":C$(3)=- BLUE ":CS(4)=" RE 

D 

^ £$i:j)=" BUFF ":CS(6)=" CYAN ":C$(7)=" MAGENTA" :C$( 8) »" OR 

40 GOTO 2000 

45 PRINT9CP,CHRS(143) ; : CS=INKEYS: IF C$=' 

) ; : GOTO 4 5 

50 RETURN 

55 C=INSTR(1,"12345678",C$) 

60 IF C=0 THEN RETURN 

65 IF Ca=l AND C<4 THEN C=C+4 

70 IF Cb=0 AND C>4 THEN C=C-4 

7 5 RETURN 

100 REM **********COMMAND INPUT***** 

105 C$=INKEYS:IF C$="" THEN 105 

110 SCkEEN 0,1 

115 CP=CM*32:GOSUB 45 

120 IF ASC(C$)=94 THEN CM=CM-1 

125 IF ASC{C$)=10 THEN CM=CM+1 

130 IF CM<1 THEN CM=13 



THEN PRINT9CP,CHR$(175 



run to draw your picture. You can use 
this program to create a display or as the 
basis of a game program. 

Operation is simple. The text screen 
displays all possible commands and ar- 
guments. A blinking cursor appears in 
the first display column which you 
move up and down with the arrow keys. 
When the cursor is in front of the item 
you want to draw, press enter. If the 
command requires more arguments, the 
cursor will jump to the appropriate 
place and await your entry. 

Once you have selected an object to 
draw, the graphics screen displays a sin- 
gle dot. Each arrow key moves this 
marker one pixel in the corresponding 
direction. With shift and an arrow, the 
marker moves 10 pixels. When the mark- 
er is where you want it, press enter. For 
lines, place the marker at the beginning 
of the line, press enter, move the marker 
to the end of the line, and press enter 
again. A line will be drawn between the 
selected points. You can continue to se- 
lect and enter points as needed. 

Boxes are entered in a similar man- 
ner. You move the marker to one box 
corner, press enter, move it to an oppo- 
site corner, and press enter again. lor 
circles, first select the center, then a 
point of the circumference. Pressing an 
incorrect key returns the text screen for 
another command input. 



The Key Box 

Color Computer 

16K RAM 

Extended Color Basie 
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Machines-Language Disk I/O & Other Mysteries, 
To Harness The Power of Disk Drives. 



The best and most complete book 
on TRS-80 Model I and Model III 
disk I/O available. 

"Machine-Language Disk I/O & 
other mysteries" by Michael Wagner. Volume 5 
of the popular ". . . and other mysteries" scries 
published by I JG. 

More than 190 pages of information 
and discoveries on the subject of disk I/O for the 
beginner and expert alike, using Z-80 Assembly 
Language to directly control the TRS-80 Model 
I and Model III disk drives and interrupt 
systems. With this book anyone can become a 
disk I/O "expert", and make more efficient use 
of disk space, or to write his or her own "full 
blown" disk operating system! 

For the beginner and old pro'. 

Machine- Language Disk I/O & 
Other Mysteries is packed with source code and 
flow chart illustrations for every function and 
operation described. And the source code for 
two complete disk I/O driver routines, one for 
the Model I and one for the Model HI, are also 
included for "instant" access to your floppy 
drive systems. 

Plus, the source code for a small disk 
operation system (S/OS) is included as a bonus. 
This S/OS contains all of the routines described 
in the book and shows how all of the disk I/O 
and interrupt functions should be incorporated 
into a working system. 

On machine language disk I/O. 

Machine- Language Disk I/O & 
Other Mysteries explains what the floppy drive 
system is all about, what Tracks and Sector are, 



the Western Digital Floppy Disk Controller 1771 
and 1793 chips, read/write access, reading a 
selected drives' status, how to test and make 
sure a disk is in a drive or if a drive is on the 
system (on-line), the Head Restore command, 
the Head Step and Seek commands, the 
"Force-Interrupt of function" command, the 
Read Address command, the Read Track 
command, the Write Track (FORMAT) 
command, the Read Sector command, the Write 



F7 



machine Lixt.i 

DESK 1/ 

A-OTHIRMYST 




Sector command, Post Non-Maskablc- 
Interrupt Processing for the model III, and 
much more. 

On TRSDOS file I/O 

and most TRSDOS-likc operating systems, 
Machine-Language Disk I/O & Other 
Mysteries explains; what a disk file really is, 
what records are and how they're stored on the 
disk, creating a file, performing Direct Record 
I/O, performing Single Byte I/O, closing & 
killing files; error processing and TRSDOS 
error codes with their meanings, and much 
more. 

Plus many other handy programs, 
routines, and revelations arc included. Such as a 
TRSDOS error message displayer, a disk 
formatter program, a program to calculate a 
password for a given encode, a object file 
load-format displayer, a file oriented full screen 
file editor, and a FULL BLOWN smart terminal 
program. 

Machine- Language Disk I/O & 
Other Mysteries is a must for all programmers 
at just $29.95. Available at computer stores, 
selected B. Dalton Booksellers and independent 
book dealers. If your dealer is out of stock, 
order direct. Include $4.00 for shipping and 
handling. Foreign residents add $11.00 plus 
purchase price, in U.S. funds. 



1953 West 
11th Street 
Upland, CA 
91786 (714) 
946-5805 




TM TRS-80 and TRSDOS ire registered trade marks ot TANDY Corp. 
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When you are ready to save your 
masterpiece, simply select the save line 
and enter the file name you want to give 
the program. You are asked tor a begin- 
ning line number for the Basic program. 
If the image is simply a drawing, 10 is a 
good place to start. If you plan to add 
some statements to the program to cre- 
ate a game, select a line number that 
puts the graphics in the correct location 
for your program. 

How II Works 

The program begins by initializing 
several needed variables and then, in 
lines 2000-2075, setting up the screen 
with the command list. It then jumps to 
the command-input routine at line 100. 
Lines 120 and 125 test input for the up 
and down -arrow keys (ASCII 94 and 
ASCII 10) and adjust CM to indicate 
the command selected. If you press en- 
ter, line 150 branches to an ON CM 
GOTO to dispatch to the section to han- 
dle the command. 

lines 200-295 handle the input of x 
and y coordinates. I tried to use joy- 
sticks for this, but found them some- 
what clumsy and inaccurate. Note the 
use of INSTR in line 21 5 to select one of 
eight possible entries. This technique is 
faster and neater than the usual section 
of If.. .Then lines sometimes used. 

The string DS is set up in line 15. us- 
ing CHRS for each possible value of ar- 
row and shift arrow keys. In 215 the en- 
tered variable. CS, is tested with INSTR 
and, if any arrow was pressed, returns a 
value between one and eight. If any oth- 
er character is pressed, C will be set to 
zero and the On GOTO will fall through 
to the next line. 

The program data is stored in an ar- 
ray L$, with LP pointing to the next ele- 
ment to add to the array. Note PIC-ED 
dimensions L$ to 50. If you intend to 
create a very long program, you might 
need to change the DIM and the Clear 
for string space. The commands are 
added to LS without a line number. The 
tape-writing routine (lines 900-1015) 
adds a beginning line with PMODE 3,1 
PCLS and Screen command and devel- 
ops a line number based on the input 
value for starting line. A final line is 
added with a GOTO to maintain the 
display in the finished program. 

I've found the program both fun to 
work with and useful as an easy way to 
generate graphics for other programs. It 
brings out the artist in everyone. ■ 

Ron Ginger (17 Potter Road, I ram- 
ingham, MA 01701) owns a Color 
Computer and a PDP-11. His interests 
are computing and boat building. 
390 • 80 Micro, December 1982 



135 IF CM>13 THEN CM=1 

140 IF ASC(CS)«=13 THEN 150 

145 GOTO 115 

150 ON CM GOTO 300,340,340,600,710,700,400,520,500,800,1100,1200 

,900 

200 REM **********COORDINATE INPUT** 

205 PC=PPOINT(X,Y) 

210 C$«INKEY$:IF C$="" THEN 210 

215 C=INSTR(1,D$,C$) 

220 PSET(X,Y,PC) 

225 ON C GOTO 235,240,245,250,255,260,265,270 

230 C=ASC(C$) : RETURN 

23 5 Y=Y-l:GOTO 27 5 

240 X=X+l:G0TO 275 

245 Y-Y+1:G0T0 275 

250 X-X-l:GOTO 27 5 

255 Y-Y-10:GOTO 275 

260 X=X+10:GOTO 275 

265 Y-Y+10:GOTO 275 

270 X=X-10:GOTO 27 5 

27b IF X>255 THEN X=255 

280 IF X<0 THEN X=0 

285 IF Y>191 THEN Y-191 

290 IF Y<0 THEN Y=0 

295 PC=PPOINT(X,Y) :PSET(X,Y, (PC AND 7)+l):GOTO 210 

300 REM***********COLOR CHANGES***** 

305 CP=43:GOSUB 45 

310 IF C$="l" THEN CS-l:GOTO 325 

315 IF C$="0" THEN CS=0:GOTO 325 

320 SOUND 10,5:GOTO 305 

325 PRINT e43,CS;CS$(CS) ; 

330 L$(LP)="SCREEN 1 , "+C$: LP=LPtl 

335 GOTO 110 

3 40 REM B/F COLOR 

345 CP«82:GOSUB 45:GOSUB 55 

350 IF C»0 THEN SOUND 10,5:GOTO 345 

355 PRINT382,C;C$(C) ;:BC«C 

360 CP=114:GOSUB 45:GOSUB 55 

365 IF C=0 THEN SOUND 10,5:GOTO 360 

370 PRINT @114,C;C$(C) ;:FC«C 

375 COLOR FC,BC 

380 L$(LP)="COL0R"+STR$(FC)+","+STR$(BC) :LP=LP+1 

385 GOTO 110 

400 REM **********CIRCLES*********** 

405 CP=242:GOSUB 45:GOSUB 55 

410 IF C-0 THEN 100 

415 CC«C:PRINT@242,CC;C$(CC) ; 

420 SCREEN 1,CS 

425 GOSUB 200: IF C<>13 THEN 110 

430 X0-X:Y0«Y 

435 GOSUB 200:IF C<>13 THEN 110 

440 R=INT(SQR( (XO-X) ~2+(YO-Y) *2) ) 

445 IF AR«1 THEN 525 

450 CIRCLE(XO,YO) ,R,CC 

455 L$(LP) ="CIRCLE("+STR$(XO) +" , " +STRS ( YO) +") ,"+STR$(R) +","+STR$ 

(CO 

460 LP=LP+1 

465 IF AR=1 THEN 525 

470 GOTO 100 

500 REM **********ARC, ELLIPSES****** 

505 CP»271:GOSUB 540 : ST$=N$: ST=N 

510 CP=281:GOSUB 540 : SP$«N$: SP=N 

515 CP=304:GOSUB 540 : HW$=N$: HW=N 

520 AR*l:GOTO 420 

525 L$(LP)«"CIRCLE("+STR$(XO)+","+STR$(YO)+") , "+STRS ( R) +" , "+STR$ 

(CC) +" , "+HW$+" , "+ST$+" , "+SP$ 

530 CIRCLE(XO,YO) ,R,CC,HW,ST,SP 

535 AR=0:LP-LP+1:GOTO 100 

540 REM **********NUMBER INPUT****** 

545 PRINT §CP," ";:N$="" 

550 GOSUB 45 

555 IF ASC(C$)=13 THEN 575 

560 IF ASC(CS)<46 OR ASC(CS)>57 THEN SOUND 10,5:GOTO 550 

565 N$=N$+C$:IF LEN(N$)«4 THEN 575 

570 PRINT 8CP,CS; : CP-CP+1 :GOTO 550 

575 N«VAL(N$) : RETURN 

600 REM «*********LINES************* 

605 SCREEN 1,CS 

610 GOSUB 200:IF C<>13 THEN 110 

615 XO-X:YO-Y:PSET(X,Y,FC) 

620 GOSUB 200:IF C<>13 THEN 110 

625 LINE(XO,YO)-(X,Y) ,PSET 

630 GOSUB 660 

635 L$(LP)=L$(LP)+"PSET":LP=LP+1 

640 GOSUB 200:IF C<>13 THEN 110 

645 LINE -(X,Y) ,PSET 
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Serial Line 
Analizer 



Serial Line Analizer 

Plugs into TRS-80 color computer Rom 
Pack port Displays EBCDIC. ASCII. Binary 
and HEX at 50. 75. 110. 134 5. 150. 200. 300. 
600. 1050. 1200. 1800. 2000. 2400. 4800 9600 
19200 Baud Baud rates can be split over two 
channels Analizer is async and supports 
computer/ modem/terminal 'printer applica- 
tions or trouble shooting Industrial serial 
analizers sell tor 3000 and up New techno- 
logy allows us to sell it for $199. 

EPROM Programmer 

Read and program EPROM on the TRS-80 
color computer, for $80. 

EPROM Board 

Board with sockets and support chips allow 
you to plug in your own EPROM and execute 
them on the color computer, for $30. 

Tape map utility 

Displays TRS-80 tape file information File 
name, file type, gap information, start ad- 
dress, load address and data blocks. $15. 

Tape save utility 

4K color computers can save machine code 
or binary files on tape with this utility. $15. 

Musid 

Simple note entry using joystick on TRS-80 
color computer Supports whole notes 
through thirty-seconds and 1 1 keys Can 
save music scores and recall them later to 
play or to change Easy to use. $30. 

Add $1 .50 for post and handlg. Prices subject 
to change- Wl resident* add 5% sales tax. 



ONTROL LRAFT INC. 



P.O. Box 123 • Muskego. Wl 53150 
414-784-9027 



TRS-80™ MODEL III 
TRSDOS™ 1.3 Users 

Super DIR 1.3 

SDIR a directory maintenance and display 
program enhancing present commands and 
allows unlimited access to your disk and disk 
files. Not recommended for those who need 
to be protected from themselves. 

Among its many features: 

SDIR run under TRSDOS 1.3. 

SDIR abbreviated (horizontal or vertical) or 

super expanded listing with scrolling. 
SDIR graphi<~ diskette map with areas 

marked by file type. 
SDIR map showing location of any file. 
SDIR single stroke commands. 
SDIR list files a granule at a time. 
SDIR sort by name, extension, size, starting 

location or back as it was. 
SDIR rearrange order for special needs. 
SDIR most modifications either temporary 

or permanent. 
SDIR create, kill, rename, change attributes 

or reposition files. 
SDIR reduce number of extents, speed up 

direct file handling. 
SDIR change any byte on disk. 
SDIR pack out holes in disk space. 

Comes complete with manual which also 
describes the directory. How to add your 
name to boot message, substitute SDIR for 
DIR, backup protect your files like Scripsit" 
and many many more. 

Price $59.95. Send check or money order to: 

SMS Products ^ 499 

1117 32nd. Ave, SE Albany, OR 97321 

■ tradnnuiHi o< TANDY CORP 
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| PABSoft | 

Excellence in Technical Software 

LINEAR CIRCUIT ANALYSIS 

DC Analysis $17 

AC Analysis $17 

State Variable Analysis $17 

All Three $40 

DIGITAL FILTER DESIGN 

Butterworth & Chebychev I $17 

Chebychev II $17 

Elliptic $17 

All Three $40 

• Professional Programmers 
•Fast Machine Language 
•Tape or Disk (Specify) 

Tape Assumes Non-DOS System 
For Disk Specify DOS 

• Model I or III (Specify) 
Minimum 48K RAM 

•Output to Video or Printer or Both 
•Catalog Available Nov 82 

• Update PABSoft Software to 
Different Computer for 1/3 
the Price 

PAB Software, Inc. 
P.O. Box 15397 
Fort Wayne, Indiana 46885 , 2 




FINALLY! PROFESSIONAL QUALITY PERSONAL INCOME TAX PROGRAM 

FOR UNDER $30 



e Don't wait until April 15. Use SUPERTAX to develop your 
tax strategy NOW. 

e An ABSOLUTE MUST for every personal software library 
e Extremely easy to use AND fully deductible on Schedule 
A or C 

• Invaluable for year-end tax planning or for tax return 
preparation 

e Written by C.P.A with Master's degree in tax 

SUPERTAX I: Ideal for tax planning and return checking, this program is 
simple, comprehensive and very fast Answer all those what if ques 
tions throughout the year, and at the same time make your tax return 
computer- accurate Using either screen or printer output, it generates 
summaries of Page 1 and 2 and Schedule A of Form 1040 This program 
also prints an overall summary of the return showing Adjusted Gross 
Income. Itemized Deductions. Taxable Income. Regular Tax. Income 
Averaging Tax. both Minimum taxes, and Payment Due or Refund (all of 
which are calculated by the program) SUPERTAX I also calculates the 
moving expense deduction, investment credit, taxable capital gains, poli 
tical and child care credits, medical limitations and more 

SUPERTAX II: This 2-disk set includes the efficient SUPERTAX 1 program 
as well as the more detailed SUPER IAX II program which makes all of the 
SUPERTAX 1 calculations, but which also PRINTS THE INCOME TAX 
RETURN 1 This program prints Page 1, Page 2, Schedules A. B, and G 
(income averaging) of the IORM 1040 as well as the Eonn 3468 (invest- 
ment tax credit) using tractor feed income tax forms (one of each is 
supplied with the program) 

• See List of Advertisers on Page 45' 



e Undeniably one of today's greatest software values 

e Available for . Radio Shack Models I, II, III and 16 and 

Apple II t 48K or larger systems 
e Also available on standard 8" CP/M 
e Data can be saved on disk 
e Subsequent year updates available at 20% discount 

e Programs are fully prompted and include manual loaded 
with valuable tax information and guidance 

SUPERTAX III: A 2 disk set which includes both the SUPERTAX I and 
SUPEP1AX II programs PLUS a program to calculate and print Schedule C 
of the FORM 1040 Also included is a stand alone depreciation program 
which calculates and prints your depreciation schedule using both the old 
rules and the new ACRS rules. Output from the depreciation program is 
designed to serve as a supplement to IRS FORM 4562 



SUPERTAX I 


$24 00 


SUPERTAX II 


$31 50 


SUPERTAX III 


$36 50 



8" diskettes $2 00 higher Add $1 50 for postage 8t handling 

ROCKWARE DATA CORPORATION 

DFPT 80M ■ PO BOX 401710 ■ DAI IAS TX 75240 ■ (214) 596-0588 



cpm Radio Shacd & Apple i 

Inc 



arf trademarks ol Diqita' Research Tandy Corp and Apple Computers 
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K- TRS-80 

Model! ™ 



EPROM Storage 
Alternative to 
Tapes and Discs 

Need reliable turn-key 
operation for your TRS-80*? 

Can't afford tape/disc problems? 

Plug Bug Systems has the cure! 

15 day money back guarantee 

THE IDEA 

A Modularued REPROGRAMMABLE EPROM - • memory System loi 
user creation ot up to 24K burned >n BASIC Or MACHINE 
LANGUAGE programs instantly accessible without tapes or discs 
tor Model I and Ml 48k options available No soldering or EPROM 
handling all units have then own powe' supplies 1 

THE SYSTEM 

A CONTROUFR MODULE is plugged into I he IRS 80" Individual 
unourned 1 ?K or 6K EPROM memory packs are then plugged into 
the controller Under direction ol our system soltware the use' 
loads his target program and burns it into 1 or ? packs thus pro 
vidmg jp to ?4K storage The CONTROLLER MOOULE also provides 
the interlace lor transtemng the burned programs or data mtc 
RAM avoiding tape and disc load erro".' BASIC and MACHINE 
LANGUAGE programs/data car be called up by tile name and start 
e<ecuting immediately Disc and cassette lunctions still valid 

OR 

Programs can be executed directly ''om a pack without the CON 
TROLLER MOOULE by plugging them into the TRS 80* 
I Mod el I 16* 3?K) keyboard connector bus 

SYSTEM SUPPORT 

Plug Bug RAM 

6K static readJwnte memory tor program developmerl includes a 
write protect switch thereby simulating EPROMs Ptograms 
e» ecu ted directly or accessed via CONTROLLER MODULE 

Software 

PRBURN cassette system control program supervises burn ver'ty 

and tiiespec naming ol p'ograms Can be translerred to disc 

Doc umcntatlon 

Complete straightforward instructions Machine language know 

ledge not required 

Burn Service 

We provide a reprog-amming service lor your Plug Bug packs inon 

disclosure agreement provided) 



PLUG BUG PACKS 

6K {EPROMj J84.95 

I ?K (EPROM) $94 95 

4BK (EPROM SYSTEM) INOUIRE 

6K (RAM) J94.»5 

CONTROLLER MODU1E $119.50 

BURN SERVICE PACK 114.95 
to order send cashiers check or money order to 

PLUG BUG SYSTEMS 

RIO 3 Box 300 

Ml Kisco NY 10549 

914 666 /672 

C D on request 

<KM S3 00 tor sfnpginq and handling 

add ib 00 lor Canada and Mexico 

"Trade Mark Tandy Radio Shack Corp 

• * Packs erasable with uttraviolel lamp • 377 



'+STR$ 



/ idling continued 

650 GOSUB 665 

655 L$(LP)«L$(LP)+"PSET":LP-LP+l:GOTO 640 

660 L$(LP)="LINE("+STR$(XO)+","+STR$(YO)+")-("+STR$(X) +","+STR$( 

Y) +") ," : RETURN 

66 5 L$(LP) ="LINE-("+STR$(X)+","+STR$(Y)+") ,": RETURN 

700 REM **********BOXES************* 

705 F=l 

710 SCREEN 1,CS 

715 GOSUB 200: IF C<>13 THEN 115 

720 XO=X:YO=Y:PSET(X f Y f FC) 

725 GOSUB 200: IF C<>13 THEN 115 

730 IF F THEN LINE (XO ,YO) - (X , Y) , PSET ,BF 

735 IF F=0 THENLINE(XO,YO)-(X,Y) ,PSET,B 

7 40 L$(LP) ="LINE("+STR$(XO)+","+STRS(YO)+")-("+STR$(X)+","+STR$( 

Y) +") r PSET,B" 

745 IF F THEN L$ (LP) =L$ (LP) +"F" 

750 LP=LP+1 

755 F=0:GOTO 100 

800 REM ***********PAINT************ 

805 CP=333: GOSUB 45: GOSUB 55 

810 IF C=0 THEN 110 

815 PP=C:PRINT §332 ,PP;C$ (PP) ; 

820 CP=350:GOSUB 45:GOSUB 55 

825 IF O0 THEN 110 

830 BB=C:PRINT §350, BB; 

835 SCREEN 1,CS 

840 GOSUB 200sIF C<>13 THEN 110 

845 PAINT(X,Y) P PP,BB 

850 L$ (LP) =" PAINT ( "+STR$(XO) +" , "+STR$(YO) +") , "+STR$(PP) + ", 

(BB) 

855 LP=LP+1 

860 GOTO 100 

900 REM ***********SAVE TO TAPE***** 

905 CP=432:GOSUB 1240 

910 CP=443 

915 GOSUB 45 

920 IF ASC(C$)=13 THEN 945 

925 PRINT §CP,C$; :LN$=LN$+C$ 

930 IF LEN(LNS)=4 THEN LN=VAL(LN$) :GOTO 945 

935 CP=CP+l:GOTO 915 

940 PRINT§450,"LOAD TAPE-PRESS RECORD"; 

945 C$=INKEY$:IF C$="" THEN 945 

950 PRINT §500, "...WORKING"; 

955 OPEN "0",-l,N$ 

960 X$=STR$(LN)+" PMODE 3 , 1 : PCLS: SCREEN 1,1":PRINT 1-1, X$ 

965 LN=LN+10 

970 FOR 1=0 TO LP 

975 X$=STR$(LN+I*10)+" "+L$(I) 

980 PRINT #-l,X$ 

985 NEXT I 

990 LN=LN+(I+1) *10 

995 X$=STR$(LN) +" GOTO"+STR$(LN) 

1000 PRINT t-l,X$ 

1005 CLOSE 

1010 PRINT§448,BL$; : PRINT§478,BL$; 

1015 GOTO 110 

1100 REM *********LOOK AT GRAPHICS*** 

1105 SCREEN 1,CS 

1110 GOTO 100 

1200 REM *********SKIP A FILE******** 

1205 CP=400:GOSUB 1240 

1210 PRINT §450, "LOAD A TAPE-PRESS PLAY"; 

1215 C$=INKEY$:IF C$="" THEN 1215 

1220 PRINT §500,". . .WORKING"; 

1225 SKIPF NS 

1230 PRINT £450, BL$; :PRINT §478, BL$; 

1235 GOTO110 

1240 REM *********FILENAME INPUT***** 

1245 N$="" 

1250 GOSUB 45 

1255 IF ASC(C$)=13 THEN RETURN 

1260 PRINT §CP,C$; 

1265 N$=N$+C$:IF LEN(N$)=8 THEN RETURN 

1270 CP=CP+l:GOTO 1250 

2000 REM *********SET UP TEXT SCREEN** 

2005 CLS:PRINT§8, "PICTURE EDITOR"; 

2010 PRINT§33, "COLOR SET" ;CS;CS$(CS) ; 

2015 PRINT§6 5, "BACKGROUND COLOR 1 GREEN"; 

2020 PRINT§97 , "FOREGROUND COLOR 4 RED"; 

2025 PRINT§129, "LINES"; 

2030 PRINT§161,"OPEN BOX"; 

2035 PRINT§193, "FILLED BOX"; 

2040 PRINT§225, "CIRCLE COLOR"; 

2045 PRINT§257,"ARC START STOP"; 

2050 PRINT§289, "ELLIPSE H/W" ; 

2055 PRINT§321, "PAINT COLOR BORDER"; 

2060 PRINT§353,"LOOK AT DRAWING"; 

2065 PRINT§385,"SKIP FILE NAME"; 

2070 PRINT§417 ,"SAVE FILE NAME LN"; 

207 5 GOTO 110 
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HOBBY COMPUTERS ARE HEREJif you want to come 
up to speed on how computers work — hardware and 
software— this is an excellent book It starts with funda 
mentals and explains the circuits and the basics of pro- 
gramming, along with a couple of TVT construction proi 
ects. ASCII, Baudot, etc. This book has the highest rec- 
ommendations as a teaching aid $2.97." BK7322 

THE NEW HOBBY COMPUTERS-This book takes up 
from where Hobby Computers Are Here' leaves off. with 
chapters on Large-Scale Integration, how to choose a 
microprocessor chip, an introduction to programming, 
low-cost I/O for a computer, computer arithmetic, check 
mg memory boards, and much, much more! Don't 
miss this tremendous value! BK7340 Only S2 97 ' 

BOTH VOLUMES FOR $4.95! 
ORDER HC002 



I NEW NEW NEW" 

INTRODUCTION TO WORD PROCESSING by Hal 
Glatzer. This book explains in plain language what a 
word processor can do, how to use one. how it improves 
productivity— especially m businesses that handle lots 
of words— and how to buy one wisely No technical 
knowledge required, for all first time users and those 
considering purchasing a word processor BK1238 $12 95 

A USER GUIDE TO THE UNIX SYSTEM by Jean Yates 

and Rebecca Thomas Here at last is a dearly written 
book that allows you to use the Unix operating system 
easily, and at a traction of the time it previously took If 
you're using, evaluating or simply curious about this sys 
tern, this is your book BK1242 $1599 

WORDSTAR MADE EASY by Walter A, Ettlin. Now Word- 
Star is as simple to learn as it is easy to use This book 
teaches WordStar in 14 easy lessons, saving hours of 
hard work. It comes with a convenient pull-out Command 
Card BK1239$1195 




• SOME OF THE BEST FROM KILOBAUD MICROCOM 
PUTING - BK731 1 -A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING Includ 
ed is material on the TRS-eO and PET systems, CP/M. the 
8060V80e5/Z-80 chips, the ASR-33 terminal Da'* base 
management, word processing, text editors and file 
structures are covered too Programming techniques 
and hard-core hardware construction projects tor 
modems, high speed cassette interfaces and TVTs are 
also included in this large format, 200 plus page edition 
11096.' 

DON'T (or How to Cart for Your Computer) by Rod 
nay Zaks In plain language, with numerous illustra- 
tions, this book tells all the do's and don't's of the care. 
preservation and correct operation of the small com- 
puter system. Specific chapters cover each piece of 
hardware and software, as well as safety and security 
precautions and help for problem situations Have 
your computer work right the first time and keep it 
working. No technical background required. For all 
computer users BK1237 $1 1 95 

YOUR FIRST COMPUTER by Rodnay Zaks Whether 
you are using a computer, thinking about using one or 
considering purchasing one. this book is indispen 
sable It explains what a computer system is, what it 
can do, how it works and how to select various com- 
ponents and peripheral units It is written in everyday 
language and contains invaluable information for the 
novice and the experienced programmer (The first edi 
tion of this book was published under the title An In 
troduction to Personal and Business Computing") 
BK1191 $8 95' 

MICROPROCESSOR INTERFACING TECHNIQUES 
—by Austin Lesea 4 Rodnay Zaks— will leach you how 
to interconnect a complete system and interface it to 
all the usual peripherals. It covers hardware and soft- 
ware skills and techniques, including the use and de- 
sign of model buses such as the IEEE 488 or S-100. 
BK1037$17 95 / 



AN INTRODUCTION TO MICROCOMPUTERS. VOL. 
— The Beginner's Book— Written for readers who know 
nothing about computers— for those who have an in 
terest in how to use computers— and for everyone else 
who must live with computers and should know a little 
about them. The first in a series of 4 volumes, this book 
will explain how computers work and what they can do. 
Computers have become an integral part of life and 
society During any given day you are affected by com- 
puters, so start learning more about them with Volume 
0. BK1 130 $12.50." 

VOl . I — NEW 3rd Edition! Dedicated to the basic con 
cepts of microcomputers and hardware theory The 
purpose of Volume 1 is to give you a thorough under 
standing of what microcomputers are From basic con- 
cepts (which are covered in detail). Volume 1 builds the 
necessary components of a microcomputer system. 
This book highlights the difference between minicom- 
puters and microcomputers. BK1030 $15 95 



KILOBAUD KLASSROOM-Dy George Young and Peter 
Stark. Learning electronics theory without practice isn't 
easy And it's no fun to build an electronics project that 
you can't use. Kilobaud Klassroom, the popular series 
first published in Kilobaud Microcomputing combines 
theory with practice This is a practical course in digital 
electronics It starts out with very simple electronics 
projects, and by the end of the course you'll construct 
your own working microcomputer! 

Authors Young and Stark are experienced teachers, 
and their approach is simple and direct Whether you're 
learning at home or in the classroom, this book provides 
you with a solid background in electronics— and you'll 
own a computer that you built yourself BK7386 $14 95 

TOOLS * TECHNIQUES FOR ELECTRONICS- by A A 
Wicks is an easy-to understand book written for the 
beginning kit builder as wen as the experienced hob- 
byist it has numerous pictures and descriptions of the 
sate and correct ways to use basic and specialized tools 
for electronic projects, as well as specialized metal- 
working tools and the chemical aids which are used in 
repair shops $4 95 ." BK7348 

• UNDERSTANDING AND PROGRAMMING MICRQ 
COMPUTERS BK7382 A valuable addition to your 
computing library This two-part text includes the best 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and soft 
ware aspects o' microcomputing Well-known authors 
and wen-structured text helps the reader get involved 
$1095" 
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DOS RANDOM ACCESS & BASIC FILE HANDLING -By 
H J Mulier This book was written lor the nonprogram- 
> ■ tea •• ■ f-c businessman or professional who 
needs to solve and write special programs for m-house 
business problems, or the hobbyist who wants to go be- 
yond the cassette recorder and into disk storage and file 
manipulation It is written as a self instruction tutorial 
and will provide anyone with some Level II experience 
with the ability to write special programs for inventories, 
mailing list, work scheduling, record keeping, research 
project data manipulation, etc. 150 pages BK1236 
$29 50 

TRS80DISK *ND OTHER MYSTERIES-by Harvard C 
Pennington This is the definitive work on the TRS-80 
disk system. It is full of detailed "How to use. infor- 
mation with examples, samples and m-depth explana 
tions suitable for beginners and professionals alike 
The recovery of one lost file is worth the price alone 
BK1181 $22 50 / 

MICROSOFT BASIC DECODED AND OTHER MYS 
TERIES-by James Farvour From the company that 
brought you TRS80 DISK AND OTHER MYSTERIES 
Contains more than 6500 lines of comments for the dis- 
assembled Level II ROMs and six additional chapters 
describing every BASIC subroutine, with assembly 
language routines showing how to use them Flow- 
charts Tor all major routines give the reader a real m 
sight into how the interpreter works BK1 186 $29 50 ' 



Special Interests 



MOD III ROM COMMENTED-Sott Sector marketing. 
1981 This book is not an instruction course on 
machine language, but rather an information source 
that you can use time and time again for writing your 
own program or patching old Mod I machine language 
programs It contains an explanation of ROMs in the 
latest machine from Tandy, with most every location of 
the 14K ROMs listed, with comments BK1235 $22 50 

THE CUSTOM TRS-80 AND OTHER MYSTERIES-by 
Dennis Kitsz More than 300 pages of TRS-80 customiz 
mg information. With this book you'll be able to ex- 
plore your computer like never before. Want to turn an 
8 track into a mass storage unit? Individual reverse 
characters'' Replace the BASIC ROMs'' Make Music'' 
High speed, reverse video. Level I and Level IP Fix it if 
it breaks down' Ail this and much, much more Even if 
you have never used a soldering iron or read a circuit 
diagram, this book will teach you how! This is the 
definitive guide to customizing your 80' BK1218 
$29 95- 

BASIC FASTER AND BETTER AND OTHER MYS 
TERIES-by Lewis Rosenfeider You don t have to 
learn assembly language to make your programs run 
fast With the dozens of programming tricks and 
techniques m this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC Find out how 
to write elegant code that makes your BASIC really 
hum. and explore the power of USR calls BK1221 
$29 95 * 

THE CP/M HANDBOOK (with MP/M)-by Rodnay Zaks 
A complete guide and reference handbook for CP/M — 
the industry standard in operating systems. Step-by 
Step instruction for everything from turning on the 
system and inserting the diskette to correct user 
discipline and remedial action for problem situations 
This also includes a complete discussion of all ver- 
sions of CP/M up to and including 2 2. MP'M ana 
CDOS. BK1 187 $14.95.- 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



No CO D. orders accepted. All orders add $1 50 for first book, $1.00 each additional book. $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Ouestions 
regarding your order' Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to SO Micro Book Department»Peterborough NH 03458. Be sure to include check or detailed credit card information. 



For Toll Free Ordering Call 1-800258-5473 
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NANOS SYSTEM 
REFERENCE CARDS 

For Models I, II, III and color computer 

At last! No more flipping through the pages of the 
Basic manual! No more working through the maze of 
machine language instructions! These cards com- 
pletely summarize the Basic and Assembler manuals' 
FEATURES INCLUDE: 

memory map. eyeball graphics, math instructions, 
basic commands, store instructions, basic functions. 



load instructions, basic statements, move instruc- 
tions, special keys, exchange instructions, print using 
examples, shift instructions, basic special characters, 
compare instructions, basic and assembler messages 
and codes, branch instructions, basic facts, data 
alteration instructions, reserved words. I/O instruc- 
tions, ROM routines, complete character chart with 
graphics and space-compression codes, hex-dec 
chart, control code cross-reference, assembler in- 
structions commands and operators, screen line 
layout, editor commands & subcommands, condition 
code easy access 

Designed as a fold-up. accordion-style card, fits in your 
pocket. Panels organized for optimum speed for 
reference. 

Model I: Basic only FC1001 $2.95 

Model I: BASIC and Assembler FC1002 $4.95 

Model II: BASIC and Assembler FC1005 $5.95 

Model III: BASIC only FC1004 $3.95 

Model III: BASIC and Assembler FC1003 $5.95 

Color: BASIC and Extended FC1006 $4.95 

Apple II: BASIC only FC1007 $3.95 

Apple II: BASIC & 6502 FC1008 $4.95 



Z80 



6089 



INSIDE LEVEL II— For machine language program- 
mers. This is a comprehensive reference guide to the 
Level II ROMs, allowing easy utilization ot the 
sophisticated routines they contain. It concisely ex- 
plains set-ups. calling sequences, variable passage 
and I/O routines. Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes In both BASIC and 
machine code with the speed and efficiency of a com- 
piler Special consideration is given to disk systems 
BK1183S15 95 ' 

• Z-M ASSEMBLY LANQUAQE PROGRAMMING- 
BK1177— by Lance A Leventhal. This book thoroughly 
covers the Z 80 instruction set, abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and inte'fae 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure $16 99 ' 



TRS-80 ASSEMBLY LANGUAGE-by Hubert S Howe. 
Jr This book incorporates into a single volume all the 
pertinent facts and information you need to know to 
program and enjoy the TRS-80. Included are clear 
presentations of all introductory concepts, completely 
tested practical programs and subroutines, details of 
ROM and RAM and disk operating systems, plus com- 
prehensive tables, charts and appendices Suitable for 
the first time user or more experienced users BK1217 
$9 95- 

PROGRAMMING THE Z-80- by Rodnay Zaks Here is as 
sembly language programming for the Z-80 presented as 
a progressive, step-by step course This book is both an 
educational text and a sell contained reference book, 
useful to both the beginning and the experienced pro- 
grammer who wish to learn about the Z-80. Exercises to 
test the reader are included BK1122 $15 95 " 



6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING — by Andrew O Staugaard. Jr. Getting 
involved with Tandy's new Color Computer? If so. this 
new book from the Blacksburg Group will allow you to 
exploit the awesome power of the machine's 6809 
microprocessor Detailed information on processor ar- 
i !>-_ij-e dddrtMinfl i o St*, rag itai oparal :■•■ lata 
movement, arithmetic logic operations, I/O and inter- 
facing is provided, as well as a review section at the 
end of each chapter Four appendices are included 
covering the 6809 instruction set. specification sheets 
of the 6809 family of processors, other 6800 series 
equipment and the 6809/6821 Peripheral Interface 
Adapter. This book is a must for the serious Color Com- 
puter owner BK1215S13 95 *. 



MICROCOMPUTING CODING SHEETS M>crocom 
Outing's dozen or so programmers wouldn't try to work 
without these handy scratch pads, which help prevent 
the little errors that can cost hours and hours o' 
programming time. Available for programming is 
Assembly/Machine Language (PD1001), which has col 
umns for address, instruction (3 bytes), source code 
(label, op code, operandi and comments, and lor 
BASIC (PD1002) which is 72 columns wide 50 sheets to 
a pad. $2.39' 
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SELECTRIC INTERFACE— by George Young You need 
the quality print that a daisy wheel printer provides but 
the thoughLpJ buying one makes yo.r 
SELECTRIC™ INTERFACE, a step by step guide to in 
terfacing an IBM Selectnc I/O Writer to youi microcom 
puter. will give you that quality at a fraction of the 
price. George Young, co-author of Kilobaud Microcom- 
puting magazine s popular Kilobaud Klassroom 
' Mors a low i I lying a daisy 

wheel printer SELECTRIC INTERFACE includes, step- 
by step instructions, tips on purchasing a used Selec 
trie, information on various Selectnc models in- 
cluding the 2740. 2980. and Dura 1041 driver software 
for Z80. 8080, and 6502 chips, lips on interfacing tech 
niques With SELECTRIC INTERFACE and sume back- 
ground in electronics, you can have a high quality low 
cost, letter quality printer Petals not included BK7388 
(125 pages) $12 97 



TEXTEDIT— A Complete Word Processing System in 

Kit Form 

by Irwin Rappaporl 

TEXTEDIT is an inexpensive woi I pro fiat can 

be adapted to suit your differing needs — from lorm let 

ters to lengthy texts Written in TRS-80 Disk BASIC the 

system consists of several modules permitting the 

loading and use of only those portions needed A disk 

is also available which provides the direct loading o' 

the mi me book is required for 

documentation For Model I and III with TRSDOSCON 

VERT one disk drive (2 disk drives or cu; . 

ed to transfer to system disk). Runs under r i 

2.2/2.3 May not function undei other systems 

(book, 90 pages) $9.97 DS7387 (disk) S19 



THE NEW WEATHER SATELLITE HANDBOOK-by Dr. 
Ralph E. Taggari WB8DQT. Here >s the completely up- 
dated am Oltton of the best selling Weather 
Satellite Handbook containing all the information on 
the most sophisticated and effective spacecraft now 
in orbit Dr. Taggart has written this book to serve both 
the experienced amateur satellite enthusiast and the 
newcomer. This book is an introduction to satellite 
watching, that tells you how to construct a complete 
and highly effective ground station. Not just ideas, but 
solid hardware designs and all the instructions neces- 
sary to operate the equipment are included An entire 
chapter is devoted to microcomputers and the Weath 
er Satellite Station, and for the thousands of experi- 
menters who are operating stations. The New '.'. 
Satellite Handbook detaiis all the procedures neces- 
:<j|low the current spacecraft. Weather Satellite 
contains Operation Satellite Systems Antenna Sys- 
tems Weather Satellite Receivers. A Cathode Ray 
Tube (CRT) Monitor for Satellite P i> A Di 
rect-Prmting Fasamile System for Weather Satellite 
Display. How to Find the Satellite, Test i 
crocomputers and the Weather Satellite Station, Sta- 
tion Operatioi BK7383 $8.95." 



No COD. orders accepted. All orders add $1.50 for first book. $1.00 each additional book. $10 00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order? Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department'Peterborough NH 03458 Be sure to include check or detailed credit card information. 



For Toll Free Ordering Call 1 800-258 5473 
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THE BASIC HANDBOOK-SECOND EDITION- by 
David Lien This book is unique It is a virtual 
ENCYCLOPEDIA ot BASIC While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies II a 
computer does not possess the capabilities of a need- 
ed or specified word, there ate often ways to ac 
compiish the same function by using another word or 
combination ol words That's where the HANDBOOK 
comes in It helps you get the most from your com- 
puter, be it a "bottom-of theline micro or an oversized 
monster BK1174$19 95 * 

LEARNING TRS-80 8ASIC-by David A Lien Dr Lien, 
who is the author ot THE BASIC HANDBOOK and the 
original Radio Shack LEVEL I USER'S MANUAL, has 
compiled a tutorial which includes portions ol the 
original USER'S MANUAL, and most ol LEARNING 
LEVEL II along with extensive additions It will com- 
pletely cover the TRS-80 Models I. II. Ill, and 16 (sorry, 
not the color or pocket computers). It is, ol course, writ- 
ten in the easy learning style which readers ol Dr 
Lien's books have come to enjoy. BK1175 $19.95. 

BASIC BASIC (2ND EDITION)-by James S Coan This 
is a textbook which incorporates the learning ol com- 
puter programming using the BASIC language with the 
teaching ol mathematics. Over 100 sample proqrams 
illustrate the techniques ol the BASIC language and 
every section is followed by practical problems. This 
second edition covers character string handling and 
•he use of data files BK 1026 Si 150' 



INTRODUCTION TO TRS-80 LEVEL II BASIC AND 
COMPUTER PROGRAMMING-by Michael P. Zabin- 
ski. Written by an experienced educator, this is the 
book lor those beginners who want to learn about com 
puters without having to become an expert It has prac- 
tical programs, useful line-by-line comments, excel 
lent flowcharts accompanied by line numbers and over 
200 exercises which help the reader assess progress, 
reinforce comprehension, and provide valuable prac 
ticai experience BK1219$10 95' 

50 BASIC EXERCISES-by J P Lamoitier. This book is 
structured around the idea that the best way to learn a 
language is through actual practice. II contains 50 
completely explained exercises: statement and 
analysis ol the problem, flowcharts, programs and ac 
tual runs Program subiects include mathematics 
business, games, and operations research, and are 
presented in varying levels of difficulty This format 
enables anyone to learn BASIC rapidly, checking their 
progress at each step BK1 192 $12 95' 

NEW REVISED EDITION 

PROGRAMMING IN PASCAL-by Peter Grogono The 
computer programming language PASCAL was the 
first language IQ emtody In a coherent way the con 
cepts of structured programming, which has been 
delmed by Edsger Dijkstra and CAR Hoare As such. 
ii a a landmark m the development ol programming 
languages PASCAL was developed by Niklaus Wirth 
■n Zurich, it is derived from the language ALGOL 60 but 
is more powerlul and easier to use PASCAL is now 
widely accepted as a useful language that can be effi- 
ciently implemented, and as an excellent teaching 
tool It does not assume knowledge of any other pro- 
gramming language and therefore suitable for an in 
troductory course BK1 140 $12.95 * 

ADVANCED BASIC— Applications including strings 
and tiles coordinate geometry, area, sequences and 
series, simulation and graphing and games BK1000 
$11 50 

INTRODUCTION TO PASCAL-By Rodnay Zaks. A 
step by-step introduction for anyone wanting to learn 
the language quickly and completely. Each concept is 
explained simply and in a logical order All features of 
the language are presented In a clear, easy-to-under- 
stand lormat with exercises to test the reader at the 
end ol each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used dia- 
lect lor small computers. No computer or program 
ming experience Is necessary BK1189 $1595 




micro 

BOOK SHELF 




Moneymaking 



HOW TO MAKE MONEY WITH COMPUTERS-ln 10 in 
formation-packed chapters. Jerry Felsen describes 
more than 30 computer related, moneymaking, high 
profit . low capital investment opportunities 
BK1003 $15.00 " 

HOW TO SELL ANYTHING TO ANYBODY— According 
to The Guinness Book ot World Records, the author. 
Joe Girard. is "the world's greatest salesman. This 
book reveals how he made a fortune— and how you 
can. too BK7306$2 25 ' 

THE INCREDIBLE SECRET MONEY MACHINE-by 
Don Lancaster. A different kind of "cookbook" from 
Don Lancaster. Want to slash taxes? Get tree vaca- 
tions? Win at investments? Make money from some- 
thing that you like to do? You'll lind this book essential 
to give you the key insider details of what is really in- 
volved in starting up your own money machine BK1178 
$5 95 ' 



ANNOTATED BASIC- A NEW TECHNIQUE FOR NEO 
PHYTES— BASIC programming w,is supposp'1 10 be 
simpie— a beginners programming language which 
was so near to English that a could be easily 
understood Bui m recent years BASIC has become 
much more powerful and therefore much more dill 
to read and understand BASIC simply Isn't basic 
anymore 

Annotated BASIC explains the complexities ol 
modern BASIC II includes complete TRS-80* Level M 
BASIC programs thai vou can use Each program is an 
notated to explain m step by step lashion the workings 
ol the program Programs are liowcha'ted to assist 
you m loliowmg the operational sequence And— each 
chapter includes a description ol the new concepts 
which have been introduced 

Annotated BASIC deals with the hows and *> . 
TRS 80 BASIC programming Ho* -s a program put 
together' Why is it written that way » By observing the 
programs and loliowmg the annotation, you can devel 
op new techniques to use m your own programs— or 
modify commercial programs lor your specilic use 
Annotated BASIC Volume 1 BK7384 $10 95 
Annotated BASIC Volume 2 BK7^8 r > $10 95 
Order Both Volumes and Save 1 BK7;i8402 $18 95 



Games 



Business 



CAPTAIN 80 BOOK OF BASIC ADVENTURES -by Rob 

ert Liddil. This book contains 18 of the most popular 
Adventure programs available today; all in one easy to 
read book with listings ready to be keyed in to your 
computer This unique book also contains an ADVEN- 
TURE GENERATOR program, not available from any 
other source. This generator program will actually 
write another BASIC ADVENTURE PROGRAM! Ai 
though specifically written lor the TRS-80 Model I & III, 
these programs ate adaptable to othet computers us- 
ing Microsoft BASIC. BK 1240 $19.95. 
40 COMPUTER GAMES FROM KILOBAUD UICROCOM 
PUTING— Forty games m all in nine dillerent categories. 
Games for large and small systems, and even a section 
on calculator games Many versions of BASIC used and 
a wide variety ol systems represented A must for the 
serious computer gamesman. BK7381 $7 95 * 

BASIC COMPUTER GAMES-Okay, so once you get 
your computer and are running in BASIC, then whaf 
Then you need some programs m BASIC, that's what 
This book has 101 games lor you Irom very simple to 
real buggers You get the games, a description ol the 
games, the listing to put in your computer and a sam- 
ple run to show you how they work Fun Any one game 
will be worth more than the price of the book for the fun 
you and your family will have with it. BK1074 $7 50 ' 

MORE BASIC COMPUTER GAMES-Edited by David 
H. Ahl. More tun in BASIC 84 new games from the peo 
pie who brought you BASIC Computer Games In- 
cludes such tavotites as Minotaur (battle the mythical 
beast) and Eliza (unload your troubles on the doctor at 
bargain rates) Complete with game description, list 
mg and sample run BKi 182 $7 50 ' 

WHAT TO DO AFTER YOU HIT RETURN — PCC'S first 
book of computer games 48 different compute- 
games you can play in BASIC, programs, descrip- 
tions and many illustrations. Lunar Landing. Ham- 
murabi. King. Civel 2. Oubic 5. Taxman. Star Trek. 
Crash, Market, etc. BK1071 $16 50* 

No CO D. orders accepted All orders add $1.50 lor first book. $1.00 each additional book. $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery Questions 
regarding your order? Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department'Peterborough NH 03458 Be sure to include check or detailed credit card information. 



BUSINESS SYSTEM BUYER'S GUIDE-By Adam Os 
borne with Steven Cook When you enter the market 
place ol small business computers, you lace a bewil- 
dering array of products, prices, features and fables 
This guide cuts through the iargon and unravels the 
task ol buying the right computer system This book 
provides solid information on how to determine your 
needs, how to choose software and hardware for all 
business applications, what to expect Irom vendors, 
what to avoid, and what questions you must ask. It also 
provides a wealth ol detailed intormation on products, 
manufacturers, retailers and the whole microcomputer 
market BK1229 $9.95 

SO YOU ARE THINKING ABOUT A SMALL BUSINESS 
COMPUTER — by Richard G Canning and Nancy C 
Leeper. For a well-organized manual on the process of 
selecting the right computer system (or your small 
business, this text can't be excelled Designed to in- 
troduce the novice in data and word processing to the 
real benefits of computerization, the book is filled with 
money and time-saving lips, photos of equipment, 
lists o* suppliers, prices, explanations of computer ter 
minoiogy, and heiplui reterences to additional sources 
ol information. Everyone contemplating a first com- 
putet installation should have this book. BK1222 
$14 00* 



SOME COMMON BASIC PROGRAMS- Published by 
Adam Osborne & Associates, inc Perfect for non 
technical computensts requiting ready-to-use pro- 
grams Business programs plus miscellaneous pro 
grams invaluable lor the user who is not an experi- 
enced programmer Ail will operate m the stand alone 
mode BK1053 $14 99 paperback 

THEORY Z-How American Business Can Meet the 
Japanese Challenge -by William Ouchi Why are the 
Japanese catching up and surpassing American m- 
dusfial productivity? What allows Japanese In- 
dustrialists to offet guatanteed lifetime employment 
to their worklotce'' This book will help you understand 
the Theory Z managerial philosophy and its implica 
lions (or the American corporate future Examples are 
given of the American industrial giants already 
operating under Z-style management, and the impact 
ol this style on the quality of their executives and 
workers is explored. A must for the alert businessman, 
large or small BK1226 $12.95* 



For Toll Free Ordering Call 1 8002585473 
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NEWS 



edited by John P. Mello Jr. 



School micros: boon or bane? 



Panel to block conspicuous computing in schools 



By Eric Maloney 

80 Micro Managing Editor 

^^cam," "religion," and "fad" is how members of the Com- 
^^mittee on Basic Skills Education describe the increased use of 
microcomputers in the classroom. The committee charges micro- 
computer manufacturers are making misleading claims to hustle 
their machines. It also says educators are throwing away money that 
could be used for better teaching tools and touting computers to 
cover up their failure to effectively teach basic skills. 



"There is some sort of urgent re- 
quirement that every child must become 
computer-literate, which in the parlance 
of manufacturers means that he must 
learn how to interface with a computer 
and program a computer," said co- 
founder Eric Burtis. "This is absolutely 
untrue. The future of the U.S. is not 
based on everybody becoming comput- 
er-literate but on becoming literate in 
basic skills." 



Congressman Stark: Public financing of 
Apple's merchandising plan for the 80s? 



The committee was formed in April 
by Burtis and three other San Francisco- 
area residents. Burtis is the president of 
Centurion Industries, a manufacturer 
of dedicated microprocessor-based 
learning machines. 

Manufacturers are pushing schools to 
"get a computer first and then get the kid 
to learn the other stuff," Burtis said. 
He called it "tremendous overkill," 
and said schools often end up using 
their computers for drill and practice. 

"Drill and practice can be done a lot 
more effectively and at lower cost in 
other ways," he said. 

A. Daniel Peck, a professor of educa- 



tion at San Francisco State University, 
agreed, saying a $200 dedicated micro- 
computer is often far more efficient. He 
said schools are being pressured by 
manufacturers into buying micros, and 
then don't know what to do with them. 
He likens the micro boom to the large- 
scale purchase of language labs in the 
early 60s, which he said are now 
"languishing." 

Burtis added: "American educators 
have a history of seeking a bandwagon 
as a means of disguising the real 
problems. Manufacturers say, 'If you 
want to do the job for the American 
public, you must use computers.' And 
the teachers say, 'If you can't teach 
kids how to read and write, maybe this 
will work.' " 

But Burtis also placed part of the 
blame on parents: "Parents are dis- 
tressed about their kids not being able 
to learn, so they say, 'Well, if these 
computers are the answer, then buy 
some.' The teachers are being told, 

continued 
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New Factory Direct Pricing 
Save $800 on a Dual Drive 

Model-Ill 



Thanks to our high volume production and low over- 
head, we can provide the highest quality peripherals at 
Rock Bottom Prices. MICRO MAINFRAME challenges 
the competition to meet our low prices. 

MICRO MAINFRAME can save you from $200 to $800 
on a dual drive Model-Ill* computer system. 

MICRO MAINFRAME can save you from S50 to $345 
on a disk controller complete with a 40 track TEC disk 
drive. 



MICRO MAINFRAME now makes it possible to bypass 
the middle man and purchase at our low, FACTORY 
DIRECT prices. 

MICRO MAINFRAME can save you from $60 to $255 
on a disk controller upgrade kit without drives. 

MICRO MAINFRAME invites you to check the pages of 
80 Micro and compare our prices. We have the lowest 
advertised prices of all. and we can deliver from stock on 
most items. 



M32-1 

M32-2 

FDC-3B . . . 
FDC-3C . . . 
FDC-3BK . . 
FDC-3CK . . 
FDC-3BKD 
FDC-3CKD 
S-BP1 .... 

SPS-1 

M-50FK ... 
M-50FM . . . 
DS-1A .... 



MICRO MAINFRAME PRICE LIST 

MOD-III COMPUTER W/FDC-3B 

MOD-III COMPUTER W/FDC-3C 

FLOPPY DISK CONTROLLER (5" SS ONLY) 
FLOPPY DISK CONTROLLER (5" B 8" DS) . 

CONTROLLER UPGRADE KIT 

CONTROLLER UPGRADE KIT 

DRIVE UPGRADE KIT W/FDC-3BK 

DRIVE UPGRADE KIT W/FDC-3CK 

SMALL BUSINESS SOFTWARE PACKAGE 

SWITCHING POWER SUPPLY 

5 MB HARD DISK KIT W/DOSx 4.0D 

5MBHARDDISKW/DOSx4.0D, DMX-1A . 
DATA SEPARATOR 



$1495.00 

S1595.00 

S 79.95 

S 99.95 

S 179.95 

S 199.95 

S 349.95 

$ 369.95 

$ 99.95 

$ 54.95 

S1795.00 

$2495.00 

S 39.95 



DUAL DRIVE MODEL-III COMPUTERS 
MICRO MAINFRAME has the lowest advertised prices 
anywhere on complete Mod-Ill* computers. The MMF 
Model-Ill* (Stock Number M3DD-1) is priced at only 
$1495.00 complete with our FDC-3B disk controller. 
switching power supply, 48K RAM. and two of the 
incredible new TEC 40 track, single sided disk drives. 

To substitute our FDC-3C disk controller and add 8" disk 
capability, please order Stock Number M3DD-2. 

BUSINESS SOFTWARE 

Our Small Business Software Package (Stock Number 
S-BP1 ) is a complete business package at an affordable 
price. The package includes General Ledger. Accounts 
Payable, and Accounts Receivable programs tailored 
specifically to meet the needs of small businesses. 

DATA SEPARATOR 

If you are having data transfer errors and/or would like 
to run 8" diskettes. MICRO MAINFRAME has a new 
data separator that not only fixes your data separation 
problems, but also gives you 8" drive capability when 
used with DosPlus 3.4 or higher. Now even Radio 
Snack s controller can run 8" disk drives. 

MODEL-III* DISK CONTROLLERS 

Now you can purchase our FDC-3B floppy disk control- 
ler for the unheard of low price of $79.95. Many of the 
dealers advertising in 80 Micro sell this controller as 
their own unit. Please order by the following stock num- 
bers: 



FDC-3B FDC-3B Controller only 

FDC-3BK FDC-3B With IK-3 Installation Kit 

FDC-3BKD . . FDC-3BK With TEC 40 Track SS Drive 

MMF beats the high cost of 8" disk operation with our 
FDC-3C disk controller and is fully supported by 
DosPlus 3.4. This unit has become the industry stan- 
dard controller. MMF was the first to deliver a Mod-Ill* 
controller, the first to use gold plated card edge con- 
nectors, the first besides Radio Shack to provide 
switching power supplies, and the first to deliver afford- 
able hard disks for the complete Radio Shack line of 
computers. 

SWITCHING POWER SUPPLIES 

If your disk upgrade kit did not include a switching power 
supply. MMF has just the fix that you need. We are 
providing our SPS-1 switching power supply for just 
S54.95. Don't let your system overheat with a faulty 
power supply. Replace with a genuine MMF Switcher 
today! 

MICRO MAINFRAME HARD DISKS 
All MICRO MAINFRAME hard disk subsystems feature 
ERROR CORRECTION. Most of the systems now ad- 
vertised for less do not have error correction. ERROR 
CORRECTION is an absolute necessity in a hard disk, 
since the disk media can become sensitive to certain bit 
patterns. Systems without ECC will simply give a DISK 
SECTOR NOT FOUND error message. Eventually, you 
will lose a substantial portion of your storage area. Insist 
on MICRO MAINFRAME and get your money's worth. 



MICRO MAINFRAME 



11325 Sunrise Gold Building E 

Rancho Cordova, CA 95670 

(916)635-3997 



NEWS 



EDUCATIONcon/,™e</ 



'You'd better get computers.' " 

Burtis feels computer literacy is not 
the requirement for future success 
manufacturers and some educators 
claim it is. 

"It's a lie to say to kids, 'If you 
become computer literate you'll be 
more successful in the world of tomor- 
row,' " he said, "because what they 
learn on a micro will have no bearing on 
what they will need in the future." 
Burtis said manufacturers are imply- 



ing computer literacy comes before 
traditional skills. But, he said, effective 
computer use "is dependent on the in- 
dividual being academically proficient. 
If you don't have academic proficiency, 
the computer isn't worth a damn." 

Burtis and Peck are opposed to the 
Technology Education Act, the so- 
called Apple bill encouraging manufac- 
turers to donate microcomputers to 
elementary and secondary schools. The 
bill, introduced by Fortney H. Stark. 
Jr. (D. -Calif.), was prompted by an of- 
fer from Apple to donate 103, (XX) com- 
puter centers across the country. 

"It's just another means o( asking 
the public to fund a merchandising plan 



for a manufacturer," Burtis said. "I 
think it's disgraceful. Even Apple 
blandly admitted that the purpose of 
the bill is to get Apples in front of kids 
so they'll grow up with them." 

Peck added that the Stark bill doesn't 
consider additional expenses the school 
will face to use the equipment, such as 
teaching aids, hardware, and software. 

Is there a solution to the problems the 
committee sees? Burtis thinks the key is 
public awareness. 

"People should demand of computer 
manufacturers, 'Hey, design them to 
make our lives easier,' rather than be 
told 'Here's a computer; figure out 
something to do with it,' " he said.H 



Tandy says hard to find good numbers 



\A/ hen it comes to computers in education, good 
« numbers are hard to find, said Radio Shack 
Education Director William D. Gattis. 

Gattis, on CompuServe's TRS-80 owners' special 
interest group, defended Tandy's refusal to release 
information on its computer sales to schools. 

"The fact is,'" he said, ""we simply do not have ex- 
act figures representing total TRS-80 computers 
delivered to schools through our 4,300 company- 
owned Radio Shack stores in the USA. nor the 2.000 
independent Radio Shack dealers. So while we do 
monitor school purchase orders processed 
through our National Bid Department in Fort Worth, 
this does not represent all our sales to schools." 

"Our own experience," he continued, "leads me 
to question the claims by other manufacturers re- 
garding their percentage share of the education 
marketplace. With their products being sold to 
schools primarily through independent dealers, 
they are even further removed from accurate and 
objective sources of information than we are." 

Gattis said: "The figures released by commercial 
research firms are particularly frustrating since all 
have different numbers and almost none compare 
to our own current estimates. Of those I've seen re- 
cently, only the year-old Report on Microcomputers 
in Education published by Creative Strategies In- 
ternational seems to us a credible document." 

"The only sources of statistics we've en- 
countered that we feel we trust," he noted, "are the 
surveys conducted by the various state depart- 
ments of education. These agencies have the at- 
tention of public school districts throughout a 
state in a way that no commercial firm has 
achieved. Whereas a commercial firm might do 
well to see a 5 percent to 6 percent response to a 
survey mailing, most of the state surveys report in- 
formation from over 50 percent of the school 
districts in the state, and a couple are approaching 
100 percent." 
Gattis reported: 



• In Pennsylvania, the contracting unit for micro- 
computer purchases for local agencies during 1981 
reported $1.52 million in purchases of five micro- 
computer brands— $1 million of it for TRS-80S. 

• In Florida, the state Education Department's 
Management Information Services Center reported 
late in 1981 that more Florida schools. 401, had 
TRS-80s in them than any other micro. 

• In Louisiana, the state Education Department re- 
ported in February 1982 that more than 60 percent 
of the schools used TRS-80s. 

• In Oklahoma, a survey conducted by the state 
Department of Education in December 1981 re- 
ported 70 percent of the micros in that state's 
schools were TRS-80s. 

• In Kentucky, a survey conducted by KET-TV, the 
public education tv station operated by Kentucky 
State University, showed, with 78 percent of the 
districts reporting, that more schools used TRS-80s 
than the next two brands of computer combined. 

• In Idaho, a survey reported 56 percent of the mi- 
cros in that state's schools were TRS-80s. 

• In Montana, 37 percent of microcomputers in the 
schools were Tandy's, compared with 27 percent 
for the second-place company. 

"We are not saying that the results from these 
states can be extrapolated to the whole country," 
Gattis observed. "On the other hand, we did not 
simply choose to share information only on those 
states' surveys which appear favorable to us. So 
far, every state survey we've seen corroborates 
Radio Shack's position as a leader in the burgeon- 
ing educational use of microcomputers." 

"Tomorrow, next week, or next month, we may 
get results from all other states that show us in a 
much weaker position," he added, "but I doubt it. 
Just as much as I would encourage anyone to 
doubt the so-called statistics from any source 
that's based on projection or assumption instead 
of good, objective accounting. "■ 
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Our Users asked for it, and we made the 
best TRS-80 disk assembler even better! 
Now M-ZAL has: 

■ Recursive MACROS with full symbolic parameter 
substitution 

■ Conditional assembly with unlimited nesting 

■ Text Editor warm-start/ recovery option 

■ Support for all popular source file formats 

■ Load Module inspect/superzap using LINKER 

and the features that made it famous: 

■ True multi-pass assembly 

■ Full Screen Option Menus 

■ ENTRY/EXTERN symbols, relocation, and object 
module linking 

■ 8 character labels with sorted symbol table 

■ Built-in symbol table cross-reference 

■ Nested 'INCLUDES (source file chaining/nesting) 

■ Lower case support (Model 3 only) 

■ Over 175 pages of documentation including 
Z-80 Technical Manual 

■ Full Screen Text Editing and much, much more! 

M-ZAL provides a modular, structured development 
environment that makes programming your TRS-80 
a truly enjoyable experience Order yours today. 
(Requires 32k, 2 disk system) 

# 1050-10 Mod 1 S 149.00 

# 1250-10 Mod 3 $149.00 

CAU Development Software— 
The Professionals Choice: 

Full Screen Text Editor for BASIC: we were the first to 
give the TRS-80 this indispensable ability! A must for 
every BASIC programmer: 

#1210-20 Mod1&3 $29.95 

T-ZAL: custom designed for the Model 3, this tape 
based assembler has many of M-ZAL's most 
desired features. 

# 1250-20 Mod 3 only $49.95 

XBUG: for machine language analysis and 
debugging— this tiny (2.5k) but powerful program 
lets you do it all! 

# 1020-10 Mod 1 $19.95 

# 1220-10 Mod 3 $19.95 

FILEXFER: transfer any disk file between two TRS-80s. 
Use direct cable link or RS modems. Mod 1 and 
Mod 3 can be mixed. RS-232 and disk reqd. 

# 1040-10 Mod 1 and 3 $49.95 



"We've been using M-ZAL heavily for 
over two months now, and it's been 
worth its weight in gold." 

— Chuc>< Tesier 
PROSOfT 

"...well written software that is long 

Overdue." -Bruce Douglass 

80 Microcomputing 
BASIC Editor Review 

"During the first 3 days of use, M-ZAL 
saved more money in programmers 
time than we had paid for the 

product." -William Denman 

Author of Asylum 
MED SYSTEMS 

"The editor has at least doubled my 
productive capacity. .Having spent a 
good deal of money on so called 
'utilities' that don't work, it's a delight 
to find one that not only lives up to its 
claims but surpasses the advertising." 

-BASIC Editor user 



Our choice 


for the best TRS-80 DOS: 


DOSPLUS 3.4 


Mod 1 


$149.00 


DOSPLUS 3.4 


Mod 3 


$149.00 



Call or write for more information. 
All products require level II. 
Mail orders specify catalog # . 
Send check, money order, or MC/VISA 
numbers and expiration date to: 

Computer Applications Unlimited 

P.O. Box 214, Dept. ABM Rye. New York 10580 

(914) 937 6286 

N.Y./ State residents add applicable sales tax. 
Outside USA and Canada add $ 1 0.00 shipping. 
Dealer Inquiries Invited. 




/-?/ / COMPUTER 



UUi 



APPLICATIONS 
UNLIMITED* 



o <*v of CAU. hK. 



TRS-80 is a TM of Tandy Corp M-ZAL is a TM of CAU. Inc. 
Z-80 is a TM of Zilog Inc. 



■See List ot Advertisers on Page 45 1 
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Health 



in V-games 




Overreaction to games leads to heart disease 

t oncerned with the moral and intellectual effect of Pac-Man and 
^^its ilk on children, an army of parents across the nation is skir- 
mishing with video game purveyors over regulation of arcade-style 
machines. The real danger, though, might not be to children, but to 
adults, who risk health problems by playing the games. 

That's the indication of research con- 
ducted by Dr. Robert S. Eliot at the 
University of Nebraska Medical Center 
in Omaha. 

Those indications became a deadly 
reality in Calumet, IL, where the stress 
from playing "Berserk" short-circuited 
an 18-year-old man's heart. 

Eliot has tested more than 1 ,000 pa- 
tients during the past five years to learn 
how they respond to stress. One conclu- 
sion he's reached is one-third of the na- 
tion's population are "hot reactors" to 
video games. Their bodies overreact to 
them, making them particularly suscep- 
tible to heart disease. 

To identify hot reactors, Evans's lab 
has more than $300,000 in computer- 
ized equipment: machines to monitor 
blood pressure, heart rate, stroke vol- 
ume, adrenal gland secretions, and re- 
sistance the heart must overcome to 
move blood through the circulatory sys- 
tem. In an article appearing in the May- 
June issue of American Health, author 
Stephen Kiesling described a demon- 
stration he witnessed at the lab: 

"One of Eliot's patients, a middle- 
aged administrator, has a base-line 
blood pressure of 134/89 when he sits 
down to play the game.... 

"But within seconds, though he 
doesn't feel any different, his body re- 
sponds with signs similar to those of an 
athlete in action. His systolic pressure 
jumps to 207, while his diastolic pres- 
sure falls to 66. Meanwhile his pulse 
rate increases from 80 to 109 beats per 
minute, and his cardiac output doubles 
from 4.4 liters of blood per minute to 
8.4 liters.... 

"So far the patient's body has react- 
ed dramatically but in ways nature 
intended. Stress has triggered an out- 
pouring of catecholamines, substances 
produced by the adrenal glands to stoke 
up the body to fight or flee.... To 
achieve the same elevated heart rate and 
blood pressure on a treadmill — or 
track — would take eight or nine 
400 • 80 Micro, Decern berl 982 



Photo by Omaha World-Herald 

Eliot: Drag racing with the brakes on. 

minutes rather than the same number of 
seconds.... 

"Activity uses up the catecholamines 
as they are excreted into the blood 
stream, damping the physiological in- 
crease. But instead of springing into ac- 
tion, the patient continues to play the 
video game. His physiological responses 
soon take an ominous turn.... 

"The patient still feels much the 
same, but his body is no longer behav- 
ing like an athlete's; instead, he has 
symptoms like those that can lead to a 
stroke. Stress is squeezing his blood ves- 
sels like a clamp on a garden hose. 

"His peripheral resistance triples, 
cutting his heart output back to 4.4 
liters per minute. His blood pressure 
goes from 207/66 to 183/125. 

"Eliot stops the game. 'What you are 
doing,' he tells the patient, 'is like drag 
racing a car with the brakes on.' " 

Work with lab animals, Kiesling ex- 
plained, has shown excess catechola- 
mines can rupture small muscle fibers in 
the heart within five minutes. And au- 
topsies of young men who suffered 



stress-related heart attacks showed their 
heart muscles had ruptured in seconds 
from stress-induced outpouring of cate- 
cholamines. 

Kiesling wrote there are other stress 
producers in Eliot's lab — interviews, 
arithmetic tests, or holding a hand in ice 
water — that can create much the same 
physiological response. "The difference 
between those tests and video games," 
the author noted, "is that people don't 
go out of their way to engage in them, 
let alone spend countless hours and 
quarters for the experience." 

According to Kiesling, Eliot said for 
hot reactors, video games "give all the 
excitement of competition without the 
physical component." He added Eliot 
fears "we may be heading toward a gen- 
eration of hypertensives in this country 
where young people play video games 
instead of sporting activities which con- 
dition the body." 

In the Calumet incident, the video 
game victim subjected an already weak- 
ened heart to the stress of playing 
"Berserk." Lake County, IN, Coroner 
Dr. Albert Willardo told 80 Micro Peter 
Bukowski had "some pathology in his 
heart muscle which probably was due to 
a viral infection that was not detected." 

He explained: "All of us have had vi- 
rus infections where we've felt pretty 
lousy for a long time and then we get 
well and we assume there's nothing left, 
there's been no damage, but in fact 
many times the heart and other organs 
have suffered damage. 

Because Bukowski 's heart was in a 
weakened condition, Willardo said, 
"anything could have precipitated the 
cardiac arrhythmia which ultimately 
caused his death. It could have hap- 
pened while he was playing tennis or 
just walking down the street." 

Despite his findings, Eliot has no ill- 
feelings toward video games. He told 
the Omaha World-Herald: "Video 
games can be a form of relaxation for 
many people; a means of taking your 
mind off your troubles. But we use 
video games as a diagnostic tool be- 
cause they offer one way of testing how 
an individual deals with pressure." 

If a person is a hot reactor, he added, 
he or she should "seek appropriate help 
and advice that will allow them to han- 
dle game and real-life pressures. It 
doesn't mean they have to give up play- 
ing. If you react poorly to adding up a 
column of figures, you don't stop doing 
your income tax."B 
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REAL ESTATE SOFTWARE 

to APPLE TRS-tO h CPIt SYSTEMS 

• PROPERTY MANAGEMENT SYSTEM: MSO 

Tenant History Operating Stmt 

Lata Rent Riport Building Repetti 

Vacancy Raporl Utiltita* Rtpert 

incomt Rtpert Tax Expense Report 

Asia Lata Charga Prints Chacki 

Returned Chackt Prints Receipts 

• PROPERTY LiSTTNCS/COMPARABLES: 1325 
— SCREEN BY — — Mai/Mta Met 

22 mms/Listing Mai Prtea/lneaaaa 

1000 Usttaf/Dtak Mas Prica/Sq Fact 

listing Memo Field MM Cashflow 

• REAL ESTATE ANALYSIS MODULES: SSO/ModuW 

Home Purchase Tax Oetarrafl Exchange 

Income Prop Analysis APR Low Analysis 
Property Sales Loan Aaaartbattan 

Construction Cost/PraM Doa»aetotion/ACR$ Analysis 
Laaa Satos/Purchasa Loan Wrap Analysis 

• WORD PROCESSOR - WORD STAR: $295 
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TRS-80 

COMPUTER 
DISCOUNTS 



• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• 100% Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store «7053 

175 E North Delsea Drive 

Vineland, N.J. 08360 

800-257-0426 

NJ 609-691-7100 



TRS-80 MODEL I™ 
GOLDPLUG-80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) S9.95 ea 

Full set, six connectors. . . S54.95 






EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

(817)498-4242 

*TRS 80 is a trademark of 

Tandy Corp. 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability 
to TRS 80 Model 1 or 3. Level 2 or 
DOS with a minimum of 16K. 



488 80B 

For Model 7 

Operation 

JEL 



\JEL 



48880C 
For Model 3 
Operation 



Model 488-80B or 488-80C Price: $375. 

+ shipping, insurance & tan 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage. NY 11804 
Telephone: (516) 694-3370 
'Trademark o' Tandy Corp 
There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp or 
Radio Shack 
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Maxell Floppy Disks 

The Mini-Disks 
with maximum quality. 




invited COD's 
accepted Call 
FREE (800) 235-4137 
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PACIFIC EXCHANGES 

100 Foothill Blvd. San Luis 
San Luis Obispo. CA 93401 
InCal call (8001 .S92-5935 or 
805)543-1037 



96K MODEL 1 

BIGMEM* replaces the 16K keyboard 
RAM with 64K chips. A custom mem- 
ory controller mounts inside the 
keyboard case to give you 
f 48K keyboard memory on power-up 
t plus access to 32K E/I memory. 

• 2.7K RAM above ROM 1s available, 
t Optionally overlay ROM with RAM. 

• BIGMEM works with TRS-80** DOS or 

• remaps kybd/vldeo for 64K CP/M*** 

..$180 post paid with check or money 
order. COD add $3. NYS residents 
add sales tax. BIGMEM incl. 64K RAM 
chips, AaT controller board, internal 
cable, wire, solder and Instructions. 

MICROHATCH 
PO Box 501 

DeWUt, NY 13214 " 419 

(315)446-8031 after 6PM 

Trademarks of *Microhatch, **Tandy 
Corp. and ***D1gital Research. 



"TRS80 color 

From the January 196' issue jt trie CSRA Computer 
Oub newsletter 
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De' -rieelinq when the Radio Shack repre 
II Mm stated that the software in the, 
ROM cartridges could not be copied This 
month's 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covenng some of the connector pins with 
tape They promise details neirt month Never 
tell a hobbyist somethi ng can i be done' This 
magazine seems to be the only source so far 
o* technical informations on the TRS-80 color 
computer- Devoted lo SS-50 6800 and 
6809 machines up to now. 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues ^^ s> f ^s'' 

et the MOST from your 6809 CPU This is the 
BEST SOURCE 1 The ONLY Magazine lor the 8809 
Computer Months Ahead of Ak Others 
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68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 

USA 
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"80" DEMI CASE 



Sh 




MDx 



O/FM/.r 



-c^se ►'ii 

Encloses LNW & MDX I & II 

P.C. Boards, plus 

Cabling. A/C Cords, etc. 

Silver-gray Fiberglass 

S32.50 plus $2.50 shipping 
N.Y.S. residents add 7% tax 

SYRACUSE R8.D CENTER 

Box 125. Dewitt, NY. 13214 

Specializing in Electronic Packaging 
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Wordstar makers win 
lawsuit against pirates 

MicroPro International and Digital Research 
settle out of court with Sunnyvale softbucs 

By Kerry Leichtman 

80 Micro Staff 

Claiming the first major victory in the war against software 
thieves, the makers of Wordstar and the CP/M operating 
system won a $250,000 judgement against Data Equipment Inc. of 
Sunnyvale, CA, and its chairman, Daniel O'Rourke. 

man O'Rourke is personally obligated 
to pay the plaintiffs $30,000. 

While it is disputable whether this 
was the "first ever microcomputer soft- 
ware copyright infringement suit" settl- 
ed in favor of a program's originators, 
experts said this and several other simi- 
lar cases are fine tuning the 1976 Copy- 
right Act into good protection for mi- 
crocomputer product originators. 

Seymour Rubinstein, president of 
MicroPro, also hopes the rest of the in- 
dustry will be encouraged by the court's 
favorable decision, "Our success. . . 
should be taken as a sign that software 
manufacturers will act aggessively to 
protect their own products against all 
unauthorized duplication." 

Daniel T. Brooks, of Computer Law 
Advisors, Washington, DC, thinks the 
present copyright laws are plenty thor- 
ough. Quoting from the bill that even- 
tually became copyright law, Brooks 



MicroPro International and Digital 
Research Inc. filed their lawsuit in No- 
vember 1981, (see 80 Micro, March 
1982, page 378). In September, San 
Francisco Federal District Judge William 
W. Schwarzer entered a stipulated final 
judgement against Data Equipment. 

The suit claimed Data Equipment 
produced and distributed unauthorized 
copies of MicroPro's Wordstar, Data- 
star, Wordmaster, and Mail Merge pro- 
grams, and Digital's CP/M operating 
system. Data Equipment acted as an 
OEM distributing complete hardware 
and software systems to businesses. 
MicroPro and Digital Research dis- 
covered the misuse of their programs 
when Data Equipment customers called 
them for update information. 

According to the terms of the settle- 
ment, Data Equipment will pay $250,000 
to the plaintiffs, and will reimburse 
their legal expenses. In addition, Chair- 
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told 80 Micro during a telephone inter- 
view, "Under the bill, it makes no dif- 
ference what the form, manner or 
medium of fixation may be; whether it 
is in words, numbers, notes, or any 
other graphic or symbolic indenture; 
whether embodied in a physical object, 
in written, printed, punched, magnetic, 
or any other stable form, and whether it 
is capable of perception directly or by 
means of any machine or device known 
or later developed." 

To Brooks the law is very clear in def- 
inition and intent. The other school of 
thought likens Read-Only Memory to a 
permanent machine part. Its code, its 
proponents contend, speaks directly to 
the machine, not to human beings, and 
therefore is not copyright protected. 

There is legal precedent in that argu- 
ment. The U.S. Supreme Court ruled 
( White v. Smith) at the beginning of this 
century that piano rolls for player 
pianos were not subject to copyrights, 
because their code was not designed to 
be communicated to human beings. 
Brooks explained, "At that point in 
time the Supreme Court was saying the 
copyright laws applied only to those 
things which the copyright laws say they 
apply to and we don't see where this ap- 
plies, therefore no protection." 

"In 1976," Brooks continued, 
"Congress expressly overruled that re- 
sult. There's a whole paragraph in the 
legislative history that basically says this 
particular section is designed to overrule 
that notion. It says, 'This broad lan- 
guage is intended to avoid the artificial 
and largely unjustifiable distinction de- 
rived from such cases such as White- 
Smith, under which statutory copyright 
ability has been made to depend on 
the form or medium in which the form 
is fixed.' 

"Whether it be the MicroPro case or 
Tandy v. PMC, the decisions are com- 
ing out in the right places now. The pro- 
gram, in ones and zeros, or in the volts 
and amps form is simply a representa- 
tion of a copyrighted work and with 
the aid of a machine or device, may be 
communicated to human beings." 

When a judge sits before two people 
where one is suing the other for a copy- 
right infringement on a computer pro- 
gram he has to fully understand the is- 
sues before him so that he can make the 
right decision. Judges, like a lot of soci- 
ety, are not educated in the bits and 
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Two great simulations 

forthe"80s". 



T80-FS1 




I L5 



The realism of "out-the-window" flight can be yours with 
this challenging simulation that will excite beginners and 
test experienced pilots. On cassette, $25.00. 
On enhanced disk (increased world projection rates, 
10-frame-per-second approach mode, infinite horizon, 
hit/crash detection, and more), $33.50. For Model I or 
III: please specify since the media are different. 
All versions require 16K. 



T80-SG2 



Forest Fire 
Dispatcher 

Also challenging and realistic, Forest Fire Dispatcher 
features the ease of operation that lets you concentrate 
your energy and imagination on the job at hand: saving 
forests as efficiently as possible. A naturally deep 
strategy game for years of pleasurable interaction. On 
cassette, $24.95 (16K required). On disk, $29.95 
(32K required). Specify Model I (Level 2 BASIC) or 
Model III. 




See your dealer! 



For direct order, include $1.50 and indicate UPS or first class mail. Illinois 
residents add 5% sales tax. Viaa and MasterCard accepted. 
If you don't yet own a disk, don't fret You can upgrade anytime. 
Cassette users may send back their cassette (but not the manual) along 
with $10 (first class shipping included) and receive the disk version. 
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bytes of computerdom. Brooks said the 
confusion, which led to some rulings in- 
consistent with the intent of the law, is 
understandable: "They do not have a 
working familiarity with what comput- 
ers are about. Many of them look at it 
as an alien object. The consequence is 
that, there is some room for confusion 
until responsible lawyers have framed 
the arguments in intelligible form pro- 
viding the information the judiciary 
needs to make the right decision." 

Will the framing take much time? 
Brooks doesn't think so: "I hope within 
a few years this particular point will go 
away. That isn't to say that the fertile 
mind of man won't come up with some 
new ones. It's only that this particular 
one will have disappeared. ■ 




Networking Poet Laureate 



E-poet says micros will shatter Gutenberg literature 



By John P. Mello Jr. 

80 Micro News Editor 

When the wired generation holds its convention to nominate 
candidates for Poet Laureate of the Network Nation, expect 
to see the name of David Hughes on the ballot. 



Hughes, 55, believes some day micro- 
computers will shatter traditional forms 
of writing based on Gutenberg technol- 
ogy. He's paving the way for the new 
literature by championing the cause of 
vanity publishing on The Source, a 
computer-based information service 
owned by Readers Digest. 

"I said to Readers Digest," the 
former West Point teacher told 80 
Micro, "I don't think you know what 
business you're in. You think you're 
selling information. I think you're sell- 
ing electronic experiences." 

He pointed out to Source officials: 
"Isn't it interesting that use of chat and 
mail — lateral contact between users — is 
far greater than the use of some of the 
dead data bases?" 

Chat and mail were okay, but 
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Hughes maintained subscribers needed 
more sophisticated lateral contact. How 
The Source met that need, the com- 
munity planner and educator said, is 
"almost a revolution in electronic 
literature." 

"What we did was create magazines 
on The Source," Hughes explained. 
Authors of the magazines receive royal- 
ties based on how often their work is ac- 
cessed by subscribers. Over a three 
month period, Hughes' magazine 
earned him $826 in royalties. 

But there are costs to vanity magazine 
publishers, Hughes noted. They pay for 
time — time needed to load their materi- 
al into the system and time to store it 
there. Storage fees are on a sliding scale 
based on blocks of 2048 characters, 
about 380 words. For the first 10 



blocks, a vanity publisher is charged 50 
cents a block a month; for blocks 11 to 
99, 20 cents a block; 100 to 999, 15 
cents; 1,000 to 9,999, 10 cents. 

"The magazine can definitely pay for 
itself if you put together an electronic 
bestseller," the Joy, CO, native said. 

He added: "Imagine the kid that sits 
down, writes a piece, and can publish it 
nationally. He can begin to get his repu- 
tation. If he's got something to say, 
people will access him. If he doesn't, 
he's paying for it. It's self-correcting be- 
cause he's not going to store forever 
garbage nobody reads." 

Hughes' magazine, SourceTrek, in- 
cludes 13 pieces ranging from a speech 
delivered to the Colorado Springs Ro- 
tary Club to ghost stories of Colorado. 
He uses his e-mag to experiment in writ- 
ing beyond the Gutenberg dimension. 

"A lot of word processing assumes 
the name of the game is to sit and use 
the screen to reproduce Gutenberg en 

continued 
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Give Your TRS-80* a Tremendous Boost 
with RACET COMPUTES Software 

RACET computes Utility Software makes the TRS faster, more efficient, 
and easier to use Our programming aids improve your productivity 
Our reputation is tor products that are professional in design and work 
as advertised!!! 

* NEW SPEED-UP KIT FOR TRSDOS * 
V2.0a & 2.0b MODEL 11 & 16 • S99.95 

This software fix' to TRSOOS 2 is a MUST to users impatient witn the speed of 
TRSDOS 2 Important features include Boot speed improved by a factor of 2 
i 2 times Time and Date need only be entered once at power on Data reads up to 
live times faster than in standard configuration The system runs faster then when 
verify detecl feature has been turned off but still retains the reliability of the verify 
detect function 

Special Note for SCRIPS1T u sers — Scripsit turns off the verify detect featu re The 
Speed-Up Kit turns it back on at no :oss in rjlsV ' time. The Speed-Uo it should 
dramatically reduce 'blown! directories anc r oleri data 

* SUPERZAP lor CP M 80 * S99.95 * 
You asked for it 111 And nov, ifshere" 1 Runsonany CP/M version 2 xsysttr- • 
nmg on a Z80 CPU and 8 inch diskettes'!! Recov<» Blown Files' Access, r -.•- f> 
copv zero, and (>cm» mf sertor on oisk or in memeory — in Hex or AS: l F- , i 
screen editor F, le edit mode 

* SUPERZAP tor TRSOOS II lor Models II and 16 . $99.95 * 

Recover Blown Files! 1 Now you can directly access, modify, copy, zero 
any sector on your diskette or Radio Shack Hard Drive Also included in tfi - par- 
age s a SCAN utility to facilitate a d sk search for a specified string Doci.n •■ --■. 
tion ncludes a descriptic- I :' • "RSDOS II directory structure 
** Model II Fast Backup Utility ** S7S 
b TO 1 C times faster bacKups!:' Full disk Lu.kUL; m c udmy venly) in 
55 seconds!!! on two drive system — 2 15 on b tgie drive system In 
business, time is money, arrl one BACKUP is wo.h 1000 te.irs' ' 

RACET computes Utilities & Programmer Aids 

Generalized Subroutine Facilities (GSFj Mod I S25. Mod III S30. 

Mod II S50 Ihe S'ANPARD dgnirst which ali other sorts ^re compared' 
tad Bwi compare price" Multi-lwy multi-variable and multi-key 
characier string sorts Includes zero and move imys and sample 
P'og'dms ^^^r 

Basic Link Facility BLINK' Mod I and III S30 Mod II S50 
Link from one BASIC program to another saving all variables' The new program 
can be smaller or larger than the original program. The chained program may 
either replace the existing program or can be merged by statement number The 
statement number where execution is to start can be specified 1 

Infinite BASIC Mod I S50. Mod III S60 Extends Level II BASIC with 
complete Matrix Functions and 50 more string functions Includes 
RACET m-memory sorts" Select only those functions you want to 
ro'mize memory 

Infinite BUSINESS (Requires Infinite BASIC) Mod I and III S30 Complete 
printer pagination controls, hash codes binary array search, and 
packed decimal arithmetic ( 1 27-digit accuracy) 
C0MPR0C Command Processor Mod I and Mod III $30 Auto your disk 
to perform any sequence of instructions that you can give from the 
keyboard" ideal for setting up dedicated applications 
Oisk Sort/Merge (DSM) Mod I $75. Mod III $90. Mod II $150 All 
machine language standalone Random file sort package Establish sort 
specification in simple BASIC command file Sorts multiple-diskette 
files Only operator action is to switch diskettes when instructed Super 
'ast sort times improved disk I/O makes this the fastest Disk Sort/ 
Merge available 

KFS-80 Keyed File System Mod I and III $100. Mod II $175 Machine 
'anguage BASIC ISAM utility provides keyed and sequential access to 
multiple files Simple interface to BASIC Binary tree index system 
provides rapid access to records 

Utility Package Mod II $150 Recover blown diskettes includes 
Superzap. bulk copies and other utilities for repair of blown diskettes 
Complete documentation on diskette structure and guidance for repair 
Other utilities include Dynamic DEBUG (with single-step, trace, sub- 
routine calling, program looping and more). XCR. DISKID. Directory 
Catalog System XPURGE 



Development Package Mod II $125 Includes RACET Superzap, 
Apparat Disassembler and Model M interlace to Microsoft Editor 
Assembler + and documentation for Mod I and uploading service 
Assemble directly into memory, MACRO facility, save all or portions of 
source to disk, extended editor commands. 

Basic Cross Reference Utility Mod II $50 SEEK and FIND functions for 
variable, line numbers, strings, keywords. AH' options available for 
line number and variables Load from BASIC - call with control R 
Output to screen or printer 

FIELD PROVEN 

5 to 140 MEGABYTES On Line for the TRS-80* Model II 

Winchester and Cartridge Disk Drives available lor immediate delivery" 

5 MEGABYTE Winchester Oisk Drive — CALL for PRICING 

LOWEST PRICES AVAILABLE ANYWHERE" 
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14 + Megabyte (formatted) ARM Winchester Oisk Drive S3595 

includes ECC error detection and correction FAST. Service Contract Available 
($30 montrvdnve) Multiplexor Available 

20 Megabyte Cll Honeywell Bull Cartridge Drive $7995 

10 Megabytes fixed. 10 removable for the professional installation 
requiring Removable Media BACKUP. 60 and 120 Megabyte add-on 
Winchester drives available 

1 Megabyte Cameo - Western Oynex Cartridge Drive $5995 

5 Megabytes fixed. 5 removable for the smaller professional installation 
Removable Media BACKUP Multiplexor available for up to four users!! 

HARD SOFT DISK SYSTEM (HSDS) SOFTWARE 

HSDS is available for the Radio Shack (2.0(A) compatible) Cameo. 
Cynthia Bull ARM. Corvus. OCS Data Peripherals, and Santa Clara 
Systems hard disk systems and others 1 !' 

Compatible with your Version 2 0(a) TRSDOS files. Compatible with 
your existing BASIC programs and files Compatible with most machine 
language programs that use the standard calling sequence You can 
access both your floppy disk drives and HSDS files interchangeably!! 
Complete utilities include HZAP (Hard Disk SUPERZAP). Directory 
Catalog System, Parameterized FORMAT. HPURGE (Bulk Copy/Purge 
Utility) and others 

The Hard/Soft Disk System (HSOS) Software has more than One Year's 
FIELD Experience The latest HSDS version adds several enhancements 
including maintenance of system files on the hard drive, files as large 
as the disk, the ability to segment the disk as logical drives, and defin- 
able directory size Uses 3 2K memory Mixed floppy and hard drive 
operation is supported 

HSDS for Radio Shack $500 
HSDS for Other Drives $400 

E- RACET COMPUTES iTD-^ 

L__ Integrity in Software mmJ 

1330 N Glassell. Suite M. Orange, CA 92667 (714) 997-4950 

CALL FOR COMPETITIVE PRICING ON HARD DRIVE SUBSYSTEMS - 
BUY WHERE YOU CAN GET SOFTWARE SUPPORT!! 

CHECK VISA. M/C COO ON CERTAIN HARDWARE 

TELEPHONE ORDERS ACCEPTED (714) 997-4950 

•TRS-80 IS A REGISTERED TRADEMARK Of TANDY CORPORATION 

CPW IS A TRADEMARK OF DIGITAL RESEARCH 

„41 CIRCLE READER RESPONSE FOR FREE CATALOG 
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route to a piece of paper," he contend- 
ed, "but I think you can do things on a 
screen you can't do on a piece of paper." 

Hughes maintained that until now, 
writing has operated on a fixed data 
base — the 26 letters of the English lan- 
guage — and required our eyes to be dy- 
namic. He reasoned, "If you take the 
dynamic things of games — the graph- 
ics — and apply them to letters, I've got 
a sneaky suspicion we will create a new 
form of extension." 

Hughes playfully emphasizes this 
point in the opening of his magazine. 
He prints on the screen a quote from 
The Rubaiyat of Omar Khayyam: 

The Moving Finger writes; 

and, having writ, 
Moves on: nor all your Piety 

nor Wit 
Shall lure it back 

to cancel half a Line, 

Then he reverses the cursor and erases 
half a line. 

On another occasion, Hughes was in- 
spired by an Orchestra 80 rendition of a 
Scarlatti pastoral he downloaded from 
CompuServe. He wrote for his maga- 
zine an article titled "Sunday on a 
CRT." "When 1 reached the point in 
text," he said, "where in the print world 
you would describe the music, suddenly 
1 realized, 'Why should I do this?' I 
went back to the file, picked a fragment 
of code, embedded it in the text and 
went on." 

During the last two years, Hughes 
has pushed beyond the limits of the 
alphabet in what he calls "word, 
dance." He described the technique as 
"creative electronic literature beyond 
the edges of Gutenberg English." 

"One of my first tasks," he ex- 
plained, "was to eliminate punctuation 
on the screen, on the ground there's a 
brain equivalent and ways to make em- 
phasis occur on the screen that are 
superior." 

"This convention called punctua- 
tion," he continued, "is nothing more 
than ASCII English — in other words, 
code. When I speak, I don't say comma 
or period, but on paper, I have to have a 
comma to pause. On the screen, 1 don't 
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Hughes and some of his students practice their Electronic English with the help of a micro. 



have to have a comma. 1 can actually 
pause." 

Hughes isn't the only artful experi- 
menter on The Source. People have 
composed electronic duets in verse. 
They have assumed fantasy roles, like 
the Pink Elephant, and conducted im- 
provisational "theater" on the message 
system. "That's damn exciting," the 
electronic bard said, "because I think it 
will draw people into the computing 
world who call computers dehumaniz- 
ing. I say they are the most humane 
thing ever invented." 

He added, "It is my absolute convic- 
tion that until the people with words be- 



gin to understand computing in a cul- 
tural context, not as a clerical skill, not 
as a computer skill; that they see tele- 
communications as a device that can do 
things other technologies cannot do; 
then we're not going to drag enough of 
the human race into this." 

One way to get people to understand 
the cultural ramifications of computers 
is through education. But much of that 
has become part of the problem, ac- 
cording to Hughes. He declared: "This 
myth that everyone has got to learn to 
program is one of the biggest impedi- 

continued 



INTERFACE EXPANSION SYSTEMS FOR THE TRS-80" COMPUTERS 



The MDX Series Interface Expansion Boards provide a wide range of features for the TRS-80* Computers. 
Fully assembled units offer immediate, inexpensive expansion; or choose the bare or partially assembled 
units for even more savings. Since assembly of the board in sections is possible, you can build in the 
features you need, as you need them! P.C. Boards are solder masked and silkscreened for easy assembly; 
each comes with the illustrated User's Manual . 



TRS-80* Model I EXPANSION 

Our MDX-1 and MDX-2 Interface Expansion Boards are field 
tested/field proven and offer more options for the Model I 
than any on the market. Also compatible with the PMC-80 and 
LNW-80 Computers. Custom Case Available for MDX-2. 




FEATURES: 

• MEMORY EXPANSION to 48K 

• ONBOARD SUPPLY, fully protected 

• PHONE MODEM, 0-600 baud, direct connect, 
"answer" and "originate" modes 

• REAL TIME CLOCK, software programmable 

• PARALLEL PRINTER PORT 

• SERIAL PORT- RS232 and 20ma loop 
compatible 

• EPROM OPTION for user firmware 

• DUAL CASSETTE LINE 

• FLOPPY DISK CONTROLLER: The MDX 2 
has all the features of the MDX-1 plus Floppy 
Disk Controller. The Controller is compatible 
with any single or double-sided floppy disk 
drive that is configured for use with the 

TRS-80 computer. 

ALL MDX SERIES BOARDS ARE WARRANTED AND SERVICE 
IS AVAILABLE. 
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TRS-80* Model III EXPANSION „, 7 

The MDX-3 Interface Expansion Board is desinged to mount 
inside the Model III Computer. Connectors provide external 
access to the Floppy Disk Controller (for external drives) and 
RS232 port. 

FEATURES: 

• DOUBLE DENSITY FLOPPY DISK CONTROLLER 1 .8 times 
the normal single density storage, digital data separation; controls 
up to 4 drives. 

• SERIAL PORT- RS232 and 20ma loop compatible, 1 10-19.200 baud 

• PHONE MODEM-0 600 baud-direct connect- "answer" and 
"originate" modes. 

• FULLY COMPATIBLE with all Model III software. 



MDX-5: Also for the TRS-80* Model III 

For the user who already has disk we offer the MDX-5. This 
board mounts next to the Floppy Disk Controller Board in 
the Model III. 
FEATURES: 

• SERIAL PORT-RS232 and 20ma loop compatible, 1 10-19.200 baud 

• PHONE MODEM-0 600 baud direct connect "answer" and 
"originate" modes. 

• Fully compatible with all Model III Software 



PHONE MODEM *.« 

The MDX-4 Phone Modem utilizes the same Direct Connect, 0-600 
baud design as used in the other MDX series boards and: answer/ 
originate modes; solder-masked & silkscreened; on -board power supply. 
Compatible with any RS232 port 



*TRS-80 is a trademark of Tandy Corporation. 



Our Expensive Expansions Are Not Cheap, They Are Inexpensive. 



i K< 



Accepted 



For a free brochure 
contact: 



Ban- 1' C. Hoard fit Uaer"« Manual 
Fully Assembled 

Installation Kit For Model III Drive 
< Imtom < use 



MDX-1 MDX-2 MDX-3 MDX-1 MDX-5 
909.95 174.95 $74.95 9 29.95 149.95 

1409.95* 1399.95 N A 9224.95 
9119.95 

945.00 




\n\ manual ordered separate!; . 95.95 plus 93.00 postage \ handling. 

All board orders, add 95.00 foi postage A bandlini [Texas residents add 5 tat 

'\V ( lase and power transformer minor assembly required 



OUR BUSIN€SS4S^XPANDING 

EXPAND WITHMJS^ 



6301 Manchaca Rd. Suite J 
Austin, TX 78745 



1-800-531-5002 



Texas Res. only (512) 441-7890 
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ments to why people aren't getting into 
computers." 

"Computer literacy has come to 
mean programming classes," he con- 
tinued. "Even when Radio Shack offers 
teachers programming classes, they find 
very few English teachers. And after the 
few English teachers that show up learn 
to program, they ask, 'Now what?'" 

"A woman can learn how to drive a 
car without learning how to build an in- 
ternal combustion engine," he ob- 
served. "I say to my students, 'I will 
teach you how to write on this thing. 
Then it might become useful for you to 
learn how to program.' Just like a 
woman might learn how a carburetor 
works so she won't get ripped off by a 
mechanic." 

Hughes has pioneered a college credit 
course for Colorado Technical College 
called Electronic English. The entire 
course is conducted over The Source. 

He said his course focuses on screen 
characteristics and teleconferencing. 

"People 'recite' in class," he noted. 



"I grade them on screen readability. 
You're taught in speech class about how 
to stand when you talk, eye contact, and 
having your voice loud enough to be 
heard. In electronic speech, if you want 
to be an effective writer, you have to be 
acutely conscious of what a person is 
reading, how they're reading it, and the 
rate they're reading it. 

"If you can't handle a keyboard, 
don't know what a smart terminal pro- 
gram is, don't know what 300 baud and 
ASCII code is, don't visualize what a 
guy with an Apple with 40 characters 
uppercase only is seeing while you're 
writing in 64 characters upper- and 
lowercase, you don't know how to 
speak to another person." 

Guest teachers in Hughes' classes 
don't give lectures. They give electures, 
plugging their lessons into The Source 
where students access them. 

Hughes explained his students put in 
three hours of class work a week but 
don't meet at regular hours. However, 
his course differs from correspondence 
courses because a student is connected 
to his classmates and the instructor. 

Two or three times during the 
11-week course, he continued, students 
must "bring their brains to the 
classroom." During those sessions, 



"We already provide highways for people's bodies. Why don't we provide highways for their 
minds?" 




students upload 2,000 word composi- 
tions and the class discusses them on the 
system in real time. 

Hughes also teaches his classes about 
software aids to writing like Aspen 
Software's Grammatik, Proof-Edit, 
and Proofreader. And he leads discus- 
sions on what freedom of information 
means in the electronic era. 

"Why don't we create programs that 
allow the individual to screen, by a 
filter, words offensive to him," he 
opined. "System operators should 
never try to censor what a speaker says 
because in the microcomputer age, 
readers can be their own censors based 
on their own value system." 

Hughes' students attend his classes 
from all over the United States and the 
world. They've included a former lieu- 
tenant governor of Alaska, a hay and 
grain dealer in Iowa, a travel agent in 
Australia, and a professional writer in 
London. 

The electronic educator believes 
breaking down geographical barriers 
through microcomputer networks can 
preserve cultural diversity. 

He cited the case of Anne Charles, a 
21 -year -old Cree Indian, who travelled 
350 miles from L 'Orange to Regina, 
Canada, to ask Hughes if she could take 
his course. Hughes, who was in Regina 
to address the International Association 
of Business Communicators, told the 
association's conferees: 

"Anne Charles wants to be a jour- 
nalist. She does not have to move to 
Montreal and become French-Cana- 
dian to do that. She could learn jour- 
nalism while staying in L 'Orange, then 
turn around and export the culture of 
her people for pay." 

Later, Hughes explained to Charles 
how she could use an Epson printer to 
preserve the Cree language: "For her 
uncles, who speak Cree and write in a 
cunieform, I did a quick little program 
that spit out of the Epson the language 
of her people in cunieform form. I said 
her brothers and sisters could learn how 
to put the speech of her people on an 
Epson and communicate it over net- 
work lines." 

By using microcomputer technology 
in this fashion, Hughes contends society 
"can really start to solve the cultural 
and economic problems of the world." 

"We already provide highways for 
people's bodies to get them to big 
centers," he observed. "Why don't we 
provide highways for their minds?" ■ 
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COLOR COMPUTES 



PROGRAMMABLE 
SOUND MODULE 



AT LAST — the COLOR COMPUTERS 
audio capabilities even SURPASS its 
great graphics! If you can program in 
BASIC — plug in the PSM cartridge 
and start to create life like explosions, 
engines, animals, wind, water and other 
sounds limited only by your imagination. 
Complex sound effects are continuously 
maintained independently of your 
program. The PSM Is a power packed 
hardware/software combination and 1002 
compatible with ALL models of the 
Color Computer. 

PSM + complete instructions $98-95 

Available from; 

MAPLE LEAF SYSTEMS 

P.O.BOX 2190, STATION C , Downsview 
Ontario, CANADA M2N 2S9 ^92 



MOD 2 



MERGIT-CLII 

LINKS MODEL 2 ONE DISK GENERAL 
LEDGER (PN 26-4501) PROGRAM WITH 
SCRIPSIT" 2.0 ALLOWING ULTIMATE 
FLEXIBILITY IN REPORT FORMATS 
AUTOMATICALLY S89.95 

GAMES-V 
5 assorted GAMES for mod2 S19.95 

SAVE!! Buy both for $99.95 

INDEPENDENT SOFTWARE 

POB 3126 

FEDERAL WAY, WA 98003 

(206)941-6022 WA res add 6.5X tax 

no COD orders please 

"trademark of TANDY CORP .,494 



l*pE) Munch? 
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D Punch Con.t'l.on K,« will halp you SAVT MONEY 
SAVf STOtAOf SMCI. SAVt TIMf D. Punch Kin 
ore engineered to you con quickly, occurotely A 
tofely moke olteroliom necettory lo lei you ule both 
i.de. of your H or $ tectored SihJC.lt SIDt 0«kene> 
Converting I bo. o( diskette* will more thon poy for 
eoch D Punch Kit • Hub Remforcer Kit occu-ofelv 
poiifiom Hub Reinf Ring lo hub opening • Duk 
Sleeve leu you replace your lost or damaged ileevei 
Indicate your tytfem config with order 

a D 'Punch Ki1 A — [i%~ dnvet & eq I tor •> 

[Apple. Atari, CBM 4040. Fronklm| I 6 95 

b Punch Kil B (3 <k' dnve« & eq.' tor e> 

TRS 80 (Mod I llll. IBM. Oborne Zennh] 14 9} 

c D 'Punch Kit C 8 " 6i ■*•. f. '-,•-.- ». 

'Alloi Zenith TRS 80 Mod II 16 9} 

d label. — [100 p<>| 3 00 

e Write Protect Sticken — (100po| 2 65 

f Hub Reinforcer Kit |J%") 10 99 

g Hub Remforcer Kit (8") 13 99 

h Hub Remrorcer Ringi 15%') [50 po] 5 85 

i Hub Remforcer Ringt B" — |50 pet] 6 70 

I Ook SleeveifSU") — [lOpci] 2 35 

k 0-tk Sleeve. 18") - [10 pc.| 3 85 

Add S7 shipping & hondling for eoch SI) order 
increment A». HI. & c-veneot cmt write lor SAM chorgei 
MA r*i add i% loi Send check or money order to 

D/PunchCo(12) 

rO tei 201 Newten Hide MA 021*1 

Tel |*l 71 964- 212* Telei 499 1 009 « T»l » 

C 198? D Punch Corp Pol Pend _ _ _ 

___ 5 5 5 



MEMOREX 
Diskettes 




Top-quality 

Memorex 

Diskettes 

from Tech* Data, your complete 

word and data processing supply 

center. Dealer inquiries invited 



Call Toll Free 

1-800-237-8931. 

In Florida, call 

813-577-2794. 



V 



Tech* Data Corporation 

325 1 Tech Drive North s "u 
St Petersburg. FL i3702 



W..I..D..E RETORT SUPPORT 

K)D 11/16 and DAISY WEEL II 

Print 15 and 20 Characters /inch 



D L P Company 
6798 Wether idge Dr. 
Cincinnati, Ohio 45230 

513 232-7791 - 41 

VISA OR MASTERCARD ACCEPTED 

$75.00 

260 characters in just 13" at 20 
CPI; 170 in 7". Excellent qua- 
lity 15 CPI printing; 195 Char, 
in 13"; 120 in 8". SCRIPSIT" 2.0 
TRSD0S'" 2.0/4.1, VISICAIT®, PRO- 
FILE™, BASIC, COBOL, etc. 



EPSON MX-80 

CARTRIDGE RIBBONS 



$7 # 00 



MINIMI M ORT'rR 



LABELS 

'■ s i e ,x3 l ; Pin-fed white 
rtuw Rf sEMsmvi 

Minimum OnJrr 1 up 5.000 

Zup IOjODO Jul- 15.000. *up 10 XXX 



$2.99 

per M 



PAPER 

20» white 

1250 «h<fts 



$20.oo 



Prices Include Shipping! 

C heck must accompany orders 

COMPUTER SALES AND SUPPUES 
P.O Box 02294 - Cleveland. OH 44102 

(216) 281-8820 *>** 



/iBfe 



ABS Suppliers 

3352 Chelsea Circle 

Ann Arbor, Ml 48104 

(313)971-1404 



B17 TAPE OPERATING SYSTEM well let you 

• Save & Load prog-ams 6X taster than Model-' 

• Save & Load Data Arrays over 800X taster 

• Backup standard System tapes mat load-n-go 
$14.95 Specify 16K. 32K, or 48K 

MICRO-SCOPE diagnostic tor ANY Disk System 
Tests MEMORY, FDC, DISK READ/WRITE. 
PRINTER & RS-232 Built-in Disk Drive timer 
Exceptional value 
$16.95 

WORDSMITH Word-processmg program m BASIC 
A Trainer' for more complex W/P programs Easy- 
lo use Specify Tape/Disk version Tape version 
requires B1 7 Tape Operating System (above) 
Disk version requires 32K RAM-up Uses MX-80 
Printer. 
$14.95 

Add $1.50 postage/handling per Model-i item 

Write for our FREE Reference Sheet .-173 



SECURE 
PROGRAMS 



AND ASCII FILES 

WITH 

CODE 4 

COMES WITH 

LIST SOURCE 

AND BRUN UTILITY 

* 1 9.95 

SEND CHECK OR 
MONEY ORDER TO 

HPB VECTOR CO. 

130 CENTER ST. 
EAST STROUDSBURG ., 4 8" 

PENNSYLVANIA 18301 

ALLOW TWO WEEKS DELIVERY 




SUPER GRAPHICS/- SOUND 
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/m rson 



b. si*, ro jcuh woe. ino mrmn fm on m r«n 
ns» « j'iid am xwuem 10 nquh nmunoa oitf 
SHDnnrmn KATAHOM SOFTWARE 
35 W BROADWAY 
UNCOIN MAW 044b/ ; 

Dt*» •wra KM 3 
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Will the meek in- 
herit the market? 

Industry 
watchers 
were sur- 
prised by the 
meek pricing 
moves made 
by Atari and Commodore 
in the face of Texas In- 
struments' $100 rebate 
plan, according to Elec- 
tronic News. 

That weekly speculated 
soon after TI announced its 
rebate plan Atari was pre- 
pared to give away $150 in 
software and gift certifi- 
cates to buyers of its low- 
end micro and Commodore 
would be knocking $50 off 
its VIC. 

The official word from 
the two firms, however, was 
less dramatic. Atari — faced 
with potential resistance 
from retailers for whom 
software is a high margin 
item — anounced it would 
offer six $10 certificates 
good for software and 
peripherals with the sale of 
its 400 computer. And 
Commodore revealed a $25 
to $40 VIC pricecut, de- 
pending on purchase 
volume. 

Electronic News also re- 
ported the low- end- micro 
price war has forced Com- 
modore to change some of 
its production and market- 
ing schedules. Production 
of the VIC, set for 50,000 
units a month, has been 
upped to 70,000 units a 
month. That, in turn, has 
reduced Commodore's 
commitment to its new 
game micro, the MAX 
Machine. 

Commodore had planned 
to place equal marketing 

410 • 80 Micro, December 1982 







';*■' "•.£' ••'jE'i'-':': ".V,. 



..:-,. i-^H 



%\ HEM OTJ ,Jb ' '• '"SB 





«*** ■. " 



Roach: We've been tarred and feathered. 



emphasis on the VIC and 
MAX Machine, but the 
firm's vice president for 
marketing, Kit Spencer, 
told the newspaper: "We 
have decided to make VIC 
our major product for the 
Christmas season." 



Electronic News said 
Tandy's official line on the 
fireworks in the low-end 
market is its company- 
owned stores insulate it 
from price bombings. Tan- 
dy's president and chief ex- 
ecutive officer, John 
Roach, told the industry 
weekly: "We're getting 
tarred and feathered with 
people guessing our res- 
ponse to the TI, Com- 
modore and Atari business. 
It's difficult to understand. 
We're a retailer and 
whatever our strategy is, we 
will not talk about it until 
we implement it." 




Computer division 
boosts Tandy's 
profits picture 

Tandy Cor- 
poration ex- 
perienced a 
32 percent 
jump in prof- 
its for its 
fiscal year ending June 30. 
Contributing to the increase 
was a 72 percent hike in 
shipments from its com- 
puter division. 

The $224 million in prof- 
its for the 1982 fiscal year 
compares to $169 million 
earned in FY 1981. 

The Fort Worth firm esti- 
mated computer revenues 
account for 3 1 percent of its 
annual revenues. 

Computers are in a 
strong growth cycle, the 
company noted, and calen- 
dar 1982 will be the first big 
year for home sales. 

Tandy projects sales of 
its product will grow three 




to four times in 1982, com- 
pared to 1981. 

The firm also said early 
orders for its Model 16 have 
exceeded expectations. 

Tandy to give Na- 
tional Science Foun- 
dation hardware 

Tandy Cor- 
poration an- 
nounced an 
agreement 
with the Na- 
tional Sci- 
ence Foundation to provide 
computer equipment to in- 
stitutions for use in educa- 
tion programs in science, 
mathematics, and engineer- 
ing through the Fort Worth 
firm's TRS-80 Educational 
Grants Program. 

The foundation, an inde- 
pendent agency of the U.S. 
government, will be award- 
ing the computers as the 
equipment portion of pro- 
jects supported by its on- 
going development-in- 
science education program. 
Charles Phillips, Radio 
Shack senior vice president 
for special markets, told 
the T.H.E. Journal the 
program is "a timely and 
important step supporting 
the need for renewed em- 
phasis on science education 
in this country." 



He added that "this par- 
ticipation with NSF is in 
accord with the philosophy 
behind our Tandy TRS-80 
Educational Grants Pro- 
gram — that is, rather than 
simply giving out hard- 
ware, we want to support 
projects that have a mean- 
ingful plan for educational 
applications using that 
hardware." 



PROGRAMMING TOOLS FOR YOUR 
TRS-80 ™ MODEL I AND MODEL HI 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER if a powerful disk or tape based assembler and debugger for 
the TRS-80. Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger. Quickly switch from assembler to 
debugger and back again without losing the source code. This feature makes INSTANT 
ASSEMBLER an excellent learning toot for assembly language programming. 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers In that It 
produces relocatable code modules that can be Inked with the separate LINKING LOADER, 
which is suppled in two versions for loading programs Into either high or low RAM. This lets 
you build long programs with small modules INSTANT ASSEMBLER also features im- 
mediate detection of errors as the source code is entered, a compactly coded source format 
that uses 1/3 as much memory as standard source, and many operational features Including 
single Stroke entry of DEFB and DEFW pinpoint control of listings, alphabetic listing of 
symbol table, separate commands for listing error Ines or the symbol table, block move 
function, and verification of source tapes 

INSTANT ASSEMBLER'S debugger provides single stepping with full register displays, 
decimal or hex entry of addresses, forward or backward memory displays, disassembly of 
object code in memory memory display in ASCII format, and hex-to-decimal or decimal- 
to-hex conversion The single stepper will step one instruction at a time or at a fast rate to any 
defined address 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory In a 16K machine this 
will leave you enough memory to write assembly language programs of around 2000 bytes 
This and its module-linking feature make INSTANT ASSEMBLER ideal for users with only 
16K machines The Instruction manual may be purchased separately for $3. which will apply 
towards the purchase of the INSTANT ASSEMBLER In addition to disk L 0, the disk version 
includes a stand-alone version of the debugger 

Specify Model I or Model III. TAPE INTASM $29.95 on tape 

Specify Model I or Model III. DISK INTASM $35.95 on disk 

RESTORE DAMAGED TAPES WITH RESQ2 

Cassette recordings are subject to several types of damage. Thin spots in the oxide, dirt, 
voltage fluctuations while recording, or stray magnetic fields can all contribute to lost or 
added bits. RESQ2 was written to provide a method of restoring tapes that can no longer be 
loaded for these reasons It can restore BASIC. SYSTEM. ASSEMBLER, and DATA tapes. 
RESQ2 compares two copies of the damaged tape to attempt a restoration, though restora- 
tion can often be accomplished with only one copy After the damaged data is corrected in 
memory, a new tape may be recorded and verified which does not contain the errors. The 
success rate of RESQ2 will depend on the severity and quantity of errors RESQ2 comes with 
a comprehensive user manual and examples of two types of crashed' programs to practice 
on. 
Specify Model I or Model III. RESQ2 $19.95 on tape 

RAM SPOOLER AND PRINT FORMATTER 

This program a a ful feature print formatting package featuring user defineabte line and page 
length (with Ine feeds inserted between words or after punctuation), screen dump, pnnter 
pause control, and baud rate selection In addition, printing a done from a 4K expandable 
buffer area so that the LPRINT or LUST command returns control to the user while printing is 
being done Works with cassette or disk systems Ideal for Selectric or other slow printers 
Allows printing and processing to run concurrently. Output may be directed to either the 
parallel port serial port, or the video screen 80 Microcomputing said "I can only give my 
highest recommendation of Spooler and Mumford Micro Systems " 
Specify Model I or Model III. SPOOLER $16.95 on tape. $21.95 on disk 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of almost any tape including Basic, SYSTEM, data Ists. assembler 
source, or "custom loaders". The file name, load address, entry point, and every byte (in 
ASCII format) are displayed on the video screen. Model III version allows changing tape 
speed so you can load in a tape at 500 baud and write it out at 1500. 
Specify Model I or Model III. CLONE $16.95 on tape. $21.95 on disk 

MACHINE CODE FAST FOURIER TRANSFORM 

Written by Dr AH. Gray. Jr. co-author (with J D. Markel) of the classic text "linear 
Prediction of Speech", this complete package includes 3 versions of the machine language 
FFTASM routine assembled for 16, 32. and 48K machines, a short sample Basic program to 
access them, a 10K Basic program which includes sophisticated interactive graphing and data 
manipulation, and a manual of instructions and examples The machine language sub- 
routines use variables defined by a supporting Basic program to make data entry and retrieval 
automatic, without PEEKs and POKEs They perform 20 to 40 times faster than their Basic 
equivalent (256 points in 12.5 seconds), and handle up to a 1024 point complex FFT The 
FFI is useful in analyzing stock market and comodity trends as well as for signal analysis. 

Specify Model I or Model HI. FFTASM $49.95 on tape 

FFTASM on disk with source code $69.95 



The Programmers 



INSIDE LEVEL II 

ammers Guide to the TRS- 



80 ROMS 



INSIDE LEVEL D is a comprehensive reference guide to the Model I and Model III ROMs 
which allows the machine language or Bask programmer to easily utilize the sophisticated 
routines they contain. Concisely explains set-ups. calling sequences, and variable passage 
for number conversion, arithmetic operations, and mathematical functions, as well as 
keyboard, tape, and video routines. Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes In both Basic and machine 
code with the speed and efficiency of a compiler. In addition, the 18 chapters include a large 
body of other information useful to the programmer including tape formats. RAM useage. 
relocation of Bask: programs. USR call expansion, creating SYSTEM tapes of your own 
programs, interfacing of Basic variables directly with machine code, and special precautions 
for disk systems INSIDE LEVEL II was reviewed in the April 1982 issue of 80 Microcomput- 
ing which said "The book has no flaws, it is a perfect gem " Byte Magazine said "I recommend 
this book to serious machine language programmers." 
Includes update* for Model 111. INSIDE LEVEL II $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine language program one instruction 
at a nme. and see the address, hexadecimal value. ZJog mnemonic, register contents, and 
step count for each instruction The top 14 Ines of the video screen are left unaltered so that 
the "target program' may perform its display functions unobstructed STEP80 wiD follow 
program flow right into the ROMs, and is an invaluable aid in learning how the ROM routines 
function. Commands include step (trace) disassemble, run in step mode at variable step rate 
display or alter memory or CPU registers, jump to memory location execute a CALL, set 
breakpoints in RAM or ROM. write SYSTEM tapes, and relocate to any page in RAM The 
display may also be routed to your kne printer through the device control block so custom 
print drivers are automatically supported. 
Specify Model I or Model III. STEP80 $16.95 on tape, $21.95 on disk 

SMART TERMINAL PROGRAM 

This machine language program may be used as a smart terminal with Bme share systems or 
for high speed file transfers between two disk-based micros over modems or direct wire. It is 
menu driven and extremely simple to use. Functions include real-rime terminal mode, save 
RAM buffer on disk, transmit disk file, receive binary files, examine and modify UART 
parameters, program 8 custom log-on messages, automatic 16-bit checksum verification of 
accurate transmission and reception, and many more user conveniences. Supports Ine 
printers and lowercase characters With this program you will no longer need to convert 
machine language programs to ASCII for transmission, and you will know immediately if the 
transmission was accurate 
Specify Model I or Model 111. TELCOM $39.95 on disk 

DISK INDEX VERSION 3.0 

Our excellent disk indexing program has now been entirely rewritten in machine language h 
will run on either a Model I or Model III and catalog disks for either machine regardless of 
which one is running it. (Model I owners must have double density to catalog Model III disks ) 
DISK INDEX will assemble an index of your entire program library by automatically reading 
program names and free space from each disk directory The index may then be alphabetized 
or searched for any disk, program, or extension Disks or programs may be added or deleted, 
and the whole index or any part may be sent to the printer The index Itself may also be stored 
on disk for future access and update A 48K machine will hold over 2500 programs in each 
index, and you may build as many indexes as you need Version 3 nans substantially faster 
than our previous version and works with any operating system written for the Model I or 
Model III except CP/M. 
Specify Model I or Model III. INDEX 3.0 $29.95 on disk 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK- 2 clock modification allows CPU speeds to be switched between normal, an increase 
of 50%. or a 50% reduction, selectable at any time without interrupting execution or crashing 
the program Instructions are also given for a 100% increase to 3.54 MHz The SK-2 may be 
configured by the user to change speed with a toggle switch or on software command, h will 
automatically return to normal speed any time a disk is active, requires no change to the 
operating system, and has provisions for adding an LED to indicate when the computer is not 
at normal speed It mounts inside the keyboard unit with only 4 necessary connections for the 
switch option (switch not included), and Is easily removed if the computer ever needs service 
The SK-2 comes fully assembled with socketed IC's and illustrated instructions 
Model I only. SK-2 $24.95 

RAMTEST 

This machine language program is a very thorough test for several types of RAM errors and 
will indicate which chip, if any. is faulty It also includes a separate test for power Ine gltches. 
Specify Model I or Model III RAMTEST $12.95 on tape. $17.95 on disk 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is guaranteed or a (ull refund will be made Include $2 III 

for postage and handling California residents add <>"■'. sales tax Visa. Master. Iiarg< and ' Oil 
orders accepted SPECIFY MODEL I OR MODEL III. Dealer inquiries invited 

Box 400 -E Summerland. California 93067 (805) 969-4557 

s f> 7 Quality software since 1978 
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Cosmo discovers 
Network Nation 

The Cosmo 

girl has dis- 
covered the 
Network Na- 
tion and it 
looks like an 
8.5. "forget dating through 
the personals or friends' fix- 
ups!" Cosmopolitan 
magazine exhorted its 
readers in its September 
issue. "An electronic brain 
right in your own living 
room can introduce you to 
thousands of men... in 
seconds!" 

Cosmo discovered the 
wonders of networking 
through author Elizabeth 
Fcrrarini, who stumbled on 
The Source while looking 
for a man "who'll be 
G.I.B., pay for dinner, and 
treat me like precious porce- 
lain . . .have a college 
degree, solid profession, 
good looks, weight in pro- 
portion to height, and make 
at least $50,000 a year." 



Despite her assets — 
magna cum laudc college 
graduate, homeowner, late- 
model sports car driver, and 
good teeth — Ferrarini 
found "Mr. Terrific was 
being strangely elusive." 

"Just in time to avert ter- 
minal loneliness," she 
wrote, "a friend told me 
about a company that 
allows nearly 20,000 com- 
puter owners to communi- 
cate with each other in a 
flash. When I learned that 
over 90 percent of these 
computer buffs are males, 
their median age is 35, and 
they are college-educated 
412 • 80 Micro, December 1982 



professionals with an 
average yearly income of 
almost $50,000, I knew the 
object of my capitalistic 
fantasies must be among 
them." 

After purchasing a micro 
and learning how to use The 
Source, the Cosmo author 
realized the potential of net- 
working: "Using my com- 
puter to communicate via 
the telephone line, 1 could 
dash off torrid love letters, 
place ads on an electronic 
bulletin board, and even 
carry on 'conversations' 
with other subscribers by 
way of our respective com- 
puters' keyboards. Admit- 
tedly, all of this sounded to 
me like science fiction. Im- 
agine getting my mail deliv- 
ered by an electronic brain 
and communicating with 
people I'd never seen. A 
smart chimpanzee could be 
sending me electronic 
billets-doux." 

Ferrarini placed a lonely 
hearts message on The 
Source's electronic bulletin 
board and 24 hours later, 
she had 16 e-letters, 12 of 
them with one thing in com- 
mon: a trip to her home 
state within the next two 
months. 



Overall, the Cosmo 
author appeared satisfied 
with the chipsters her ad at- 
tracted. "Although I've 
encountered my share of 
duds," she wrote, "com- 
puter owners are, on the 
whole, a likeable lot. With 
my desk-top model and a 
telephone, I can plug into 
an endless supply of avail- 
able males — and keep my 
checkbook balanced, too." 





Computer life 
after 40? 

Is there com- 
puting after 
40? The 
Source says 
yes. In a 
statement on 
a recent survey it completed 
on its subscribers, the infor- 
mation utility said the 
average age of its users is 
42, three years older than 
the average age in 1981 . The 
Source also noted 64 per- 
cent of its subscribers are 
over 35, compared to 56 
percent last year. 

In a related matter, The 
Source announced it is car- 



rying an electronic version 
of the U.S. Sews Washing- 
ton Newsletter. According 
to a statement from the in- 
formation utility, each week 
the letter carries about a 
dozen stories on investment 
opportunities, economic 
trends, and key government 
activities. 

Apple millionaire 
raps Woodstock 

Although 
pre-concert 
publicity 
touted the 
US Festival 
as the Wood- 
stock of the 1980s, the man 
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who picked up the SI 3 
million tab for the event 
disavowed any similarities 
between the rock-a-thons. 

Millionaire and Apple 
computer founder Ste\e 
Wozniak rapped Wood- 
stock in an article appearing 
in the Providence Sunday 
Journal. "If I listed the 
things that were wrong with 
Woodstock, it would over- 
flow one diskette on my 
word processor," he said. 
"Woodstock was really a 
lot of lies, miserable lies. 
They were a bunch of hip- 
pies spending money that 
wasn't even theirs. They 
didn't even have any sanita- 
tion." 

Sanitation is something 
they had plenty of at Woz- 
niak's concert. At the 
500-acre park carved to 
Wozniak's specifications by 
the construction superin- 
tendent at Disnev World, 



there were 2,500 latrines, 
the best commode-to- 
concert-goer ratio in 
history. 

Apparently, US Festival 
planners hoped its partici- 
pants would react different- 
ly to their concert than their 
Woodstock predecessors. 
While people attending 
Woodstock professed to be 
members of a mythical 
love-peace entity called 
"The Woodstock Nation," 
rock impresario Bill 
Graham told the Journal 
that an US Festival 
goer — gazing at laser lights 
and multi-dimensional visu- 
al effects — was supposed to 
"feel like an extra in a 
Steven Spielberg movie." 

"Woodstock was essen- 
tially anti-establishment," 
one festival goer, a 30-year- 
old insurance man from 
Santa Barbara, C A, 
opined. "This festival isn't 
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anti-establishment. Hell, we 
are the establishment." 

Computer books 
hot, but some 
make them shoddy 

Computer 
books have 
been selling 
as never be- 
fore and 
publishers 
are turning out dozens of 
new titles every month. Un- 
fortunately, according to 
Omni magazine, in the 
scramble to publish as 
many computer books as 
possible, publishers have 
rushed out amateurish 
guides written by computer 
freaks who know their sub- 
ject but don't know how to 
explain it clearly. 

The opportunistic tactics 
that some publishers 
employ can also contribute 




to low standards in com- 
puter books. Charles Piatt 
wrote in the pop-science 
magazine. 

He added: "Anyone who 
writes a short article for one 
of the computer magazines, 
for instance, will have his 
name picked up by at least a 
couple of book publishers, 
who'll send form letters en- 
couraging him to write a 
book for them on any com- 
puter-related subject, re- 
gardless of his qualifica- 
tions. Indeed, some book 
publishers prefer to hire 
amateurs, because I hey are 
less trouble to work with. A 
would-be writer, excited by 
the prospect of seeing his 
work in print, won't com- 
plain if the publisher makes 
changes, and he will do the 
work for lower pay." 

But even books done by 
reputable publishers and 
professional authors can be 
disappointing, Piatt said. 
He cited the second edition 
of Personal Computing, by 
Daniel R. McGlynn, pub- 
lished by John Wilev and 
Sons of New York. Al- 
though authoritative and 
thorough, Piatt noted, 
readers without a science 
background will find the 
book's explanations diffi- 
cult to understand. 

Another book that looks 
like a winner but is disap- 
pointing, he said, is With- 
out Me You 're \othinfi, by 
Frank Herbert, author of 
Dune. "Herbert claims he's 
out to debunk and demysti- 
fv computers," Piatt wrote, 
"but he has a techno- 
freak's love of jargon and 
the book is full of sweeping 
generalizations that be- 
tray a lack of firsthand ex- 
perience. It will intimidate 
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ADVANCED BAUDOT RADIOTELETYPE 

FORTHETRS-80 MODELS I and III 

Disassembled Handbook ■ Volume 5 

Knowledge ot assemble' is NOT required 

— For boli BASIC "e*come>s ana advanced assent- > 
language programme's Mode 1 -3 

- Load handle can QTH rig CO etc ''om BASIC to 
disk 'CMD ONE TIME ONLY 

— includes BASIC load pgm 'o> newcomers 
-60 66 75 and ioo speed Baudot HTTy 
-Type ahead m BOTH 'eceive K transmit 
-21 prepa'eo messa.jes <■ 5 nput messages 

Automatic Mo'se code ID with v ou' can 

Store 2W bytes receive message automatically 

retransm ssion it desired 
-Edd above similar to Pencil 
-5 Chapters tor new BASIC programmers 
-5 Chapters lor advanced assembly programmers 
-Requires 4HK . PORT ?ero decoder . Tu 
-No HS 23?C mter'ace is required 

Ne*< omprs SHOULD nrde' d s» A note M :•■ 

VOLUME 5: - $20 ppd - WITH DISK $49 ppd 
|US tundtl add $8.50 mrMM airmail 

German - French - Japanese language editions 

RICHCRAFT ENGINEERING LTD. 

• 1 Wahmada Industrial Park 
Chautauqua, New York 14722 

COD orders— US only (716) 753-2654 
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FALL SPECIALS 

48K 2 Drive Mod III $1579.00 

125K LNW-80 Mod II $1499.00 

C. Itoh Prowriter8510 Printer $ 439.00 

Sooper Spooler 

Printer Interface $ 299.00 

Verbatim Disks. SS, DD, 40tk ... $ 23.00 
Elephant Disks, SS, DD, 40tk .... $ 21.00 
Daisy Wheel II 

Cartridge Ribbon $ 6.50 

Mailing Labels (5,000) $ 15.00 

20#9.5" x 11" 

White Tractor Paper $ 25.00 

Hardware for your computer at 
a price you can afford! 

EAST COAST DATA 

4825 Wycliff Road • Portsmouth, VA 23703 
804/484-6636 (Voice) • 804/484-9636 (Data) 

Prices and specifications sub/eel to C/ianga. 
MasterCard and Visa welcomed. 



NEW SOFTWARE 

for TRS 80 Model III 

and the Color Computer 



■ Church Contribution System 

designed to simplify and facilitate the tedi- 
ous chore of recording envelopes Provides a 
variety ot reports Maintains its own data- 
files Onlyj 150 

■ Data Base Manager 

designed to help organize all your dala and pro- 
vide you with meaningful reports Add or delete 
any information New files can be created and 
old information transferred Only $150 

a Single Entry Ledger 

designed as an uncomplicated control of 
finances for home or small business Add de- 
lete edit at any time Compatible with 
DBM Only 595 

Write or phone for complete software price list 





"SCOREIT" TAKES THE 
GREMLINS OUT OF GRADING 

A COMPUTER PROGRAM FOR THE 
RADIO SHACK (TM) TRS-80 
MODEL III WHICH SCORES MULTIPLE 
CHOICE TESTS AND GENERATES: 

* Test Statistics 

* Score Roster 

* Histogram of Scores 

* Item Statistics 

* Map of Item Responses 

UNIQUE FEATURES 

* Built-in error detection 

* Special diagnostics to guide 
revision 

* Interface with answer sheet sea 
ners 
(optional at additional cost) 

Include printer model and type when or- 
dering. License for use of the compiled 
version of the program may be obtained 
by remitting S 195 .00 to 

J. Eli 81 Associates 
635 South Hennessey St. 
New Orleans. LA 70119 

Sample Output Free on Request 

Please send SASF --< 



SEND AND RECEIVE 

MORSE CODE 

•SEND UP TO 40 WPM 
•COPY OVER 100 WPM 

Your Modal I or III becomes a pro- 
grammable keyboard keyer that can 
send morse from tha keyboard or 
from stored messages. Keying Is done 
althar by tha ralay or by tha audio 
output. Received morse Is decoded, 
displayed, stored and printad. Tha 
cassette earphone plug connects to 
tha receiver speaker to copy off tha 
air. No hardware axcapt patch cords 
Is required for many satups. 

satisfaction guaranteed 
Cassatta with Instruction booklet 
only $19.95 postpaid. Modal I or III. 
LEVEL II. with at least 16k required 

ROGO Computer Products 

4752 DeBeers Drive 

El Paso, Texas 79924 ^343 
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3SERVE 

micro 

BINDERS 
&FILE 
CASES 

Keep your Issues of 80 Micro together, handy and 
protected in handsome and durable library files or 
binders. Both styles bound in dark green leather- 
ette with the magazine logo stamped in gold. 
Files. Eoch file holds 6 Issues spines visible for eosy ref- 
erence. $5.95 eoch. 3 for 117.00. 6 for $30 00 
Binders. Eoch binder holds 6 Issues ond opens flot for 
•osy reoding. $7.50 eoch. 3 for $21.75. 6 for $42.00 
(Postage poid in USA. Foreign orders include $2.50 per 
item) 

Pleose stote years. 1960 to 1953 
Send check or money order to. 
JESSE JONES DOX CORP. 
P.O. Box 5120 
Phllodeiphkj. PA 19141 
Please allow 6-8 weeks for delivery 



LARGE CAPACITY 

MAI LIST 

for MODEL l/lll 

Easily holds 3000 names 

and addresses on just 2 

drives. Delete function to 

automatically find 

duplicate names. 

Fast operation 

4 machine language 

sub-routines 

$129 

RED WING SOFTWARE 

8809S.Penn 
Oklahoma City, OK 731 59 
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and baffle the reader who 
does not already own a 
computer and doesn't know 
the language." 

Piatt identified as a use- 
ful and well-researched 
handbook Wilma E. Ben- 
nett's Checklist /Guide to 
Selecting a Small Comput- 
er, published by Pilot 
Books of New York. The 
book contains no fewer 
than 332 questions to ask a 
computer salesman before 
you buy a computer. 

And if you need excuses 
to avoid buying a comput- 
er, there's Computer 
Choices: Beware of Con- 
spicuous Computing!, by 
H. Dominic Cowey and 
Neil Harding McAlister. 
Piatt said that book de- 
bunks the whole computer 
fad with case histories of 
small businesses that went 
bankrupt after computeriz- 
ing and private users who 
bought home computers, 
couldn't find anything 
useful to do with them, and 
abandoned them to gather 
dust in the attic. 

Teacher shortage 
giving high-tech 
advantage to 
Japan, Germany 

A worsening 
math teacher 
shortage is 
allowing 
Germany 
and Japan to 
develop the capability to 
outdistance the United 
States in the high-technolo- 
gy era, according to Dr. 
Stephen Willoughby, presi- 
dent of the National Coun- 
cil of Teachers of 
Mathematics. 
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Studies by the NCTM 
have yielded results similar 
to findings by independent 
researchers (see 80 Micro, 
October 1982, p. 382). They 
show the math teacher 
shortage the most severe of 
any subject taught in the na- 
tion's education system. 
The shortage of science 
teachers is next. 

Since 1972 there has been 
a 77 percent decline in the 
number of secondary-level 
mathematics teachers pre- 
pared in 600 teacher-train- 
ing programs nationwide. 
And only 55 percent of 
graduates prepared to teach 
math go into teaching. 

Willoughby, in a report 
by United Press Interna- 
tional, estimated more than 
half the new math teachers 
are not qualified to teach. 

The situation can be 
turned around, however, by 
some proposals currently 
before Congress, he said. 
Those bills would — 



• Set up tax credits for 
firms assigning full-time 
math-competent workers 
part-time to teach in public 
schools; 

• Give tax credits to firms 
hiring math and science 
teachers for the summer; 
and 

• Direct loans at 7 percent 
interest to students aiming 
to teach math or science. 

Japanese penetrate 
disk-drive market 

Increased 
Japanese 
penetration 
into the U.S. 
disk-drive 
market was 
reported by the Electronic- 
News. 

Alps Electronics Ltd. of 
Tokyo dislodged Shugart 
Associates as a supplier of 
5.25-inch drives to Apple, 
the industry weekly report- 
ed, while TEAC won a 
5.25-inch drive contract 
with the Digital Equipment 
Corporation and Sony 
locked up a $30 million con- 
tract to supply 3.5-inch 





drives to Hewlett-Packard. 

It was a low bid that won 
the Apple contract for Alps. 
The Tokyo firm bid under 
$50 a drive to supply the 
mechanism-only devices to 
Apple, which will insert the 
controller-boards in the 
drives. 

Despite Alps' and TEAC's 
victories in the 5.25-inch 
market, the Japanese may be 
planning to corner the disk- 
drive market elsewhere. 
Grover Mullin, general 
manager of OEM market 
requirements for Control 
Data Corporation of Min- 
neapolis, told EN. 

Since the Japanese en- 
tered the 5.25-inch market 
late, he contended, they 
might concentrate on put- 
ting higher density on 
smaller floppies. 

Sony is the only company 
to deliver to the U.S. 
market a microfloppy 
drive — 3.5 inches, single- 
sided, double-density — 
although Hitachi and Mat- 
sushita are ready to bring 
their 3-inch drives to mar- 
ket. Sony is expected to 
release a double-sided 
microdrive next year. 

In additon to increased 
activity in the microfloppy 
market, 5.25-inch and 
8-inch manufacturers are 
finding a demand for slim- 
line or half-height drives. 
Some 1500 8-inch half- 
height drives a month are 
being shipped by NEC, £7V 
reported. 

Currently, NEC and 
Tandon are the only firms 
producing the 8-inch half- 
heights, but MPI, Shugart, 
Qume, and Mitsubishi have 
announced they will be pro- 
ducing them, lowering the 
price of the drives to $370 a 



YOU'VE JUST FOUND 

THE MISSING LINK! 




Computer Shopper is your link to 
individuals who buy, sell and trade 
computer equipment and software 
among themselves nationwide. No 
other magazine fills this void in the 
marketplace chain. 

Thousands of cost-conscious com- 
puter enthusiasts save by shopping 
in Computer Shopper every month 
through hundreds of classified ads. 
And new equipment advertisers offer 
some of the lowest prices in the nation. 

Computer Shopper's unbiased 
articles make for some unique 
reading among magazines and 
there's a "help" column to answer 
difficult problems you may have with 
interfacing, etc. 



For a limited time you can subscribe 
to Computer Shopper with a 6 
month trial for $6 or 12 months for 
$10. 

You risk nothing, because if you're 
not 100% satisfied after receiving 
the first issue, you may cancel and 
receive a full refund. No questions 
asked! 

If you want faster service, call in 
your subscription and charge on 
your MasterCard or VISA account 

Our business office is open from 
8 a.m. to 5 p.m. Monday through 
Friday. Call for charge card orders 
or send your check or money order 
TODAY while the offer is still good. 



6 month trial, $ 6 or 12 months for $ 10 
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COmPUTBR SHOPPBR 

P.O. Box F-324* Titusville, FL 32780 
305-269-3211 
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drive for volume shipments. 
One NEC official told 
EN: "We're seeing a lot of 
interest in the product. The 
fact that it has reduced 
power requirements and 
can fit in a smaller space 
makes it attractive to 
customers." 

Anti-video game 
forces paranoid 

Computer 
games aren't 
creating a 
generation 
of computer 
zombies, a 
child psychologist and com- 
puter expert said in a report 
appearing in the Providence 
Journal. 

Mitchell Robin, a profes- 
sor of psychology at the 
New York City Technical 
College, maintained parents 
are "paranoid" about com- 
puters, because they grew 
up during a period when the 
machines were portrayed as 
Ghengis Khans in waiting — 
just biding their time until 




Correction 

In the October issue of 80 Micro the number for Bob 
Rosen's BBS was published incorrectly. The correct 
number is (212) 441-3755. 



the malevolent machines 
could take over the world 
and force humans to watch 
reruns of / Love Lucy. 

In the story appearing in 
the Rhode Island daily, 
Robin said his two daugh- 
ters, aged 8 and 5, are more 
proficient in killing off 
multi-colored video mon- 
sters than their father, 
something he doesn't mind. 

"When they win," he 
said, "I'm delighted they 
can see dad as being 
fallable. They learn that I'm 
human with limitations and 
that I'm not always suc- 
cessful in what I'm doing. 
I'm not superhuman." 

Robin contended parents 
could learn a great deal 
about themselves and how 
their children see them com- 
peting with them in video 




game play: 

"I find that parents who 
must always be right and 
never lose anything are par- 
ents whose children distrust 
them. Parents are humans 
and we tend to get very easi- 
ly seduced into being 
perfect" in the eyes of 
children. 

Robin debunked a com- 
mon fear among anti-video 
game elements that the ma- 
chines' warlike, violent 
themes will have a bad ef- 
fect on children: "I've 
worked in programs with 
children as young as 8 years 
old. I see their humanity in- 
creasing, not decreasing." 



Commodore's Fink 
moves to ad agency 

Alan W. Fink, 
the driving 
force behind 
the spectacu- 
lar rise of the 
VIC-20 mi- 
crocomputer, has left Com- 
modore and joined Korn- 
hauser & Calene Inc., a New 
York advertising agency. 

The agency, which worked 
closely with Commodore in 
marketing the VIC-20, 
hired Fink to head its new 
consumer electronics mar- 
keting group. 



Fink: Driving force behind VIC. 
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According to a statement 
from Kornhauser, under 
Fink's guidance, the VIC- 
20 took only six months to 
capture a significant share 
of the personal computer 
market and made a signifi- 
cant contribution to Com- 
modore's 63 percent in- 
crease in fiscal 1982 sales. 

"The category of small 
personal computers is so 
new that there are few, if 
any, organizations that can 
provide the expert market- 
ing assistance needed to sell 
successfully," Board Chair- 
man Henry Kornhauser 
said. "Alan Fink provides 
the vital link in the market- 
ing chain by bringing to cli- 
ents the manufacturer's 
viewpoint." 

Today's engineers 
and technicians ob- 
solete in 5 years 

Today's de- 
sign engin- 
eers and 
technicians 
may be tech- 
nologically 
obsolete in three to five 
years, according to Douglas 
Bonham, director of 
Heath/Zenith Educational 
Division of the Heath Com- 
pany, Benton Harbor, MI. 
Bonham told the T.H.E. 
Journal technology is 
changing so fast in the elec- 
tronics and computer fields 
that engineers face obso- 
lescence as quickly as the 
products they design. 

In addition, electronics is 
invading virtually every 
field where mechanical and 
electrical equipment used to 
dominate, forcing many 
engineers to learn entirely 
new disciplines. ■ 
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Season's 
Greetings 

As kids and kids in spirit 
enter the Fun House this 
month, you can see that I've 
decorated the place for the holi- 
day season. 

Christmas falls as usual on 
December 25, and Hanukkah 
starts on December 1 1 this year. 
Though the two holidays cele- 
brate different events, there are 
similarities. Both include deco- 
rations, giving gifts, and play- 
ing games, somewhat apart 
from their religious meanings. 

So let's have a Fun House 
party with these programs: 

The 12 Days of Christmas is 
a Color Computer program 
that celebrates that peculiar 
story of gift -giving gone wild. 

Dreidel is a Level II listing for 
an ancient Hanukkah game of a 
spinning top and shifting for- 
tunes. It's pronounced dray- 
dul. 

Peglegs is my holiday gift to 
you — a simple, but tricky com- 
puter version of a game you 
may recognize. There are list- 
ings for Level II and the Color 
Computer. 

This month's Nickel Bargain 
Bin is the solution to the 
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REM * 12 DAYS OP CHRISTMAS / TRS-80 COLOR BASIC 4K * 

CLS(f) 

DIM AS (24) 

DATA A PARTRIDGE IN A PEAR TREE., TWO TURTLE DOVES 

DATA THREE FRENCH HENS, POUR CALLING BIRDS 

DATA PIVE GOLDEN RINGS, SIX GEESE A- LAYING 

DATA SEVEN SWANS A-SWIMMING, EIGHT MAIDS A-NILKING 

DATA NINE PIPERS PIPING, TEN DRUMMERS DRUMMING 

DATA ELEVEN LORDS A-LEAPING, TWELVE LADIES DANCING 

DATA 12TH,11TH,10TH,9TH,BTH 

DATA 7TH,6TH,5TH,4TH,3RD,2ND,1ST 

Z$- a 204 204 185 193 197 185" 

204 204 210 197 193 176 185 185 176 176 176 176" 
210 200 200 200 204 204 204" 



Y$-"197 

X$-"204 204 204 210 210 



W$-"147 147 147 147 176 176 176 176 170" 
V$-"176 185 193 197 185 193 193 193" 



U$-"204 197 193 
T$-"197 197 159 



185 176" 
170 176" 



S$-"185 176 170 159 147" 

N-l 

FOR A-l TO 24 

READ A$(A) 

NEXT A 

X-31 

Z-l 

FOR Y-0 TO 15 

FOR L-X-Z TO X+Z 

K-RMD(20) 

IF K<€ THEN SET(L,Y,RND(8)) ELSE SET(L,Y,6 

NEXT L 

Z-Z+l 

NEXT Y 

PRINT 322, "THE TWELVE DAYS OF CHRISTMAS 

IF G-50 GOTO 430 

FOR T-l TO 1500 

NEXT T 

CLS(0) 

FOR A-12 TO 1 STEP -1 

PRINT 

PRINT 

PRINT "ON THE "A8(A+12J" DAY OF CHRISTMAS 

A$-W$ 

GOSUB 799 

PRINT "MY TRUE LOVE GAVE TO ME:" 

A$-V$ 

GOSUB 790 

FOR B-N TO 1 STEP -1 

IF B-l OR B-2 THEN B$«" " ELSE B$-", " 

IF N>1 AND B-l THEN PRINT "AND »| 

PRINT A$(B) ; 

IF B-l THEN PRINT B$; ELSE PRINT B$ 

IF B>5 THEN A$-Z$ 

IF B-5 THEN A$-X$ 

IF B>1 AND B<5 AND N<5 THEN A$-Z$ 

IF B-4 AND N>4 THEN A$-U$ 

IF B-3 AND N>4 THEN A$-T$ 

IF B-2 AND N>4 THEN A$-S$ 

IF B-l THEN A$-Y$ 

GOSUB 790 

U-U+B 

NEXT B 

PRINT 0, "TOTAL GIPTS:";U 

N-N+l 

FOR X-l TO 500 

NEXT X 

CLS{0> 




790 
800 



760 NEXT A 

770 G-50 

780 GOTO 330 

IP N>1 AND B-l THEN SOUND 193,3 
POR J-l TO LEN(A$) STEP 4 

810 B$-MID$(A$,J,3) 

820 P-VAL(B$) 

830 SOUND P,3 

840 NEXT J 

850 RETURN 

860 END 
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Peglegs game. 

So, fa-la-la-la-la, and let's get 
started before the hot cider 
gets cold. 

The 12 Days of Christmas 

If a wild gift -giver duplicated 
the events of this Christmas 
song, someone would wind up 
with 364 items by the 12th day. 
I found that out when I built a 
running total into this program. 
It displays the entire song with 
the melody if you want to sing 
along. That's all the program 
does, but that's a lot, consider- 
ing the length of the listing. 

Dreidel 

Hanukkah is a Jewish holi- 
day that celebrates the long-ago 



rededication of the Temple of 
Jerusalem. And Dreidel is a 
game that children have been 
playing on Hanukkah for hun- 
dreds of years. 

This program is given only in 
Level II; it simulates a game of 
Dreidel with the computer play- 
ing against a human. 

A dreidel is a top with four 
sides. On each side is a letter 
from the Hebrew alphabet. 
These letters are shown with 
this article (see Fig. 1). 

Each player starts with the 
same amount of Hanukkah 
gelt — gelt means money — or 
you can use counters ranging 
from peanuts to marbles. 

To start, each player puts five 
pieces of Hanukkah gelt in the 



^ L 



•let's play dreidel." 

•the limit is 100..." 
'how much hanukkah gelt for each";b 
100 then print: print: goto 260 



Dreidel 

100 REM *DREIDEL / TRS 80 LEVEL II * 

110 CLS 

120 CLEAR 150 

130 S$«CHR$(128) 

140 T$-CHR$(131) 

150 U$=CHR$(171) 

160 V$=CHR$(179) 

170 W$=CHR$(181) 

180 X$=CHR$(186) 

190 Y$=CHR$(187) 

200 Z$=CHR$(191) 

210 P=582 

220 A=596 

230 M=608 

240 PRINT 

250 PRINT 

260 PRINT 

270 INPUT 

280 IF B> 

290 C=B 

300 G=B 

310 D=0 

320 CLS 

330 ES=S$+Z$+STRING$(5,T$)+Z$+S$ 

340 A$(1)=S$+Z$+S$+S$+V$+U$+S$+Z$+S$ 

350 A${2)«S$+ZS+S$+S$+V$+Y$+S$+Z$+S$ 

360 A${3)=S$+ZS+S$+Z$+T$+Z$+S$+Z$+S$ 

370 A$(4) =S$+Z$+S$+W$+Z$+X$+S$+Z$+S$ 

380 B$=S$+Z$+STRING$(5,S$)+Z$+S$ 

390 C$«S$+STRING$(7,Z$)+S$ 

400 D$=S$+S$+STRING$(S,Z$)+S$ 

410 F$=S$+S$+S$+S$+Z$+S$ 

420 Y=21 

430 FOR X=0 TO 126 

440 SET(X f Y) 

450 SET(X,Y+10) 

460 NEXT X 

470 PRINT g 514, "YOU"; 

480 PRINT @ 528 , "POT"; 

490 PRINT @ 542, "ME"; 

500 X=0 

510 FOR Y=21 TO 31 

520 SET(X,Y} 




530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6 80 
690 
741 
700 
710 
720 
730 



SET(X+27,Y) 

SET(X+54,Y) 

Z-k) 

SET(X+78,Y) 

SET(X+126,Y) 

NEXT Y 

PRINT 

PRINT 

PRINT 

IF C<1 

IF D«0 

Q>Q+1 

PRINT 

IF C<1 

IF G<1 

IF Q-l 

IF Q-2 



main pile. Each player spins the 
dreidel. These are results of the 
letters that are face up when the 
top stops spinning: 

• NUN — Nothing happens. 

• GIMMEL— Take all the pot. 

• HE— Take half the pot. 

• SHIN— Give half of what 
you have to the pot. 

When the pot is empty, each 
player must put five counters in 
it. The loser is the player who 
cannot put five counters into 
the empty pot. 

This program includes a 
spinning dreidel and enough 
automatic features to make it 
easy to play. 

Peglegs 

And now it's time to open 
your gift. 

Peglegs is a computer version 
of a game that has been around 
for a few hundred years. I offer 
program listings for Level II 
and Color Basic. 

To start, a cross-shaped 
board draws on the screen and 
fills with 32 pegs. The space in 
the center of the board is 
empty. 

Your goal is to remove as 
many pegs as you can from the 
board by jumping pegs. 



aa niz? 



Nun GinuiH'l 



He 



Shin 



Figure I 



3 PrCi 

§ A,D; 
§ M,G; 

OR G<1 GOTO 660 

GOTO 1060 

6 768,""; 
GOSUB 1130: PRINT @ 768, "I WIN."i GOTO 1180 
GOSUB 1130: PRINT § 768, "YOU WIN.": GOTO 1180 
THEN PRINT "YOUR TURN. "; 
THEN PRINT "MY TURN, "ij POR T-l TO 500: NEXT T: GOTO 



PRINT "TAP ENTER TO SPIN THE DREIDEL." 

K$-INKEY$ 

IF KSO"" GOTO 740 

GOTO 71B 



Dreidel Continues 



• Circle 29 on Reader Service card 
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Dividcl C on tinned 




740 GOSUB 1150 




750 FOR X=l TO RND(3) 




760 IF X/2<>INT(X/2) THEN FOR Z = Z TO RND(45)-Z+10 / 


770 IF X/2=INT(X/2) THEN FOR Z=Z TO RND(10) 


STEP -1 t 


780 U=RND(4) 




790 PRINT § Z,E$; 




800 PRINT @ Z+64,A$(U); 




810 PRINT @ Z+128,B$; 




820 PRINT 3 Z+192,C$; 




830 PRINT @ Z+256,D$; 




840 PRINT @ Z+320,F$; 




850 NEXT Z 




860 NEXT X 




870 PRINT e 624,""; 




880 IF U=l THEN PRINT "NUN"; 




890 IF U=2 THEN PRINT "GIMMEL"; 




900 IF U=3 THEN PRINT "HE"; 




910 IF U-4 THEN PRINT "SHIN"; 




920 PRINT e 768,""; 




930 IF U=l THEN PRINT "NOTHING." 




940 IF U=2 THEN PRINT "TAKE ALL." 




950 IF U=3 THEN PRINT "TAKE HALF." 




960 IF U=4 THEN PRINT "GIVE HALF." 




970 IF U-2 AND Q=l THEN C-C+D: D=0 




980 IF U=2 AND Q=2 THEN G-G+D: D=0 




990 IF U=3 AND Q=l THEN I = INT(D/2) : OC+I: 


D=D-I 


1000 IF U=3 AND Q=2 THEN I=INT(D/2): G-G+I: 


D=D-I 


1010 IF U=4 AND Q=l THEN I=INT(C/2) : C-C-I: 


D=D+I 


1020 IF U=4 AND Q=2 THEN I=INT(G/2) : G-G-I: 


D=D+I 


1030 GOSUB 1130 




1040 IF Q=2 THEN Q=0 




1050 GOTO 590 




1060 PRINT £ 768,""; 




1070 PRINT "WHEN POT IS EMPTY, WE EACH PUT 


IN 5." 


1080 C=C-5 




1090 G=G-5 




1100 D-D+10 




1110 GOSUB 1130 




1120 GOTO 590 




1130 FOR T=l TO 500 




1140 NEXT T 




1150 PRINT 3 768,STRING$(43," ") ; 




1160 PRINT @ 624,STRING$(10," "); 




1170 RETURN 




1180 GOTO 1180 




1190 END 





Peglegs 



100 


REM * PEGLEGS / 


TRS- 


80 


LEVEL 


II 4K * 






110 


CLS 
















120 


Q=32 
















130 


U$="JU" 
















140 


D$="JD" 
















150 


L$="JL" 
















160 


R$="JR" 
















170 


Y»3 
















180 


FOR X=18 TO 


36 














190 


SET(X,Y) 
















200 


SET(X,Y+22) 
















210 


NEXT X 
















220 


X=6 
















230 


FOR Y=9 TO 


19 














240 


SET(X,Y) 
















250 


SET(X+42,Y) 
















260 


NEXT Y 
















270 


X=18 
















280 


FOR Y=3 TO 


24 














290 


IF Y<9 OR Y>18 


THEN 


SET(X,Y) s 


SET(X+18 


Y) 


300 


NEXT Y 
















310 


Y=9 
















320 


FOR X=6 TO 


48 














330 


IF X<±9 OR 


X>35 


then si:t(x,y; 


: SET(X 


f Y+lf) 


340 


NEXT X 
















350 


FOR Y=5 TO 


24 STEP 3 










360 


FOR X=21 TC 


36 


STEP 


6 










370 


SET(X,Y) 
















380 


NEXT X 
















390 


NEXT Y 
















400 


FOR Y=ll TC 


17 


STEP 


3 












You're a winner if you have 
two pegs left and you're a dou- 
ble winner if you have only one 
peg left. You're a triple winner 
if only one peg remains and its 
position is the space in the mid- 
dle of the board. 

Now, how do you move 
around and jump? The Color 
Computer and Level II versions 
are slightly different, but this 
should make both of them 
clear: In both versions, you 
move into jumping position by 
tapping D for down, U for up, 
L for left, and R for right. 

In the color version, your po- 
sition is marked in blue if you 
are on a space not occupied by a 
peg. If you are on one of the oc- 
cupied spaces, the position will 
blink on and off. 

In the Level II version, your 



410 
420 
430 
440 
450 
460 
470 
480 
485 
490 



FOR X=9 TO 45 STEP 6 

SET(X,Y) 

NEXT X 

NEXT Y 

RESET(27,14) 

A=27 

B=5 

A$=A$+INKEY$ 

PRINT @ 653, A$;" "; 

PRINT @ 480, "SCORE" ;Qj 



Peglegs ( 'ominues 
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NFLO INC. 




2 MEGABYTES DISK STORAGE 

$1,000.00 



INFLO 2 MEG SYSTEM FOR TRS-80, LNW. or PMC 80 



$1000.00 



THE INFLO 3.2 MEGABYTE HIGH SPEED SYSTEM FOR: 



TRS 80 MOD I or III or PMC 80 
Late LNW 80 or LNW Model II 

NEW PRICING LNW Model 



$1550.00 
$1300.00 

$1995.00 



FULL LINE OF LNW PRODUCTS AND SOFTWARE 

CHARM $39.95 

AUTOPLOT/LNW $99.50 

LNWBASIC $69.95 

HIRES 1&2 $20.00 



LA (504) 293-3400 

NJ (201) 751-8444 

FL (305) 443-7749 



CALL YOUR LOCAL DEALER 

MA (413) 583-6383 

DC (703) 527-9060 

NY (516) 924-9229 



IL (312) 782-5300 

Wl (414) 261-1780 

OR (503) 232-5552 



THE LNW USERS GROUP BI-MONTHLY NEWSLETTER IS NOW IN CIRCULATION; 
FOR MORE INFO ON THIS GROUP CALL THE LNW BBS (516) 924-8115 



LNW is a trademark ol 
LNW Research Corp 



TRS-80 is a trademark of 
Tandy Corp 



Inflo Inc. 

244 Mill Rd. 
Yaphank, NY 11980 

(516) 924-9229 
Dealers inquiries invited 



,=^EW 



i 



BBS Number is (or Modem use only 




*-See List ol Advertisers on Page 451 
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Peglegs Continued 



500 IF 
510 IF 
520 IF 
530 IF 
(A,B) 
540 IF 
,B) 

550 IF 
560 IF 
570 IF 
580 IF 
590 IF 
600 IF 
-3)— 1 
610 IF 
620 IF 
♦3)— 1 
630 IF 



Q=2 THEN PRINT § 154, "WINNER" ; 

Q-l THEN PRINT § 90, "DOUBLE"; 

Q=l AND A=27 AND B=14 THEN PRINT 9 90, "TRIPLE"; 

POINT(A,B)=-l THEN RESET(A,B) : FOR T=l TO 10: NEXT T: 



SET 



POINT(A,B)=0 THEN SET(A,B):FOR T-l TO 10: NEXT T: RESET(A 

A$="U" AND P0INT(A,B-2)O-l THEN B-B-3: A$-"" 

A$="D" AND P0INT(A,B+2)O-l THEN B-B+3: A$="" 

A$-"L" AND POINT ( A-3, B) <>-l THEN A-A-6 : A$="" 

A$«"R" AND POINT(A+3,B) <>-l THEN A-A+6: A$="" 

B-5<4 GOTO 610 

A$-U$ AND POINT(A,B-5)=0 AND P0INT(A,B-6) -0 AND POINT(A,B 

GOTO 690 

B+5>24 GOTO 630 

A$-D$ AND POINT(A,B+5)-0 AND POINT(A,B+6) =0 AND POINT(A,B 

GOTO 690 

A-9<6 GOTO 650 



Color Peglegs 



100 REM * PEG LEGS / TRS-80 COLOR BASIC 4K * 

110 CLS(0) 

120 Q-32 

130 U$-CHR$(94) 

140 D$-CHR$(10) 

150 L$-CHR$(8) 

160 R$-CHR$(9) 

170 Y-3 

180 FOR X-18 TO 36 

190 SET(X,Y,5) 

200 SET(X,Y+22,5) 

210 NEXT X 

220 X-6 

230 FOR Y-9 TO 19 

240 SET(X,Y,5) 

250 SET(X+42,Y,5) 

260 NEXT Y 

270 X-18 

280 FOR Y=3 TO 24 

290 IF Y<9 OR Y>18 THEN SET(X,Y,5) : SET(X+18,Y,5) 

300 NEXT Y 

310 Y-9 

320 FOR X-6 TO 48 

330 IP X<19 OR X>35 THEN SET(X,Y,5): SET(X,Y+10 ,5) 

340 NEXT X 

350 FOR Y-5 TO 24 STEP 3 

360 FOR X-21 TO 36 STEP 6 

370 SET(X,Y,8) 

380 NEXT X 

390 NEXT Y 

400 FOR Y-ll TO 17 STEP 3 

410 FOR X-9 TO 45 STEP 6 

420 SET(X,Y,8) 

430 NEXT X 

440 NEXT Y 

450 RESET(27,14) 

460 A-27 

470 B-5 

480 AS-INKEYS 

490 PRINT # 502, "SCORE" ;Q; 

500 IF Q-2 THEN PRINT § 32, "WINNER"; 

510 IF Q=l THEN PRINT § 0, "DOUBLE"; 

520 IF Q-l AND A-27 AND B-14 THEN PRINT g 0, "TRIPLE"; 

530 IP POINT(A,B)=8 THEN RESET(A,B) :FOR T-l TO 10: NEXT T: SET(A 

,B,8) 

540 IF POINT(A,B)<>8 THEN SET(A,B,7) : FOR T=l TO 40: NEXT T: RES 

ET(A,B) 

550 IF A$-"U" AND POINT(A,B-2) <>5 THEN B=B-3 

560 IF A$="D" AND POINT(A,B+2) <>5 THEN B=B+3 

570 IF A$-"L" AND POINT (A-3 ,B) <>5 THEN A-A-6 

580 IF A$-"R" AND POINT (A+3 ,B) <>5 THEN A-A+6 

590 IF B-5<4 GOTO 610 

600 IF A$-U$ AND POINT(A,B-5)<>5 AND POINT(A,B-6) <>8 AND POINT(A 

,B-3)-8 GOTO 690 

610 IF B+5>24 GOTO 630 

620 IF A$«D$ AND POINT(A,B+5) <>5 AND POINT( A,B+6) <>8 AND POINT(A 

,B+J)-8 GOTO 690 

630 IF A-9<6 GOTO 650 

640 IF A$-L$ AND POINT ( A-9, B) =0 AND POINT(A-12 ,B) =0 AND POINT(A- 

6,B)— 1 GOTO 690 

65B IF A+9>49 GOTO 665 

660 IF A$-R$ AND POINT (A+9,B) -0 AND POINT ( A+12, B) =0 AND POINT(A+ 



position simply blinks, wher- 
ever you are. 

To jump a peg in the color 
version, just press one of the 
four direction arrows on the 
keyboard. To jump a peg in the 
Level II version, tap JD for 
jump down, JU for jump up, 
JL for jump left, and JR for 
jump right. 

You cannot make any illegal 
moves, and there are other safe- 
guards built in. You don't have 
to press enter with this pro- 
gram; the arrow keys do the job. 

If you don't understand this 
yet, run the program and you 
soon will. 

If you can't win, take a look 
at the Nickel Bargain Bin offer 
at the end of the column. 

Peglegs is tough to beat, but I 
have a strategy and it's yours 
for a nickel and a self ad- 
dressed, stamped envelope. If 
you want the answer, send the 
request with a note bearing the 
words ''PEGLEGS SOLU- 
TION" to me, Richard 
Ramella, 1493 Mountain View 
Ave., Chico, CA 95926. Do not 
send the request to this maga- 
zine; I am responsible for the 
offer. 

Next month is January, isn't 
it? No better time than the first 
of the year to think about 
time — calendars, timepieces, 
leap years, and such. So, until 
1983... ■ 



6,B)=-1 GOTO 690 

665 IF LEN(A$)>1 THEN A$»"" 

670 GOTO 4 80 

690 RESET(A,B) 

700 IF A$=U$ THEN RESET(A,B-3) : B=B-6 

710 IF A$=D$ THEN RESET(A,B+3) : B=B+6 

720 IF A$=L$ THEN RESET(A-6 ,B) : A-A-12 

730 IF A$=R$ THEN RESET(A+6 ,B) : A-A+12 

740 SET(A,B) 

745 A$="" 

750 Q=Q-i 

760 GOTO480 

770 END 
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The Original Magazine for Owners of the TRS-80 Microcomputer 

MODEL I • MODEL II • MODEL III • POCKET COMPUTER • COLOR COMPUTER 
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Owners 



CQMPUTRQNICS 

MONTHLY NEWS MAGAZINE 



for TRS-80 
Owners 




PRACTICAL APPLICATIONS 

NEW EXPANDED BUSINESS 
SECTIONS 

GAMBLING 

GAMES 

EDUCATION 

PERSONAL FINANCE 



•BEGINNERS CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS & ANSWERS 

• PROGRAM PRINT OUTS 
...and MORE! 



YOUR CHOICE k 



A. 



with your Subscription or Renewal 



NANOS SYSTEMS CORP 

TRS-80 At Your 

Fingertips Complete quick 
reference guide to basic, assem- 
bly language and graphic codes 
— all at your fingertips for all 
TRS-80 computers (specify 
computer). 

Assembly Language Section N/A tor Color Computer 



B, 



OR 



A Word Processor, 
Data Management 

System and Cleanup 

(A maze game) All on cassette. 
(Add $3 for diskette, add $5 for 
modified MOD-II diskette version 
— N/A on color computer or 
pocket computer) 



READER SERVICE FOR H & E COMPUTRONICS ^9 



•CQMPJTRQNICSi 



CALL TOLL FREE 

800-431-2818 



24 HOUR ORDER LINE 

914-425-1535 



50 North Pascack Road 

Spnng Valley. New York 10977 (()u(side of New Yofk S|a|e) 

□ One Year Magazine Subscription $24 □ New □ Renewal 

□ Two Year Magazine Subscription $48.00 D New O Renewal 
D Sample Issue $4. □ Mod II Newsletter Subscription $18 
Your Choice TRS-80 " al Your Fingertips or Word Processor/ Data Management . 
Model I D Model II I Model III Color Computer □ Pocket Computer 



NEW! 



NEW! 



MOD-II 

NEWSLETTER 

"$18/year(or 12 issues)" 



Name 



Address 



City 



State 



Zip 



Signature 



Credit Card Number 



Expiration Date 



Add $12/ Y»ar (Canada Mexico— Add $?4. Year Air Ma.i oulside oi U S A Canada and Mexico 
An Prices and Specifications Suh|eci lo Change 

• TRS-80 is a trademark of the Radio Shack Division of Tandy Corp 



from 
FOR THE TRS-80 MODEL I AND MODEL III 



I System Diagnostic 



For Cassette or Disk 



IS YOUR COMPUTER WORKING CORRECTLY? ARE YOU SURE? 

Tests every component of your TRS-SO for proper operation. 



DISK 

$99.95 

CASSETTE 

$ 94. 95 ij& 



ROM: Checksum test 

RAM: Four separate tests including every address and data value 
Video Display: Character generator, video RAM, and video signal tests 
Keyboard: Every key contact tested 
Line Printer: Character test 
Cassette Recorder: Read/write/verify data 

RS-232-C Interface: Read sense switches (Model I), connector fault, data transmission, framing, data loop, baud rate 
generator 
Disk Drives: Disk controller, drive select and restore, track seek and verify read, read/write/verify all tracks and 
sectors, formatting, disk drive timer, disk head cleaner 
Model I: single or double density, 35, 40 or 80 track drives 
Model 3: single or double density, 35, 40 or 80 track drives 
single or double sided drives 



One program adapts to any system configuration and hardware. 

Individual tests of each device with operator monitoring and intervention. 

Continuous system tests run continually for hours, with diagnostic reports optionally written on line printer. 

Complete instructions and documentation. 

SPECIFY TRS-SO " MODEL I OR MODEL Ul 



SMART TERMINAL 

Enables your TRS-80 to be used as a data communications terminal 
to a time-sharing system, computer bulletin board, or another computer, 
via the RS-232-C interface. 

• MEMORY BUFFER holds data for transmission or data received from 
other computer. 

• CASSETTE or DISK may be used to load or save data from memory. 

• AUTOMATIC TRANSMISSION of data from memory. 

• AUTOMATIC STORAGE of incoming data at user's option. 

• TRANSMIT or RECEIVE WITH VERIFICATION options included for 
communication between two TRS-80s using Smart Terminal. 

• Full CONTROL KEYS, including control key mapping into any ASCII 
character. True BREAK key. Lower case supported on Model I. 

• Buffered LINE PRINTER ECHO for incoming data. 

• Disk and cassette files fully compatible with ELECTRIC PENCIL" and 
SCRIPSIT" programs. 

• BAUD RATE and RS-232-C CHARACTERISTICS can be reset from 
within the program. 

• SAVE PROGRAM option creates "personalized" back-up copy of 
program with all options set as specified by user. 

• ONE PROGRAM supports both cassette ana disk systems. Program is 
compatible with PMC-80 and other TRS-80 "work alike" computers. 
Model I or III Version supplied on cassette $69-75 

_ supplied on diskette $7495 

Model II (CP/M) Version S7995 



MON-3 and MON-4 

The TRS-80 Monitor Programs »3 and »4 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

e BEGINNERS can learn to interact directly with the computer in 

Machine Language, 
e 40-PAGE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands, 
e MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific values, 
e MODIFY memory in various ways. 

e RELOCATE object programs. 

• PRINT output on video display or line printer. 

e READ and WRITE object tapes in SYSTEM Format 
e UNLOAD programs using low RAM on disk. 
e SAVE and READ disk files (MON-4 Only), 
e INPUT and OUTPUT of disk sectors (MON-4 Only). 
e SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 
e Create SYMBOLIC Tapes (MON-3) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-3 (For Cassette Systems) $39.95 
MON-4 (For Disk Systems) $49-95 



MAILING UST 

Maintains mailing lists of up to 1326 names (48K version). Add, change, 
delete, or find names. Machine language sort according to information in 
ANY field (first or last name, address, city, state, zip code). Three or four 
line labels printed in 1,2, 3, or 4 columns, tn master list, or on video display. 
TRS-SO Model 1/3 Disk Version $69-95 
IBM PC Disk Version $79 95 



HOME BUDGET 

Keeps track of your monthly and year-to-date income and expenses. 
Income and expenses classified by code numbers for identification of 
categories. Data includes date, code number, amounts and check number 
(optional). Computes monthly and year-to-date summaries showing 
income tax deductions. All output printed on video display or line printer 
at user's option. Complete instructions for customizing to suit your own 
budget. 

TRS-SO Model 1/3 Cassette Version $19 95 

TRS-SO Model 1/3 Disk Version $49-9$ 

1MB PC Disk Version $59 95 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record 0612, this program keeps track of 
income, expenditures, and payroll for a small business. Receipts and 
expenditures can be entered on a daily, weekly, or monthly basis. Program 
computes monthly, through last month, and year to date summaries. 
Payroll section (included in disk version only) keeps record of employees 
and paychecks with up to six categories of payroll deductions. Computes 
employee payroll records and year-to-date payroll totals. Complete 
instructions for customizing to suit your own business. 

TRS-80 Model 1/3 Cassette Version $29-95 

TRS-SO Model 1/3 Disk Version $49 95 

IBM PC Disk Version $5995 



•CQMPLJTRQMCS! 



SO N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



^VfS^ 

NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



• All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3 00 for shipping in UPS Areas 
• Add $4 00 for C O D or NON-UPS Areas 
• Add S5 00 to Canada or Mexico 
• Add exact postage to all other countries 



Introducing the Most Powerful 
Business Software Ever! 

TRS-80™ (Model I, II, HI, or 16) • APPLE 1 " • IBM" • OSBORNE" • CP/M™ • XEROX™ 



„s,i"ti".VHr.- 




The VersaBusiness " Series 

Each VERSABUSINESS module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VeRSaRECE1VABL.es'" $99.95 

VersaReceivaBLFS'' is a complete menu driven accounts receivable, invoicing, and 
monthly statement generating system It keeps track ol all mlormation related to who 
owes you or your company money, and can provide automatic billing for past due ac- 
counts VERSARECEIVABLES" prints all necessary statements, invoices, and summary 
reports and can be linked w*th WrsaIe riGFR II" and VFRSaInventory"*. 

VERSAPAYABLES" $99.95 

Versa Pa yablfs" is designed to keep track of current and aged payables, keeping you 
in touch with all information regarding how much money your company owes, and to 
whom VERSA Payabi.ES" maintains a compi m each vendor, prints checks, 

check registers, vouchers, transaction reports, aged payables reports, vendor reports, 
and more. With VERSAPAYABLES". you can even let your computer automatically select 
which vouchers an I" ba paid. 

VERSAPaYROLL'" $99.95 

VERSA PAYROLL'* is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government required payroll information. Complete employee records 
are maintained, and all necessary payroll calculations are performed automatically, with 
totals displayed on screen for operator approval A payroll can be run totally, automati 
cally, or the operator tan intervene to prevent a check from being printed, or to alter 
information on it If desired, totals may be posted to the VersaLedoeh If* systpm 



VERSAlNVENTORY' 



$99.95 



VERSA hvENTORY" is a complete inventory control system that gives you instant access 
to data on any item. VERSA INVENTORY™ keeps tratk ol all information related to what 
items are in stock, out of stock, on backorder. etc , stores sales and pricing data, alerts 
you when an item falls below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VERSA fcCBVABLES" system. VERSA INVENTORY- pnnts 
all needed inventory listings, reports ol items below reorder point, inventory value re- 
ports, period and year-todate sales reports, price lists, inventory checklists, etc 





■ 



50 N. PASCACK ROAD, SPRING VALLEY, NY. 10977 

* TKS 80 » a trademark ol the Kadi 
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VersaLedger \r $149.95 

Versa Ledger 11** is a complete accounting system that grows as your business 
grows VVRMLnxiEK 11*" can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VersaLedger IP" gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever. 

• prints tractor teed checks, 

• handles multiple checkbooks and general ledgers, 

• pnnts 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc 

VERSALEDGER IP comes with a professionally-written 160 page manual de- 
signed for first time users The VersaLedger IP manual will help you become 
quickly familiar with VERSA LEDGER IP, using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



Every VERSABUSINESS" module a guaranteed to outpertoTn a ; •y»%rT rnt-ipetitive systems. 
and at a traction of their cost. II you are not salaried with anv VF.RSAR.ISI NESS" module, you 
may leturn it wrthm 30 days lot a refund. Manuals for any VERSA BUSINESS" module may be 
purchased tor $25 each, credited toward a later purchase ot that module 



To Order: 
Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 



1 add $3 lor shipping m UPS areas 
1 add $4 (or C O D or non-UPS areas 



dealer inquiries welcome 



• add *S to CANADA or MEXICO 

* add proper postage elsewhere 



I jndv Corp 'APPLE ts a trademark of Apple Corp 'IBM is a trademark ol IBM Corp. 'OSBORNE is a trademark of 0*ome Corp 
' ' a a trademark of Digital Research 'XEROX n a rrademark of Xerox Corp 



Experience Shows - S.B.S.G. has over 11,000 Installed Systemsl 



If you're not running 
Small Business Systems Group 
software . . . chances are 
you're not running! 




SMALL BUSINESS 
SYSTEMS GROUP 



GENERAL ACCOUNTING SYSTEM For TRS-80" 

S.B.S.G. has created the first completely user-configurable accounting system 
available for the TRS80™. 

User configurable? Each S.B.S.G. General Accounting System Module (except 
Order Entry) can be operated independently, or any of the modules can be 
combined in any configuration, providing a complete, coordinated system to 
fit the needs of your business. 

The SB.S.G. System allows you the maximum efficient use of available disk 
space. Each module will run on a standard 1 disk drive system (except for Model 
I systems, which require 2 drives). As you add more disk drives to your system. 

the amount of on-line data storage increases. Now here's an important fact 

the S.B.S.G. General Accounting System "spans'' your disk drives - that means 
that you can instantly access your data on any of up to 8 disk drives at any 
time! Since your S.B.S.G. Accounting System is user-configurable, it will work 
with 1 , 2, 3, 4 or more disk drive systems - and it is fully compatible with most 
hard disk drive systems (at additional cost). 



General Ledger 

The General Ledger accounting system consolidates financial data from other 
accounting subsystems in an accurate and timely manner. Major reports in- 
clude Trial Balance, Income Statement, Balance Sheet a user-defined report, 
and more. All data is maintained and reported by month, quarter, year and 
previous three quarters. Transactions may be entered via direct posting and 
external posting generated by A/R, A/P, Payroll - or any other user source. 

Accounts Receivable 

The objective of a computerized A/R system is to prepare accurate and timely 
monthly statements to credit customers. Management can generate informa- 
tion required to control the amount of credit extended and the collection of 
money owed in order to maximize profitable credit sales while minimizing 
losses from bad debts. This system is invoice-oriented. Invoices can be entered 
before they're ready for billing, after billing, or even after they are paid. Accounts 
Receivable allows entry of new invoices, credit memos, debit memos, or modi- 
fication or deletion invoice and allows for progress payment. The transaction 
information includes: type of A/R transaction, P.O. *", description of P.O., 
billing date, general ledger sales account r , invoice amount, shipping and 
transportation charges, tax charges, payment, and progress payment informa- 
tion. Reports include: summary or detail listing of invoices not yet billed, open 
items (unpaid invoices), closed items (paid invoices), and aging. Statements 
may be printed at any time and follow the format of nationally available forms. 

Order Entry 

The Order Entry Module was designed as a supplement to the Accounts 
Receivable Module, and will not operate independently. This system allows you 
to add, change, delete, list and print invoices; apply an invoice to correct custom- 
er account: generate computer assigned invoice numbers; note type (invoice 
credii memo, debit memo); record customer order number, invoice date, 
shipping date, FOB location, method of shipping, salesman, and payment 
terms; print selected number of shipping labels; enter, display and coned 10 
lines of data per invoice, noting the part number, description, price, quantity 



ordered, extension, taxable or not It also allows the user to enter, display and 
correct invoice totals, noting the invoice subtotal, taxes, shipping and handling, 
with disbursement up to 5 General Ledger accounts; print a transaction report; 
maintain a terms code file in the system; update Account Receivable and 
generate summary report totals. K automatically coordinates to the Inventory 
Module (if used) to determine description, price and out of stock status, and to 
immediately deplete inventory stock. Price fields are easily modified to include 
percent or dollar discount 



Payroll 

Payroll involves many complex calculations and the production of reports and 
documents, many of which are required by government agencies. The Payroll 
system performs all necessary payroll tasks including file maintenance, pay data 
entry and verification, computation of pay and deduction amounts, and the 
printing of reports and checks. State and Federal Tax changes are easily im 
plemented by the user via menu prompting. In its link to General Ledger, each 
employee's payroll information is distributed to as many as 12 different GL 
accounts; system automatically posts to cash account 

Accounts Payable 

The Accounts Payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. Several 
reports are available to supply information needed for the analysis of payments, 
expenses, purchases and cash requirements. The Accounts Payable system is 
invoice-oriented. It handles new invoices, credit memos and even debit memos 
and allows modification and deletion of invoices. The flexible check calculation 
procedures allows checks to be calculated for a set of vendors, specific vendors 
or even specific invoices. The reports include open item listings and closed 
item listings (both detail and summary), debit and credit memo listings, aging, 
check register report (to give an audit trail of checks printed), and vendor listing 
and vendor activity. Update reports are useful for audit trails and checking for 
accuracy. Checks may be printed at any time and follow the format of nationally 
available forms. 



Inventory 

Status reports and minimum reorder reports help to reduce the potential hazard 
of overstocking which results in cash flow problems. Program selection allows 
the user to store data for inventory located at up to five separate sites (divisions), 
coding up to 9 sales people. Available reports include inventory master list 
price listings, period and year-to-date sales, stock status, minimum reorder 
point and commission information. 



Model I, 48K and 2 Disk Drives . . . $195.00 Per Module 

Model III, 48K $195.00 Per Module 

Model II, 64K $295.00 Per Module 

Sample Report Printouts $ 10.00 



H & E COMPUTRONICS Gives You A 30-Day Money Back Guarantee On All Modules 



E 



CQMPLJTRQNICS 



C. 



EVERYTHING FOR YOUR TRS40™ • ATARI" • APPLE™ • PET" • CP/M™ • XEROX™ • IBM™ • OSBORNE" 

•TRS*)*, trademark rf the Radio Shack Div*ion of TandyCorp ' ATARI . a trademark of Alan he. - 'APPIE «• trademark ol Apple Corp. ' PET ■» a tradema* <rf Commodore 
■CP/M, S atr«temart<ofDigilalRe«rch 'XEROX is a trademark of Xerox Corp. ' IBM Is a trademark of IBM Coip -• OSBORNt a a trademark of Osborne Corp. 



BUSINESS PAC 100 




« se du*hin 24-Hour. 

* AH order. pr^ gtiara r,.e« 

# 3r>Day «*> ney 



100 Ready-To-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance.....Accounts Receivable... .Accounts Payable 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RULE78 Interest Apportionment by Rule of the 78s 

2 ANNCJ1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASE1NT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straighttne depreciation 

8 DEPRSY Sum of the digits depreoabon 

9 DEPRDB Declining balance depreciation 

10 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with daily register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/A Mortgage amortization table 

1 5 MLILTMON Computes time needed for money to double, triple. 

16 SALVAGE Determines salvage value of an investment 

17 RRVAR1N Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWTTH Equal withdrawals from investment to leave over 

24 SkMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivaient dated values for obtig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * Markup analysis for items 

28 SINKFUND Snkjng fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVA1. Value of a warrant 

34 BONOVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE I Portfolio selection model i.e. what stocks to hold 

38 OPTWRfTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADlriF Value of additional information 

44 cmUTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRANS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost-volume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity pnee breaks 

55 QUEUECB Cost benefit waiting line analysis 

56 NCFANAL Net cash flow analysis for simple investment 

57 PROF1ND Profitability index of a project 

58 CAP1 Cap. Asset Pr. Model anaiysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 D1SCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 F1NRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRINDLAS Laspeyres price index 

66 PRJNDPA Paasche price index 

67 SEAS1ND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 T1MEMOV Time series analysis moving average trend 

70 FUPRTHF Future price estimation v*th inflation 

71 MAJLPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 TIMECLCK Computes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TVnUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC h memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay requred for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 1NSFILE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storag^vahjaOon program 



$99.95 



D TRS-a0 Cassette Version 

□ TRS-80 (Mod-I or III), Pet, Apple 
or Atari Versions 

□ TRS-80 Mod-ll, IBM, Osborne 
and CP/M Versions 

ADO J3.00 FOR SHIPPING IN UPS AREAS 

ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 

ADD SS 00 TO CANADA AND MEXICO 

ADO PROPER POSTAGE OUTSIDE Of U.S.. CANADA ANO MEXICO 

iCQWRJTHQWICSs 
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$99.95 ORO£fl 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



HOOB 

O A OKOE* 
* H LINE 




ASK FOR OUR 64-PAGE CATALOG | 



DEALER INQUIRIES INVITED 



\JP\ 9A4) 425-1535 

ALL PRICES • SPECIFICATIONS SUBJECT tO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



CQMPUTRQNICS 



• • • EVERYTHING FOR YOUR TRS-80** • • 
MODEL I, MODEL II & MODEL HI 



' TRS-80" is a trademark of Tandy Corp 



FROM 



£T RACET COMPUTES^ 



• All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3 00forshippinginUPS Areas 
• Add $4.00 for C O D or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to all other countries 



*** 



ESSENTIAL UTILITY PROGRAMS FOR EVERY TRS-80 OWNER *** 



TacU Abaui Hotel Cmpuiw UtifUij Vwtqitam 



■ ALL PROGRAMS ARE WRITTEN IN MACHINE LANGUAGE 

' ABSOLUTELY NO KNOWLEDGE OF MACHINE LANGUAGE IS NECESSARY TO USE ANY OF THE UTILITY PROGRAMS 

' EACH UTILITY PROGRAM IS CALLED UP FROM BASIC USING THESIMPLE BASIC COMMANDS PROVIDED 

' EACH UTILITY PROGRAM COMES WITH A RACET COMPUTES INSTRUCTION MANUAL 

' EACH INSTRUCTION MANUAL INCLUDES SEVERAL EXAMPLES OF UTILITY USAGE 

' EACH UTILITY ALLOWS THE USER TO PERFORM CERTAIN BASIC OPERATIONS TEN, TWENTY OR MORE TIMES FASTER THAN THE 

EQUIVALENT BASIC ROUTINE (FOR EXAMPLE. GSF CAN SORT AN ARRAY OF 1000 RANDOM NAMES INTO ALPHABETICAL ORDER IN 

UNDER 9 SECONDS!!) 



GSF (GENERALIZED SUBROUTINE FACILITY) 

• SORTS 1000-ELEMENT ARRAYS IN 9 SECONDS 

• SORTS UPT01SARRAYSSIMULTANEOUSLY(MIXEDSTRING. FLOATING POINTAND 
INTEGER) 

• SORTS SINGLE OH MULTIPLE SUBSTRINGS AS ASCENOING OR DESCENDING SORT 
KEYS 

• READ AND WRITE ARRAYS TO CASSETTE 

• COMPRESS AND UNCOMPRESS DATA IN MEMORY 

• MOVE ARRAYS IN MEMORY 

• DUPLICATE MEMORY 

• FAST HORIZONTAL AND VERTICAL LINES 

• SCREENCONTROLSFORSCROLLINGTHESCREENUP DOWN. LEFT. RIGHT ANDFOR 
GENERATING INVERSE GRAPHIC DISPLAYS 

• AODS PEEKS AND POKES (MOD-II VERSION ONLY) 



MOOEL-I VERSION 
MODEL-II VERSION . 
MODEL-INVERSION 



$25 00 
.S50 00 
$30 00 



DSM (DISK SORT MERGE) 

• SORT AN 85K DISKETTE IN LESS THAN THREE M'NUTES 1 

• SORTS LARGE MULTIPLE DISKETTE FILES ON A MINIMUM ONE DRIVE SYSTEM 

• ALL RECORDS ARE PHYSICALLY REARRANGED-NO KEY FILES ARE REOUIRED 

• SORTS RANDOM Fll ES CREATEO BY BASIC. INCLUDING FILES CONTAINING SUB- 
RECORDS SPANNING SECTORS 

• SORTS ON ONE OR MORE FIELDS IN ASCENOING OR DESCENDING ORDER 

• FIELDS MAY BE STIRNGS. INTEGER BINARY INTEGER OR FLOATING POINT 

• THE SORTEDOUTPUT FILE MAY OPTIONALLY HAVE FIELDS DELETED. REARRANGED 
OR PADDED 

• SORT COMMANDS CAN BE SAVED FOR REUSE 

• SINGLE SORT MERGE. OR MIXED SORT/MERGE OPERATIONS MAYBE PERFORMED 

• SORTED OUTPUT MAY BE WRITTEN TO A NEW FILE. OR REPLACE THE ORIGINAL IN- 
PUT FILE. 



MOUEL-I VERSION * 7 *00 

MOOEL-II VERSION $150 00 

MOOEL-IM VERSION **>«> 



KFS-80 (KEYED FILE SYSTEM) 

• CREATE ISAM FILES (INDEX SEQUENTIAL ACCESS METHOD) 

• ALLOWS INSTANT ACCESS TO ANY RECORD ON YOUR DISKETTE 

• INSTANTLY RETRIEVE RECOROS FROM MAILING LISTS. INVENTORY. ACCOUNTS 
RECEIVABLE OR VIRTUALLY ANY APPLICATION WHERE RAPID ACCESS IS RE- 
OUIRED TO NAMED RECORDS 

• PROVIDES THE BASIC PROGRAMMER THE ABILITY TO RAPIDLY INSERT OR ACCESS 
KEYED RECOROS IN ONE OR MORE DATA FILES 

• RECORDS ARE MAINTAINED IN SORTED ORDER BY A SPECIFIED KEY 

• RECORDS MAY BE INSERTEO OR RETRIEVED BY SUPPLYING THE KEY 

• RECORDS MAY BE RETRIEVED SEQUENTIAL LY IN SORTED ORDER 

• RAPID ACCESS TO ANY FILE REGARDLESS OF THE NUMBER OF RECORDS 

• MULTIPLE INDEX FILES CAN BE EASILY CREATED WHICH ALLOWS ACCESS OF A 
SINGLE DATABASE BY MULTIPLE KEYS [FOR EXAMPLE. BY BOTH NAME AND ZIP- 
CODE) 



MODEL-I VERSION . 
MODEL-II VERSION 
MODEL-III VERSION 



$100 00 
$175 00 
$100 00 



MAILLIST (A MAILING LIST DATABASE SYSTEM) 

• IDEALLY SUITED FOR ORGANIZATION MAILING LISTS. PERSONAL AODRESSBOOK, 
OR MAILING LISTS BASED ON DATES SUCH AS REMINDERS FOR BIRTHDATES OR 
OUES PAYABLE 

• USED ISAM (INDEX SEOUENTIAL ACCESS METHOO) FOR RAPID ACCESS TIMES 

• YOUR MAILLIST CAN ALWAYS BE SORTED AND MAINTAINED BY UP TO FOUR INDEX 
FILES IFOR EXAMPLE. NAME ZIPCODE DATE ANO NUMBER i 

• MAILLIST ALLOWS UP TO 30 ATTRIBUTES TO BE SPECIFIED ITO BE USED IN SEL- 
ECTION OF SPECIFIED RECORDS WHEN GENERATING REPORTS OH MAILING 
LABELS 

» MAILLIST SUPPORTS BOTH 5 OR 9-DIGIT ZIPCOOES 

• PRINTING MAY BE ST ARTED OR ENDED AT ANY POINT IN THE 1 1ST THE USER CAN 
SPECIFY FIELDS OR CODES TO BE PRINTED 

• CAPACITY IS 600 NAMES FOR MODEL-I, 3500NAMES FOR MODEL II. 38.000 NAMES FOR 
MODEL II WITH HARD OISK DRIVF 1200 NAMES FOR MOOEL III 

MODEL-I VERSION... •■•■■ $75 00 

MODEL-H VERSION $150 00 

MODEL-III VERSION ... $75 00 



HSDS HARD DISK DRIVE SOFTWARE 



MAKES 'RSDOS COMPA''BlE WIT" MOST "ABC 
ADDS MANY EXTRA FEATURES XO 'RSDOS 



COMPROC (COMMAND PROCESSOR) 



auto 'Our disk to perform any sequence of ns~r.c t >ons that vcu 
normally give from the keyboard for example insert the d.ske'te 
press the reset button your command file could automatically show 
you the directory show 'he free space on the dlkse t te load a ma- 
CHINE LANGUAGE SUBROUTINE LOAPBASiC lOAD AND RUN A BASIC PROGRAM 
AND SELECT A GIVEN ITEM ON YOUR MENU ALL WITHOUT TOUCHING THE KEY- 
BOARD') 



MOOEl-i VERSION ... . 

MODEL-MI VERSION . 

NOT AVAILABLE FOR MOOEL-II 



$20 00 
$30 OC 



DISCAT (DISKETTE CATALOG SYSTEM) 



THIS COMPREHENSIVE OI«Kl T TE CATALOGUING INDEXING UTIl ITY Al L OWS THE 
USER TO KEEP TRACK OF THOUSANDS OF PROGRAMS IN A CATEGORIZED LI- 
BRARY FILE INCLUDES PROGRAM NAMES AND EXTENSIONS PROGRAM LENGTH 
DISKETTE NUMBERS AND FREf SPACE ON EACH OlSKETTt KEEP A COMPLETE 
CATALOG OF THE DIRECTORIFS ON »L. vO'./R DISKf'ES IN Ai PmAHL T iC AL 
ORDER .SOR T ED ON EACH DISKETTE OR COMPLE'E a.phABE'TA. ..ST o> 
^ROGHAMS ON All YOJR DISKETTES) 



MODEL I VERSION 

MOOEl-iii VERSION 

MOOEl-H VERSION SEE MODEL -II L'Tili 



ISO 00 

$50 00 



BLINK (BASIC LINK FACILITY) 

• ..INK FROM BASIC PROGRAM "O *NC 'HER SA.iNG Al_ . AHiAp.ES 

• t hE CHAINED PRCC.RAM MAY EITHER REPLACE THE ORIGINAL PROGRAM OR CAN 
BE MERGED Bv S'A'EMEN' ViMI'fH 



VOr.'F. -i /ERSiON 
VODEl III VERSION 
MODEL 'I VERS. ON SEE MC 



■ v PACKAGE 



$2: 00 
$3C0C 
$53 00 



INFINITE BASIC 



ADDS OVER 80 COMMANDS TO HASH 

SORTING STRINGCENTERING ROTATION TRUNCATION JlJS t iF K.ATION OA'A 
COMPRESSION STRING T HANSt AT ION COPYING SCREEN DSPiAY SOROl . - 
ING MATRIX OPERATIONS SIMOI TANtOUS EQUATIONS .THROUGH MATRIX 
INVERSIONi DYNAMIC ARRAY Ml SHAPING 



MOOEl I VERSION 

MOOEe HI VERSION 

NOT AVAILABLE ON MODEL II 



ISO 00 

$rtil 00 



INFINITE BUSINESS 



ADD ON PACKAGE TO INFINITE BASIC RE ").:.RES INFINITE BASIC 
ADDS PACKED DECIMAL AfilTHME Tic With 127 DIGIT ACCURACY i ■ " I 

complete pr'nter pagination controls auto headers footers and 

page numbers 

binary search of sorted and unsorteo arrays .instant search of an 

Element within an array. 

hash CODES 



MODEL I VERSION 

VODEl-ih VERSION 

NOT AVAILABLE ON MODEL-II 



$30 00 
$30 00 



REMODEL-PROLOAD 



• 'HE UL'IMA'E RENuMBER N'l '■ R> GRAM Pf-N^MBERS All OR PAP 
GRAM A.iOWS =AP"iA, RENUMBI RING IN ViDDLE OF PROGRAMS 

• PARTIAL OR COMPLETE MERGE OF *WO CASSETTE PROGRAMS 

MODE. I VERSION 

MODEL III VERSION . 

NOT AVAILABLE ON MODEL-II 



$ IS 00 
$ >b 00 



COPSYS 



COPY ANO VFRIFY A t L MACHINE I ANGUAGF iSVSTEMl TAPESWRIT TE N INSTAND 
ART) EOHMAT >F YOU BUY A MACHINE '. ANGUAGE PROGRAM COPSYS ALLOWS 
YOU TO EASILY COPY TMF E'HOGRAM ONTO ANOTHER CASSF TT! AS A HACKUP 



MODE . -I VFRS'ON 

MODEL -•'! VERSION 

NOT AVAILABLE ON MODEL-II 



$'boo 



FOR DEALER 
INFORMATION CALL: 



£• RACET computes -^ 



1330 N GLASSEl SUITE M ORANGE CA 9266T 
« 714. 997-4950 



MODEL II SPEEDUP— FAST DISK I/O 

THIS IS AN ENHANCEMENT FOR TRSDOS 2.0 THAT WILL 
RADICALLY DECREASE DISK ACCESS TIME. 



DISKS BOOT FASTER t O DOS 
i IMPROVE DISK I C UNDER BASIC 



MODEL II ONLY 



wflk 



MODEL II FASTBACK — FULL DISK BACKUP 
IN 55 SECONDS 

IN BUSINESS TIME IS MONEY. ANO ONE BACKUP IS WORTH A THOUSANO TEARS. 

• WORKS ON SYSTEMS WITH 2 OR MORE DRIVFS 

• CAN RFFU ACF YOUR FXISTING TRSDOS 1 ? or 2 BACKUP UTILITY 



MODEI II ONI Y 



$75 00 



WSfc 



MODEL-II UTILITY PACKAGE 



ESSEN' A. 'OR EVERY MOD-!' OWNER 

RECOVER AND REPAIR =vES AND D'Rt'" T ORiES By ,jST EN T ERiNG A S'NGlE 

COMMAND. 

XCOPY SIMILAR TO COPY BUT CAN COPY ANY NUMBER OF FilES AT ONE TIME 

FASTER AND MORE ACCURATE THAN COPY S'NCE RECORDS ARE COPiED IN 

GROUPS RATHER THAN ONE RECORDS AT A TIME USING XCOPY YOU CAN COPY 

FILES THAT CAN NOT BE COPIED USING THE COPY COMMAND 

SZAP PROVIDES THE CAPABILITY TO READ AND MODIFY ANY SECTOR ON A 

DISKETTE 

XHIT CAN BE USED TO REPAIR A DISKETTE DIRECTORY 

DCS DIRECTOR CATALOG SYSTEM ij A UTILITY FOR ThE MANAGE VEST QF USER 

D'SKE"ES SE T S OF A MUL T IPLfc D'SKETTE DIRECTORY F lE WITH UP TO '200 

INDIVIDUAL FILE NAMES' ALLOWS SELECTIVELY LISTED OR PRINTED LISTS OF 

p.RIC -. a; F . ES IN CC'.'BiNEC SOR T EP ORDER EC EXA'.'C^E . S"EDA L P«A 

BET.f Ali y by diskette or a composite alphabs'k.a; _is- oe all your 

DISKE ' TES 

DEBUG il ADDS SEVERAL FEATURES 'O THE PRESENT TRSDOS DEBUG UTILITY 
INCLUDING SINGLE INSTRUCTION CYCI E AUTO LOOP. BREAKPOINTS SUB 
ROUTINE CAI ; ING BREAK-KEY DETECT" iN AND MANY OTHERS 



MODEL-II DEVELOPMENT SYSTEM 

• THIS PACKAGE IS A MUSI c OR ASSEMBL Y L ANGL.AGE PROGRAMMERS 

• NCil.DE - 'HE MICROSOFTEDITORASSEMBLERPLUSWIYhEnhaNCEMENTSFO 
•HE VOl.'E . i' 

• A COMPLETE DISASSEMBLER 

• SUPERZAP FOR READING AND MOD Fy ANY SELECTOR ON A DISKETTE 



MOOEL-II ONC 



s\- 



MOp-ll BASIC CROSS REFERENCE UTILITY 

WlTH.N A PROGRAM 
• t 1ST OF PRINT ALL LINE NUMBERS CON T AINING A SPECIFIED STRiNG OF CHAR 
ACTERS 

MODEL II ONLY $50 00 

•" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE *" 



END USERS 
CALL: 



HOUR 
24 ORDER 
LINE 



•C™PU!TRQ^ICSr 

50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

NEW TOLL-FREE 

ORDER LINE 

(OUTSIOE OF N V STATE) 

(800) 431-2818 



Sfe 



(914) 425-1535 



DEALER INQUIRIES WELCOME 



AOD $3 00 FOR SHIPPING IN UPS AREAS 
ADO U 00 FOR COD. OR NON-UPS AREAS 
ADD $S 00 TO CANADA ANO MEXICO 
AOD PROPER POSTAGE OUTSIDE OF U S . 
CANAOA ANO MEXICO 
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Dapartmant ol th« Traasury — lntMn«l Rmnai Sar»rc« 

U.S. Individual Income Tax Return 



rD82 



■Pj OMB Ho. 1545-0085 



IRS 

labtL 
Ottaw- 



a-type. 



Your (irtt mm aad initial (if joint ratwn, also (Km spoiita'a aaax and iaitiali 



Prasad! homa addrass (Number and street, including apartmaat Mmber. or rural rout*) 



Your social security number 



Spouse's social security no. 



City, tern or pott offica. Stita and ZIP coda 



Your occupation 



Spouse's occupation ► 



rYmdtfltial 

ElajWHI Cliapanil V |f joint return. do— your spouse want $1 to go to this fund? 



^ Do you want $1 to go to this fund? 



Yes 



Yes 



No 



No 



Not*: Checking "V«s" will 
not increasa your tax or r»- 
duca your refund. 



n 



micromatic TlQS-80* Owners do rour own 

PROGRAMMING 
COMPANY 



Taxes Like An Expert with TAX/SAVER U™ 

on ol Tandy Corp. 



TRS-M k J Uijfirfc ol the Radio SKacU Oil 



]»'*«* I. 



■-< •*>£ t '«< 5W>1 



rOC MODEL I. II** cr MODEL Ui 

TAX/SAVER II'" — The tax help program for the layman, the professional accountant or tax preparer. 

New and expanded. TAX SAVER IT* offers a different approach to preparing a lax return. Like the original, the new version has 
the tax regulations programmed in so it is more than hjsi a calculator Designed for norv accountants, TAX SAVER II" asks you 
questions, just as an accountant does. Based on your answers, it leads you through the lax maze lo your lowest legal lax Then it 
tell* you how lo fill in your return, line by line, or it will output to a printer. 

TAX SAVER If* also has speed features for those domg more than one return. Optional program instruction and tax text make 
TAX SAVER II" the practical system for professional preparers as well TAX SAVER 11*" has lull disk storage of data files I with 
optional password protection I . 

The manual includes information on special lax areas, lists of possible deductions and a tax glossary 

TAX SAVER II"" compares itemized deductions to national averages; automatically computes certain limitations lor example, on 
medical deductions and contributions; checks for excess PICA; helps determine dependents Yet. TAX SAVER II" offers the 
privacy and convenience of home use. 

The user-oriented design with special screen formatting makes data entry, verification and correction easy Yet you are always m 
control. You can skip any help features or parts of I he program that you don'l need. 

TAX/SAVER 11" 

• Completes long and short forms (1040 & 1040A) 

• Itemized Deductions - Schedule A 

• Interest & Dividends - Schedule B 

• Tax Calculation - Tables, Rates 

• Tax Savings Methods - Income Averaging. Maximum Tax, Alternative Tax 

• Business Income Schedules C & SE 
a Capital Gains - Schedule D 

• Allows you the privacy of your own home 

• Lets you help friends and relatives with their taxes 

• Has built in aids. Answers specific questions hke "Is my father my dependent?" and "An* my deductions reasonable- 1 ' 

• Manual includes 1982 tax forms, information on special tax areas, lists of possible deductions and glossary ot lax terms 

• Completes long and short forms including itemized deductions, excess FICA. earned income credit, community property . 
tax calculation Icomparing all possible filing statuses in one runl 

• Tax regulations are programmed in by our team of accountants. Just type in your figures & you've done your own tax return 

• Helps you find the lowest tax 

• Discounts on yearly updates 

• Prmls out on standard IRS forms overlays or plain tractor feed paper 

• Accepts totals from all other tax forms not listed here 



PROFESSIONAL TAX/FORECASTER T " 

TAX/FORECASTER", the quick tax estimator (with printout) for both 1982 and 1983 lets you revise itsestimate by merely changing one or nxn 
together with TAX SAVER II" or by itself. TAX FORECASTER" lets you quickly ask all of your WHAT IF? Questions anti instantly recalculates 
aid for both the layman and professional. Includes Income Averaging and disk storage of Client files 

• Bolh TAX SAVER II** and TAX FORECASTER*" are tax-deductible • Discounis are given on yearly updates • Free tax newsletter is 
With the combined package TAX'SAVER II" and TAX/FORECASTER", you can now have, at an affordable price, ihe power to predict, c c 



\of<c Mitt* &<ntc«t: 






'j this cartel 



I IIHHrWH O til 




REVIEWS: 






u*ll desnyvil and east • 


■ ..-. n Lub* Crr. 


M ( impi.lm-} '. m! 


TAX SAVER" -n.lv wry 


well li\e up to ils nam 




M I.«nnenhaum. CPA 80 Mxr.x. imputing 2 81 


CUSTOMERS 






For "h*- vrtce i ttwl tv t»*'ai 


lamloot.inqlotw.ardi 


inemveai With this 


pragnm [ fash —v Mng n 2 


hour* Thank you 




h\i *'!.*""' *?"v*«*"*\'" •*■ 


xul slyk- is tit- ul -is 


nuist alliatl-w aim 


r-uVi Fr.1',. a [*f'»-jr.i**" • 


n realk, use' 




PROFESSIONALS: 






This is rn* DerVi l t>r™)r.i-i t 


« trios*- doHvj ta**-s tin 


Mhentoi u-axival-k- 


ife* 1 ' a as >■•". • •*. ~ . a '••.•• ■ 


v nilUs rhar know hoih 


fir i iqr ammiivj ,tiw1 1 .i » 


!a* " TAX SAVER - " - - .:» 


' 





llsei: asaMxp.ar.nei eilhe 
.ix> s Ayre.i: \a\ prepa:a:«> 



D TAX/SAVER II'" (MOD 1 & Hi) $139.95 Manual Included 

D PROFESSIONAL TAX/FORECASTER" (MOD I & HI) $99.95 ($79.95 if purchased with TAX/SAVER 

D UPDATE for Registered TAX/SAVER If Owners $83.95 

TAX FORM OVERLAYS $19 95 

O TAX/SAVER II- Model II" Version $199 95 

O PROFESSIONAL TAX/FORECASTER" Model II" Version $129.95 



SYSTEM REQUIREMENTS 

□ TRS-80 Model I with , - '2K and 2 disk drives 
D TRS 80 Model III with UK and 2 disk drives 

□ TRS 80 Model II" with WK and 1 disk drive 
** Availability ol Model II programs uncertain at pre* 



•CQIYlRJTHQWICSi 



SO N PASCACK ROAO 
SPRING VALLEY. NEW YORK 10977 



ALL PRICES A SPECIFICATIONS SUBJECT TO CHANGE 
- DELIVERY SUBJECT TO AVAILABILITY 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 



HOUR ^gm 
24 ORDER "*£ 
LINE 

"llH (914) 425-1535 



* 30-Day money back guarantee 

* ADD $3.00 FOR SHIPPING IN UPS AREAS 

* ADD $400 FOR C.O.D. OR NON-UPS AREAS 

* ADD $5.00 TO CANADA AND MEXICO 

* ADD PROPER POSTAGE OUTSIDE U.S., CANADA & MEXICO 
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FEEDBACK LOOP 



by Terry Kepner 



Send any questions or problems 
dealing with any aspect of TRS-80 mi- 
crocomputing to "Feedback Loop, " 
80 Micro, 80 Pine Street, Peterbor- 
ough, NH 03458. 

/would like to share some comments 
on Lazy Writer. Contrary to your re- 
sponse to T.B. of Hartford, CT (Feed- 
back Loop, September 1982), Lazy 
Writer does provide full proportional 
spacing for several printers, including 
theDWII. 

Also, about the reply to G.B. of 
Hopkins, MN (also September), Lazy 
Writer can save formatted text to disk 
as it would appear on paper; it also has 
built-in RS-232 communications. 

S.B. 
Frederick, MD 

You're right, Lazy Writer does pro- 
vide proportional spacing. But this is 
an optional extra ($29.95 for the DW 
II), which makes its price substantially 
more than NewScript ($124.95 versus 
$204.95). 

I didn't know Lazy Writer could for- 
mat text to the disk drives, or that it 
had an RS-232 driver built-in; for Mr. 
G.B., that makes it a worthwhile 
purchase. 



I'm writing in response to your an- 
swer to E.S. of Los Angeles (Septem- 
ber issue) concerning copying disk files 
from Model III double density to Mod- 
el I single density. I believe there's a 
fourth alternative besides the three you 
mention — Super Utility Plus. 

This utility allows the Model III 
double-disk user to separately format 
(in several different DOS configura- 
tions) each drive and copy files from 
one to the other. The program costs 
$49. 95 (cheap and includes many other 
powerful disk manipulation utilities). 

I'm not a machine-language pro- 
grammer, but I do appreciate Super 
Utility Plus's ease of operation. I've 
used it to correct disk errors, rename 
disks, and make back-ups of protected 
disks. 

T.B. 
Spokane, WA 

Super Utility Plus is definitely one of 
the most powerful disk utility pro- 
grams on the market for the Model I 




Problems 

and 
solutions 



and Model III computers. I agree with 
Paul Wiener, every serious user of a 
TRS-80 Model I or III should have it. 
But it won't necessarily transfer all 
programs from one DOS to another. 
Super Utility Plus is manufactured and 
sold by Powersoft (11500 Stemmons 
Fwy, Suite 125, Dallas, TX 75229, 
800-527-7432) for $74.95. The Alter- 
nate Source will be selling it at its origi- 
nal price ($49.95) until January 1, 
1983! 

/ read with interest the letter from 
P.D. of Nashville (September issue). 
Coincidental!}', we have the same 
equipment — a Model II with a Line 
Printer III — and up until a year ago we 
had the same problem. 

Unfortunately, Radio Shack wasn 't 
able to help me. I'm convinced the 
problem lies with the printer's design. 
Otherwise I think the LP III is an excel- 
lent machine. 

Here's what happens: When the 
printer is programmed to print a char- 
acter, tension is put on the ribbon. But 
when you 're form feeding, only line 
feeds go to the printer. When the form 
is feeding through, the ribbon is loose. 
The trouble comes when the perfora- 
tion between the forms passes in front 
of the print head, catches the loose rib- 
bon, and pulls it away from the print 
head. At $13 per ribbon, that's an ex- 
pensive problem. 

Once I understood the problem, the 
solution was easy. I program the 
printer to print a dot at column 80 one 
line before the perforation and one line 
after the perforation. This puts enough 
tension on the ribbon to keep it out of 



the way. I've added this feature to all 
our programs with 100-percent suc- 
cess. I can now leave my printer on all 
night long printing five-part forms 
with carbons. 

For unalterable canned programs, 
you have to devise a way to put enough 
tension on the paper so the perfora- 
tions don '( pull the ribbon, while mak- 
ing sure the tension won 7 tear (he trac- 
tor-feed holes. 

T.S. 
Chicago, IL 

Sounds like an excellent, nontechni- 
cal solution for modifiable programs. 
Does anyone have a working solution 
for the nonmodifiable programs? 

In your reply to R.M. of Poland, 
OH, you listed two machine-language 
manuals for the 6809 chip. There's a 
third book available: 6809 Assembly 
Language Programming by Lance A. 
Leventhal, published by Osborne- 
McGraw Hill Publications. 

P.W. 
Jaffrey, NH 

Thanks for letting us know. 

/ am considering a switch from my 
Stringy Floppy and tape system to 
disks, but I need more information be- 
fore I will buy. Can you tell me the ad- 
vantages and disadvantages of 40 ver- 
sus 80-track drives, double-headed 
drives, and double-density drives. I in- 
tend to use the system for business ac- 
tivities such as inventory and accounts 
receivable. 

W.G. 
West Berlin, NJ 

The primary advantage of 80 over 
40-track drives is space — there's twice 
as much of it. The disadvantage is 
some incompatibility with software on 
35 and 40-track disks. Most of the in- 
compatibility problems come about 
because 80-track drives actually put 
two tracks in the same space normally 
occupied by only one track of a 
35-track disk. 

An 80-track drive would treat a 
40-track disk as if it were an 80-track 
disk where every other track was a du- 
plicate of the preceding track. This pre- 
sents a problem when you try to read a 
disk because the boot-up sector of a 
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disk usually tells the DOS where the 
directory track is located. The 40-track 
disk tells the DOS the directory is on 
track 17, so the 80-track drive skips 
over to its track 17 (actually track 8 of 
the 40-track disk) and gets lost trying 
to find the directory. 

Several DOSes on the market 
(MULTIDOS, DOSPLUS, to name 
two) include a command. Skip, that 
takes care of this problem, allowing 
you to read the 40-track disk. Writing 
to the 40-track disk is also okay if you 
don't try to read the disk in a 40-track 
drive later (which will read the new 
80-track information alongside the old 
40-track information, and get con- 
fused). 

The problem still remains for those 
programs on protected disks that can't 
be treated as data disks. These special 
DOS disks require that you boot them 
up in a 40-track drive. To leave your- 
self the most flexibility, I suggest you 
get one 40-track drive to use with those 
special programs. 

The double-headed drive's advan- 
tage is, once again, space. Double- 
headed drives store twice as much data 
in the same amount of space. The dis- 
advantages are that they cost more 
(single-sided disks can be used, but the 
second side isn't guaranteed to be good 
and you could experience lost data 
problems), and most DOSes let you use 
only three drives on a system with a 
double-sided drive, with the fourth 
drive line being used to switch between 
side A and side B (but who cares when 
you end up with 50 percent more room 
than a standard four-drive system). 

Double density lets you store almost 
twice as much information as with sin- 
gle-density drives. I don't know of any 
real disadvantages to double density. 
In fact a double-density board will im- 
prove the reliability of disk I/O in sin- 
gle density on a Model I just by being 
installed (double density requires the 
use of a data-separator circuit for the 
FDC chip controlling the disk drives). 
This data separator reduces, if not 
eliminates, DATA-LOST errors. 

If you were to get one double-sided, 
double-density, 40-track drive and two 
80-track double-sided, double-density 
drives, you would have about 1.4 
megabytes (18*40*2+18*80*4 = 5760 
sectors) of information on-line, com- 
pared with 400,000 bytes on a standard 
four-drive, 40-track, single-density 
system. 
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I've been considering buying the Ra- 
dio Shack PC-2 Pocket Computer. I 
haven 't because Tandy doesn 7 have an 
editor/assembler, or even an instruc- 
tion set, for Assembly-language pro- 
gramming — despite giving an example 
of a short machine-code routine in 
their manual. I was told their machine 
is identical to the Sharp Pocket Com- 
puter and that Sharp doesn 't want to 
release the instruction set either. I ask- 
ed a Sharp salesman, but he didn't 
know anything. Can you shed any light 
on the matter? 

P.S. I'm a great fan of LCD dis- 
plays, and am curious to know about 
the possibility of pocket computers in 
the future with larger displays (more 
than one line of text). Maybe portable 
is a better word than pocket. 

J.W. 
Albuquerque, NM 

The PC-2 is the Sharp Pocket Com- 
puter with Tandy's label on it. The 
Sharp salesman can't be blamed for 
not knowing because deals of this na- 
ture are conducted at a higher level of 
management. 

An editor /assembler isn't available 
for either Pocket Computer. You are 
correct about why Tandy doesn't sell 
one for their PC-2. If Sharp, the licens- 
ing company, allowed them, Tandy 
most assuredly would sell an editor/as- 
sembler. After all, they've released one 
for all their other computers. 

Trade journals have been talking 
about new LCD multiline displays for 
microcomputers the past few months. 
It shouldn't be long before we see a 
portable computer similar to the 
Kaycomp or the Osborne 1 , except that 
it will have a light-weight LCD display 
instead of a 15 or 20-pound video 
monitor. 

My system is a Model I, Level II 
ALPS keyboard with 16K, an LNW ex- 
pansion interface with AeroComp 
Doubler, two MPI B-52 drives, and a 
Centronics 737 printer. 

I'm unable to read most disks for- 
matted on other systems. When I try to 
boot them, the disk spins, stops, and the 
screen retains its previous image. If I 
connect someone else's drive to my sys- 
tem (using my power supply and ca- 
bling), one out of every five drives tried 
will load. Disks made on my system 
won't load on most other systems. I 
have swapped drives, power supplies, 
and cabling. The only item that seems to 



make a difference is the drive. 

I've used my drives and interface on 
other systems and they work just fine. 

I think there 's a tremendous disparity 
in the speed and head-alignment ad- 
justments for mini-drives. I haven't 
found anyone who can check and align 
my drives, so I don't have any real 
proof yet. Also, there seems to be some 
drive /interface interplay that I don't 
fully understand; they work fine sep- 
arated, but not together. 

M.B. 
Laguna Beach, CA 

Ouch! It does sound like your prob- 
lem is with the disk drives and their 
alignment. There are two commercially 
available programs that can help you 
identify the problem. The most versatile 
is Floppy Doctor by Dave Stambaugh 
(The Micro Clinic, 17375 Brookhurst, 
#114, Fountain Valley, CA 92708, 
$24.95/Model I, $29.95/Model III). 
Floppy Doctor is a complete diagnostics 
package. It thoroughly checks your 
computer system: RAM, ROM, and 
drives (35, 40, 77, and 80 track, single 
and double density). The drives are 
checked for proper motor speed, head 
alignment, read/write accuracy, head- 
seek accuracy, and several other impor- 
tant areas. If you don't already nave 
this program, get it. It will tell you if the 
problem is with your drives, disks (I test 
for flaws on any new disks I buy), com- 
puter, or software. Knowing which tests 
your drive fails can sometimes pin- 
point the exact cause for your drive's 
problems. 

The other diagnostic package is DDT- 
Disc Drive Timer from DiscoTech (1 150 
Coddingtown Center, P.O. Box 1 1 129, 
Santa Rosa, CA 95406, $29.95). This 
utility uses a graphic chart to show you 
your drive's rotation speed, and tells 
you how to adjust that speed to within 
normal system tolerances. 

There is another possibility — check 
your disk drives to see if they both have 
"the termination pullup resistor pack in- 
stalled. Only the last drive on your drive 
cable should have it. If you're not sure 
where the resistor pack is, take both 
drives to a computer repair center and 
have the technician tell you if the resis- 
tor pack is installed properly. 

I've been so flustered by Radio 
Shack's EDTASM that I've almost 
given up. I have a problem saving the 
object output from the assembly onto 
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TRS-80 Disk 
& Other Mysteries 

by H.C. Pennington 

This book is the definitive 
authority on data recovery 
for the TRS-80 Model I disk 
system. In almost every case, 
lost data can be recovered 
and this book tells you how 
to do it. From clobbered dir- 
ectories to parity errors, this 
profusely illustrated data 
recovery cookbook includes 
examples and step-by-step 
instructions for both begin- 
ners and professionals. 
132 pages. $22.50 



Microsoft BASIC Decoded 
& Other Mysteries 

by James Farvour 

This book is the only one of 
its kind. You will learn how 
the TRS-80 Model I BASIC 
interpreter works from 
power-up to power-down. It 
has the complete disas- 
sembled Microsoft BASIC 
Level II interpreter with over 
1 3,000 lines of detailed com- 
ments in one volume. The 
math, arithmetic and utility 
routines are fully explained 
with examples on how to use 
them. An incredible learning 
aid for the beginner and a 
valuable reference for the 
professional. 
312 pages. S29.95 



The Custom TRS-80 
& Other Mysteries 

by Dennis Bathory Kitsz. 

A comlete hardware/soft- 
ware how-to-do- it like reverse 
video, high res graphics, aud- 
ible keystrokes, 8-track mass 
storage music synthesizer, 
and real time clock Dozens 
of project hints tips, and fixes 
complete with the interface 
software. If you are a begin- 
ner, there are chapters on 
wire-wrap, soldering and con- 
struction methods. If you are 
a professional, there is a 
wealth of technical detail. 
332 pages. $29.95 



BASIC Faster and Better 
& Other Mysteries 

by Lewis Rosenfelder 

BASIC is not nearly as slow 
as you think! This book shows 
you how to make it faster and 
better with techniques and 
tricks that you neverdreamed 
of for Model I, II and III 
disk systems. You won't find 
trivial, poorly designed "check- 
book"" programs here - only 
useful BASIC techniques 
and code ready for use in 
YOUR programs. Tutorial for 
the beginner, instructive for 
the advanced, and invaluable 
for the professional. All rou- 
tines are available on disk 

290 pages. $29.95 



Learn about your TRS-80 computer - it's as easy as i -2-3-4. These books are easy to read and understand because they are 
written for you by people just like you Here are answers and solutions without jargon. There are no end of chapter tests'" - no 
incomprehensible math formulas - no textbook explanations - just straightforward, plain English. 

You will learn how to recover ' lost data" on disk, how the BASIC interpreter works, how to make BASIC run faster and better, and 
how to modify and interface your TRS-80. In other words, you will learn how to make your computer do all the things you want it to 
do. It's as easy as 1-2-3-4 



Available at computer stores, B. Dalton Booksellers and independent book 
dealers BASIC Faster and Better is also available at all RADIO SHACK Computer 
Centers and selected RADIO SHACK stores.(Cat. No. 62-1 002) If your dealer is out of 
stock order direct. Include $4.00 for shipping and handling. Foreign residents add 
$1 1.00 plus purchase price, in U.S. funds. TRS-80 trademark TANDY Corp 
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Santa's Gone Soft! 




With Help From Instant Software 



BUSINESS AND APPLICATIONS 



GAMES 



0222RD 


Electronic Breadboard 32K, Mod I & 




0332R 


Space Shuttle 16K. Mod I & Ml, tape 


$19.95 




III. disk 


$59 95 


001 7R 


Air Flight Simulation 16K, Mod I & III. 




0228R 


Electronic Breadboard 16K. Mod I 4 






tape 


$14.95 


0428AD 


III. tape 

Eleclronic Breadboard 32K. Apple. 


$49 95 


0148A 
0159R 


Air Flight Simulation I6K. Apple, tape 
Jet Fighter Pilot 16K, Mod 1 4 III. tape 


$1495 
$1495 


0369RD2 


disk 

Easy Calc 48K. Mod III only, disk 


$59 95 
$49.95 


0329AD 
0223R 


Jet Fighter Pilot 32K. Apple, disk 
Cosmic Patrol 16K, Mod I 4 III. tape 


$24.95 
$19 95 


0269RD 


Easy Calc 48K. Mod I only, disk 


$49 95 


0224RD 


Cosmic Patrol 16K. Mod I 4 III disk 


$24.95 


0103R 


Personal Bill Paying 16K. Mod I & III. 




0237R 


Danger in Orbit 16K, Mod 1 & III, tape 


$1995 




tape 


$14.95 


0247RD 


Danger in Orbit 16K. Mod I & III, disk 


S24& 


5005RD 

LTJ2HU 
0140R 


Master Directory 32K, Mod I only. 

disk 

Business Analysis 32K, Mod I 4 III. 

disk 

Business Analysis 32K. Mod I 4 III. 


$29.95 
$99 95 


0051R 
0240R 
0171R 


Ball Turret Gunner 16K. Mod I 4 III. 

tape 

Alien Attack Force 16K, Mod I 4 III. 

tape 

Flight Path 16K. Mod I 4 III. tape 


$14.95 

$14 95 
$1495 


0380RD 


tape 

Scriptr 48K. Mod I only. Disk 


$75.00 
$34.95 


0043R 
0229AD 


Santa Paravia 16K, Mod 1 4 III, tape 
Santa Paravia 48K, Apple, disk 


$14.95 
$24.95 








0273TI 


Santa Paravia 16K. Tl 99/4. tape 


$14.95 


LDUCm nurN 




0174A 


Santa Paravia 48K. Apple tape 


S1495 


0099R 


Typing Teacher 16K. Mod I & III. tape 


$17.95 


0312R 


Swamp War 16K. Mod 1 & III. tape 


$14.95 


0100R 


Video Speed Reading 16K. Mod 1 & 




0141R 


Battleground 16K, Mod 1 & III. tape 


$14,95 




III, tape 


$1495 


0378RD 


Master Reversi 16K, Mod 1 only, disk 


$24 95 


03O9R 


Triangle Trig 16K. Mod 1 4 III. tape 


$19.95 


0117R 


Night Flight 16K, Mod 1 4 III. tape 


$14 95 


0071 RD 


Geography Explorer USA 32K. Mod 1 




0183A 


Skybombers III 32K. Apple, tape 


$14.95 




& III. disk 


$49.95 


027 IAD 


Skybombers II 32K. Apple, disk 


$2495 


0276RO 


Geography Explorer Mid East. 32K. 




5020RC 


Tower of Fear 16K. Color Computer, 






Mod l & III, disk 


$49.95 




tape 


$1995 


0111R 


Word Watch 16K. Mod I 4 III. tape 


$14.95 


0084R 


Music Master 4K, Mod I & III. tape 


$14 95 


0257R 


Math Master 16K, Mod 1 & III. tape 


$17.95 


0106R 


Air Mail Pilot 16K, Mod I 4 III, tape 


$14.95 


0127R 


Surveyors Apprentice 16K. Mod I 4 III 




0205RD 


Flying Circus 32K. Mod I only, disk 


$39.95 


lr 


tape 

istant! 


$14.95 

Sc 


0163AD 

)f1 


Paddle Fun 32K, Apple, disk 

"ware 


$19.95 


Peterborough. N.H. 03458 USA 




A subsidiary ol Wayne Green Inc. 
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0219R 



0325RD 
0387RD 



0386RD 
0161AD 



House of 30 Gables 16K. Mod I 4 III. 

tape $14.95 

Mission. Mud 32K, Mod I & III, disk $19.95 

Sparrow Commander 32K. Mod I 4 III, 

disk $19.95 

Kitchen Sink 32K. Mod I & III. disk $19 95 

Apple Fun 32K, Apple, disk $19 95 



UTILITIES 

0230R TLDIS 16K. Mod I 4 III. tape $19 95 

0231 RD DLDIS 32K. Mod I only, disk $24.95 
5700RD Super»Termmal 32K. Mod I & III, 

disk $9500 

5003R Ultra Mon 16K. Mod I 4 III. tape $24.95 
0232R The Disassembler 16K. Mod I & III. 

tape $14.95 
0245R Programmer s Primer 16K. Mod I & III, 

tape $14 95 

0139RD Disk Scope 32K. Mod I only, disk $24 95 

0184R TRS-80 Tests 16K, Mod I only, tape $14.95 



TO ORDER: 

See your local Instant Software dealer 

or call toll-free 1-800-258-5473 Dept. A- 65 

In New Hampshire 1-603-924-9471 

Dept. A-65 

Mon.-Fri. 8:00 am-4:30 pm E.S.T. 
Include $2.50 lor Shipping & Handling 

•TRS-80 is a trademark of Radio Shack a division of 

Tandy Corporation 

"APPLE is a trademark of Apple Computer Inc. 

PRICES SUBJECT TO CHANGE 
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cassette. EDTASM works fine except 
for this one area. I have both Version 
1.0 and Version l.l for tape systems, 
but both have this problem. 

My system is a Level II, 16K com- 
puter with the dual cassette interface 
from Sel-tronics. I removed the inter- 
face from the system, but still have the 
problem. I tried the computer store, 
Fort Worth, and friends with no luck. 
I'm considering getting EDTASM Plus, 
but am worried about the cassette 
operation. 

B.B. 
San Jose, CA 

It sounds like the cassette interface in 
your keyboard is at fault. Most of the 
early Model Is had a flaw in the design 
of the cassette interface that made it 
very difficult for the computer to read 
from and write to cassette tape. For a 
time Radio Shack offered a free modifi- 
cation to the cassette interface that cor- 
rected this problem (the XRX cassette 
modification). The modification is still 
available, but now they usually charge a 
nominal fee for the parts and labor. 

Before you charge off to the nearest 
Tandy computer retail center, check 
these points out first: 

Are your tape recorder heads clean 
and properly aligned? Borrow a friend's 
recorder and see if you have better luck 
saving and loading. If you do, the prob- 
lem is most likely with your tape re- 
corder and not EDTASM or your com- 
puter. 

Have you tried using your copy of 
EDTASM on another computer (such 
as the local Radio Shack store's or a 
friend's)? If your EDTASM works on 
other computers, the problem is with 
your system. If the EDTASM fails to 
work at the store, show the salesman 
and get a replacement copy. 

If you have chronic problems with 
cassette I/O, regardless of the program 
or tape recorder you're using, the prob- 
lem is definitely with your cassette inter- 
face and should be taken to a repair 
center. 

/ have a PMC-80 with a built-in cas- 
sette recorder. In the August issue of SO 
Micro there's a game called Naval 
Wars. To connect the computers to- 
gether you need the mike, remote and 
earphone plugs exposed, which aren't 
available on the PMC-80. If you plug a 
plug into the computer a second tape 
player can be accessed by the normal 



I/O statements. Is it possible to convert 
the program to work on the PMC-80? 

D.H. 
Conway, PA 

After looking at the program, I don't 
see why you can't just replace the 
INPUT/M and PRINT*-! commands 
with INPUT#-2 and PRINT0-2 and use 
the second tape player plug on the 
PMC-80. If you're going to be playing 
with another PMC-80, both machines 
will need the modified program. If the 
other machine is a TRS-80, use the 
modified program in your machine only. 

/ have a Model III 48K cassette-oper- 
ated computer, with a Radio Shack LP 
VIII. I use the computer for word pro- 
cessing with Scripsit, which is where I 
have my problem. The LP VIII is capa- 
ble of changing type fonts, underlining, 
and printing boldface characters, none 
of which are supported by Scripsit. 

A friend told me about a cassette pro- 
gram, "Scrips Plus, " that corrects this 
problem, but I can 't find the software 
company. Quality Software, who's sup- 
posed to be one of your advertisers. 

Another problem I have is line re- 
numbering in Basic. On my PC- 1 this is 
easy to do. The need often arises to ei- 
ther replicate or duplicate some pro- 
gramming without retyping. I have seen 
renumbering mentioned in ads; are 
there any subroutines that you 've pub- 
lished in the past that can change line 
numbers easily? 

D.P. 
Houston, TX 

The Scripsit modifying program you 
want is called Scriplus, for Scripsit. The 
company that sells it has changed its 
name from Quality Software to Power- 
Soft (1 1500 Stemmons Fwy, Suite 125, 
Dallas TX 75229), which is why you 
couldn't find them in the magazine. 
Scriplus retails for $24.95 (cassette or 
disk) and lets you use all your printer's 
features: backspace, underline, 
boldface, and so on. 

There's another Scripsit-modifying 
program available called Scriptr. It's 
sold by Pioneer Software (1746 NW 
55th Ave., #204, Lauderhill, FL 33313) 
and retails for $40 (cassette and disk). 

For more details on both of these 
programs, read pages 101 and 102 of 
the September 1982 issue of 80 Micro. 

I think you have a slight misconcep- 
tion about renumbering programs. The 



PC-1 is unusual in its method of renum- 
bering Basic lines. Most Basic line- 
renumbering programs change the line 
numbers of your Basic program to a 
new sequence. They don't move or du- 
plicate the Basic lines. Several of the 
DOSes on the market (such as DOS- 
PLUS and MULTIDOS) include spe- 
cial commands in their DOS Basic that 
let you move or duplicate Basic lines. 
But since you don't have disk drives, 
that isn't a solution (and the only re- 
numbering program I can find in the 
magazine is in the March 1981 issue, 
page 256). 

What you can do is get a machine- 
language program that lets you use 
screen-editing techniques to duplicate 
Basic lines to new locations (almost ex- 
actly the same way the PC- 1 duplicates 
lines. You just type a new line number 
over the old one, press enter, and 
you've duplicated it.) There are two of 
these available. The first one is called 
IRV and is sold by The Programmer's 
Guild, (P.O. Box 22, Peterborough, 
NH 03458 (603) 924-6065) and retails 
for $24.95 (Model I cassette version), 
$29.95 for disk. The Model III version 
is called Superkeys and retails for 
$49.95 (disk only). It's available from 
Advanced Operating Systems (450 St. 
John Road, Suite 792, Michigan City, 
IN 46360, (219) 879-4693). 

The second program is sold by Inter- 
pro (P.O. Box 4211, Manchester, NH 
03108, (603) 669-0477) and retails for 
$24.95 (specify disk or tape). It auto- 
matically adjusts itself to your comput- 
er's memory size (16K, 32K, or 48K), 
and computer type (Model I or III). 

Both programs let you assign mes- 
sages to the keyboard keys (so you 
can define the shift, D key combin- 
ation to print "Delete," the shift, 
X key combination to print Data 
***************, and so forth) and let 
you use the standard Level II Edit com- 
mands together with their screen-editing 
capabilities to concatenate or change 
Basic lines on the screen. 

Of the two programs, Key Com- 
mander is more sophisticated and versa- 
tile; it's also easier to use. 

We 're looking for information on the 
Color Computer: books, programs, 
hardware, software, and computer 
clubs. We're also interested in a pro- 
gram called Smart Package, which is 
supposed to allow direct linking to other 
computers without the use of Compu- 
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Serve. Can you help? 



R.&K.J. 
Madera, CA 



Your best source of information on 
the Color Computer is 80 Micro (this 
isn't just a plug for this magazine, it's 
the truth). 80 Micro has more com- 
panies advertising products (books, 
programs, hardware, and such) for the 
Color Computer than either of the two 
publications specializing in the Color 
Computer (Color Computer News, and 
The Rainbow). Check September's 
Feedback Loop for two machine- 
language books on the Color Com- 
puter, and this month for a third one. 

One very good source is B. Dalton 
Books, located in many shopping malls. 
B. Dalton has the largest and most com- 
plete selection of computer books of 
any store I've ever been in, including 
computer stores. 

New computer club listings can be 
found in 80 Micro issues, with an up- 
dated list printed each year of all the 
clubs known. 80 Micro's November 
1981 issue included as complete a listing 
as possible. It will be updated in the An- 
niversary issue. In addition, the Radio 
Shack Computer Newsletter also lists 
new clubs. 

The Smart package is probably a 
communications program, although I 
can find none with that name. Several 
similar programs are available: 
Datapak (Cer-Comp, 5566 Richochet 
Ave., Las Vegas, NV 89110, $24.95 
cassette, $49.95 disk). Colorcom/E 
(Spectrum Projects, 93-15 86th Drive, 
Woodhaven, NY 11421, $49.95), 
Micro-Text (The Micro Works, P.O. 
Box 1 1 10, Del Mar, CA 92014, $59.95 
ROMPAK), Colorterm (Martin Con- 
sulting, 94 Macalester Bay, Winnipeg, 
Manitoba, R3T 2XT Canada, $34.95), 
and Super Color Terminal (Nelson 
Software Systems, P.O. Box 190%, 
Minneapolis, MN 55419, $39.95 tape, 
$49.95 ROMPAK, $69.95 disk). 

These programs make the world of 
telephone and computer communica- 
tions available to the Color Computer 
user. CompuServe, Timenet, and The 
Source are all data-base computer net- 
works you can tie into using a com- 
munications terminal program. When 
you buy the CompuServe package from 
Radio Shack, you get one hour of time 
on CompuServe and a rather primitive 
communications program. Compu- 
Serve isn't necessary to communicate 
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with other computers — only the ter- 
minal program (and a modem/ phone 
hardware hookup) are needed for that. 
There are several hundred computer 
bulletin board services in the world. 
Many of their phone numbers have 
been listed in past issues of 80 Micro. 

I want to upgrade my TRS-80 Level I 
computer without paying Radio Shack 
prices. I've worked with electronics, 
but not computers. Is there any alter- 
native from another company, or a do- 
it-yourself ROM pack? I've put in my 
own 16K RAM. 

L.H. 
Cortland, NY 

The only source of Level II ROMs is 
Radio Shack, which sells them for $99 
and charges $25 to install them. If you 
don't mind voiding your Radio Shack 
warranty, you can buy the ROMs from 
Radio Shack's National Parts Division 
(900 East Northside Drive, Fort Worth, 
TX 76102, (817) 870-5662). The two- 
chip Level II ROMs cost $66.73 (the 
A-B chip, serial number AXX3031, is 
$41.58, the C chip, serial number 
AXX3030, is $15.15). If you have Mas- 
terCharge or Visa, you can call direct 
and order the parts by phone. There's 
also a $1.50 shipping and handling 
charge. 

/ bought my Model III in Novem- 
ber 1980, and after the warranty ex- 
pired, I upgraded it to 48K and then 
added a non-Radio Shack disk drive, 
all of which operate flawlessly. The 
problem is with my keyboard. About 
eight months ago the I key stuck in 
the on position. A half hour with a 
screwdriver and ohmmeter convinced 
me that the only problem was a stuck 
keyboard switch — one bad key 
module. I tried but couldn't get a 
replacement module. After several 
phone calls I gave up and swapped 
the failing key module with the period 
module from the numeric key pad. 

I continued looking, but couldn't 
find either a single key module or a key- 
board at any price. I was told that I 
could order a module, but after three 
months I gave up. Finally I was told 
that Radio Shack doesn 7 sell keyboards 
over the counter; I would have to bring 
in my machine for service and they 
would replace the necessary parts. 

I'm a little leery of taking my ma- 
chine with its $700 dollars of alien hard- 
ware to Radio Shack (I've heard the 



horror stories of people getting their 
computers back with their homebrew 
modifications in a bag). And why 
should I surrender my machine to a re- 
pair center and pay for parts and labor 
(not to mention down time), when I 
could easilv repair it mvself? 

R.C. 
Hyattsville, MD 

Yes, you can buy a new keyboard 
from Radio Shack. All you do is or- 
der it from National Parts (see 
previous letter for the address infor- 
mation). The Model III keyboard's 
serial number is AXX0205, and costs 
$68.56. It shouldn't take more than 
two weeks for the part to be deliv- 
ered. (They usually promise store 
delivery in three work days.) 

I'm having a few minor problems 
with my TRS-80 Model I monitor. The 
image on my display shows a small rip- 
ple that travels slowly from the bottom 
of the screen to the top, and then starts 
again. Also, the whole image on the 
screen is shifted to the right approxi- 
mately 'A " to '/> ", making (he right- 
most part of the image fuzzier than the 
rest. Finally, the monitor sometimes 
squeals from the inside. The noise is 
similar to what you hear from a color 
tv, only louder. Can you help me with 
these? 

H.L. 
South Bend, IN 

Anyone having difficulties with a 
Model l/III computer system should 
buy Dennis Kitsz's book, The Custom 
TRS-80 <& Other Mysteries (available 
from the 80 Micro Bookshelf, adver- 
tised in this magazine. Ask for catalog 
number BK1218). The book retails for 
$29.95. 

All three problems are covered in The 
Custom TRS-80, pages 253-254. The 
first problem isn't the fault of your 
computer, but is the result of radio fre- 
quency interference (RFI) from another 
device. The most common source of 
this problem is the triac used in light 
dimmers. The second most common 
source of interference comes from fluo- 
rescent light bulbs, followed by failing 
neon bulbs (usually stereo lights); in a 
business, check your copier. This is one 
of the hardest problems to eliminate 
because the problem originates from 
outside the computer. 

The second problem can be corrected 
by opening the keyboard unit (Warn- 




JPC PRODUCTS CO. 



Poor Man's 
Floppy 



HIGH SPEED CASSETTE SYSTEM 

Now for the TRS-80 Color Computer 



The JPC Products High Speed Cassette System, 
in operation for over 4 years, is now available 
for all versions of the Radio Shack Color Computer. 

• TC-8C 

The TC-8C plugs directly into the expansion 
port of your TRS-80 Color Computer. It is fully 
compatible with all versions of the Color Computer 
from the Standard 4K up to the Extended 
32K systems. 

• FAST 

The TC-8C saves and loads files at more than 
twice the speed of the built in Color Computer 
system. 

• RELIABLE 

All of JPC Products high speed cassette systems 
have a proven reliability of less than one 
error in a million bits. 

• TWO DRIVES 

The TC-8C fully supports two cassette 
drives. Save and load through either drive by 
simple software selection. You can use 
standard Radio Shack CTR-80A tape recorders 
or their equivalent. 

• ALL FILE TYPES 

The CCCOS operating system allows you to 
save, load, verify or run both BASIC and 
machine language files. Data files are 
also supported. 

• MOTOR CONTROL 

On board relays are provided for both cassette 
ports on the TC-8C. 

• SPARE EPROM SOCKET 

The TC-8C has a spare EPROM socket on 
the board. You can install either 2716 or 2732 
EPROM's. This memory space can be used for 
any of your application programs or you 
could install the optional JPC Products 
monitor program - JBUG. 

TC-8C 

JBUG (EPROM) 

JBUG (CASSETTE) . . 

Terms: Cash, Master Card or Visa 

Shipping & Handling $ 3.50 (US) 
$5.50 (Canada) $15.00 (Foreign) 

Technical Inquiries: Phone 5:00 - 6:00 PM MST 



• JBUG MONITOR 

The JBUG Monitor is a 2K relocatable monitor 
program with fantastic features for the Color 
Computer user. 

• ASSEMBLER 

Line assemble any machine language program 
directly into memory using standard 6809 
assembly language mnemonics. 

• DIS-ASSEMBLER 
Dis-assemble any memory resident program 
(ROM or RAM) directly on the screen. 

• MEMORY MODIFY & LIST 

Modify memory directly or list memory in both 
HEX and ASCII. 

• BREAK POINT TRAPS 

Set, clear or continue from break points. 

• CASSETTE OR EPROM 

The TC-8C is not required in order to use the 
JBUG Monitor. It is available on cassette 
or a 2732 EPROM. 

• SUPERB DOCUMENTATION 

The TC-8C and the JBUG Monitor come with 
complete and extensive user manuals 
(JPC's documentation is praised almost as 
highly as our hardware and software). 
Complete command descriptions and 
background information are provided. 
Examples and sample programs are provided 
to help the novice and experienced 
individual take full advantage of the TC-8C 
and the JBUG Monitor. 

• READY TO GO 

The TC-8C comes completely assembled 
and tested with the CCCOS operating system. 
It is backed with a 30 day Money Back 
Guarantee and a 90 day Full Warranty. 



$129.95 

$34.95 

. $29.95 




• See List ol Advertisers on Page 451 



JPC PRODUCTS CO. 

Phone (505) 294-4623 
12021 Paisano Ct. N.E. 
Albuquerque, N.M. 87112 • 42 
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ing: Opening the computer will void 
your Radio Shack warranty) and ad- 
justing the horizontal and vertical con- 
trol potentiometers on the right side of 
the keyboard, facing down with respect 
to the normal operating position of the 
keyboard. 

The last problem is only a nuisance. 
The high-voltage lines are experiencing 
a slight arcing problem. The solution is 
to open the case (same warning as 
above), after letting it sit unplugged for 
an hour to let the power supply 
capacitors discharge safely, and clean 
the insides. If you find the hissing ir- 
ritating, take it to the repair shop and 
have them put more dope on the high 
voltage lines. If you know where these 
lines are yourself, and you have the 
right kind of dope, you can do this 
yourself. 

My TRS-80 screen starts to scroll and 
gets wavy when I fill it with graphics 
(i.e., white-out the screen). What's 
wrong? How can I fix it? 

J.H. 
Grosse Ponte Park, MI 

First, get Dennis Kitsz's book (the 
same one mentioned before). Second, 
the video monitor has to be modified to 
fix this problem . Unplug the monitor an 
hour before you begin. (Warning: Not 
only will opening the case void your 
warranty, but if you don't let the moni- 
tor sit unplugged for an hour before 
starting, the voltages you'll find inside 
could kill you.) After removing the 
case, locate the resistor marked R14 on 
the small circuit board closest to the side 
of the case (some monitors only have 
one). The resistor should be marked 
3.3K ohm (orange, orange, red bands 
marked on the resistor). Solder a 1.5K 
ohm resistor on top of the 3.3K resistor 
(making them parallel to one another). 
Put the cabinet back together. This 
should take care of your problem. 

While reading some 80 Micro back 
issues, I noticed several programs with 
different version numbers, such as Star 
Trek 4.0. How are the version numbers 
arrived at? 

M.C. 
Concord, NH 

They make them up. Star Trek 4.0 
was written several years before Adven- 
ture International's Star Trek 3.5. 
Generally, unless the program is written 
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by the same author, the version number 
is meaningless. If the same author is us- 
ing different version numbers, the 
numbers correspond to the program's 
release sequence, thus Scripsit Version 
1.1 is an improvement of Scripsit Ver- 
sion 1.0 

My almost new, yet out of warranty, 
Radio Shack Modem I recently died. Re- 
pair charge: $56. 

Radio Shack claims the damage was 
caused by a power surge and is not the 
fault of their equipment . I would like to 
know if this is a plausible explanation or 
am I being sandbagged. Also, how can I 
prevent this from recurring? 

E.M. 
Birmingham, AL 

Yes, this is possible. I have had the un- 
fortunate luck to see most of a TRS-80 
computer destroyed by a line-voltage 
power surge. Radio Shack sells a power- 
line filter/multiple outlet box for $49 
that will limit the amount of ac power 
line interference your system gets. Many 
other companies, advertisers in this 
magazine, offer surge protectors and 
spike suppressors for your computer. 
Since you've already been zapped once, 
you'd better get one of these right away. 



I've decided to add lowercase capa- 
bility to my Model I, but I don V have 
any instructions or a schematic. I do 
have an SPST switch and a 2102 RAM 
chip. Can you help? 

I'm also considering upgrading my 
system to include disk drives and double 
density, but I'm worried about compat- 
ibility with other computers. If I have 
40-track, double-density drives, will I be 
able to exchange programs on disks 
with someone who has only Radio 
Shack 35-track, single-density drives? 
Would it help if both parties operated 
under the same DOS? 

H.S. 
Cincinnati, OH 

The Custom TRS-80 by Dennis Kitsz 
has the procedure on how to install low- 
ercase capability (as well as about half 
the questions in this month's column). 

Compatibility isn't a problem if you 
use 40-track drives and a DOS capable 
of reading and writing in single and 
double density. All you have to remem- 
ber to do is to format and write the ex- 
change disk as a 35-track, single-density 
disk. DOSPLUS, LDOS. NEWDOS- 



80, and MULTIDOS all read and write 
to both single and double-density, 35 or 
40-track disks. Of the bunch, MULTI- 
DOS offers the most advantages for its 
price: MULTIDOS is the only DOS that 
reads and writes to disks no matter what 
system they were written with (although 
NEWDOS80 is a problem if the direc- 
tory is more than one track in length). 
For the most compatibility, both 
operators should use the same DOS. 

lama blind freelance writer and have 
thus far been unable to use my hus- 
band's 48 K Model I tape-based com- 
puter. Our quest for help to get the 
computer to read out in an audio medi- 
um has been long and frustrating. Other 
blind users I know of use Apples. My 
ultimate goal is to have a word proces- 
sor I can use. 

Do you know of an easier way to ac- 
commodate an audio medium other 
than dissecting and modifying each pro- 
gram to be used with it? Can you sug- 
gest a way to turn our 80 into a word 
processor I can use? 

N.K. 
Forked River, NJ 



My first thought was to call IJG 
Computer Services (1260 West Foothill 
Blvd., Upland, CA 91786, (714) 
946-5805) and ask about the progress of 
Talking Pencil, a word processor for 
the visually handicapped. Unfortunate- 
ly, while they have plans to eventually 
release such a product, the processor is 
barely out of the planning stages. 

The next step was to call the Votrax 
Corp. (500 Stephenson Hwy, Troy, Ml 
48084, (313) 588-0341). Votrax makes a 
device called Type 'N Talk, which takes 
ASCII text input from an RS-232 port 
and converts it into speech (it works 
quite well). However, it requires soft- 
ware to direct the data to the RS-232 
from the main program (as well as con- 
trol codes to determine when and what 
to send). Unfortunately, again, the re- 
sults were negative; no one at Votrax 
was aware of a word processor using the 
Votrax unit. 

Other phone calls also failed to pro- 
vide a solution. Since 1 couldn't seem to 
help you, does anyone else know of a 
solution for N.K.'s problem? ■ 

Terry Kepner is a free-lance writer 
and programmer, and the vice president 
of Interpro. He's been writing about 
microcomputers since 1979. 
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OOUW- 



HERE'S YOUR 

TICKET TO MANY 

THRILLING HOURS 

OF ENJOYMENT 



\ TWO BRAND NEW GRAPHIC ADVENTURES 
\ IN ONE PACKAGE — FOR YOUR TRS-80 

By Roger Schrag 



Horrors! A deranged madman has locked 
your unconscious form inside of a deserted creep 
house at a crazy carnival. You awake to some 
sobering facts: a bomb is set to explode, and only 
30 real-time minutes stand between you and 
eternity. Somewhere, somehow you must locate 
and defuse the explosive — but we'd be less than 
honest if we thought you had more than a ghost 
of a chance! Brrrr — a real cliffhanger! 



TOXIC DUMPSITE 

Something's gone very, very wrong at the 
Toxic Dumpsite where the treatment and burial 
of deadly contaminants take place. The entire 
plant will explode like the Fourth of July in less 
than 30 minutes — unless you can avoid the 
many traps and protection systems and shut the 
plant down in time. Of course, time is the one 
luxury you haven't got. . . ! 



This is it — the blockbusting debut of the long-awaited Graphic Adventures! Now, your TRS-80 
can hobnob with the best of 'em. Over 50 full screens of sharp, quality graphics breathe a realism and 
vitality into Adventuring, the likes of which you've yet to see on the TRS-80. Both Graphic Adventures 
feature game save, extensive vocabulary, real-time action (yes — we said real-time!) and accept FULL 
sentences! Exclusive area showings brought to you by Adventure International. Now playing at a 
TRS-80 near you! 

TRS-80 48 K Models 1 & 3 disk 0120164 — $39.95 



To order, see your local dealer. If he does not have the program, then 
call 1-800-327-7172 (orders only please) or write for our free catalog. 
Published by ADVENTURE INTERNATIONAL 

a subsidiary of Scott Adams. Inc 
BOX 3435 • LONG WOOD, FL 32750 • (305) 830-8194 



INTERNATIONAL 



PRICES SUBJECT TO CHANGE 



MONEY DOS 



by J. M. Keynes 



I'm sure the options market was in- 
vented by brokerage firms because it 
allows those with small bankrolls to 
gamble. If you wish to trade options 
here are the rules. 

An option is the right to buy or sell 
100 stock shares at a set price called the 
"striking price." All listed options 
have an expiration date. At any time 
before the expiration date they may be 
bought and sold each market day. All 
options expire at 3 p.m. EST on the 
third Friday of the expiration month. 

A "call" is an option to buy 100 
shares of the stock. A "put" is an op- 
tion to sell 100 stock shares. 

An "exercise" converts an option to 
the actual stock. The option holder 
(buyer) can convert to stock at any 
time, provided he has the money to pay 
for it. For example, if you bought a 
November 30 call on XYZ last June for 
$200, and today XYZ is at $37 per 
share and you want to get the stock, 
your option, $3,000, plus a commis- 
sion gets you 100 stock shares. You 
have exercised your option. In prac- 
tice, few options are exercised. Most 
investors who own XYZ options on 
November 30 would sell in the market 
for about $700. 

"In the money" refers to an option, 
like the XYZ above, which has some 
tangible value. That is, the stock is 
above the striking price. 

"Out of the money" is an option 
with no tangible value; that is, the cur- 
rent stock price is below the striking 




price. The price it commands will de- 
pend on how much time is left before 
expiration and how close the stock 
price is to the exercise price. 

You are "covered" when you sell an 
option on a stock you own. This is the 
least risky investment in the market. 
(See one of my previous columns 
where I go into covered option writing 
in depth.) You are also covered if your 
options are properly spread. I'll get in- 
to that later. 

"Naked" is when you sell an option 
on stock you don't own, and if the 
holder exercises it, you are forced to 
buy the stock at the current market 
price in order to deliver to the option 
holder. Being naked implies unlimited 



Compare outright purchase of an option vs concurrently selling a higher priced one. 

The calculations assume equal dollar investment in each. Profit or loss at expiration. Cur- 
rent stock price 23, investment $200. 



AT EXPIRATION 
$25 PER SHARE 
$26 PER SHARE 
$27 PER SHARE 
$28 PER SHARE 
$29 PER SHARE 
$30 PER SHARE 
$31 PER SHARE 
$32 PER SHARE 
$33 PER SHARE 
$34 PER SHARE 
$35 PER SHARE 
$36 PER SHARE 



OUTRIGHT 
-200 
-100 


100 
200 
300 
400 
500 
600 
700 
800 
900 



SPREAD 

-200 
-40 
120 
280 
440 
600 
600 
600 
600 
600 
600 
600 



<"o STOCK GAIN 
8 

13 
17 
21 
26 
30 
34 
39 
43 
47 
52 
56 



/'inure I 



risk. If you sell an option on ASA with 
a striking price of 30 and ASA goes to 
90, you are stuck. Of course, if you 
have any judgment, you will have cov- 
ered your naked position by buying the 
option back. 

The strategy of simply buying an op- 
tion is obvious. If you think a stock is 
going up, you buy a call. If you are 
bearish, you buy a put. Program 
Listing 1 assists you in determining if 
an option is over or underpriced. 

Another strategy that I employ fre- 
quently is "spreading." This is when 
you buy one option and sell another on 
the same stock. 

XYZ is at 23. You think it will go to 
30 by February, so you buy the Febru- 
ary 25 outright for about $200 per op- 
tion and concurrently sell the February 
30 for about $75. You put up the same 
$200 for the February 25, but you get 
back $75 from the sale of the February 
30, making your net risk $125. This is 
an example of "vertical spread." 

In many cases I prefer spreads. It is 
true that you give up the potential for 
an enormous move in a short time, but 
over many years, I have determined 
that few stocks rise more than 33 per- 
cent in any 90-day period. Therefore, I 
prefer the spread because I think the 
odds favor it. Figure 1 clearly shows 
the vast advantage spreading has for 
even a 45 percent move-up in the stock. 
Should the stock remain under 25, 
both calls will expire worthless. If you 
are considering buying a call that is 
way out of the money (buying a 50 call 
on a stock that is now at 40), the ver- 
tical spread portion of Fig. 2 will make 
spreading a compelling strategy. 

Using the "calendar spreads" strat- 
egy requires the least investment. An 
example would be selling a February 
(nearby) and buying a May (deferred) 
option. As this is written, there are 
over 25 stocks on which this can be 
done for under Vi or $50 per spread. 
For example: Today you can buy the 
Mesa Petroleum April 20 and sell the 
MSA January 20 for a debit of only V* 
or $25 per spread. MSA closed today at 
14. The risk is that what you put up as 
the April option must always be worth 
more than the January. Should MSA 
be at 20 on the third Friday of January, 
the option you sold would expire 
worthless while the one you bought has 
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Quality Computer Services Presents ... 




20 Megabytes for 
Under $3500! 



Our Systems Are Compatible 
with Your 




TRS-80® Model 1, II, 


III, XVI 




Apple II® 






IBM® PC 


NEC™ . 


S-100 W 1 


Altos'" F 


NorthStar™ 




■ ■■ 


Superbraln™ 




e£ 



Panasonic 



Epson 



Heath/Zenith 
and Others 



Now 
Available! 



Optional 
10 Meg. 

Tape 
Back-up 



Now you can expand the capability of 
your microcomputer with cost-effective 
mass storage from Q..CS Our inte- 
grated family of 6-. 1 2-, 20-, and 
40-million-Dyte systems lets you operate 
your micro with the speed, convenience, 
and proven reliability of systems costing 
thousands of dollars more! And as your 
needs grow, Q„CS mass storage can 
grow too. You can start with an entry- 
level 6-million-byte system and expand 
80 million bytes ... without scrapping 
your existing programs or operating 
system. 

The completely assembled and 
tested system includes: 

■ Switching power supply 

■ Winchester drive 

■ Host adapter card 

■ Sealed case 



■ Expansion (enclosure, controller, and 
power supply designed for future 
backup hardware or increased storage) 

■ Software 

■ Auto-attach CP/M 

■ Hard disk utilities 

■ Realtime clock 

■ Formatting program (assigns 
alternates for any weak sectors 
detected during formatting — assuring 
the lowest possible error rate) 

■ Warranty (a full one-year warranty 
on all parts and workmanship) 

Also available: 

■ Attach program for TRSDOS 
and OASIS 

■ New CP/M dynamic generator: 
configured software; menu -driven for 
6-, 1 2-, 20-, 40-. 80-megabyte drives 



The following systems 
software can be utilized: 

TRS I, III— attach software for DOS 4.0," 

LDOS 

TRS II, XVI— CP/M Racet for TRSDOS* 

Turbo DOS OASIS 

TRS Models II and XVI use 6 Meg for 

CP/M and 6 Meg for TRSDOS 

Apple— CP/M and DOS 3.3 

NEC— CP/M 

S-100 CP/M 

Heath/Zenith -CP/M 

IBM— PC DOS USCD, etc 

■ AvartaWe ai an additional cost 



See your local dealer or call 

QCS 



Quality 

Computer 

Services 



^48 

I /H Mam surrt. Meiucnea New Jersey 08640 
Telepf iof ie_yO I /54«-7 1 35 

Toll free number :J800J^631^5944_ 

Quantity discounts available Distributor. 
Dealer and OEM inquiries invited 



Peripherals 
Unlimited.. 



FANTASTIC PRICES! 

OUR FAST SERVICE, PRODUCT 
SELECTION AND OUR CUSTOMERS' 
SATISFACTION MAKE US #1. 



Microsoft Z-80 Softcard 


$214 


Microsoft RAM CARD 


$129 


Z-90-64K DO 


$2588 


Z-1 9 Terminal 


$777 


Z-121 Monitor 12" 


$149 



ATARI COMPUTERS 




Atari 800 16K 


$649 


Atari 400 


$318 


Atari Interface Module 


$174 


Atari 810 Single Disk 


$444 


Atari 830 Modem 


$166 


Programmer 


$59 


Entertainer 


$84 


Star Raiders 


$34 


16K Mem. Exp. for Atari 


$74 


32K Mem. Exp. for Atari 


$114 



NEC PRINTERS 






7710/30 Spinwriter R/O 
7720 Spinwriter KSR 
3510/30 Spinwriter R/O 




$2295 
$2649 
$1689 


NEC DOT MATRIX 
PC-8023 




$474 


Call for prices on ribbons, 


etc 





OKIDATA & MORE 




Okidata Microline 82A 


$459 


Okidata Microline 83A 


$699 


Okidata Microline 84 (P) 


$1069 


Okidata Microline 84 (S) 


$1099 


Tractor (OKI 80 & 82 only) 


$60 


Diablo 620 


$1349 


Diablo 630 


$1999 



AMDEK & NEC MONITORS 




Amdek 12" 300 GRN Phospor 


$149 


Amdek 13" Color I 


$319 


Amdek 13" Color II 


$739 


Amdek 13" Color III 


$429 


NEC JB1201 GRN Phosphor 


$149 


NEC JC1201 Color 


$339 



EPSON PRINTERS 




MX-80 w/Graphtrax Plus 


$469 


MX-80FT (Friction & Tractor) 


$529 


MX1 00 (15" Carriage) 


$699 


Grappler Interface 


$129 


Call for prices on 




Ribbons, Cables and Interfaces 




NEC-PC 8000 




Series Microcomputer 




PC-8001 A Computer w/32K 


$888 


PC-8012Aw/32K + Exp. Slots 


$588 


PC-8031A Dual Mini Disk 


$888 


PC-8032A Add-on Mini Disk 


$777 


Call for Software Prices 





FOR THE LOWEST 
PRICE CALL 

TOLL FREE 

1-800-343-4114 

ORDERING INFORMATION 

Our order lines are open 9AM to 6PM 
EST Monday thru Friday. Phone 
orders are welcome; same day ship- 
ment on orders placed before 10AM. 
Free use of Mastercard and VISA. Per- 
sonal checks require 2 weeks 
clearance. Manufacturer's warranty 
included on all equipment. Prices sub- 
ject to revision. C.O.D.'s accepted. 

For service, quality and delivery call: 

PERIPHERALS UNLIMITED 

(617)655-7400 
62 N. Main St.* Natick, MA 01 760 
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90 days to go and would be worth 
about 2 to 2Vi — a profit of perhaps 
1,000 percent. Even if MSA is only at 
17, the April 20 should be worth at 
least Vi for a 100 percent profit. If 
MSA is unchanged at 14, it is likely you 
will be able to recover most of your in- 
vestment. The program in Fig. 2 tells 
you what the option would be worth 
with 90 days to go if the stock is un- 
changed. 

Several times each year a situation 
develops that can provide the clever in- 
vestor with an opportunity for big 
profits with essentially zero risk. Ex- 
amine the following illustration. 
Teledyne recently sold for 75. For a 
brief period you could have bought 
one October 90 and one October 110 
and sold two October 100s for a net 
credit of 3/8. That is, the proceeds 
from the sale of the two October 100 
calls paid in full for the October 90 and 
110 with 3/8 left over, nearly paying 
the commission. You put up nothing. 
(Note: One of the October 100 calls is 
uncovered and requires margin money, 
or if you have any marginable securi- 
ties in your account, they will stand 
good for the margin required.) 

Check out this arithmetic. If on the 
third Friday of October, TDY sells for 
less than 90, all the options expire 
worthless. The investor lost nothing. If 
TDY is between 90 and 1 10, the inves- 
tor profits. The maximum profit is 
achieved at 100, for then the 100 and 
the 110 options are worthless and the 
90 is worth 10, or $1,000. If TDY is 
above 1 10, the investor loses only a 
commission as the combined value of 
the 90 and 1 10 equals the value of two 
100 options. 

You're not laughing now! The order 
to the broker was, "TDY, buy calls 1 
October 90 and 1 October 11 0. Sell 
calls 2 October 100 at 3/8 credit." This 
is one area where established brokers 
may get executions that the discounters 
can't touch. Your broker will be sur- 
prised that such opportunities exist. 

There is another strategy that 1 
have successfully employed. Today 
Warner Communications (WCI) 
closed at 37. There is an option (ac- 
tually a warrant on the American Ex- 
change) that gives one the right to buy 
one share of WCI at $55 per share 
anytime up to April 1, 1986. It closed 
at 13 3/8. The more conservative in- 
vestor might consider buying the 
stock and selling (shorting) the war- 



I'ro^rum Listing 

15 FOR 1=1 TO 1800: NEXT 

20 CLEAR: REM IF YOU WANT ONLY THE VERTICAL SPREAD PROGRAM 

TYPE RUN 5000 

30 IF PEEK( 293)073 THEN POKE 16553,255: REM SEE IF MODEL 1 

40 POKEl6419,196: CLEAR1000: DIM A(300) : CLS: T$«"###.»l": Z=100 

: A(110)=t): GG-1: DIM S$(100) 

50 INPUT "CURRENT PRIME RATE (14% AS 14) " ; I 

60 INPUT "CALENDAR SPREAD-1 VERTICAL SPREAD-2 ELSE ENTER" ;CS: 

CLS 

70 PRINT "COMPARE ESTIMATED PRICES WITH ACTUAL OPTION PRICES. 

80 INPUT "SYMBOL OF STOCK ";SS$ 

90 CLS: PRINT 84 59, "I'M LOOKING IN DATA BANK FOR ";SS$ 

100 READS$,V 

110 IFSS-"END" THEN CLS: PRINT SS$;" IS NOT IN DATA BASE, ENTER 

VOLITILITY.": PRINT "ENTER A NUMBER FROM 5 TO 60": PRINT "5 FOR 

UTILITIES UP TO 60 FOR MOST VOLATILE";: INPUT V: GOTO 130 

120 IFS$OSS$ THEN 100 

130 CLS: INPUT "ACTUAL PRICE OF FIRST OPTION. ";HP 

140 INPUT "ACTUAL PRICE OF SECOND OPTION"; LP 

150 PRINT "FIRST OPTION (LOWER STRIKING PRICE, OR LONGER OPTION 

) : " 

160 PRINT "TOUCH A 1 FOR PUT OR A 2 FOR CALL": GOSUB900 

170 IFVAL(Q$) >2,CLS: PRINT "BAD ENTRY, TRY AGAIN": GOTO 160 

180 A(105)=VAL(Q$) 

190 INPUT " t DAYS TO EXPIRATION ";D1: M=Dl/30 

200 INPUT " STRIKING PRICE ";A(101) 

210 PRINT "SECOND OPTION (HIGHER STRIKING PRICE, OR SHORTER OPT 

ION) : " 

220 PRINT "TOUCH A 1 FOR PUT OR 2 FOR A CALL": GOSUB900 

230 IFVAL(Q$)>2 THEN CLS: PRINT "BAD ENTRY, TRY AGAIN." 

240 A(106)=VAL(Q$) 

250 INPUT " t DAYS TO EXPIRATION ";D2: N-D2/30 

260 INPUT " STRIKING PRICE ";A(102) 

270 INPUT "CURRENT STOCK PRICE ";P 

290 INPUT "QUARTERLY DIVIDEND (40 CENTS AS .40) ";D: D-D* 4 

310 PRINT 

320 CLS: PRINT P410,"I'M THINKING" 

330 IF A(105)=l THEN A$="PUT " 

IF A(105)<>1 THEN A$="CALL" 

IF A(106)=i THEN B$="PUT " 

IF A(106)<>1 THEN B$="CALL" 
I=I/Z: V=V/Z: D=D/Z: T=M/12: U=N/12 
A(61)=T*.5: A(62)'=0 
A(60)«(T/A(61)-A(61) )*.5 

IF(A(60)=0)+(A(60)=A(62) )THEN420 

A(61)=A(61)+A(60) : A(62)=A(60): GOTO 390 

IF U=0 THEN A(63) =0 
A(63)=U*.5: A(62)=0: A(60) =(U/A(63) -A(63) ) *. 5 : GOTO 450 
A(60)=(U/A(63)-A(63) ) *.5 

IF(A(60)=0)+(A(60)=A(62)) THEN 470 
A(63)=A(63)+A(60) : A(62)=A(60): GOTO 440 

IF A(102)»0 THENA(102)=5 

IF A(101)=0 THENA(101)=5 

FOR J=101 TO 102 

IF A(J+4)=1 THEN Q=A( J) + (A( J) -P) 

IF A(J+4)=1 THEN A( 30) =Q/A (J) 

IF A(J+4)<>1 THEN A(30)=P/A(J) 

IF J=102 THEN A(61)-A(63) 

IF J=102 THEN T«U 
A(36)=LOG(A(30) ) 
E=A(36)+(I-D+.5*V*V)*T 
E=E/(V*A(61) ) : F=E-V*A(61): A( 40) =(D*T) * (-1) : A(45)«EXP(A( 



340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

40)) 

580 

590 

600 

610 

620 

630 



A(48)=A(45) : A(50)=E 
GOSUB810 
IF A(J+4)=1 THEN 620 

A(J+2)=A(48)*P*A(52) : GOTO 630 

A(J+2)=A(48)*Q*A(52) 

A(40)=(I*T)*(-1) : A(45)=EXP(A(40)) : A(48)-A(45): A(50)-F 

640 GOSUB810 

6 50 A(J+2)»A(J+2)-A(48) *A(J)*A(52) 

660 IF A(J+4)=1 THEN A(J+2)=A(J+2)*.8498 

670 IF 11=1 THEN GOTO 980 

680 NEXTJ 

690 CLS: PRINT 93 30, "OPT ION EVALUATIONS ON STOCK SYMBOL ";SS$ 

700 PRINT §4 20, "ESTIMATED ACTUAL 

710 PRINT @448,"";: PRINT " # 1 VALUE OF";Dl;"DAY, $"; A(101) > A$; 

" = $";: PRINT USING T$;A(103);: PRINT " ";: PRINT USING T$ 

;HP 

720 PRINT " # 2 VALUE OF";D2;"DAY, $" ; A( 102) ;B$; " = $";: PRINT 

USING T$;A(104);: PRINT " "j: PRINT USING T$;LP 

730 PRINT STRING$(64,131) 

740 X1=HP-A(103) : X2=LP-A(104) : O1=INT(100- ( (A(103) -Xl)/A(103) *1 

00) ) 

/ uling continues 



80 Micro, December 1982 • 445 



MONEY DOS 



rant. You put up the difference (23 
5/8). As long as WC1 is above about 
24, you can't lose. Anything above 24 
is net profit. Maximum profit occurs 
at 55 or above. A similar situation ex- 
ists in American Express (AXP). 

If you want to buy a stock that has 
listed options, you may be able to arti- 
ficially create (so to speak) the stock by 
using options, and in the process, save 
money. Last week Teledyne TDY was 
at 79. The April 80 call and the put 
were selling for 12. I wanted 1,000 
shares of TDY, but rather than put up 
$79,000, 1 bought 10 April 80 calls and 
sold 10 April 80 puts. 1 have essentially 
all the profit potential and risk of own- 
ing the stock. The difference is that I 
put up no money. My $79,000 can be 
earning interest for the next eight 
months (about $6,300). At expiration, 
if I still want to own the stock, I can ex- 
ercise my call option and buy it for 80 
even though it may be at 1 10 (would 
you believe 130?). If I choose to sell the 
call I must pay capital gains taxes. 
There is no tax if I exercise. 



i 



FINALLY t 

Your cassette based TRS-80* 
can handle data files! 

RAMFILE is the answer. It 
will allow you to write 
BASIC programs that will 
efficiently store data in the 
Random Access Memory of 
your computer. You will be 
able to sort and selectively 
retrieve, update and delete 
the data and store it on tape 
for future use. at a speed and 
efficiency that you never 
thought possible. RAMFILE 
runs with 16K or larger Level 
II or Model III BASIC. 

RAMFILE and demonstration 
BASIC program on cassette tape and 
manual. $59.95. 
Postage paid in U.S.A. Foreign 
orders include $2.50. 111. Residents 
include 57. sales tax. 

Send orders to: 

INDIVIDUAL SYSTEMS INC. 

P.O. BOX 343 

Downers Crove. Illinois 60515 

'Trademark of Tandy Corp. .,424 



Listing continued 

750 O2«INT(100-((A(104)-X2)/A(104)*100)) 

760 IFO1>0 THEN R $-" OVERVALUED " : GOSUB910 ELSE R$="UNDERVALUED" : 

GOSUB910 
770 GG-GG+1: IFO2>0 THEN R$» " OVERVALUED " : GOSUB910 ELSE R$»"UNDE 

RVALUED": GOSUB910 

7 80 IFM>3 OR N>3 THEN GOTO 970 

7 90 IFOP-1 THEN 930 

800 PRINT §975,"";: INPUT "PRESS ENTER TO CONTINUE"; E$: CLS: IFC 

S=2 THEN H=A(101): L=A(102) : A-P: GOTO 5100 ELSE 20 

810 A(53)=l/(1+.231642*ABS(A(50))) 

A(40)— A(50)*A(50)/2: A(45) =EXP(A(40) ) : A(51) =.398942*A(45 



820 

) 

830 

6564 

840 

850 

) 

860 

87 

880 

890 



A(55)=l. 330027: A( 56) -1 . 82126 : A(57) =1.78148: A(58)«.35 

A(59)=. 319382 

A(52)=(( (A(55)*A(53)-A(56))*A(53)+A(57))*A(53)-A(58))*A(53 



A(52)=A(52)+A(59) : A(52) =1-A(51) *A(53) *A(52) 
IF A(50) >=0 THEN890 

A(52)=l-A(52) 
RETURN 

900 Q$=INKEY$: IFQ$="" THEN 900 ELSE RETURN 

910 IF01>66 OR 02>66 THEN 0P=1 

920 PRINT "OPTION * ";GG;" IS ";R$;" BY ■ ; ABS(Ol) ; "%" : 01-02: RE 

TURN 

930 U$=INKEY$: IPU$»"" THEN PRINT §0,"ONE OVERPRICED BY MORE THA 

N 66%.": GOTO 940 ELSE IF CS«2 THEN H=A(101): L=A(102): A«P: GOT 

5100 ELSE 40 

940 PRINT "SOMEBODY THINKS THEY KNOW SOMETHING. . .TAKEOVER?????" 

950 PRINT "SPREAD OPPORTUNITY, OR PERHAPS AN EXCELLENT COVERED W 

RITE???" 

960 PRINT "TO CONTINUE TOUCH ANT -KEY": GOTO 930 

970 IFM>3 THEN M=3 : N-3: T-M/12: Y$-"1ST": II-l: GOTO 380 ELSE 

N=3: U=N/12: Y$-"2ND": II-l: GOTO 380 

980 IF CS=1 THEN II-B: PRINT §832, "WITH 90 DAYS LEFT THE ";YS;" 
OPTION SHOULD BE WORTH "; ELSE 790 

990 IFY$«"1ST" THEN PRINT USING T$;A(103) : GOTO 790 ELSE PRIN 

T A(104) : GOTO 790 

5000 REM 

LINE 5000 TO 5260 CAN BE A STAND ALONE PROGRAM FOR 
EVALUATING OUTRIGHT PURCHASES VS VERTICAL SPREADS 
IN CALLS PROFIT/LOSS WILL LESS FAVORABLE AS 



COMMISSIONS HAVE BEEN OMITTED 



5010 REM 



THE CALCULATIONS ASSUME AN EQUAL INVESTMENT IN 
BOTH THE OUTRIGHT AND SPREAD POSITION. IN 
PRACTICE THIS MAY NOT BE POSSIBLE BUT IS SHOWN 
FOR ILLUSTRATIVE PURPOSES. 

5020 CLEAR: CLS 

5030 PRINT "COMPARISON OF OUTRIGHT PURCHASE VS VERTICAL SPREAD" 

5040 PRINT "EG. BUY A 30 CALL AND SELL A 35 

5050 PRINT : INPUT "PRICE OF STOCK IN DECIMAL" ;A 

5060 INPUT "PRICE IN DECIMAL OF HIGHER PRICED OPTION"; HP 

5070 INPUT "STRIKING PRICE" ;H 

5080 INPUT "PRICE IN DECIMAL OF LOWER PRICED OPTION"; LP 

5090 INPUT "STRIKING PRICE" ;L 

5100 S3-HP-LP 

5110 U-HP-LP: U-HP/U 

5120 CLS: INPUT "WANT PRINT OUT OF OUTRIGHT VS VERTICAL ENTER A 

l";PO 

5130 CLS: PRINT "PROFIT/LOSS AT EXPIRATION. STOCK PRICE ";A;"INV 

ESTMENT $";HP"100: PRINT "THE CALCULATIONS ASSUME AN EQUAL INVES 

TMENT IN EACH STRATEGY 

5140 IFPO-1 THEN LPRINT "THE CALCULATIONS ASSUME EQUAL DOLLAR I 

NVESTMENT IN EACH.": LPRINT "PROFIT OR LOSS AT EXPIRATION. CURR 

ENT STOCK PRICE ";A;" INVESTMENT $";HP*100: LPRINT "." 

5150 PRINT §129, "AT EXPIRATION OUTRIGHT" , "SPREAD" , "% STOCK 

GAIN 

5160 IFPO-1 THEN LPRINT "AT EXPIRATION OUTRIGHT" , "SPREAD" 

,"% STOCK GAIN 

5170 FOR I»H TO H+ll 

5180 J=(I-A)/A*100 

5190 GOSUB5240 

5200 PRINT "$";I;" PER SHARE "; INT(O*100) ,INT(P*U*100) ,INT( J) 

5210 IFPO=l THEN LPRINT "$";I;" PER SHARE " ; INT(O*100) ,INT(P 

*U*100) ,INT(J) 

5220 NEXT 

5230 INPUT "GO BACK TO MAIN PROGRAM=l ANOTHER VERTICAL SPREAD-2" 

;V: IFV-1 THEN 40 ELSE 5020 

5240 0«Q-HP 

5250 IFKL+1 THEN P-Q-S3 

/ mint continues 



446 • 80 Micro, Decern berl 982 



64KCP/M2.2 
FOR MODEL III 

$299. 




Now you can run WordStar. SuperCalc, 
SpeNGuard, MailMerge and other CP/M 
based software on your TRS-80 Model III 
And walk away with incredible savings 
Memory Merchant's new Shuffleboard 
III is the first and only 64K CP/M 2.2 
system available for your Model III. 

SOPHISTICATED DESIGN 

The Shuffleboard Ill's advanced design 
includes 16K of RAM. giving your Model 
III the power of full 64K CP/M 2.2, with- 
out interference of the ROM or the 
video memory 

COMPLETE CP/M SYSTEM 

The Shuffleboard III is not a kit. nor a 
skeleton. Mdu will receive a top quality 
high performance system that is shipped 
to you completely assembled, burned-m, 
tested and insured with one of the 
industry's best warranties 

EASY INSTALLATION & USE 

Illustrated step-by-step instructions 
insure fail-safe installation and reliable 
operation. No permanent modifications, 
cut traces or soldering is required. 

The Shuffleboard III easily plugs into 
two existing sockets inside your Model IN. 
Simple keyboard commands switch 
between CP/M and normal TRS-80 
operation. 

NO RISK TRIAL 

We are so convinced that you will 
be absolutely delighted with your 
Shuffleboard III system that we offer 
a no risk trial. After purchasing the 
Shuffleboard III system, you may return it 
(intact) for any reason within 1 5 days 
after shipment and we will refund the 
purchase price (Jess shipping). 

SHIPPED DIRECT FROM STOCK 

The Shuffleboard III is shipped to you 
direct from stock, normally within 48 
hours after receipt of your order 

INTRODUCTORY PRICE 

For a limited time. Memory Merchant 
is offering the Shuffleboard III with CP/M 
2 2 at an introductory price of only $299. 

1 YEAR LIMITED WARRANTY 

The Shuffleboard Ill's reliability through 
quality controlled production and proven 
performance, has enabled us to offer 
a full I year limited warranty. 

HOW TO ORDER 

Please send check, money order, VISA 
or MASTERCHARGE (add ICA ft) with 
your order Sorry, no C O D's Specify 
quantity desired. Shipping and handling 
charge is S5.00 per board ( $9.00 outside 
USA & Canada}* California residents 
add 6% or 6'?% Sales Tax where applicable 
Credit card purchases may be telephoned 
to (415) 483-1008. Order Today! 

OEM and DEALER inquiries invited. 

'Air MhiI s/upments to Cno^d^ & ,-<ll otltcr fouptrirs 



a 



memory 
merchant 



14666 Doolittle Dr., San Leandro, CA 94577 
Telephone (415) 483-1008 „4 6 i 



' Weinoy Mrn.*i.«it IPS KC Model 

PTK 



I lll.'I.wjytr.-vpoi.'M.Tn. WntMr«y WwdSt.v 'MicroPro. SuperO c/Vy<.i"i Spe IC.vri ■ ,S» .rx '.P'V 2 1 CkJ'S'. wrw: " 
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Listing continued 

5260 Q-Q+l: RETURN 

8080 REM 

DATA STATEMENTS CONTAIN NUMBERS WHICH CORRESPOND TO THE 

VOLATILITY OP THE STOCK. THESE DO NOT REMAIN CONSTANT 

FOR ALL STOCKS AS SOME INCREASE OR DECREASE WITH TIME 

HENCE, THE NUMBERS MUST BE UPDATED OCCASIONALLY 

8010 DATA AMP,45,ASA,51,ABT,40,AMD,55,AET,35,APD,32,ALD,38,AH,37 

,AA,30,AMX,52,AMH,58 r ABC,51,AMB,35,ABC r 34,AC,35,ACY r 35,AEP,5,AXP 

f 28,ABP f 30,ABS,35,AMI,51,T,9,AMP,30,AAC,55 

8020 DATA BUD,42,APA,60,ADZ,40,AS,35,AR,45,ASH r 37,ARC,34,AUD,42, 

AV,34,AVT,40,AVP,32 

8030 DATA BKO,35,BDW,53,BLY,50,BAC,25,BCR,38,BOL,35,BAX,28,BRY,2 

3,BDX,28,BS,33 

8040 DATA BDK,30,BBL,30,BA,35,BCC,32,BMY,27,BFI r 35,BC,38,BY,35,B 

NI,33,BGB,29,CBS,28 

8050 DATA CI,28,CSX,29,CCB,28,CAT,27,CZ,28,CEA,47 r CBA,31,CHR r 60, 

CMB,29,CBU,32,CMZ r 35 

8060 DATA FNC,32,CS r 40,CNV,33,CLX,31 f CGP,57,KO,26,CL,27,COT,35,C 

SP,33,CBU,58,CWE,5,CQ,32,CMY,37,CSC,50,CVN,50,ED,5,CTC,5,CDA,35, 

CBE,3 0,GLW,29,CYR,50,ZB,3 2 

8070 DATA DKI r 5,DGN,47,DPT f 50,DPC,49,DH f 28,DE,28,DAL f 31,DEN,34,D 

IA,33,DEO,34,DEC,32,DIS,29,DGS,47,DGZ,47,DOW,31,DI,32 f DD,29 f DUK, 

5 

8080 DATA EGG,32,ESY,45,EFU,39,EK,27,ECK,29,ELG,33,EDS,34,EMR,26 

,EC,3B,ENS,32,ESM,31,X0N,25 

8090 DATA FDX,47,PCF,44,FLE,42,FGN,57,FLR,35,F,31,PWC,45,PTX,42, 

PQA,40 

8100 DATA GAF,42,GCA,55,GTE,23,GAO,43,GD,43,G£,24,.GP,23,GRL f 38,G 

M,27,GPC,28,GX,49,GP,30,GET r 33,GS,27,GLM,49,GT,27,GLD,31,GRA f 28, 

GWF,45,G,2 9,GW,31,GO,30 

8110 DATA HAL,32,BRS f 33 r BPC,32,BBL,29,HWP,29,BLT f 35,BIT,30,BIA,4 

1,BM,49,HON,30,BCA,33,BI,27,BNG,31,BT,35,BUM,43,EFH,47 

8120 DATA INZ,29,IBM,26,IFF,30,HR,3B,IGL,29,IP,30,ITT,26,JNJ,25, 

JOY,32,K*,31,KAB,43,KMG,33,KPB,55,LTV,50,LSI,34,LVI,32,LMK,44,LL 

T,28,LIT,34,LK r 54 f LOR,35,LLX,33,LPX,3 ( i 

8130 DATA MAI,46,MCA,31,MCZ,31,MAN,34,MCA,33,MHS,33,ML,31,MKY,47 

,MAT,49,MDE,36,MCD,28,MD,36,MDT,36,MRK,27,MER,36,MSA,50,MSU,5,MM 

M,26,MND,48 

8140 DATA MOB,31,MDS,53 r MTC,29,JPM,26,MOT,32,MUR,47,NCR f 33,NL,35 

,NLT,42,DR,28,NHE,44,NSM,45,NOM,40,NEM,42,NBL,45,NSC,29,NOC,43,N 

WA,35,NWT,31,NSI,28,NVO,49 

8150 DATA OAK,55,OXY,33,ODR,43,OCF,31,OI,29,PPG,30,PDN,49,PKD,45 

,PC,48,JCP,30,PZL,41,PEP,28,PKN,36,PTO,33,PFE,28,PD,42 

8160 DATA PSB,43,MO,27,P,33,PBI,30,PCO,35,PPP,41,PRD,41,PRM,57,P 

G,25 

8170 DATA RCA,31,RAL,27,RYC,34,RTN,32,RB,48,RTA,58,REV,31,RJR,25 

,RLM,31,ROK,33,RM,52,RDC,4 8,RD,26,RDR,3 5 

8180 DATA SAB,44,SA,25,SFF,31,SGP f 29 f SLB,31,SFA,37,SPP,32,SRL,33 

,S,27,SED,50,SUO,33,SGN,35,SMF,45,SKY,35,SII,35,SKB,29,SNE,34 

8190 DATA SO,5,SX,32,SRO,58,LUV,43,SY,29,SQB,31,SD,30,SN,31,SOH, 

35,STY,32,STK,52,SBK,35,SUN,33,SOC,39,SYS,32,SYN,33 

8200 DATA TIE,63,TRW,28 f TAN r 40,TEK,32,TDY r 35,TGT,29,TSO,50,TX,27 

,TXN,30,TEI,58,TEZ,58,TXO f 34 f TDW,53,TGR,45,TL,31,TOS,55,TOY,48 

8210 DATA TW,48,TA,28,TIC,30,TY,25,TYM,49 

8220 DATA UAL,43,UK r 26 ,UCL,33,UNP,33,U,50,UH,48,X, 31 r UTX,30,UPJ, 

29,VLO,51,VIA,39,VEL,8 

8230 DATA WMT,33 , JWC,30 ,WAN, 50 ,WCI ,34 ,WLA, 27 ,WEN,48,WSN, 47 ,WU, 33 

,WX,30,WY,32,WKR,44,WMB,35,WMS,53,Z r 30,XRX,28,ZOS,49,ZE,51 

8240 DATA END ,00 



FOR THE SIMSIM, INC. 

A^)/~1_^/f7^ 214 North Main St.. Natick, Massachusetts 01760 U.S.V 

I ^Vy l jTj (Lakewood Office Park: Junction of Routes 9 &. 27) 
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TDY goes on my books at 80 with a 
purchase date the same as the exercise 
date. If TDY declines below 80 (a 
ghastly thought), I am obliged to buy 
the stock at 80, but I was going to do 
that in the first place. In any case I'll be. 
many thousands ahead by using the 
above strategy. Such put /call combi- 
nations are available on most option- 
able stocks. 



"The key is knowing 

which options will 

outperform the market 

and which will be 

the laggards. 

I use a complicated 

system that ranks 

all options from one 

to five." 



There is one advanced strategy that 
has profited handsomely for five years 
and, you will find this hard to believe, 
it doesn't matter if the market goes up 
or down! Buy $10,000 worth of op- 
tions on a group of stocks that are like- 
ly to outperform the averages and con- 
currently sell $10,000 worth of options 
on a group that is likely to underper- 
form the market. If the market rises, 
the options you bought will rise faster 
than the options you sold. Should the 
market decline, all the options will 
probably expire worthless. By using 
the same strategy with puts, you can 
profit regardless of market direction. 

This strategy is most useful if you 
have marginable securities in your ac- 
count to meet the margin requirements 
for the naked options. The key is 
knowing which options will outper- 
form the market and which will be the 
laggards. I use a complicated system 
that ranks all options from one to five. 
For five years it has not had a losing 
quarter. The options ranked one have 
always vastly outperformed those 
ranked five. The computations are up- 
dated weekly. If you want a printout, 
send an S.A.S.E. to MONEYDOS. 

I have not covered all the strategies 
in trading options, but I hope you find 
MONEYDOS helpful. If you have sug- 
gestions for future columns write to me 
c/o 80 Micro. ■ 
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COLOR WORKS 



WHS 



NOW— create color 
graphics and play color 
games on your TRS-80* 
MOD 1 & MOD 3. 
CHROMAtrs Kit 

only s 99* 




UNRHOUCHED ROTO 



CHROMAtrs assembled & tested $ 169 



WITH 15 VIVID COLORS 



Now be first! CHROMAtrs lets you create color graphics with capabilities never before possible on 
TRS-80*. You'll be able to play color games with such brilliant effects your friends will be green with envy — 
or any other color of your choice — and all this on your own TRS-80* MOD 1 & MOD 3! 



CHROMAtrs works with: 



CHROMAtrs comes with: 



Routines to provide high speed color 

graphics capability through Basic 

Operating manuals 

One complimentary game 

16K RAM on board 



• 15 vivid colors 

• Transparent and high resolution graphics (192x256) 

• Atari 5 joystick and paddle interface 

• Audio and video outputs 

• 3 Dimensional simulation through 35 
prioritized display planes 

The TRS-80* memory is not used and there is no modification necessary (warranty not voided). This 
uncomplicated system is so simple to connect you'll be amazing your friends with your color powers immedi- 
ately. 

South Shore Computer Concepts, Inc. 



Please send 

□ CHROMAtrs KIT *99 

CHROMAtrs assembled & tested . *1 69 

_ TRS-80' MOD 1 cable M2 

'TRS-80' is a product of Tandy Corp. 



; TRS-80* MOD 3 cable $ 14 

Modulator with cables & switch box . $ 25 

Sub Total _ 

N.Y.S. residents sales tax 7V*% . - . . _ 

Handling & shipping . . *5 

Total amount order 



Check one: 

Check of MO enclosed 

Master Gnarge Visa 

Account * expiratior 

Signature 

Name (Print! 

Address 

City State 



Zip 



South Shore Computer Concepts, Inc. • 1590 Broadway. Hewlett. N.Y. 11557* Phone Orders Taken (516)5694390 „,7, 




-NEVE 



forgets: 



MORE THAN JUST ANOTHER PRETTY FACE 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 



ELEPHANT. HEAVY DUTY DISKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 
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WdlBENEATH the KEYBOARD 



by Paul Wiener 



This month's "Notes from Beneath 
the Keyboard" is special. Kim Watt 
once told me what a luxury it was to 
work with Vernon Hester. He said you 
didn't need a disassembler with Vernon 
around, because Vernon could read a 
page of op-codes as easily as mnemonics. 
He also said, "Vernon Hester is the 
king of TRS-80 disk I/O. I know some 
people have attributed that honor to 
me, but Vernon's the real one." 

If you use any of Vernon Hester's 
software, you probably share my belief 
that Vernon is one of the grandmasters 
of TRS-80 disk I/O. This" month, I'm 
broadcasting the voice of the master. I 
think you'll agree that Vernon's pro- 
gramming perspicacity rivals his teach- 
ing talent. Vernon will tell us a hitherto 
unpublished method of disk I/O. At 
first glance, the technique might seem 
similar to other one-byte I/O tech- 
niques. However, Vernon's offering is 
unique because it uses ROM calls to 
eliminate the greatest stumbling block 
to compatibility with a variety of DOSes. 

Vernon: A lot of people have learned 
how to read and write sectors from disk. 
There has been a problem writing the 
last sector, or end-of-file (EOF) byte. 

That gets tricky when you're working 
with a multitude of DOSes. What no 
one has detailed is exactly how one who 
doesn't want to get too involved in a 
DOS can write a simple routine that will 
correctly write a file, byte for byte, from 
RAM to disk, or read a file from disk to 
RAM, with the proper end of file, and 
with the proper end byte. 

Those calls are available in the ROM. 
If you make those calls in the ROM, the 
particular DOS being used will do its 
own end-of-file and next-byte manipula- 
tion, and correctly write the proper end 
of file and end-of-file byte. 
Paul: When you talk about end of file, 
and end-of-file byte, you're referring to 
potential compatibility problems be- 
cause of the way in which different 
DOSes handle those things, right? 
Vernon: Right. 

Paul: Now, are those the major or only 
incompatibility problems? If someone's 
application program has disk I/O and 
those two things come out right, is it 
fairly certain everything else will? 
Vernon: Yes. What a lot of people have 
probably confused a one-byte read or a 
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one-byte write with is a logical record 
length of one. The programmer still has 
control over what his logical record 
length is. Unless you have a specific 
need, such as random files from Basic, I 
don't see why you shouldn't have a logi- 
cal record length of (256(?)). But other 
than that, most programs work on a 
logical record length of 256. 
Paul: Does a logical record length of 
256 ensure that a 256-byte buffer is 
filled before a sector is actually flushed 
to disk? 
Vernon: Yes. 

Paul: So that keeps things relatively 
quick. 

Vernon: Yes. 

Paul: Some people are concerned that 
this type of byte I/O is slow. You said 
once before that it does use system- 
verify automatically, so writes can take 
a little longer. But otherwise, it's about 
the same as any technique that writes a 
sector at a time. Is that correct? 
Vernon: Yes. It depends on what you're 
trying to read or write. If you're trying 
to read or write a file that fits in RAM, 
it's not going to take much time. Espe- 
cially reading it, because it only reads 
and writes full sectors; it doesn't read or 
write partial sectors. 

In other words, the way DOSes 
work, you can only read in a sector. 
What DOS does, in a one-byte read, is 
to read an entire sector the first time it 
accesses that sector. The accumulator 
will contain the sector's first byte. Then, 



if you call the one-byte read again, it 
doesn't read the sector again, it posi- 
tions the buffer pointer one byte up. 
Once that sector is finished being read 
in, DOS will read another sector. 
Paul: That's done automatically with the 
same ROM call. When you do the call, 
you don't have to know if the buffer 
pointer is in the middle of a sector or the 
end of a sector. You do it the same way? 

Vernon: You do it the same way. The 
DOS handles it. Every time you read a 
byte, although the accumulator con- 
tains that byte, it also contains a zero- 
flag condition. If the zero flag is not set 
by a read, you jump to a little routine I 
call End of File. If the accumulator con- 
tains a 1C hex, it's read in everything 
and you are at the end of file; otherwise, 
you have an error. 

What you do is call the one-byte read. 
You jump-relative if the byte read is 
nonzero to your get -error routine. Oth- 
erwise, you move the byte in the accu- 
mulator to wherever in memory you're 
reading. For example, I point the HL 
register at the memory I want to read. 
Then I load the target of theHL register 
(the location where the HL is pointing) 
from the accumulator, increment the 
HL, and jump right back to the one- 
byte read routine. When I end up with 
an error, I compare with 1C hex. If you 
have a lC hex, you have read in what 
you want to read in. Otherwise you can 
set bit 6 and jump to 4409 hex. That's a 
DOS error-handling routine. The only 
reason you set bit 6 is so you won't see 
DOS ERROR - error number. 
Paul: Do you get the DOS error mes- 
sage at all then? 

Vernon: If you jump to 4409 you will. 
Paul: With bit 6 set you get an error 
message but not the error number? 
Vernon: Right. If you don't have bit 6 
set, you'll get DOS ERROR -24. Most 
DOSes, when you're in the DOS ready 
mode and you input an illegal or bad 
file name before it jumps to 4409, will 
set bit 6. To set bit 6 I do an OR 40H. 
It's a little faster. 

I've written a routine that will both 
read and write a user program, text, or 
whatever. 

At line 14000 you have a label called 
Start: Define label FBUF plus 20H. It's 
the first byte to write. Model III 
TRSDOS has a 50-decimal-byte DCB. In 
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The RPl*PLUS 80 System. 




All you get when you buy some software systems is 
a thin manual and a handshake for good luck. 
STSC's APL* PLUS/80 System is different. We give 
you a set of documentation that's so complete you 
won't need to read another thing to develop and 
run solutions on your TRS-80 H Model III. 

We know that our APL* PLUS 80 System can improve 
your productivity- if you know how to use its power. We start 
you off with a beginner's operation guide, if you're new to APL 
and to the TRS-80, and a beginner's tutorial, if you're familiar 
with the TRS-80 but not with the language. Then we include 
the most widely used APL textbook, so that once you get a 
taste for APL, you can study it in detail. 

Challenge to BASIC 

Build a data file with 15 records of 21 random numbers between 1 and 
KM) chosen without duplicates ( in a record ) and arranged in tables 
with 3 rows and 7 columns. Write a subroutine that reads a specified 
record and prints the table with row and column totals in fields (i 
columns wide. Here is an APL solution: 
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Here's your complete documentation package: 

• Introduction to the APL*PLUS 80 System. 

• Product Overview: APL* PLUS Systems. 

• APL* PLUS 80 Computer Operation User's Guide. 

• APL is Easy! 

• APL: An Interactive Approach, Leonard Oilman and Allen J. 
Rose (Wiley, 1974). 

• APL* PLUS HO Formatting User's Guide. 

• APL* PLUS 80 Shared Files User's Guide. 

■ APL* PLUS 80 Programmer's Reference Manual. 

• Two APL* PLUS 80 Reference Cards. 

We don't want to scare you away with our extensive docu- 
mentation. You don't need to read all the manuals to write 



useful applications in APL. because APL is easy. APL is also 
fun and we're sure that when you know a little APL. you'll 
want to know a whole lot more-and that's why we're giving 
you the most complete set of documentation on the market. 

If you'd like to use APL on your TRS-80 Model III to develop 
and deliver solutions faster and better for yourself or for your 
clients, send for the APL*PLUS 80 Application Development 
System. Mail in the coupon with your payment and we'll send 
you everything you need to run APL on your TRS-80 right 
away. If you'd like more details, check the box on the coupon 
and we'll send you our free information package which in- 
cludes a detailed explanation of the Challenge to BASIC. 

We're STSC, Inc.. the leading supplier of APL software and 
services in the United States. Our APL* PLUS systems have 
been serving the business and professional world for more 
than 12 years. 

APL* PLUS 80 runs under TRSDOS* L3 or LLX )S* 5.1 on a 48K 
RAM TRS-80 Model III with two disk drives. The APL* PLUS 80 System 
comes with a custom APL-character ROM and a self-adhesive key- 
board label set to convert your TRS-80 to the APL character set. 



Attn: APL* PLUS/80 Distribution 
STSC, Inc., 2115 East Jefferson Street 
Rockville, Maryland 20852 
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(301) 984-5000 (orders only) 



Yes, send me the APL* PLUS/80 System, postpaid. 

□ My check for $295 is enclosed. *Add sales tax where applicable. 

□ Charge my MasterCard Account * 
Bank* 

□ Charge my VISA Account * 
Expiration date:. __ 

•State sales tax applicable in MD (5%). FL (4%), and CT ClVi%). 
Td like to know more about the APL* PLUS/80 System. 

□ Send me your free information package. 
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Address 
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APL* PLUS is a service mark and trademark of STSC. Inc., reg 
TRS-XO and TKSIX )S are registered trademarks of Tandy Corporation 
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istered in the United States Patent and Trademark ( Kfice. 
LDOS is a registered trademark of Logical Systems Corporation 
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that case you define that FBUF plus 32H. 
Paul: So, if you're not pressed to save a 
few bytes and you're not sure what 
DOS is going to be used, you can allow 
for a 50-byte DCB buffer and preserve 
all-around compatibility, right? 
Vernon: Right. At line 17000, we define 
the label Mode. Mode will tell you 
whether you want to read or write. 
When you enter this program, you 
jump to or call the label Disk. Before 
you do that, Mode must contain the 
proper value to specify a read or write. 
A few other locations must be correctly 
loaded as well. Start and Finish (lines 
14000 and 15000) must be loaded for a 
write, and Where (line 16000) must be 
loaded for a read. The name of the file 
to read or write must be set up in memo- 
ry. I'll get to all that as we follow the 
program flow. 

Line 18000 defines your I/O buffer. I 
arbitrarily used 5300H as one page 
above the file DCB buffer (the label 
FBUF, line 13000). 

At line 19000, 1 set the origin up. You 
have plenty of room here. The label 1 
have is Disk. Load DE with FBUF. 
That points DE at the DCB. Then we 
call FILK. That checks for a valid file 
name. 

Paul: Does the user have the file name 
in a buffer when this routine starts? 
Vernon: The file name can be anywhere 
in memory when he enters the routine. 
The HL had to be pointing at the file 
name's first character. The file name 
has to be terminated by 03 or 0DH . If 
HL contains 6000H, the name should 
be there (at 6000H) terminated by 03 or 
0DH. 

Paul: And that's what's getting checked 
when you call FILK? 
Vernon: Right. In other words, if HL is 
pointing to 1234567, that's an invalid 
file name. There would be a nonzero 
condition on return from FILK. 

The next instruction is jump-relative 
on nonzero to BADNAM. The com- 
ment there is "nonzero if bad name." 

The next instruction is load HL with 
the I/O buffer. That's where to read or 
write sectors from or to. I set that to 
5300H. 

Line 24000 is load B with zero. That 
sets a logical record length (LRL) of 256. 
Paul: What do you use for logical rec- 
ord lengths other than 256? 
Vernon: Whatever you want to use. 
Load B with 24 and you'll have a logical 
record length of 24. 
Paul: And loading B with one would 
454 • 60 Micro, December 1982 



give you a logical record length of one? 
Vernon: Yes. 

Paul: And 255 would be 255? 
Vernon: Right. There's a gotcha on 
LRLs other than 256, though. 
Paul: What's that? 
Vernon: You need two buffers. 
Paul: Maybe for simplicity, you should 
keep it as 256 then. 

Vernon: Okay. Load A with the con- 
tents of Mode to determine if you're go- 
ing to read or write. If it's a zero, you 
want to write. If it's a nonzero, you 
want to read. The way you check that is 
with the next instruction at 26000 and 
27000: Or A. Jump-relative to RDISK if 
A is nonzero. 
If you get to line 28000, you know 



you're going to write a file, so we call 
I NIT. That will initialize a (new) file, or 
overwrite an existing one (with the same 
file name). This is what the HL is origi- 
nally pointing to — this text (file name). 
You can have whatever valid file name 
you want. You can have file name, 
slash, extension, decimal point, pass- 
word, colon, and drive number if you 
wish. And if you don't have a drive 
number, it's going to search for the 
nonwrite-protected disks, starting at 
drive zero. 

The next instruction (at line 30000) is 
"jump-relative to UERR if nonzero." 
That occurs if there is an error. 

The next instruction is load HL with 
the contents of Start. That's the first 







00000 


;KWD 








0013 




01000 
02000 


ROMRD 


DEFL 


13H i 


ROM INPUT ONE BYTE 
FROM DEVICE 


001B 




03000 
04000 


ROMWT 


DEFL 


1BH 


ROM OUTPUT ONE BYTE 
TO DEVICE 


402D 




05000 


DOS 


DEFL 


4B2DH 


ENTRY TO "DOS READY 1 


4409 




06000 

07000 


ERROR 


DEFL 


4409K 


ERROR INTERPRETER 

A CONTAINS ERROR CODE 


441C 




08000 
09000 


FILK 


DEFL 


441CH 


MOVE FILE FROM g (HL) TO 
© (DE) , CHECK FOR VALIDITY 


4420 




10000 


INIT 


DEFL 


4420H 


INITIALIZE FILESPEC 


4424 




11000 


OPEN 


DEFL 


4424H 


OPEN EXISTING FILESPEC 


4428 




12000 


CLOSE 


DEFL 


4428H 


CLOSE FILE 


5203 




13000 


FBUF 


DEFL 


5200H 


FILE DCB 


5232 




14000 


START 


DEFL 


FBUF+32H 


FIRST BYTE TO WRITE 


5234 




15000 


FINISH 


DEFL 


START+2 


LAST BYTE TO WRITE 


5236 




16000 


WHERE 


DEFL 


FINISH+2 


WHERE TO READ INTO 


5230 




17000 


MODE 


DEFL 


WHERE+2 


NON-ZERO « READ 


5300 




18000 


IOBUP 


DEFL 


5300H ] 


SECTOR BUFFER 


5239 




19000 




ORG 


MODE+1 




5239 


110052 


20000 


DISK 


I.D 


DE.FBUF 


PUT DE DCB 


523C 


CD1C44 


21000 




CALL 


FILK 


CHECK FOR VALID FILENAME 


523P 


2027 


22000 




JR 


HZ, BADNAM 


NON-ZERO IF BAD NAME 


5241 


210053 


23000 




LD 


HL.IOBUF 


WHERE TO READ/WRITE SECTORS 


5244 


0600 


24000 




LD 


B,0 


LRL>256 


5246 


3A3852 


25000 




LD 


A, (NODE) 


WHAT TYPE 


5249 


B7 


26000 




OR 


A 




524A 


2023 


27000 




JR 


N2, RDISK 


NON-ZERO ■ READ 


524C 


CD2044 


28000 
29000 




CALL 


INIT 


INIT FILE 

OVERWRITE IF EXISTING 


524F 


2019 


30000 




JR 


NZ,UERR 


IF NON-ZERO SHOW ERROR 


5251 


2A3252 


31000 




LD 


HL, (START) 


FIRST BYTE TO WRITE 


5254 


ED4B3452 


32000 




LD 


BC, (FINISH) 


LAST BYTE TO WRITE 


525B 


7E 


33000 


MORE 


LD 


A,(HL) 


GET BYTE 


5259 


CD1B00 


34000 
35000 
36000 




CALL 


ROMWT 


PUT IT INTO BUFFER 
DOS WILL WRITE SECTOR 
TO DISK WHEN FULL. 


52SC 


200C 


37000 




JR 


NZ,UERR 


IF NON-ZERO SHOW KRROR 


525E 


E5 


38000 




PUSH 


HL 


SAVE POSITION 


525F 


ED42 


39000 




SBC 


HL.BC 


ARE WE DONE? 


5261 


El 


40000 




POP 


HL 


RESTORE POSITION 


5262 


23 


41000 
42000 
43000 




INC 


HL 


INCREMENT ONE POSITION 
INC HL DOES NOT EFFECT 
"Z* FLAG! 


5263 


20F3 


44000 




JR 


NZ,HORE 


IF NON-ZERO MORE TO WRITE 


5265 


C32844 


45000 




JP 


CLOSE 


CLOSE FILE 


5268 


3E13 


46000 


BADNAM 


LD 


A.13H 


13H - IMPROPER FILE NAME 


526A 


F640 


47000 
48000 


UERR 


OR 


40H 


MASK TO PROHIBIT 
'DOS ERROR •= XX' 


526C 


C30944 


49000 




JP 


ERROR 


GET ERROR MESSAGE 


526F 


CD2444 


50000 


RDISK 


CALL 


OPEN 


OPEN EXISTING PILE 


5272 


20F6 


51000 




JR 


NZ,UERR 


IF NON-ZERO SHOW ERROR 


5274 


2A3652 


52000 




LO 


HL, (WHERE) 


GET PLACE TO PUT IT 


5277 


CD1300 


53000 


GDISK 


CALL 


ROMRD 


•GET BYTE 


527A 


2004 


54000 




JR 


NZ,EOF 


•IF END OR ERROR » NON-ZERO 


527C 


77 


55000 
56000 




LD 


(HL) ,A 


•PUT THE BYTE 
•WHERE YOU WANT IT 


527D 


23 


57000 




INC 


HL 


•INCREMENT POSITION 


527E 


18F7 


58000 




JR 


GDISK 


;GET MORE 


52B0 


FElC 


59000 


EOF 


CP 


1CH 


;IF 1CH NATURAL EOF 


52B2 


C8 


60000 




RET 


1 


;GO HOME IF OK 


5283 


18E5 


61000 




JR 


UERR 


;SH0W ERROR 


5239 




62000 




END 


DISK 

Program Listing 
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byte you want to write to. Start contains 
the address of the first byte to which 
you want to write. 

The instruction at 32000 loads the BC 
register with the contents of Finish. 
That's the last byte you want to write. 

Now you have a label. This label is 
More, and it's "load A with the con- 
tents of HL." The comment there is 
"Get the byte." 

The next instruction is call ROMWT 
(ROM Write). That puts it in the buffer. 

The next instruction (line 37000) is 
"jump-relative to UHRR if nonzero." 
If something went wrong, you go to the 
error-handling routine. 

Next you push HL to save the posi- 
tion to which you just wrote. Then at 
line 39000, subtract -with-carry the HL 
from BC. 

Paul: To see how much you have left? 
Vernon: Right — well if it's zero or not. 
Then you POP the HL to restore the 
pointer. Then increment the HL to posi- 
tion it at the next byte. Now remember, 
this increment HL does not affect the 
Hags at all. If I'd increment H or incre- 
ment L it would affect the flags. But in- 



crementing a full 16-bit register does not. 

At line 44000, jump-relative if non- 
zero to More. The zero flag is still in the 
state it was left by the subtract-with- 
carry in line 39000. So you'll go through 
this routine until the HL reaches the 
BC, or in other words, until I have writ- 
ten the last byte to write. And after that 
you jump to close. 

Paul: Let's see if I understand this. The 
user doesn't even have to break the data 
up into 256-byte chunks. It automati- 
cally gets transferred to the output buf- 
fer 256 bytes at a time? 
Vernon: I think it gets transferred to the 
I/O buffer one byte at a time. 
Paul: It gets flushed to disk and then the 
pointer gets reinitialized to the begin- 
ning of the I/O buffer? 
Vernon: Right. 

Paul: The user doesn't have to worry 
about any of that. 
Vernon: Not at all. 

Next (line 46000) you have the label 
BADNAM (Bad Name). Load A with 
13H. The comment there is "13H indi- 
cates an improper or illegal file name." 

The next label is UERR. The instruc- 



tion is OR 40H. That's so you won't 
have this DOS ERROR xxx message. 
Paul: That's the bit 6 thing. 
Vernon: It's the same as setting bit 6. 
right. The next instruction is .lump to Er- 
ror, which will assemble as Jump 4409H . 

Now, if you want to incorporate the 
routine into your own program instead 
of ORing with 40H, you OR with C0H. 
Then, whatever you've written can 
make a call to this routine. When it 
jumps to Error, it will display the error 
message and return. But if you OR with 
only 40H (you don't have bit 7 set), it 
will jump to 402D and you'll be back at 
DOS Ready. That is internal in DOS's 
error-handling overlay. 
Paul: ORing C0H sets bit 7? 
Vernon: Yes, and bit 6. If you want to 
see DOS ERROR = xw and Mill return 
to the calling routine, you can OR SOU. 
That's the end of the error-handling 
routine. 

Now you go back to the label RDISK 
at line 50000. This time you're going to 
read from disk. Now before you got 
here from above, you've already called 
FILK, which has positioned the file 
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REGULARLY $149.95 

THEY SAID IT COULDNT BE DONE ON A TRS-80 1 . BUT WE DID IT! 

Flnally-A fast, friendly, flexible, responsive approach to rsmots computer communications. Jam packed with 
features never before seen on other Bulletin Board Systems costing 2-3 times our special Introductory pries of 
only $99.95. Some of the more exciting features Include: 



1. Word wrapping so thai various screen sizes Qet a smooth and properly 
formatted display no matter what screen size was used during text entry 
You- callers will love you tor it 1 

2. Comple» or Simple Structures Up to 20 levels ol Menu Nesting and UN 
LIMITED numbers ot menus may be utilized 'or those ol you sinister 
enough to force your users to traverse the ' Twisty Passageways 

3. Electronic Mail Service plus up to 25 separate message boards. These 
boards can be configured lor either Private or Combined access or both. 
You can even authorize individual SYSOPS for each ol the message 
boards!! Each user may be given read only, read/write or no access to 
each board 1 

4. Storage capacity and efficiency. TBBS utilizes 1/3 the disk space 
of competing systems' Maximum message capacity is 2500 messages' 
The userlog stores system configuration, access and privilege levels 
password and other important system information for up to 65.535 sepa- 
rate users 

5. Ah system maintenance is easily accomplished with the provided utility 
programs Such tasks as removal of deleted messages, restoration of de 
leted messages. Userlog maintenance, menu creation/editing, Configura- 
tion of system options, and system backup are easier than ever before' 

6. System security is enhanced by the optional use ot a logon password 
check. 255 privilege levels, and 16 feature/command authorization flags 
These features provide an unprecedented flexibility in presenting TBBS to 
various users 



FULL AFTER-SALE 
SUPPORT 



7. Fully protected remote use o' DOS and Basic for games O' remote 
SYSOP (unctions is available if desired This may be restricted or public 
as desired 

S. Menus are composed using a Menu Editor allowing total flexibility '" 
system appearance. TBBS may be made to look like a system you ve see- 
belore or like something totally new and unique 

9. Question and answer capability allows product ordering, vote taking. 
user surveys etc. 

10. Fast. Responsive, and fully protected!! 1200 baud on TBBS averages 
40% -120% faster throughput than competitive boards. TBBS responds 
instantly when a caller commands! Most other systems respond at the 
end of a line or series Of lines or at certain times not at all TBBS is ready 
tor a new caller in an average of 5 seconds" Worst case with 2500 
messages on file is less than 45 seconds on a floppy based system TBBS 
also cleans up correctly after accidental loss of carrier No hung systems' 
No lost messages' No forgotten deletes' Even when using remote DOS' 

11. To see what we are talking about call TBBS headquarters at 
i303|690-4566 TBBS has to be used to believe" 

12. System requires Model I and III (or equivalent). Auto-Answer Modem. 
RS-232. and NEWDOS/80 V 2 Program will work on either model auto 
matically (NOTE 1200 baud requires a specially modified cable I 
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name from the target of the HL to the 
DCB pointed at by the DE. You've al- 
ready set the logical record length to 256 
by loading B with zero. Then you 
checked the mode. The mode was non- 
zero, so you jumped down to this label 
RDISK. What you do there is to call 
Open. 

If you're going to read a file, it has to 
already exist. So unlike INIT, Open 
won't create a new file for you. But it 
will find an old one with the given file 
name. The next instruction is "jump if 
nonzero to UERR." That means there's 
an error. Either the file doesn't exist, or 
something went wrong. The next in- 
struction is Load HL with the contents 
of Where. That gives the place to store 
the data that is read in. 

The next label, at line 53000, is 
GDISK. The instruction is Call 
ROMRD. That gets a byte. The first 
time the program encounters this in- 
struction, it will do two things: It will 
read in a sector to the I/O buffer, and it 
will put into the accumulator the first 
byte of the data read into the buffer. On 
subsequent calls, it will put into the ac- 
cumulator the next byle on queue in the 
buffer. 

The next instruction is "jump-rela- 
tive if nonzero to EOF." Nonzero can 
mean two things. It either means you 
read in everything, or you had an error. 
If you don't encounter a nonzero condi- 
tion, you fall through to line 55000 
where you load the memory location 
pointed to by HL with A. That puts the 
byte into your designated read-in area. 
Then you increment HL and jump-rela- 
tive back to GDISK. It keeps going 
through this loop until an error occurs 
or the EOF is reached. 

At line 59000, you have the label 



EOF: Compare 1CH. The comment is 
"IF 1CH Then Natural End of File." 
Then return if zero — go home if okay. 
Otherwise, jump-relative to UERR, the 
error-handling routine. That's it. 

Now let's talk about the program a 
bit. There are four labels that are very 
important to this program. I've estab- 
lished them at particular points, but 
they don't have to be there. They are 
Start, Finish, Where, and Mode. They 
are consecutive labels. 

The user, if he wants to write some- 
thing, has to know where he wants to 



" Vernon Hester is 

the king of 
TRS-80 disk I/O. " 



start writing it from, and where he wants 
to finish writing it from. He must put a 
value in Start, which is a 16-bit word. 
For example, Start can contain 0000 
and Finish can contain 2FFFH. Then 
we would write the ROM out to a disk 
file, provided Mode contains a zero. 
If, on the other hand, you want to 
read a disk file into RAM, you have to 
establish the Where address of where 
you want to start reading it into. This 
routine doesn't check for TOPMEM 
(HIGHS) or anything like that. You can 
do that another way. But, if you want to 
start reading something into 6000H, 
you'd put 6000H into the contents of 
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Where, and you'd put a nonzero into 
the contents of Mode. 

When you call this routine, as I've 
said, HL should point to the file name. 
What you can do is to put another label 
in here called FILNM (file name). The 
first instruction is to load DE with the 
file buffer: 

20000 ID DE.FBUF 

You can then load HL with file name 

20500 LD HL, FILNM 

That's the only maintenance required. 
Paul: When I want to read in a file, do I 
have to specify the correct logical record 
length (LRL)? 

Vernon: It depends on the DOS. In this 
particular instance, B is loaded with 
zero before determining whether it's a 
read or write, so the LRL is fixed at 256. 
Paul: And if the file had been created 
with a different LRL, like a word-pro- 
cessing file with an LRL of one, what 
would happen? 

Vernon: It would open up the file with 
an LRL of 256 with any DOS except 
MULTIDOS. (Vernon laughs here.) 
Paul: MULTIDOS would open the file 
with a length of one? 
Vernon: Yes. 

Paul: And with other DOSes, what 
would be the result of trying to read the 
file after opening it with a wrong LRL? 
Vernon: All the other DOSes, I think, 
regardless of what the directory entry 
says the LRL of a file is, will open up 
the file with the LRL indicated by the B 
register. 

Paul: What would the result of that be? 
Would you get an error and jump to 
the... 

Vernon: No! You would just read it in 
as 256 bytes. 

Paul: So essentially, once it's loaded in- 
to memory, it's all the same anyway — it 
doesn't matter. 

Vernon: Right. If you followed this 
routine with NEWDOS80 and opened a 
file that had an LRL of one, it would 
read it in as LRL 256. The pattern on 
the disk isn't affected by the LRL. 
Paul: So everything would come out 
okay with any DOS? 
Vernon: Right. This subroutine is very 
short, not even one page. 
Paul: What is it, about 200 bytes? 
Vernon: Let's see. If you assemble it at 
5200H, it will go to 5284, inclusive— 
132 bytes. ■ 
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For serious business microcomputing, 

only one operating system 

exactly fits. 



Whether you're in business and do 
microcomputing, or in computing 
and sell to business, you'll like OASIS* 
Not a hobby or scientific system warmed- 
over for business use, 
OASIS is the only operating 
system designed from the 
ground up for business. 

SERIOUS BUSINESS 



available, type HELP' and the command 
function title — OASIS displays the syntax 
and options available. 
Of course it's all in your language — 
not computerese. (OASIS 
exact business fit #5. 
user-friendliness.) 




COMES IN ALL SIZES. 

Whatever your business 
need, OASIS has the 
operating system to match: 
8-bit or 16-, single-user or 
the multi-user system that 
professionals tell us makes 
micros run like minis. And 
that's even truer now with 
new OASIS-16." (OASIS 
exact business fit #7: 
choice.) 
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. (OASIS exact 
business fits #6 through #12.) 
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nation 
runw it. There's 
nearly any job. 
it's top quality, too, because our 
inte^ftted tools are top quality — and 
there are more of them. Like a high-level 
BASIC Interpreter'Compiler'Editop 
Debugger; ISAM/Keyed/Direct/ 
Sequential Files; a smart Print Spooler; 
Automatic Record Locking (OASIS 
exclusives! ); plus COBOL & C 
Languages. These tools are mandatory 
for high-quality business application 
program development— ask any 
developer. (OASIS exact business fit #2: 
high-quality application software.) 



Now you know why there's 
no reason to struggle trying 
to put a square peg in a 
round hole. For serious 
business microcomputing, 
there is one operating system that 
exactly fits: OASIS. Call or write us 
today for details. 

* For Z80 
* * Available for 8086/8088. Available soon 
for 68.000. 16,000 and others 



PORTABILITY PROTECTS BUSINESS 
SOFTWARE INVESTMENTS. 



OASIS is custom-fitted to manufac- 
turers' hardware so application soft- 
ware developed to run on one OASIS 
equipped machine can also run on 
others — and is upwardly compatible 
from 8-bit OASIS Single-User to Multi- 
User, on up to OASIS-16. This kind of 
application software portability js 
exclusive with OASIS 

Device independence allows various 
printers and terminals to be used — 
with no modification to application 



Data integrity — a challenge for any 
multi-user system — is insured by 
OASIS File & Automatic Record Locking. 
With it, normally all users can view a 
record at the same time. BUT, if the record 
is being updated by one user, other users 
are automatically denied access until 
the update is complete. That means 
data is always accurate and up-to-date. 
It's still another OASIS exclusive. 

For system security, there's OASIS 
Logon, Password & Privilege Level. 
User Accounting keeps track of who used 
the system, when. (OASIS exact business 
fit #4: data integrity/system security.) 



A FRIENDLY SYSTEM IS 



GOOD BUSINESS. 



For user-friendliness, OASIS sets new 
standards. Example: the EXEC Job 
Control Language is so smart it walks 
users through their applications — 
and around the operating system. 

With our 'HELP feature, if you are 
unsure of the functions and options 





■ STRICTLY BUSINESS^ 

PHASE ONE SYSTEMS, INC. 

7700 Edgewater Drive. Suite 830 

Oakland. CA 94621-3051 

Telephone 415/562-8085 TWX 910-366-7139 

I'm serious about my business 

please send me : 

D OASIS-16 Manual. $75 

U OASIS Manual, $60 

□ Free Application Software Directory 

and put me on your mailing list. 

(Add $3 lor shipping. California residents add sales lax ) 



Name 

St. (No Box*). 
City 



Zip 



□ Check enclosed 

□ UPS CO D. 

Card No 

Signature 



State 

□ VISA D Master/charge 

□ American Express 

Exp. date 



-See List of Advertisers on Page 451 
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COPERNICA MATHEMATICA 



by Bruce Douglass 



In an analysis of variance (ANOVA), 
you have two or more groups of data. 
The hypothesis you're testing boils 
down to the question, "Are any groups 
different from the others?" The hy- 
pothesis that all groups are the same is 
called the "null hypothesis." The hy- 
pothesis that at least one pair of groups 
differ from each other is called the "al- 
ternative hypothesis." But what do we 
mean by different? 

In the ANOVA test, you compare the 
means of the groups. However, just be- 
cause the means of the groups are not 
the same does not indicate that the 
groups are actually different. If you 
sampled height in New York and in 
Oregon, and the mean heights were 5' 
9" and 5' 10", are the heights in the two 
states actually different or was the sam- 
ple of people chosen so small that the 
difference can be explained by the 
chance occurrence of just talking to tall 
people in Oregon (the only ones with 
their heads above water), and just talk- 
ing to short people in New York (the 
ones below the smog)? 

So you see the problem of inferential 
statistics. You must infer a conclusion 
about the means of the total population 
of New York and Oregon on the basis 
of a small sample of people in each 
state. A small sample can be biased for 
a number of reasons, including random 
chance. In fact, it would be very surpris- 
ing if you got exactly equal numbers for 
the mean height even if the means were 
actually identical! 

The job of inferential statistics is 
to tell us whether the groups are dif- 
ferent, and also to give us a measure 
of the probability that our assessment 
is wrong. 

ANOVA does this by making two in- 
dependent measures of variability. The 
first is the average variability within 
each group, which we will call "within" 
variability. The second is the variability 
among the means of each group — the 
"between" variability. If the groups are 
the same (which implies that they origi- 
nate from the same population) then 
these two measures of variability ought 
to be the same. If they are not the same, 
then "between" ought to be bigger than 
"within." 

That is the essence of ANOVA and 
the F-ratio test used to determine how 
different the means are. The F-ratio test 
uses a measure of variability called 
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More 

about 
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"sum of squares" for both "within" 
and "between." This sum of squares is 
then normalized by dividing by the de- 
grees of freedom for each, leaving the 
"mean square." The F ratio is the mean 
squares for "between" divided by the 
mean squares for "within." The task of 
determining whether the groups are dif- 
ferent then reduces to the problem of 
testing to see if the F ratio is different 
than 1. 



"Degrees of freedom is 

the number of items 

free to vary minus 

the restrictions 

placed on the data. " 



Degrees of freedom is the number of 
items free to vary minus the restrictions 
placed on the data. The more subjects 
you have, the greater the degrees of 
freedom. You might find it easier to 
think intuitively — the more subjects you 
have, the less the probability that your 
sample is biased by random chance, so 
the more reliable your conclusions 
drawn from your analysis will be. There 
are tables of F versus degrees of free- 
dom "within" versus degrees of free- 



dom "between." In our program, we 
will use a rational polynomial approxi- 
mation to the distribution of the F ratio 
(see my February 1982 column for a de- 
scription of approximation theory). The 
table and the approximation give you 
the probability that the F value you ob- 
served from the sample means was due 
to random chance variation and not to 
any real difference among the groups. 

F Ratio 

What about the job of computing 
this F ratio? Geoffrey Keppel has writ- 
ten an excellent notation for ANOVA 
computational formulae in his book 
Design and Analysis published by Pren- 
tice-Hall. Let's consider the notation 
and kind of data applicable for a while. 

By "score," I mean that you make a 
measurement on a number of subjects. 
For example, you might want to relate 
score on an IQ test to drinking coffee. 
In this case, you might have three 
groups of subjects: Group A would 
drink no coffee, group B would drink 
one cup one hour before taking the test, 
and group C would drink five cups 
within 30 minutes before the test. The 
results of the experiment — the F test de- 
noting difference among the groups- 
would indicate whether coffee affects 
scores on IQ tests. 

Note, by the way, the implicit as- 
sumptions of the test. You are assuming 
the groups' IQs are the same at the start 
of the experiment — you could ensure 
this by randomly assigning people to the 
groups. If the number of subjects is 
great enough, the probability of ran- 
dom bias to one or more groups de- 
creases. That is, with enough subjects, 
the number of high, medium, and low- 
IQ people should be about the same. 

You are also assuming that the only 
difference among the groups is the 
amount of coffee drunk. Any other dif- 
ference (like if some of the people did 
not have time to eat breakfast) would 
muddy your conclusions. 

Let's let "a" be the number of 
groups and "s" be the number of sub- 
jects. We will assume that all the groups 
have the same number of subjects. The 
total number of subjects in the experi- 
ment is a*s. We will use AS to denote a 
single score, and A to denote a group 
sum. To make the formulae less intimi- 
dating, we will make the following 
definitions: 



SUPER PRICES 





Complete MODEL III COMPUTER 

Model III with 48K memory. 2 disk 

drives. 370K storage, and ready to run with 

TRSOOS 1.3 and manual. 120 day Simutek warranty parts and 

labor. Compatible with all Radio Shack software 

Model III with 48K. 2 double sided 40 track disk drives with 750K 
storage Comes with MULTIDOS and manual. 120 day Simutek war- 
ranty parts and labor. Compatible with Radio Shack software Com- 
plete and ready to run 

MODEL III INTERNAL DISK DRIVE KITS 

II you can use a phillips screwdriver, you can easily install 
Simutek s Model III disk drives and controller in less than an hour. 
Absolutely NO SOLDERING. TRACE CUTTING OR TECHNICAL 
KNOWLEDGE REQUIRED! The J & M controller is the best on the 
market today. We've tried others and found J & Ms the finest and 
easiest to install We warranty the J & M controller lor 120 days 
against delects in workmanship. 

ONE 40 TRACK TANDON OISK DRIVE WITH 185K STORAGE, and J 
& M controller. Radio Shack DOS, manual. No soldering or trace 

cutting required. Ready to install with instructions 

TWO 40 TRACK TANDON DISK DRIVES 370K STORAGE, with J & M 
controller Radio Shack DOS. manual. No soldering or trace cutting. 

Ready to install and run. Instructions 

TWO DOUBLE SIDED 40 TRACK DISK DRIVES with 750K storage 
and J & M controller MULTIDOS and manual and Model III DOS. No 
soldering or trace cutting. Ready lo install and run. Full instruc- 
tions 

MODEL III HARD DISK DRIVES 

FIVE MEGABYTE hard disk with LOOS disk operating system, all 

cables, connectors, ready to plug in 

TEN MEGABYTE Hard disk with LOOS, all cables, connectors ready 
to plug in 



$1899.99 



$2195.99 



DAISY WHEEL PRINTERS: 

NEW SMITH CORONA DAISY WHEEL 12 CPS 

NEW BROTHER DAISY WHEEL 16 CPS 

TRACTOR FEEO FOR BROTHER 

C-ITOH STARWRITER II F 10. 40 CPS 

C-ITOH STARWRITER III F-10 55CPS 

TRACTOR FEED FOR STARWRITERS 

HIGH QUALITY DOT MATRIX: 

C ITOH PROWRITER I 8510A 2K BUFF. PRL.ONLY 

C-ITOH PROWRITER I 8510ACO 2K BUFF SER/PRL 

C-ITOH PROWRITER II 1550 ... 15 INCH .. .3K BUFFER 

EPSON MX-80WITH GRAFTRAX 

EPSON MX-80/FT WITH GRAFTRAX 

EPSON MX-100 

OKIDATA MICROLINE 80. (80 CPS) 

OKIDATA MICROLINE 82A (125 CPS) W/TRACTOR 

OKIDATA MICROLINE 83A (125 CPS) W/TRACTOR 

OKIDATA MICROLINE 84 (200 CPS) W/TRACTOR 

PRINTER CABLE FOR MOD I EXPANSION INTERFACE OR MODEL 

III (SPECIFY) 

PROWRITER RIBBONS 

EPSON MX-80OR FT RIBBONS 

OKIDATA RIBBONS. (80, 82A. 83A) 



S589.99 
$849.99 

$999.99 

$1799.99 
$1999.99 



S699.99 
$1199.95 

S250.00 
$1649.99 
$1999.99 

$250.00 

$499 99 
$649.99 
$799.99 
$479.99 
$549.99 
S799.99 
S369.99 
$499.99 
$749.99 
$1199.95 

$29.95 

$12.99 

$9.99 

S3. 49 



FREE SHIPPING 



DISK DRIVES 



MODEL I DISK ORIVES 

ONE TEC DISK DRIVE 40 TRACK DISK DRIVE with 5ms track to 

track access time, with power supply chassis, extender cable and 

shipping for TRS-80. One year warranty on parts and labor. Ten day 

money back guarantee. 

Model I or III 

ONE TEAC 40 TRACK DISK DRIVE. 30 ms track to track, with P/S 
and chassis, ready to run as drive 0-4. 10 day money guarantee. 
One year warranty 

ONE TANDON 40 TRACK DISK DRIVE, 5 ms track to track, with P/S 
and chassis, ready to run as drive 0-4 or Model III external. 10 day 

money back warranty 

ONE 2 DRIVE cable for Model I or III (Specify) 

ONE 4 DRIVE cable lor Model I only 



$279.00 

S279.00 

$279.00 
$25.00 
$35.00 



ACCESSORIES/ 
SOFTWARE.ETC 

16K MEMORY UP6RADE FOR MOO I, III OR COLOR 4K. 

UNCONDITIONALLY GUARANTEED FOR 2 YEARS 



OISK OPERATING SYSTEMS 

NEWDOSB0VER.2 

LOOS 



DOSPLUS 

MULTIDOS. BEST BUY! SPECIFY DOUBLE OR SINGLE DENS 



DOUBLE DENSITY MODI 

PERCOM OOUBLER II (NEW LOW PRICE!) 

DISKETTE STORAGE 

SMOKEO PLASTIC HOLDS 50 DISKETTES 
HARD BOX HOLD TEN 




MODEMS 

LYNX MODEM FOR MODI 

OR III 

OMNITERM SMART TERMINAL 
PROGRAM 



SUPER BOOKS FROM IJG 
MICROSOFT BASIC DECODED 

AND OTHER MYSTERIES 

TRS-80 DISK AND OTHER 

MYSTERIES 

BASIC FASTER AND BETTER AND OTHER MYSTERIES 

BASIC FASTER ANO BETTER PROGRAMS ON DISKETTE 

CUSTOM TRS-80 ANO OTHER MYSTERIES 



MONITORS 

OLD MOO I SCREEN STARTING TO GIVE YOU HEADACHES? TRY 
ONE OF THESE HIGH RESOLUTION MONITORS AT SUPER LOW 
PRICES .. 

ZENITH GREEN SCREEN 12 

BMC 12 INCH GREEN SCREEN 

BMC 13 INCH COLOR 

AMDEK12 BLACK AND WHITE 

OCI AMBER SCREEN MONITOR 12 

CABLE TO CONNECT MONITORS TO MODEL I COMPUTER 



$15.95 

$139.95 

$129.95 

$139.99 

$79.95 

$139.99 

$21.95 
$3.99 



$239.95 
$99.99 

$29.95 

$22.50 
$29.95 
S19.95 
$29.95 



$139.95 
$109.95 
S299.99 

$97.50 

$189.95 

$14.95 



CODS S5 00 EXTRA NO COD'S FOR MODEL III COMPUTERS OR PAR- 
CELS THAT CANNOT BE SHIPPED UNITED PARCEL SERVICE. ALL COO'S 
REQUIRE CASH OR CERTIFIED CHECK AT TIME OF COLLECTION. 



CALL TOLL FREE to order: 



1-800-528-1149 — 

WE ACCEPT AMERICAN EXPRESS. VISA and MASTERCARD 

SURCHARGE FOR CREDIT CARD ORDERS! 

SORRY. PERSONAL CHECKS REQUIRE 4-5 WEEKS TO CLEAR 



*^F~SIMUTEK 
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COPERNICA MATHEMATICA 



****** ANALYSIS OF VARIANCE PROGRAM ******" 
WRITTEN BY" 
BRUCE POWEL DOUGLASS" 
1005 WEST MAIN" 
VERMILLION, SD 57069" 



10 DEFINT I-N 

20 CLS: PRINT" 

30 PRINT" 

40 PRINT" 

50 PRINT" 

60 PRINT" 

70 PRINT 

80 INPUT'ENTER THE NUMBER OF GROUPS" ; NG 

90 INPUT"ENTER THE NUMBER OF SCORES PER GROUP" ;NS 

100 DIM X(NG,NS) 

110 REM ****** DATA INPUT 

120 FOR 1=1 TO NG 

13 PRINT "GROUP #";I 

140 FOR J=l TO NS:PRINT"ENTER SCORE #";J;" : "; 

150 INPUT X(I,J) 

160 NEXT J, I 

170 REM ****** run ANALYSIS 

180 DIM SM(NG) ,SQ(NG) 

190 FOR 1=1 TO NG 

200 FOR J=l TO NS 

210 SM(I)=SM(I)+X(I,J) 

220 SQ ( I ) =SQ ( I ) +X { I , J) [ 2 

230 T=T+X(I,J) 

240 NEXT J 

2 50 AS=AS+SQ ( I ) : A=A+SM ( I ) I 2 

25 5 NEXT I:A=A/NS 

26 TL=T[2/NG/NS 

270 SB=A-TL:SW=AS-A:ST=AS-TL 

280 DB=NG-1:DW=NG*(NS-1) :DT=NG*NS-1 

290 MB=SB/DB:MW=SW/DW 

300 F=MB/MW 

1000 ZF=F:Dl=DB:D2=DW:GOSUB 1040:Pl=P 

1010 REM ** F RATIO PRINT FORMAT ** 

1020 CLS:PRINT" SOURCE"," SS"," DF","F RATIO" 

1030 F0RI«1T0127:SET(I,4) :NEXTI : PRINT: PRINT 

1031 PRINT"BETWEEN" ,SB,DB,F 

1032 PRINT"WITHIN" ,SW,DW 

1033 PRINT"TOTAL",ST,DT 

1034 PRINT 

1035 PRINT"P(F)=";P 

1036 END 

1040 'P(F) COMPUTATION 

1050 IF ZF<1 THEN P-0:RETURN 

1060 A=2/9/Dl:B=2/9/D2 

1070 P=ABS( (1-B) *ZF[ (l/3)-l+A)/SQR(B*ZF[ (2/3) +A) 

1080 IF D2<4 THEN P=P* ( 1+. 08*P [ 4/D2 [ 3) 

1090 P=.5/(l+P*( ,196 854 + PM .115194 +P*( . 000344+P* . 019527) ) )) (4 

1100 P=l-INT(P*4000+.5)/4000 

1110 RETURN 

Program Listing I. A NOVA 



{T}=TV(a*s) 

{A} - ZAVs : A is the sum of each group here 

{AS}-KAS) ; 

The sum of squares for the total 
SST= {AS} - {T}; the sum of squares 
between the groups, SSB = {A}-{T}; 
and the sum of squares within is defined 
tobeSSW = {AS}-{A}. By the way, 
you can check your arithmetic by the 
relation SST = SSB + SSW. Since the 
degrees of freedom is the number of ob- 
servations minus the number of restric- 
tions imposed by computation, the 
degrees of freedom for the "between" 
sum of squares is (a-1); we estimate 
the mean of the overall experiment 
(thereby imposing one restriction) and 
we have "a" groups. The degrees of 
freedom for the "within" sum of 
squares is computed easily as well. We 
have "s" subjects in each group, and we 
use these to calculate the mean. 



Therefore, each group contributes 
(s- 1) degrees of freedom. Since there 
are "a" groups, we have a*(s- 1) for 
the "within" degrees of freedom. The 
degrees of freedom for the total sum of 
squares is a*s (the number of samples) 
minus the restrictions placed on the data 
by our computing the mean, or a*s - 1 . 

We divide the sum of squares by their 
respective degrees of freedom to get the 
mean squares: MSB = SSB/DFB, and 
MSW = SSW/DFW. The F ratio is de- 
fined to be the ratio F = MSB/MSW, 
and it has (a-1) and a*(s- 1) degrees 
of freedom. We are now ready to write 
the program. 

The ANOV A program (see Listing 1 ) 
shows the simplicity of the method 
without the extra clutter of saving the 
data to disk, or editing the data files. 
When you use it, you will be asked for 
the number of groups and the number 
of scores in each (your groups must 



have equal numbers of scores). Then 
you type in the data, one group at a 
time. The program thinks a little bit (as 
per our discussion above) and grinds 
out the data. 

Regression 

Analysis of variance is a special case 
of regression. In regression, you have 
paired or matched observations in two 
or more groups. The object is to find a 
line that best fits the relationship among 
the data points. 

For example, there is a relationship 
between height and weight. The taller 
people are, the more they weigh. But 
that is not all there is to the subject — 
what about body fat and occupation? 
The amount of variability in one vari- 
able that is explained by another is 
called the correlation between them. 
This correlation is the relationship be- 
tween the variables. If there is a one-to- 
one correspondence between the vari- 
ables, then the correlation equals one; if 
there is no relationship (that is, the vari- 
ables are totally independent), then the 
correlation equals zero; finally, if the 
relationship is corresponding and in- 
verse, then the correlation is minus one. 
(This type is called a product-moment 
correlation.) 



"The amount of variability 

in one variable that is 

explained by another 

is called the 

correlation between them. " 



Regression uses the correlation to 
find the best-fitting line showing the re- 
lationship between the variables — 
"best" in terms of least-squares best fit. 
If Y, is the actual value of data point i, 
and Y,' is the value predicted by the re- 
gression line, then the least-squares best 
fit finds the minimum value for the 
function (Yi - Y,') 2 . The square of the 
difference between the real values and 
the predicted values is then a minimum. 
This assumes that the relationship be- 
tween the variables is a straight line. The 
less true that assumption is, the worse 
the fit of the line will be to the real data. 
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The basic equation for a simple bi- 
variate regression is Y' = aX + b. The 
slope of the line is "a," and "b" is the 
intercept, or the place where the line 
crosses the Y axis on a graph. Let's let 
"r" be the correlation between X and 
Y. Then the equation for r is: 

r = Ixy/SQR( Ix'ly 1 ) 
where 



lx ! = IX 2 - (ZX)VN (deviation sum of squares) 
Ixy = IXY-(IXKIY)/N (sum of cross prod- 
ucts) 



. 1 — IIUIIII'CI Ul |*Ulll> 

X = raw data point for variable X 
Y = raw data point for variable Y 

xy = product of X) and Yj 



The value r J is called the common 
variance. It is the percentage of the total 
variability in Y that is explained by the 
presence of variable X. Note that 1 - r 2 
is the variability that X and Y do not 
have in common; it is called the residual 
variance, and stands for the variance in 
Y that is not explained by the presence 
of variable X. 

In our regression equation, the line 
parameters "a" and "b" can be defined 
by: 

b = Zxy/Ix 2 
a-Y^-bX., 

where 

Y m = the mean of Y 
X„, = the mean of X 

An inference is usually associated 
with some test to give a measure of how 
likely it is that we are wrong in drawing 
that inference. A common one used for 
regression is the F test, defined above. 
The F ratio defined for the bivariate re- 
gression is: 

F = r"N/(l-r J ) 

So far, we have only discussed the 
case in which there is a variable to be 
predicted (the dependent variable Y) 
and a single predictor variable (also 
known as the independent variable X). 
The general case is called multivariate 
regression. In this case, there are many 
predictor variables and a single predict- 



;M: INPUT-NUMBER OF SCOR 



Program Listing 2. Regress 

10 DEFINT I-N 

15 CLS 

30 PRINT"** WRITTEN BY BRUCE POWEL DOUGLASS 1981 **' 

180 REM ****** INPUT ROUTINE 

190 INPUT"HOW MANY INDEPENDENT VARIABLES' 

ES PER GROUP" ;N 

200 DIM X(M,N) 

210 FOR K=l TO N 

220 PRINT, "Y("K")=X ("K")" 

230 FOR J=0 TO MrPRINT "INPUT X"J" ( "K") =";: INPUT X(J,K):NEXT J,K 

240 DIM P(M) ,SX(M) ,S(M,M) ,R(M,M) ,T(2*M,M) ,E(M) ,B(M) ,SB(M) ,G(M) ,H 

(M) ,Z(M+1,M+1) ,D(M) ,C(M) 'RUNTIME! 

250 FOR K=l TO N:FOR J«0 TO M 

260 P(J)=P(J)+X(J,K) :NEXTJ 

270 FOR L=0 TO M:FOR 1=0 TO M 

280 S(I,L)=S(I,L)+X(I,K)*X(L,K) : 'MATRIX FOR SUM CROSS PRODUCTS 

290 NEXT I,L,K 

300 FOR 1*0 TO M:FOR J=0 TO M 

310 S(I,J)=S(I,J)-P(I)*P(J)/N 

320 NEXTJ,I 

330 REM ****** BASIC STATISTICS GENERATION 

340 FOR J = TO M:P(J)=P(J)/N:SX(J)=SQR(S(J,J)/(N-1)) 

350 ' P=MEAN,SX»ST.DEV. ,NOTE THAT Y*X(0) 

36 NEXT J 

370 REM ****** CALCULATE R (CORRELATION) MATRIX 

380 FOR J=0 TO M:FOR 1=0 TO M 

390 R(I,J)*(S(I,J))/SQR(S(I,I)*S(J,J)) 

400 NEXT I, J: IF M=l THEN GOTO 460 

410 FOR J=l TO M:FOR 1=0 TO M 

420 Z(I,J)=R(I,J) -NEXT I,J:NQ=M 

430 GOSUB1550: ' INVERT THE CORRELATION MATRIX (. PUT IT INTO Z() 

440 FOR J=l TO M:E(J)=Z(M1,J) 

450 B(J)=(Z(M1,J)*SX(M1))/SX(J) :NEXTJ 

460 AR=P(0):IF M=l THEN B( 1) =S( 1 ,0) /S( 1 , 1) : AR-AR-B( 1) *P ( 1) :GOTO 

480 

470 FORI=lTOM:AR=AR-B(I)*P(I) : NEXTI 'AR-INTERCEPT 

480 REM ****** R SQUARED =SS (REG) /SS(T) 

490 FOR 1=1 TO M:RG»RG+B(I)*(S(0,I)): 'RG=SS(REG) ,S(M1 ,M1) =SS (T) 

500 NEXT I:RS=RG/S(0,0) :IF M=l THEN RS=R( 1 , 0) [2: ' MULTIPLE VARIA 

NCE 

510 RM=SQR(RS) : ' MR=MULTI CORRELATION 

520 IF RS>«=1 THEN SY=0 ELSE SY=SX ( 0) *SQR( 1-RS) :C1 = 1 . 96*SY:C2 = 2 .6 

1*SY 

530 IF RSO0 THEN F=RS* (N-M-l) /( (1-RS) *M) ELSE F=0:' DF(REG)=M,D 

F(RES)=N-M-1 

540 ZF=F:D1=M:D2=N-M-1:G0SUB 1780:Pl=P 

550 CLS:'****** PRINT BASIC STATS 

560 FOR J=0 TO M:FOR 1=0 TO MrPRINT USING"* .##•#" ;R( I , J) ;: PRINT" 

" ; : NEXTI : PRI NT : NEXTJ : PRINT 
570 PRINT@832, "ABOVE IS THE CORRELATION MATRIX WITH XI THROUGH X 
"M"; 

NOTE THAT Y IS AT THE POSITION IN ROWS AND COLUMNS" 
580 INPUT"TO CONTINUE PRESS ' ENTER '" ; Z 
590 CLS: PRINT" SOURCE", "MEAN", "ST. DEV.","RY.X" 
600 F0RI=1T0127:SET(I,4) : NEXTI : PRINT: PRINT 
610 PRINT"Y",P(0) ,SX(0) ,RM 

620 FOR 1=1 TO M:PRINT"X("I")-,P(I),SX(I) ,R(0,I) 

630 NEXT I: PRINT: PRINT: PRINT"NOTE THAT THE RY.X FOR Y IS THE MUL 
TIPLE CORRELATION" :PRINT"THE VARIANCE ACCOUNTED FOR BY THE REGRE 
SSION IS";RS 

6 40 PRINT"THE VARIANCE NOT ACCOUNTED FOR IS"; 1-RS 
6 50 PRINT: INPUT'TO CONTINUE, PRESS 'ENTER' " ; Z 
660 GOSUB 1500 

670 PRINT"REGRESSION",RS,M,F 

6 80 PRINT"RESIDUAL", 1-RS, N-M-l, "P(F)="; PI: PRINT 

690 PRINT"THE REGRESSION EQUATION IS" : PRINT"Y ■ =" ; : FOR 1=1 TO M:P 
RINT B(I)"X("I") + ";:NEXT I: PRINT AR 
710 END 

1380 REM ****** ROUTINE FOR ROW SWITCH 
1390 FOR K=0 TO M 

1410 W=E(K,J) :E(K,J)=E(K,J+1) :E(K,J+1)=W 
1420 NEXT K: RETURN 

1470 CLS: PRINT "SINGULAR MATRIX ENCOUNTERED. 
NO UNIQUE SOLUTION EXISTS" 
1490 END 

1500 REM ** F RATIO PRINT FORMAT ** 
1510 CLS:PRINT"SOURCE"," SS"," DF","F RATIO" 
1520 F0RI=1T0127:SET(I,4) : NEXTI: PRINT: PRINT: RETURN 
1530 END 
1540 REM THIS IS THE ROW REDUCTION SUBROUTINE 

/ jsiiitg 2 continues 
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FOR TRS-80 MODEL I OR III 
IBM PERSONAL COMPUTER 



MORE SPEED 

"0-2C 1 •"•« '•»!« 



than interpreted BASIC 



MORE ROOM 

Very compact compiled coo* plus virtual MEMORY 
melies your RAM act larrjer Variable "u-'-oe- o' chock 
Puffer* 3i-char unique wordname* use omy 4 t>»tes - 

-•*3«' 

MORE INSTRUCTIONS 

A33 »OUR co—a-dS !0 ts '9 S'ASDARD uS 

instruction *ai 

Fa' mora complete man most Fortha: aingla 4 douBie 

pracialon. a"a»a it'iig-naiOling. clock, graphiea (IBM 

■o*-*et O'vas B VV ana 16 coc 0- 20C rnt co o' disc ay 

MORE EASE 

Exce< an 'ui scree" Editor structured 4 modular 

programmes 

Word eearen utility 

THE NOTEPAD latter wite' 

Optimized 'or your TRS-80 c IBM *ltn Keyboard repeats 

upper lower case disp'ay driver fun ASCII 

MORE POWER 

Forth operstirg system 

Concurrent 'nterpreter AND Corrpiler 

VIRTUAL I'O lor video end printer, d sk and tape 

'10-Megabyte hard disk available! 

Fu 806C 0' 6088 A ssemb er aboard 

Z80 Assembler also ava aDle 'o- T RS-80' 

->tarrni« 35- io BO-uacK d.sk or.ves 

BM can -ead «nte and 'jr M 3 3 s>s 
M 3 can -ead *• ta and run M i disks 
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FORTH 



THE PROFESSIONAL FORTH SYSTEM 
FOR TRS-80 * IBM PC 

(Thousands ot Systems in use) 
MMSFORTh Disk System (requires 1 disk drive. 32K RAM 
V2 tor Radio Snack TRS-80 Model I or III I1» 95" 

V2 l 'or IBM Personal Computer (80 col screen! S249.IS* 

AND MMS GIVES IT PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest ve-sion 

P'og'amTing b'di f car provide advice, modifical ons and 

custom programs to til YOUR needs 



includes FuOA'iNG POIN" 
Zompien njrrbars Redan 



MMSFORTH UTILITIES DISKETTE 

MATH (BASIC ROM routines us 

gular Polar coordinate conversions Degrees mode. more:, a 

powerful CROSS REFERENCER to list Forth words by block 

and line plus (TRS-801 a lull Forth style Z80 assembler 

(requires MMSFORTH V2 1 drive 4 32K RAMI 139 95* 

FORTHCOM communications package provides RS 232 
driver, dumb terminal mode, transfer of FORTH blocks, and 
host mode to operate a remote FORTHCOM system (requires 
MMSFORTH V2 0. t drive 4 32K RAM) I» »5* 

THE OATAHANOLER a very fast database management 
system operable by non programmers (requires MMSFORTH 
V2 0. 1 drive 4 32K RAM) 959 f»" 

FORTHWRiTE fast powerful word processor w'easy key 
strokes Help screens manual 4 demo files Full proportional 
w/tabs outdenting include other blocks documents, key 
board inputs. 4 OATAHANOLER fields— ideal for form letters 
(requires MMSFORTH V2 0. 2 drives 4 48K RAMI 91 7S.00" 

MMSFORTH GAMES DISKETTE rial time graphics 4 board 
games w.'source code includes BREAKFORTH. CRASH 
FORTH. CRVPTOOUOTE. FREEWAY (TRS-80). OTHELLO 4 
TICTACFORTH (requires MMSFORTH V2 t drive 4 32K RAMI 

139 95" 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFOP'H uStRS MANUAL * Appendices 917.50* 

STARTING FORTH - best' 915.95" 

•HHEADED NTERPRET VE LANGUAGES advanced 

analysis of FORTH internals 

OPOG°AW DESIGN 4 CONSTRUCT'ON info 
programming, good for Fortn 



518 95' 



FORTH SPECIAL ISSUE BYTE Magazine (Aug 1980) - A col 
lector's item tor Forth users and beginners 94.00* 

* - ORDERING INFORMATION Software prices include 
manuals and require signing of a single computer license 'or 
one-person support Describe your hardware Add 52 OC SH 
plus $3 00 per MMSFORTH and 91 00 per additional book 
Mass orders add 5''. ta« Foreign orders add 20*. UPS COO 
VISA and M/C accepted, no unpaid purchase orders or refunds 

Sentf SASf r , l,ee UIJSfOR'H nf "naf,on 
Good deal's sougnr 



Get MMSFORTH products trom your 
computer dealer or 
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MILLER MICROCOMPUTER SERVICES 

61 Lake Shore Road, Natick, MA 01760 

(617)653-6136 



I isitng 2 continued 

1550 REM ROW REDUCTION ROUTINE 

1560 FOR 1=0 TO NQ:Z(I,NQ+1)=Z(I,0) : Z (NQ+1 , I) =Z ( , I) :NEXT 

1570 FOR J=l TO NQ:IF Z(J,J)«=0 THEN GOSUB 1380 

1580 A=Z(J,J):FOR I«l TO NQ+1 

1590 Z(I,J)-Z(I,J)/A:NEXT I 

1600 IF J=NQ THEN 1670 

1610 FOR T=J+1 TO NQ 

1620 IF Z(J,T)=0 THEN 1660 

1630 B«Z(J,T) :FOR 1-1 TO NQ+1 

1640 Z(I,T)«Z(I,T)-Z(I,J)*B 

16 50 NEXT I 
1660 NEXT T,J 

1670 FOR J=NQ TO 2 STEP-l:FOR T=l TO J-l:B=Z(J r T) 

1680 FOR I=NQ+1 TO J STEP-1 

1690 Z(I,T)=Z(I,T)-Z(I,J) *B 

1700 NEXT I,T f J 

1710 FOR 1=0 TO NQ:Z(I,0) =Z(I,NQ+1) : Z ( , I) =Z ( NQ+1 , I ) : NEXT 

17 20 RETURN 

1780 'P(F) COMPUTATION 

1790 IF ZF<1 THEN P=0:RETURN 

1800 A=2/9/Dl:B=2/9/D2 

1810 P=ABS( (1-B) *ZF[ (l/3)-l+A)/SQR(B*ZF[ (2/3) +A) 

1820 IF D2<4 THEN P=P* ( 1+. 08*P [ 4/D2 [ 3) 

1830 P=.5/(l+P*(.196854+P*(.115194+P*(.000344+P*.019527) ))) [4 

1840 P=l-INT(P*4000+.5)/4000 

1850 RETURN 



ed variable. For example, weight may 
be predicted by height, fat percentage, 
and activity level. Weight would be the 
predicted variable, and the others 
would be used in predicting a weight for 
a given height, fat percentage, and ac- 
tivity level. The general regression equa- 
tion may be written: 

Y' = a,X, +a 2 X 2 + a,X, + . . . +b 
or Y* = ZA-X- 

with an F ratio 

F = (PVk)/((l-R J )/(N-k-l)) 

where 

R = multiple correlation coefficient 

N = the number of scores 

K = the number o\~ independent variables 

The large R, the multiple correlation 
coefficient, is different from the small r. 
Each small r, or first-order correlation, 
stands for the covariability between X, 
and Y. But what if the correlation be- 
tween X; and X^j, of course) is non- 
zero? Then some of the same relation- 
ship explained by X, is shared by X,; 
they explain the same portion of the 
variability in Y. So you cannot just add 
up the variances. If the correlations 
among the independent variables are all 
zero, then R 2 = r, 2 + r 2 2 + r, 3 + . . . If the 
correlations are nonzero, this will over- 
estimate the multiple correlation. After 
all, in a multivariate regression we are 
interested in the total predictability of Y 
by all the Xs together, right? 

While I don't want to derive any of 
this, a straightforward computational 
method for obtaining the multiple cor- 
relation coefficient and the b-weights 



for the regression equation is presented 
by Guttman ("A New Approach to 
Factor Analysis," Mathematical Think- 
ing in the Social Sciences, 1954, Free 
Press). 

First, calculate all the first-order cor- 
relations among the Xs and Y (e.g., X, 
and X 4 , X, and Y, and so on). Put these 
in a matrix called RG. Invert the matrix. 
If r^ indicates the cell containing Y ver- 
susY in the inverted matrix RG, then 
R 2 = 1 - l/r». And the b weights are de- 
Fined to be: 

Bi - - r»«/m*S/Sj 
where 

S, = standard deviation of V 
S. - standard deviation of X, 

Although this probably seems a little 
mysterious, it works and is easy to pro- 
gram. You must know how to invert a 
matrix, but that is the only program- 
ming problem of any difficulty. 

The program Regress (see Listing 2) 
does all this. You input the number of 
scores and variables, and the program 
computes the regression equation and 
the multiple-correlation coefficient. 
Like ANOVA, Regress is a bare-bones 
program; it lacks the niceties of data 
I/O, data editing, and a number of 
other statistical measures often given 
with the regression statistics. 

I'm sure many of you will find the 
programs Regress and ANOVA suffi- 
cient for your needs, particularly if you 
add some simple data editing and file 
I/O routines. ■ 
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Drive down the high co 


st of disk dri 



DISKovery Unlimited is bringing you the best in 
microcomputer systems, drives, peripherals, and 
software for TRS-80 and other popular brands. This 
month, take advantage of special system and disk 
drive values like these: 

Complete TRS-80 Model III 
microcomputer system with disk drives 

Includes specially modified A.M. Electronics Model 
III with 48K RAM, two 40-track, double-density disk 
drives, A.M. Electronics controller board, DOS and 
manuals, complete and ready to run $1,695.00 

Same system as above, including RS-232C interface 
and MX82F/T dot matrix printer for correspondence- 
quality output $2,395.00 

(Prepaid shipping when order is prepaid) 

A.M. Electronics "Multiplier" 
for TRS-80 Model I systems 

Fed up with unreliable double-density disk drive 
operation? "Multiplier" lets you upgrade from single- 
density without doubling your problems $ 99.00 

"Multiplier" with NEWDOS 80 $199.00 



A.M. Electronics 
Mini Winchester hard disk drive 

Completely plug-compatible with your TRS-80 
system. Includes controller board and DOS Plus 4.0i. 
Delivers 6.7 megabytes of data capacity (unfor- 
matted). Typically uses one amp less than other hard 
disk drives. Excellent for word-processing, database 
management, financial planning, and other data- 
intensive applications $1595.00 

New! Two-inch, high-performance 
floppy disk drives 

Now you can save space and money. These drives are 
only two-thirds the height of conventional drives, and 
provide extras like door-lock solenoid control, selec- 
table write protect (protect with or without notch— 
your choice!) and disk change/activity indicators. 
Shipped complete and ready to run. 
Single-sided, 40-track 2" drive 

w/case & power supply $199.95 

Double-sided, 40-track 2" drive 

w/case & power supply $249.95 

Single-sided, 40-track 2" drive, packaged 

for TRS-80 Model I, including case, 

power supply, cable, TRSDOS & manual $249.95 



DISKovery 

unlimited 

3366 Washtenaw Ave., Ann Arbor, Ml 48104 (313)973-2315 , "» , iir» 

TW TRS-80 trademarx o' Tandy Corp. Shipping cosls extra except where otherwise noted. Prices effective through the 15th of cover monri 



RELOAD BD 



Good things come to those who wait, 
especially at Christmas. The first Color 
Load 80 cassette is out this month, 
covering the major Color Computer 
programs from 1982. It sells for $14.97 
and should warm any Color Computer 
owner's heart on Christmas morning. 

Color Load 80 cassettes will be avail- 
able every three months starting in 
March 1983. These 15-minute cassettes 
will pack a lot of material at 1500 Baud, 
and sell for only $9.97. A subscription 
plan will be announced in early 1983. 

Using Color Load 80 

The documentation for each Color 
Load 80 includes a list of the programs 
and a short description of how to use 
them. My phone number and address at 
80 Micro are supplied in case of tech- 
nical problems. The magazine, how- 
ever, is the source of documentation for 
the individual programs. If you don't 
read the article, you won't be able to use 
Color Load 80. 

Most programs on Color Load 80 are 
intended for a minimum system of 16K 
and Extended Color Basic, but a few 
may require only 4K Color Basic, and 
others 32K with disk drives. If the Key 
Box in the article doesn't list your sys- 
tem, then the program will not run cor- 
rectly. 

Model I and III Load 80s include As- 
sembly-language files instead of ma- 
chine-language. As of yet, no 
Editor/ Assembler has become a de fac- 
to standard for the Color Computer, so 
Color Load 80 tapes will include ma- 
chine-language files ready to load and 
execute using CLOADM. 

New Disk Operating System for 
MOD I/III 

Starting with December 1982, Model 
I and III Load-80 disks will be supplied 
on TinyDOS (TDOS), the DOSPLUS 
kernel. This operating system has been 
stripped to make enough room for the 
programs. 

Model I users can now use the Load 
80 disk in Drive 0. To use the Basic files, 
simply enter Disk Basic and run the pro- 
gram of your choice. Assembly-lan- 
guage files will still require and 
Editor/ Assembler. To make a backup, 
use the backup utility supplied on 
TDOS. If you have installed the 
LNDOUBLER 5/8 board in your ex- 
pansion interface you will have to use 
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Load 80 
goes 
color 



another operating system to backup, 
the disk. 

Load 80 disks are double-sided to 
allow more program room. Each side 
contains TDOS and can be accessed by 



simply flipping the disk. 

Model III owners must use the 
TRSDOS Convert utility before using 
the Load 80 disk. 

1 Make a backup of your TRSDOS 
disk and place it in Drive 0. 

2 Type Purge, and then your TRSDOS 
disk's master password. 

3 Answer Y for each file. It will be 
purged from the disk. 

4 Insert the Load 80 disk in Drive 1 . 
Type Convert. 

5 Answer 1 for Source, for Destina- 
tion. The Load 80 programs will be 
copied onto the TRSDOS disk. 

6 Flip the Load 80 disk over and do 
steps 4-5. 

The Load 80 programs are ready for use 
on TRSDOS. 

Anniversary Load 80 

Model I and III tapes and disks are 
available for the Special Anniversary 80 



Month Page Article 



Program 



Type 



Feb. 


202 


Colorful Titrations 


TITRATE 


Education 


Mar. 


106 


Subchaser 


SUBCHASE 


Game 




142 


Is a Rose in Color Still a Rose? 


ARTIST 


Game 




142 


Is a Rose in Color Still a Rose? 


MAZE 


Game 




142 


Is a Rose in Color Still a Rose? 


3-D 


Game 




212 


COLORMON 


COLORMON 


Utility 


Aug. 


94 


The Colorful Computer (Part 1) 


THECOCOl* 


Graphics 




188 


Color Maze 


MAZE 


Game 




202 


Four in One Plus Another 


BRICKOUT 


Game 




202 


Four in One Plus Another 


POINDEXTER 


Game 




202 


Four in One Plus Another 


MATHTALK 


Game 




202 


Four in One Plus Another 


PIXPRINT 


Utility 




202 


Four in One Plus Another 


TANK-GUN 


Game 




260 


Space Duel 


SPCDUEL 


Game 




264 


Square Game 


SQRGAME 


Game 




268 


Color Breakaway 


BRKAWAY 


Game 


Sep. 


140 


Basic Word Processing 


WORDPROC 


Application 




230 


Joystick Paintbrush 


PAINTBRU 


Graphics 




238 


Conversion 


CONVRSNS* 


Game 


Oct. 


168 


Income Tax Estimator 


TAXCALC 


Application 


Nov. 


164 


More Color Conversions 


SUBDSTRY 


Game 




164 


More Color Conversions 


LLANDER 


Game 




164 


More Color Conversions 


MISSILES 


Game 




213 


Color Assembler 


ASSEMBLR 


Utility 




272 


Show the Score 


SHOWSCOR 


Utility 




304 


Test Patterns 


TVTEST 


Application 




308 


Music Marvel 


MUSIC 


Application 


Dec. 


388 


Picture-Editor 


PIC-ED 


Graphics 



All listings in the article are combined into one program. Each is accessed from a menu. 
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KILOBAUD KLASSROOM 

by George Young and Peter Stark 

Makes learning electronics fun and easy. First published as a series in Kilobaud Microcomputing, the 
book combines the learning of essential theors with practical, hands-on experience. The course begins 
with basic electronic projects and culminates in the construction of your own programmable 
microcomputer. The direct instructional methods of authors Young fie Stark make KILOBAUD 
Kl.ASSHOOM a simple way for you to acquire a solid background in digital electronics 
BK7386 (419 pages) $14.95 
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SELECTRIC INTERFACE by Georae Young 

You need the quality print that a daisy wheel printer provides but the thought of buying one makes 
your wallet wilt SELECTRIC™ INTERFACE, astep-b) step guide to interfacing an IBM Selectrk 
I/O Writer to your microcomputer, will give you thai qualit) at a fraction ol the price. George Young, 
co-author of Kilobaud Microcomputing magazines popular "Kilobaud Uassroom" scries, offers a 
low -cost alternative to buying a daisy wheel printer SELECTRIC INTERFACE includes step by- 
step Instructions, tii* on purchasing a used Selenitic, information on various Selectric models, in- 
cluding the 27 10. 2980. and Dura 1041. driver software f->r /.so. 8060, and 6508 chips, Ops on inter- 
facing techniques With SELECTRIC INTERFACE and some background in electronics, you can 
have a high-quality, low -cost, letter-quality printer. Petals not Included 
BK7388 < 125 pages) $12.97 
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TEXTEDIT 

A Complete Word Processing System in Kit Form 
by Irwin Rappaport 

TEXTEDIT is an inexpensive word processor that can l>e adapted to suit sour differing needs from 
form letters to lengths texts. Written in TRS-80 Disk BASIC, the system consists of several modules, 
permitting the loading and use of only those portions needed A disk is also available which pros ides 
the direct loading of tl»e modules, however, the book is required for documentation. For Model I and 
III with TRSDOS CONVERT. . one disk drive (2 disk drives or copy utility nccxlcd to transfer to system 
disk). Rum under TBSDOS 2.2'2.3. May not function under other systems. 

BK7387 (book, 90 pages) $9.97 

DS7387 (disk) $19.97 

Disk is. manufactured by Instant Software, a division of Wayne Green Inc. 
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ANNOTATED BASIC 

A New Technique for Neophytes 
Put sour BASIC knowledge to work for you with this 2-\olume set of I RS-80 Level II BASK, pro 
grams. Cain a better understanding ol the elements and techniques msolscd in programming. AN- 
NOTATKD BASIC'S iini<nicl\ designed format breaks each program down for you to include: initial 
documentation and Instruction, definitions oi New basic Concepts, flowchart, annotations of sec- 
tions, showing how each part fits into the whose, and explaining win certain BASK ' commands an 
chosen over similar ones 

Using the programs as the) arc or modifying them to sharpen your programming skills. ANNOTAT 
I- 1 ) BAM( . is a helpful tool for any BASIC programmer. 

BK7384(Vol. 1. 152 pages) $10.95 

BK7385 (Vol. 2, 136 pages) $10.95 



COMPUTER CARNIVAL l>> Richard Ramella 

Your child can l>econic a crackerjack computerist with the sixt) TRS-80 Level II pro- 
grams in COMPUTER CARNIVAL. This large- type, spiral bound booh tor beginners 
is a veritable funhouse of tames, graphics, quizzes and puzzles. Written bj 90 Micro 
columnist Richard Ramella, the programs ate challenging enough to ensure contin- 
ued learning, vet short enough to provide >our child ssith the immediate delight and 
reward of mastering basic computing skills. And for even greater enjoyment, net the 
CARNIVAL COMPANION, ■ 10 -minute cassette containing all the programs in the 
book. Eliminates tiresome typing and lets sour child spend more time enjoying the 
programs. 

BK7389 Book (218 pages) 116.87 

CC7380 Booker Cassette "Carnival Companion" $24.97 
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FOR TOLL-FREE ORDERING CALL 1-800-258-5473 
WAYNE GREEN BOOKS* PETERBOROUGH NH 03458 

Itemize sour order on a separate piece of paper and mail to Wayne Green Books. Art- Sales. Peterborough, NH 034.W. Be sure to include check or i 
credit card information i Visa. MC or AMEX accepted I No CO. I), orders accepted. All orders add $1.30 lor the first book, postage and handling. $1 . 
additional book; $10.00 par book foreign air mail. Please allow 4-6 weeks after publication for delivers Questions regarding sour order.' Please 
Customer Service at the above address 
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Serial Line 
Analizer 



Serial Une Analizer 

Plug* into TRS-80 color computer Rom 
Pack port. Displays EBCDIC. ASCII. Binary 
and HEX at 50. 75. 110. 134.5. 150. 200. 300. 
600. 1050. 1200, 1800. 2000. 2400. 4800, 9600. 
19200 Baud. Baud rates can be split over two 
channels. Analizer is async and supports 
computer/ modem/terminal/printer applica- 
tions or trouble shooting Industrial serial 
analizers sell for 3000 and up. New techno- 
logy allows us to sell it for $199. 

EPROM Programme* 

Read and program EPROM on the TRS-80 
color computer, for $90. 

EPROM Board 

Board with sockets and support chips allow 
you to plug in your own EPROM and execute 
them on the color computer, for $30. 

Tap* map utility 

Displays TRS-80 tape file information: File 
name, file type, gap information, start ad- 
dress, load address and data blocks, $15. 

Tapaaava utility 

4K color computers can save machine code 
or binary files on tape with this utility, $15. 

Music 1 

Simple note entry using joystick on TRS-80 
color computer. Supports whole notes 
through thirty-seconds and 11 keys. Can 
save music scores and recall them later to 
play or to change Easy to use, $30. 

Add $1.50 tor poet and handlg. Prleee subject 
to change. Wl residents add 9% sales tax. 



ONTROL LRAFT INC. 



P.O. Box 123 • Muskego. Wl 53150 
414-784-9027 
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Micro for $9.97 and $19.97. These tapes 


Reload 80 columns for 1982 will be pub- 


and disks are not part ol 


a regular Load 


lished int he January 1983 issue. Com- 


80 subscription. 




plete lists for 1981 and 1982 will be pub- 


An index to Load 8C 


programs and 


lished in the Anniversary Issue. ■ 


Program 


Title 


Page 


Comments 


1 


COPYRGHT/BAS 


— 


None 


2 


VOICE/BAS 


72 


None 


3 


MAKEGFTX/BAS 


118 


None 


4 


READGFTX/BAS 


118 


None 


5 


SPOOLER/SRC 


130 


Needs EDTASM 


6 


DSPOOLER/SRC 


130 


Needs EDTASM 


7 


UNIPOKE/BAS 


146 


None 


8 


LVL2SRCH/SRC 


194 


Needs EDTASM 


9 


DISKMAP/SRC 


236 


Needs EDTASM 


10 


SEARCH/SRC 


262 


Needs EDTASM 


11 


SEARCH 1/BAS 


262 


None 


12 


AUTOKEY/SRC 


280 


Needs EDTASM 


13 


AUTOKEY/BAS 


280 


None 


14 


POKEGPHS/BAS 


2% 


None 


15 


MAZE19/BAS 


341 


None 


16 


SCROLL/SRC 


370 


Needs EDTASM 
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13 Hcmpilai 

The "LC" Compiler provides a 
substantial subset of the C 
programing language with: 
o Integer subset of C; has 

access to floating point 

ROM routines via functions 
o All statements supported 

except: SWITCH-CASE, GOTO, 

TYPEDEF, STRUCT, UNION. 
o All operators except "->", 

".", SIZEOf, (TYPENAME). 
o Standard 1/0 redirection 

with device independence, 
o Input using FGETS or GETS 

functions support JCL. 
o Dynastic memory Management, 
o Sequential files open for: 

READ, WRITE, and APPEND, 
o LC Generates Z-80 EDAS-IV 

source code as output, 
o Z-80 "source" libraries In 

I SAM- accessed P0S files, 
o Compact, one-line compiler 

invocation for easy use. 
o Compiled programs run on 

both Model I and Model III 
o IN/LIB accesses graphics 

and LDOS entry points. 

LC/LIB Includes: FPRINTF, 

PRINTF, ALLOC, FREE, SBRK, 

and String functions, 
o LC: The Mod I/I 1 1 version 

Includes: LC/CMD, LC/LIB. 

FP/LIB, IN/LIB, EDAS-IV, 

XREF, and sore than 200 

pages of documentation. 

Requires 2-drive 48K LDOS. 
Mod 1*3 for LDOS: 1150+S4SIH 




MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS 
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LDOS, Version 5.1 is the Ultimate in Operating 
Systems for the TRS-80 Models I and III. 
MISOSYS is your East Coast Headquarters 
for LDOS, the documented system! Version 
5.1 is priced at $129.00 + $5.00 S&H per 
system Deduct $35 if ordering both. 

USE 5.1 



3 

SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW 

Finally, user customized character sets for your 
MX-80 Graftrax and MX-100 printers. With GRAphic 
Support Package you create character sets usable 
from any and all applications. Create character 
sets of single-width, double-width, & 12-pitch, 
using the GRASP character editor, ALTCHAR. GRASP 
comes supplied with 7 character sets. Print Mod3 
special characters on your Epson! Set MX options 
from your keyboard. Invoke underlining! Written 
by K.A.Hessinger I S. A. Looser. GRASP: S50+S2SIH 




MISOSYS - Dept. M5 
P.O. Box 4848 
Alexandria, VA 22303-0848 
703-960-2998 

Dealer's Inquiry Invited 



McmsmrCoidu 



EdrlS-lll 

E0AS, Version IV is the most 

fantastic absolute address 

assembler, bar none! It has: 

o Assemble to disk or memory 
from multiple source files 
nestable to FIVE levels. 

o Assemble conditional code 
with IF, IFLT, IFEQ, IF6T, 
IFDEF, IFNOEF, IFREF to 16 
levels with IF-ELSE-ENDIF. 

o Automatic search of SOURCE 
subroutine libraries saved 
in ISAM-accessed structure 
to resolve references left 
undefined (requires PDS). 

o One-level NACROs support 
parameter substitution by 
position and by keyword. 

o Local labels in both MACRO 
expansions & PDS searches. 

o Supports ♦, -, *. /, .M00. 
.AMD., .OR., .NOT., .X0R. 

o Constants can be declared 
as base 2, 8, 10, It 16 or 
string, with more than one 
value on a single line. 

o 15-char labels including 
special chars: •, ?, $, _ 

o Extensive cross-reference 
utility & EQU generation. 

o Enter source in upper case 
or lower case. Line editor 
has COPY, CHANGE, and MOVE 

o Pseudq-OPs LORG. COM, PAGE 
TITLE, SUBTTL, SPACE. 

Model I/I 1 1 for LDOS: $100 

Model II for TR5D05: 1299 

Add S4 S&H ♦ 4» VA tax. 



ZSASOSIN SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW 
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Sales Opportunity 

A few select territories available 



Join a fast growing company in- 
volved in the microcomputer in- 
dustry as a direct salesman 
Sales involve our wide selection 
of books, four publications and 
software. We are looking for a 
non-smoking individual with a 
good sales background and a ba- 
sic understanding of microcom- 
puters. An excellent career 
awaits the person who wants to 
be "on his own." It will be the re- 
sponsibility of our direct sales- 
man to become familiar with all 
makes of computers and their 
sales outlets, amateur radio and 
electronic stores, book stores, 
and other outlets for our prod- 
ucts in your given territory. We 
will also add other lines as they 
become available. Arrangements 
are being made to coordinate ef- 
forts with some other firms in the 



area, including a major printer 
manufacturer. We offer an excel- 
lent growth potential with a high- 
ly motivated, young corporation. 
If you or someone you know is in- 
terested in the opportunities 
available at Wayne Green Inc., 
please submit your background 
in detail, including sales experi- 
ence, recent work history, knowl- 
edge of the microcomputing in- 
dustry, educational background 
and references to: 



Sales Manager 
Wayne Green, Inc. 
Peterborough, NH 03458 



All replies will be immediately ac- 
knowledged and held in the strict- 
est of confidence. 




INC. 



WAYNE GREEN, 
(E-12) Pine Street 
Peterborough, N.H. 03458 



MOVING? 

Let us know 8 weeks in advance so that you won't miss a 

single issue of 80 Micro 

Attach old label where indicated and print new address in 

space provided Also include your mailing label whenever 

you write concerning your subscription It helps us serve 

you promptly. 

D Extend my subscription one additional year for only 

$2497 
□ Payment enclosed CZ Bill me 

Canadian and Mexican $27.97 1 year only US funds. Foreign $44.97 1 year only US 
funds, drawn on US bank. Please allow 6-8 weeks for delivery 



80 MICRO 



// you have no label handy, print OLD address here. 



^ Name 

-j 

>< Address 

< City 



State. 



Zip. 



print NEW address here. 



Name, 



eo Address 
8 City 



State. 



Zip 



Do You Use a Printer 
or Modem? 

The average microcomputer "moves" data at 
120,000 characters a second. A typical disk drive 
transfers it at 27,000 CPS. Most printers however 
plod along at 100 CPS and many modems squeak out 
30 CPS. That's quite a drop in efficiency not to 
mention a waste of 
computing power! 




We've broken 
this bottleneck 
with a smart little 

"white" box called the PRINTER OPTIMIZER" that 
features a 64,000 to 256,000 character memory 
buffer. Now you can "print" your inventory in 2 
seconds instead of 10 minutes, and no longer will 
your computer be tied up transmitting or receiving 
modem transmissions. The OPTIMIZER is smart 
too. You'll notice a keypad and display in our 
picture. You can tell the OPTIMIZER to convert 
data, send control sequences, pause on cue, and 
more. For example: access all of your printer's 
capabilities (graphics, font size, forms control, 
special symbols) with the ease of selecting a 
station on a pushbutton car radio. Use it to adapt 
an XYZ printer to your ABC computer running a 
PDQ word processing program. Run a serial print- 
er or modem from a parallel port. If you can afford 
and justify a disk drive, then you certainly need 
our OPTIMIZER to bring your printer, plotter or 
modem "up to speed" with the rest of your system. 




O Box 981 •rarmingdale NV 117*7 



If You Need A Letter 
Quality Printer 

. . .then consider our affordable 
yet high quality alternative. Our MEDIAMIX ETI : 
converts an IBM Electronic Typewriter (and some 
other brands) into a computer printer. Every 
office needs a typewriter. So for example, you can 
buy an IBM Model 50 ET that costs about $1200 and 
have a superior typewriter, and then with our 
ETI 2 have a printer that produces probably the 
highest quality printed image available. You can 
even do typesetting like this ad! And for financial 
printing you can't beat a wide carriage IBM ET. 
It's a truly cost effective investment. There are a 
number of arguments in favor of choosing this 
route over a single use computer printer, and we 
have an article on this subject you should read. 

We apply technology creatively, with insight 
and with respect for the non-technical end user. 
Feel welcome to write or call our toll free number 
for more information . 

APPLIED 
CREATIVE 
TECHNOLOGY, INC. 

2723 Avenue E East. Suite 71 7 
Arlington . Texas 7601 1 
(817J-261-6905 
[800] -433-5373 



COFTWOKT 8U 



.'See List ol Advertisers on Page 451 
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CALENDAR 



December 

6-7 



Future Computing Inc., 
Richardson, TX. Home Com- 
puter Market Forum Loews 
Antole, Dallas, TX. 



6-8 IEEE Computer Society, Silver 
Spring, MD. Winter Simulation 
Conference Holiday Inn at the 
Embarcadero, San Diego, CA. 



6-8 IEEE Computer Society, Silver 
Spring, MD. VLSI & Micro- 
computers: Today and Tomor- 
row (TENCON *82) Hong 
Kong. 



6-10 IEEE Computer Society, Silver 
Spring, MD. Tutorial Week 
West '82 San Diego, CA. 



7-8 The Yankee Group, Boston, 
MA. Strategy/Counterstrat- 
egy: The Network as a Corpor- 
ate Resource New York, NY. 



7-9 IEEE Computer Society, Silver 
Spring, MD. 1982 Real Time 
Systems Symposium Los 

Angeles, CA. 



7-9 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 
St. Louis, MO. 



10 IEEE Computer Society, Silver 
Spring, MD. Computer Net- 
working Gaithersburg, MD. 



9-12 National Computer Shows, 
Chestnut Hill, MA. The Second 
Annual Southeast Computer 
Show and Office Equipment 
Exposition Atlanta Civic 
Center. 



7-8 The Yankee Group, Boston, 
MA. Strategy /Counterstrat- 
egy: The Network as a Corpor- 
ate Resource Palo Alto, CA. 
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13-15 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 
Boulder, CO. 

January 

17-18 EM A Management Associates 
Inc., Richmond, VA. Using Small 
Computers in the Professional 
Design Firm Hyatt Kuilima Nor- 
thshore, Kahuku, HI. 



17-20 IEEE Computer Society, Silver 
Spring, MD. Optical Storage of 
Digital Data Lake Tahoe, CA. 



18-20 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 

Tallahassee, FL. 



31-2 Future Computing Inc., 
Richardson, TX. UCSD 
p-system Industry Forum Loews 
Anatole, Dallas, TX. 



February 

7-9 Technical Education Research 
Centers, Cambridge, MA. 



Microcomputers in Education 

Washington, DC. 



14-17 IEEE Computer Society, Silver 
Spring, MD. Computer Science 
Conference Orlando, FL. 



16-18 IEEE Computer Society, Silver 
Spring, MD. International Solid 
State Circuits Conference New 

York, NY. 



17-19 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 
New York, NY. 



21-23 American Federation of Infor- 
mation Processing Societies 
Inc., Philadelphia, PA. Office 
Automation Conference Phila- 
delphia Civic Center. 



23-25 Future Computing Inc., 
Richardson, TX. Personal 
Computer Retail Forum Loews 
Anatole, Dallas, TX. 



25-27 Computer Expo 83 Orlando, FL. 



Coming 
Next Month 



To celebrate the new year, our 
January issue will include an incred- 
ible program— Creator, by Bruce 
Tonkin (see Proof Notes, p. 16 for 
more info). 

Also featured will be articles tell- 
ing you how to market your own 
software. Topics will include decid- 
ing on a publisher, copyrighting 



how-to, and documentation do's 
and don'ts. 

Of course, we will continue Philip 
Van Praag's "Hardware Hacker" 

series and Margaret Grothman's 
"API. Primer," and feature several 
timely reviews and Color Computer 
articles. B 



COLOR COMPUTER 




* • JOYSTICKS • • 

Tired of broken loyslicks? Ours are built to last, with 
good smooth pots, and a strong lever and internal 
mechanism These are superior to the Radio Shack 
design Get your joystick programs working the way 
they should! 

Up to 20% OFF on software. 

We stock selections from 

Prickley Pear, Tom Mix, Mark Data, 

and others. 

Write or call lor free catalog. 

Add $2 00 shipping on Joysticks. We pay shipping on 
'oftware $1.50 additional for COD 

ENDICOTT SOFTWARE ... 

P.O. Box 12543, Huntsvilla. AL 35802 "" !5J 



205/881-0506 



DO YOU HAVE 2 PRINTERS? 




Now you can have 2 PRINTERS ON-LINE at all times 
Our MODEL 80 LINE PRINTER SWITCH is designed 
for the TRS-80 computer to allow the user to easily 
select between two printers by means of a conven- 
iently located switch without changing cables Our 
compact module connects to the parallel printer port 
of your Model I, Model II. or Model III through a printer 
port extension cable and provides a card-edge con- 
nector for each of your two printers. Gold plated 
contacts ensure excellent connection reliability. Our 
Model 80 switch comes assembled, tested and ready 
to use for the low cost of $40 including shipping to 
any U.S. destination. A pn nter port extension cable is 
available from us at a cost of $12.50 for the Model 
I 'III or $20 for the Model II CaH now for more informa- 
tion Request application note AN-821 for Model 
l/lll use or AN 8?? fix- Model II use. 

-409 



jr "\J\jVUhf signalling inc. — 

P.O. Box 17510, Kansas City. MO 64130 
MBH 1-816-931-4448 

_____ TOLL FREE 1-800-831-4448 



Save Grief & Aggravation 

—Know Before You Buy— 

READ 

"Consumer Protection for 
the Microcomputer Owner" 

COVERS: 

1 Preliminary Considerations before Buying 

2 Legal Differences between Mail Order and 
Local Store 

3 Pitfalls and Protection of Paying by Cash. 
Check Credit Card, etc 

4 What a Warranty Really Is 

5 Ho* to Complain Effectively 

6 How to Legally Reiect and Revoke 
Acceptance of Goods 

7 Miscellaneous Hints and Suggestions 

ONLY $15 Poet Paid (COD $3 Extra) 

Send Check or Money Order to 

L J. KUTTEN. ATTORNEY 

201 South Central 

P.O. Box 16185 

St Loul» (Clayton), MO 63105 

314- 721-6644 
Mo. waa Ma aai add «.«2ss •-■• iu 

CompuServe ID «70655.376 Source lD» TCK092 

•4*444 



This publication 
is available 
in microform. 



University Microfilms 
International 

Please send additional information 
Name ___^^_ 



Institution 

Street 

City 

State 



Zip. 



300 North Zeeb Rood 

Dept PR 

Ann Arbor Mi 48106 

USA 



30 32 Morlimn Street 
Opt PR 
London V.IM 7RA 
t nqland 



COLOR COMPUTER SOFTWARE 

16-K EXTENDED BASIC 

Adventure word games 

THE ALCHEMISTS LABORATORY $14.95 

mix the ingredients yourself 
- LOKAR'S MAGIC STAFF $14 95 

five crystal statues the magic staff, and a castle 
filled with wild animals 

NIGHT TOWER DESCENT $14.95 
ten floors o' danger, treasure, and magic are be 
tween you and freedom 

■SQUEEZE $14 95 
arcade style game where aliens dose in from both 
sides at once 

GRAPHIC SCREEN EDITOR $16 95 
create pictures on the screen using |Oysticks or 

arrow keys save on tape erase paiit and many 
other features 

COLOR SHOW DISPLAYS $8.95 
five graphics programs that create endless chang 
mg patterns 

all programs 16-K extended basic cassette only 
Send for free catalogue We accept checks, money 
orders, Visa and Mastercharge (no C.O.D.s). 
Please add $1.00 for shipping. Send to: 

REAL SOFTWARE CO. 

P.O. BOX 401 
HOPEDALE, MA 01747 

(617) 393-6281 -345 

Mass residents add 5°e sales tax 
dealer mqu r es we.: jmed ' 



9 TRACK TAPE 

for TRS-80 Mod. 11/16 

ALDEVCO has available the AC- 
CESS II ANSI std. 9 track mag. 
tape (1600 bpi) system tailored 
to the Radio Shack Model 11/16 
hardware and TRSDOS, provid- 
ing hard disk backup AND ac- 
cess to mainframe data bases. 
Other versions are available for 
the S-100 bus and CPM. 



® 



ALDEVCO 

Q 5725 Dragon Way 
Cincinnati. Ohio 45227 
(513)561-7671 




80 Micro does not keep subscription 
records on the premises, therefore 
calling us only adds time and doesn't 
solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

BO micro 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and enjoy your subscription 



JONELL SYSTEMS 

TRS 80* MOD I 



SEARATTIE: In assembler fast, live-action, graphics oriented 

Same Play against another opponent or against computer 
lours of Fun Req Min 16K Level II $15.95 

ilORYTHM GENERATOR: Generate anyone's borythm chart 
tor 6 mos W/16K. 1 yr. W/32K. Video or L/P output with 
simultaneous graphic sine-wave presentation ot all 3 functions 
Flags critical days and much more. Req. mm 16K Level IIJ19.95 
tO* ACCOUNTING: Run your system like thr bigguysl Menu 
driven program records and liles start and stop run times trom 
system clock, elapsed time, dollar value of time, user code, 
date, and job name. Prints user account statements, credits 
payments and more In disk basic tor 32K system $1*95 

CMC 2 TAPE: Make level II basic system tapes trom CMD Disk 
Files Shows load and entry addresses Req 32K disk 
system «,i 4 95 

TAPf 2 CMO: Make disk CMD files trom level II system tapes 
Shosvs load and entry addresses. Identifies non-system tapes 
Much simpler than tapedisk utility Req 32K Disk 
System $14 95 



Alt programs supplied on rape. Add S5 00 ro price toi disk 
Printed instructions furnished for etch program. Give system 
configuration when ordering 



JONELL SYSTEMS 

130 4th Street Alti/er 

Huntington , WV 2S705 

• Trademark ol Tandy Corporation 



PUT YOUR COMPUTER 

TO WORK SAVING 88 

EVERY TIME YOU BUY 

GROCERIES!! 

QSORT 

is a fast, menu dnven assembly 
language program Chat keeps track 
of up to 1 200 store coupons Enter 
your shoppng list and QSORT locates 
every usable coupon within seconds 
A special filing system speeds 
physical retrieval of any coupon to a 
few seconds.. 
Comprehensive manual 
Satisfaction Guaranteed or your 
Money Beck. 

Specify Model I or III 

cassette or disc 3539.90 ppd 

(Calif -••otnti add 636) 

■V ENGINEERING •" 7A 

P Q BOX 335 1 . HI VERSOEL CA 925 1 9 
(714) 781-0252 



s See List ot Advertisers on Page 45 1 
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NEW PRODUCTS 



edited by Eric Grevstad 



Project Management System 

The Demi-Plan Project Manage- 
ment System is now available for 
Model I and III computers with 48K of 
memory, one or more disk drives, and 
a printer. 

This program allows the user to 
define and maintain a file of project 
tasks and resources. This information 
is used to print various forms of Gantt 
charts, resource histograms, and task/ 
resource cross-reference printouts. The 
system determines the critical path of a 
project and allows the project manager 
to introduce "what if" data to show 
the effect of date and resource changes 
on completion date. 

The Demi-Plan disk sells for $49.95, 
with documentation alone available 
for $5. For more information, contact 
Demi-Software, 6 Lee Road, Med- 
field, MA 02052, (617) 359-4502. 

Reader Service ^580 

Fortran Programs for 
Scientists and Engineers 

Over 60 of the most frequently used 
scientific algorithms, along with their 
program implementations written in 
Fortran, are presented in Fortran Pro- 
grams for Scientists and Engineers. 
The material covered in this volume, 
including curve fitting, vector and 
matrix arithmetic, numerical integra- 
tion, random number operations, and 
statistical analysis, will be of practical 
use to any scientist or engineer, and the 




Fortran Programs for Scientists and Engineers 
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programs can be readily adapted to 
most applications. 

Each chapter contains exercises de- 
signed to test and extend reader com- 
prehension of the material presented. 
For the first-time Fortran user (and the 
veteran who needs a quick reference), a 
summary of the syntax, standard func- 
tions, and reserved words of Fortran is 
included in the appendices. 

Priced at $15.95, this book is avail- 
able from Sybex, 2344 Sixth St., 
Berkeley, CA 94710. 

Reader Service ^ 585 

Sell Your Programs 

Vendor-One is a Model I utility for 
program authors that permits your 
software to be sold on a custom-for- 
matted disk that both single- and mul- 
tiple-drive customers can use. The 
package includes a licensing agreement 
for unlimited distribution copies of 
your disk. 

A Model III version will be available 
soon. Vendor-One sells for $30 from 
Applied 80 Softwares, 4316 Vermont 
Court, Virginia Beach, VA 23456. 

Reader Service ^ 574 

One-Megabyte 
Minifloppy Drive 

The slimline minifloppy M4853 
from Mitsubishi is a double-headed, 
96-tpi, 5'/»-inch standard drive. The 
unit has track-to-track access time of 3 
ms, head load time of 50 ms, and a set- 
tling time of 15 ms. 

The M4853 also includes a precision 
head load mechanism with all ferrite 
heads, a circular gimbal-type support 
for high data reliability and long media 
life, and an advanced direct-drive 
brushless motor that eliminates all con- 
cern for belt changes. Disk rotation 
starting time is 250 ms. 

The drive's dimensions are 1.61 by 
5.75 by 8 inches. Its price is $450. For 
additional information, contact Inflo 
Inc., 244 Mill Road, Yaphank, NY 
11980, (516)924-9229. 

Reader Service ^566 

Very Micro Computers 

CompuGift Inc. (P.O. Box 1408, El 
Toro, CA 92630, (714) 768-8223) has 
introduced a line of desktop gift prod- 
ucts in the shape of a 4 1 /2-by-4 l /2-by-6- 
inch computer terminal. The Com- 
puter Caddy is a pen and pad holder, 




CompuGift 

while the Computer Planter and Com- 
puter Bank provide a place for flowers 
and coins. 

The screen of each CompuGift 
forms a frame for your favorite pic- 
ture. All items are individually gift 
boxed, and available in light grey, dark 
grey, yellow, and magenta high-quality 
plastic. Each is $8.99 plus $2 postage 
and handling. 

CompuGift is the idea of a Califor- 
nia systems analyst and his wife, a 
computer specialist. The company 
predicts first-year sales of $100,000, 
saying, "Everybody is computer crazy 
nowadays; who wouldn't like a gift 
like this?" 

Reader Service *^550 

Z80 System Reference Card 

A new 16-page, $4.95 card summar- 
izes and captures the entire language of 
the Z80 microprocessor chip for easy 
reference. 

The card provides clock periods and 
microseconds for every instruction. A 
formula on the front page lets you cal- 
culate your own timing, regardless of 
your machine's MHz. In addition, all 
instructions are completely listed in op- 
code sequence for PEEKing, and mne- 
monic sequence for POKEing. A con- 
dition code chart and hex-to-decimal 
chart make programming easier. The 
undocumented op-codes found on 
some chips are included, as are decimal 
equivalents for every instruction. 

The Z80 System Reference Card is 
available from Nanos Systems Corp., 
P.O. Box 24344, Speedway, IN 46224. 

Reader Service .^572 



THE MAGIC 
IS AT YOUR FINGERTIPS. 



Dosplus II magic. 
For you and your business. 



The TRS-80 model II was created to help you take care of your business. DOSPLUS II was 
created to help your TRS-80 help you and your business even more. 

DOSPLGS II replaces your O.EM, dos with an ultra sophisticated operating system that is 
incredibly faster, more reliable and is totally compatible with all standard business oriented 
software designed for use with the model II. The result is a computer/operating system that far 
exceeds manufacturer' s specs — with more potential and more capacity to be of service to you. 

DOSPLCJS II operating systems are available for either your floppy or hard disk drives. The hard 
drive operating system is compatible with Radio Shack, QuCeS. Corvus Micro Mainframe, VR 
Data and other popular hard drive sub-systems. 

DOSPLGS II...AII the quality and dependability you d expect from DOSPLUS. 



DOSPWJII 



DOSPLGS First in quality! 
First in the industry! 



A Division ol Hrt*«v«-. QSI) ln< 
I 1 500 Stemmons Twv Dallas. Texas 7V29 
To order call toll tree I 800 527 7432 
Tor produr I inlormalion (? 14) 484 29/6 



4. JO I 18 OdkOrde 

Boia Raloa R 31431 

To order < ,9 II toll tree I 800-327 8724 

Tor product information (305) 983 3390 



TRS-80 and Radio Shack are registered trademarks of Tandy Corporation. Inc 



^See List of Advertisers on Page 451 
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NEW PRODUCTS 



Farm Weather Center 

Specialized software for deriving in- 
dividual crop and field estimates of 
crop development and soil moisture 
balance is now available for the 48K 
Model III with one disk drive. 

With simple rain gauge observations 
and daily readings of maximum/mini- 
mum temperature as input, the pro- 
grams yield graphic displays of results 
along with summary reports and 
statistics through menu selections. 

Prices start at $125 for one crop (ei- 
ther corn, soybeans, or spring wheat), 
while all three are available for $200. 
For more information, write Climate 
Assessment Technology Inc., 11550 
Fuqua St., Suite 355, Houston, TX 
77034. 

Reader Service »^584 

Port Expanders 

A series of software-controllable 
port expanders from Advanced Sys- 
tems Concepts Inc. allow single-port 
units to interface with multiple periph- 
erals or computers. 

The port expanders are compatible 
with computers, printers, plotters, ter- 
minals, and modems that have an RS- 
232C or Centronics-compatible inter- 
face. The Model QS11 allows a single 
port to talk to one of four output de- 
vices. The Model MO 11 allows four 
computers, modems, or terminals to 
share a common unit, such as a letter- 
quality printer. 

Each unit weighs two pounds and 
comes in a 13.5-by-7-by-2-inch enclo- 
sure. They use CMOS technology and 
consume negligible power. Each retails 
for $450 from Advanced Systems Con- 
cepts Inc., P.O. Box Q, Altadena, CA 
91001, (213)684-5461. 

Reader Service ^562 



reformaTTer 

CONVERSION SOFTWARE 




ITER 

VERSION SOFTWARE 

TRSDOS -DEC 




Reformatler 



Bytewriter 



The Bytewriter is a letter-quality, 
daisy- wheel printer/typewriter. It fea- 
tures a built-in Centronics-compatible 
parallel interface. All you do is connect 
it to your computer. 

The Bytewriter has 44 alphanumeric 
keys plus 12 function keys, a 12-char- 
acter buffer memory, a switchable sec- 
ond keyboard with foreign grammar 
symbols, memory erase of the past 10 
characters, a half-space key, and auto- 
matic repeat on any key. Character 
densities of 10, 12, or 15 cpi are switch 
selectable. 




ASCI Port Expander 



This product sells for $795. For 
more information, contact Bytewriter, 
125 Northview Road, Ithaca, NY 
14850, (607)272-1132. 

Reader Service ^ 590 

DEC and CP/M 

Conversion Software 

Model II users can now exchange 
data files and source programs with 
CP/M or DEC RT-11 systems using 
Reformatter conversion software from 
MicroTech Exports Inc. 

TRSDOS to CP/M reads and writes 
single-density CP/M disks, and 
TRSDOS to DEC reads and writes sin- 
gle-density RT-1 1 disks. A third pro- 
gram, TRSDOS to IBM, is available 
exclusively from Tandy Corporation 
through Radio Shack stores. 

Each version runs on a single-drive 
Model II and provides full facilities for 
file reorganization and directory main- 
tenance on the target disk. In addition 
to bidirectional transfer of files be- 
tween the two operating systems, the 
program provides complete file statis- 
tics for the target disk, and permits the 
user to delete or rename files, alter user 
numbers, and convert TRSDOS disks 
to the target disk. 
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DOUBLE YOUR MONEY 
EVERY MONTH??-? HA 



IF * TOLD YOU YOU COULD DOUBLE YOUR HOCY 

EVERY MONTH, YOU WOULD CALL US LIARS. 

IF MI TOLD YOU YOU COULD DOUBLE YOUR HONEY 

EVERY THREE MONTHS, YOU MOULO PROBABLY CALL 

US LIARS AGAIN. 

SO HE'LL JUST TELL YOU THAT YOU CAN HAKE HORE 

HONEY IN THE STOCK MARKET THAN YOU ARE MAKING NOW. 

ASTUTE STOCK MARKET INVESTORS MAKE HONEY IN 

THE STOCK HARXET BY BUYING WHEN THE PRICE OF 

STOCK IS LOU AND SELLING MHEN IT IS HIGH. 

EVEN WISER INVESTORS UNDERSTAND THAT NO CAPITAL 

GAINS NEED BE PAID ON STOCK DIVIDENDS UNTIL 

THEY ARE SOLD. 

STOCKDIV ASSISTS THE SMARTEST INVESTOR 
IN REAPING THE BENEFITS OF BOTH PHILOSOPHIES. 
EVEN IF YOU KNOW NOTHING ABOUT THE MARKET. 

LET YOUR TRS 81 PAY FOR ITSELF ! ! ! 

STOCKDIV HAS A DATA BANK OF OVER 
1011 COMPANIES THAT HAVE EITHER SPLIT OR PAID 
STOCK DIVIDENDS HORE THAN TWICE SINCE 1777 

YOU PICK THE HONTH, THE MINIMUM DIVIDENDS, THE 
COMPANY YOU ARE INTERESTED IN, OR THE NUMBER OF 
YEARS YOU WISH TO RESEARCH FOR PAST PERFORMANCES. 

YOU BUY WHEN THE STOCK IS LOW AND SELL MHEN THE 
STOCK IS HIGH 

THE INITIAL PRICE OF STOCKDIV IS »M.95 
ANNUAL UPDATES ARE 19.95 
FULLY TAX PEDUCTABLE 

STOCKDIV IS AVAILABLE ON DISC FOR 
TRS-81 HOD KLEVEL 2), AND MOD m, 24K 
FULLY TAX DEDUCTAflLE 

ORDER STOCKDIV FROM 

DIGFORENSICS 
P.O. BOX 1733 

ORANGE PARK, FL 32173 .-403 



No Shipping or 
Handling Charges! 

DRIVES TAN DON TEAC 

Bare Complete Bare Complete 

40TkSS $216 $248 $216 $248 

40TkDS 289 345 309 359 

80TUSS 289 345 309 359 

80 Tk DS 379 429 419 459 

MODEMS 

HAYES Smartmodem $229 

HAYES Smartmodem 1200 559 

HAYES Chronograph 219 

Signaiman Mark I DC 95 

UDS103OALP 169 

UDS 103 JLP 205 

PRINTERS 

Epson MX80 FT $559 

Epson MX100 749 

Microline 82A 479 

ORCHESTRA 85 90 99 

Orchestra Software Call 

COMPUTERS 

Model 111 with 2 Tandon Drives $1785 
Model III with 2 Tandon 

Drivesand RS232 1880 

LNW80 Model I 1475 

LNW80 Model II 2050 

TIDEWATER DATA SYSTEMS 

14 PARKVIEW AVENUE 
PORTSMOUTH. VIRGINIA 23704 
(804) 397-9636 ..338 

All prices discounted for cash. 

Charge orders 4 % additional 

We accept MasterCard and Visa 

Virqima R*<,ider.ts Please Add 4% Sale* Tax 



Pll/Tik announces two great new 
machine language arcade games w/sound 
for TRS-80 MOD I or III, disc or tape 





Play fast paced indoor soccer against a 
friend or the computer Dribble, pass, steal the 
ball, use the boards-control the whole team!! 
When you're done, lay down-exhausted ^» 324 



(32) 



PO Box i.i; . 

SOUTHAMPTON 
i'T NNA • • .. . 



* Specify Mod I or III. dia< 

tap* ceo 

* Add J? 00 PO»tao« and_handl«>g 

' accaoiad 



* P. 



o»tag« and r>» 



i inquir 

I'denll 



■ !•• la 



New! 




MBC- 1000 micro 

tm 

• 64K RAM • CP/M & SBASICU 

•80 x 25 GREEN PHOSPHOR CRT 

• 5 FUNCTION KEYS • GRAPHICS 

• RS-232C & CENTRONICS PORTS 

•SINGLE 328K DISK 

List 4t* -4 f\ A r\ 

$1905 $ J 640 delivered 



software/MODEL » & m 

32K, 1 Disk Reqd. 



FOOTMATH 



$99.95 



Calculate lineal measure without decimal conv. 
Input/output in english written form 
• Print, store, edit, append files 



MENURITE 



$24.95 



Generate BASIC menus without programming 
Drives up to 21 programs with 3 exit options 
Automatically spaces & centers display 



Send check or money order and we ship PREPAID. COD's shipped collect. 

$250 deposit required for COD computer orders. 
rhoox/Dr 1 Texas residents add 5% sales tax. 

MicrowarG mail orders: PO - Box 3834 

Texarkana, Texas 75501 

showroom: 4120 McKnight Road 

.326 Wake Village, Texas 75501 



can: (214) 832-4211 



• See List ol Advertisers on Page 451 
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Priced at $249 for each version, Re- 
formatter software is available from 
MicroTech Exports Inc., 467 Hamil- 
ton Avenue, Palo Alto, CA 94301, 
(415)324-9114. 

Reader Service *^561 

Macro Assembler and 
Editor For Color Computer 

Macro-80c is a macro assembler, 
screen-oriented editor, and machine- 
language monitor for the Color Com- 
puter disk system. 

The assembler features local labels, 
conditional assembly, page headers, 
and symbol-table cross-reference list- 
ings. The full standard 6809 instruc- 
tion set is supported, along with many 
additional pseudo-ops such as SET, 
ASK (for keyboard input during as- 
sembly), and even PEEK and POKE. 
There is a stack available for writing 
structured macros, and complete docu- 
mentation on the assembler's support 
of such techniques as embedding 
machine language into Basic programs 
or writing programs that checksum 
themselves. 

The text editor may be used on any 
type of text file, but is designed specifi- 
cally for quick and easy editing of 
Assembly-language source files. It re- 
quires no line numbers, so you can use 
the arrow keys to position the cursor 
anywhere in the file. There are single- 
letter commands for insert, delete, 
change, move block, copy block, 
search, global change, and so on. An 
automatic repeat feature saves 
repetitive keystrokes. 

A machine-language monitor is in- 
cluded, which allows display and mod- 
ification of memory using a formatted 
hex display. Memory may be dumped 
to a printer or a text file. Breakpoints 
may be set, blocks of memory set or 
moved, and so forth. 

Example programs on disk are in- 
cluded, as are 75 pages of documenta- 
tion. Macro-80c requires a 16K or 32K 
Color Computer with disk drive; mul- 
tiple drives are supported. Priced at 
$99.95, it is available from The Micro 
Works, P.O. Box 1110, Del Mar, CA 
92014, (714) 942-2400. 

Reader Service *^555 

Finding Kindred Spirits 

The Personal Computer Owners Di- 
rectory can help you find people with 
the same interests or computer who are 
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Touch-Tone Modem 



willing to trade information. The 
Models I and III and the Color Com- 
puter are listed, as are popular micros 
from Apple, Atari, Commodore, 
IBM, and others. 

The directory lists 59 different inter- 
ests, ranging from adventure and aero- 
space to utilities and word processing. 
Others are physics, commercial appli- 
cations, education, data-base manage- 
ment, games, law, income tax, 
robotics, and many more. 

For a free, permanent listing in the 
directory, send your name, address, 
computer type, interests, and whether 
you are willing to trade information to 
Personal Computer Owners, Dept. IF, 
P.O. Box 426, Feeding Hills, MA 
01030. To receive the current issue and 
the next issue with your listing, send 
$9.95 and the above information. 

Reader Service ^557 

Adventure Trilogy 

Colorquest, a division of the Softlaw 
Corporation, has introduced a new line 
of fantasy games featuring full color, 
machine-language 3-D graphics, and 
sound. 

The Adventure Trilogy takes you to 
the World Under the Cimeeon Moon 
to engage in ritual battle with tooa- 
moath and narthokcs, then to Daz- 
mor's Underworld of Doom to capture 
the Eye of Dazmor, and finally 
through the Ugrek Mountains to the 
Forsaken Gulch to restore the Eye to 
the Idol. Survivors are invited to try 
the sequel, Beyond the Cimeeon 
Moon, which involves a voyage to 
outer space. 



The Adventure Trilogy and Beyond 
the Cimeeon Moon are available on 
disk for the Color Computer. Price is 
$29.95 each from Colorquest, P.O. 
Box 19096, Minneapolis, MN 55419, 
(612) 827-4703. 

Reader Service ^576 

Touch-Tone Decoder Modem 

The Touch-Tone Decoding Host 
Modem is a device for converting stan- 
dard telephone Touch-Tones to ASCII 
equivalents. The modem has provision 
for a Bell 103 (300 baud) or BeU 202 
(1,200 baud) data output response. An 
audio port for voice response is avail- 
able as an option. 

This product connects the direct-dial 
telephone network with any host com- 
puter capable of asynchronous com- 
munications via an RS-232 port. 

The modem also features auto- 
answer circuitry. When called, it goes 
off-hook and awaits suitable input for 
two minutes. If no input is received, 
the modem automatically resets to on- 
hook, awaiting the next call. 

When one of the 16 valid Touch- 
Tone pairs is received, it is converted to 
ASCII and sent in a serial stream to the 
host. The outbound responding data, 
from the RS-232 port, is used to 
modulate a frequency shift keyer 
(FSK). This permits transmission over 
the telephone network to the calling 
terminal. 

Communication with the host RS- 
232 is at 300, 600, or 1,200 baud (de- 
pending on the model selected), via a 
standard DB-25 connector. Since the 
same baud rate is used for incoming 



TRS-80 
MOD III 

48K — 2 Drive 
— DISK III 
TRSDOS & 
Manuals 

$1775 





* 



EXTERNAL FLOPPIES 
for MOD I ^07R 

Fully compatible, 120 day warranty 
80 TK or 2 sided $395 

80TK&2sided $515 



6.3 to 38 MEG 

Winchester External Hard 
Disk III beginning at 

$1899 



Optional HD III: 

9.5 meg $2099 

19 meg 2799 

2 x 6.3 meg 2899 

2x9.5 meg 3199 

2x19 meg 4399 



CHECK THESE GREAT BUYS ON OTHER PRODUCTS: 



Epson MX-80 w'graphtrax $475.00 C ITOH & Diablo Ribbons 



Epson MX-80 ft 
Epson MX- 100 
MX-80 Ribbons 
MX-100 Ribbons 
Epson Graphtrax 
C.ITOH F-10 40 cps 
Tractor 

NOW OPEN 



575.00 DC Hayes Smart Modem 

750.00 DC Hayes Micro Model II 

12.50 OKIDATA Microline 80 

30.00 OKIDATA Microline 82A 

75.00 OKIDATA Microline 83A 

1,695.00 OKIDATA Tractor 

200.00 Lexicon Modem 

— VR DATA COMPUTER CENTER 



5.95 
25900 
33900 
359.00 
52900 
79900 
75 00 
125 00 

616 Baltimore Pike, Springfield, Pa. (Delaware County) 



Novation Cat Modem 
Novation D Cat Modem 
Percom Doubler II 
Percom Data Separator 
Paper 9 v? x 11 (Fanfold) 
Paper 14%, x 1 1 (Green Bar) 
Verbatim 5'«" Diskettes 
Maxell 5Vi* Diskettes 
Nashua 8" Diskettes 



175.00 
19900 
169.00 
29.95 
29 95 
34.95 
26.90 
3900 
42.95 



Drive Extender Cable 12.00 

Head Cleaning Kit 5%" 14.95 
Disk & Other Mysteries Book 19 95 
Basic & Other Mysteries 

Book 27.50 

NEC Ribbons (Min. 6) 5.95 

Printer Cable 25.00 

LDOS Operating Sys 129.00 

DOSPLUS Operating Sys. 149.00 



DISK III 

SINGLE DRIVE $599 



Disk III Dual Drives 
Disk III No Drives 
TRSDOS & Manual 
DOS PLUS & Manual 
LDOS & Manual 



$864.00 

435.00 

21.90 

149.00 

129.00 



MODEL III 
COMMUNICATIONS 



2 Sided or 80 Track Drives add $120. ea. 
2 Sided & 80 Track Drives add $240. ea. 



VRRS232 
$80 
Direct Replacement For 
R.S. RS232, Fully Tested 
& Burned-ln, Easy 
Installation, 120 Day 
Warranty, Programmable 
Pinout, Prototype Area 



D-CON 
$299 

Integral Modem, NEEDS 
NO RS232 — Direct 
Connect, Programmable 
Dialing, AUTO ANSWER/ 
ORIGINATE, Easy 
Installation 




IF YOU DONT SEE IT ADVERTISED 
CALL US AND ASK FOR IT. 



data 



r 



1 



MasterCard 



VISA 



777 Henderson Boulevard N-6 

Folcrofr. PA 19032 1 215 1 161 -5300 

■See List of Aavertistrs on Page 451 



Call Toll-Free 

800-345-8102 

ALL VR DATA PRODUCTS CARRY A 120-DAY 
WARRANTY INCLUDING PARTS & LABOR 

Published prices reflect cash discount AM prices a'e suDjeci 
to change without notice TRS-80 and TRSDOS are trademarks 
ot Tandy Corp DISK Ml is a trademark ol VR Data Corp 
8 30AM 7PM E ST Mon Pn Sat 10AM-3PM 
CABLE VRDATA TELEX 845 124 
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ACT Winchester Drive 

and outgoing data, no special split 
baud rate software is required. 

Priced at $500, the Decoding Host 
Modem is available from Micro- 
Peripheral Corp., Koll Business Cen- 
ter, 2643 151st Place N.E., Redmond, 
WA 98052, (206)881-7544. 

Reader Service ^578 

Down Under Disks 

The ACT Winchester Disk Drive, 
produced by the Australian Computer 
and Telecommunications division of 
Australian Protection Industries, New 
South Wales, offers five- and ten- 
megabyte storage capacity for Model 

II and III computers. 

The hard-disk package includes a 
Winchester-type 5 V* -inch drive with 
five megabytes of formatted mass stor- 
age and a microsequencing controller 
card with complete floppy-like inter- 
facing. The controller end of the pack- 
age has been designed to run a second 
5 '/i-inch hard disk, if desired. 

Two Winchester hard-disk inter- 
faces are also available: the TRS-80 
Model II, designed to work with any 
Model II system and the ACT con- 
troller package, and the TRS-80 Model 

III for any 48K Model III system and 
the controller package. Both interfaces 
are fully software supported with a 
CP/M 2.2 operating system, and arrive 
fully assembled and tested for instant 
plug-in use. 

Price and other information is avail- 
able from the Office of the Australian 
Trade Commissioner, 636 Fifth Ave- 
nue, New York, NY 10111. 

Reader Service ^582 

Disk Listmaker 

Disk Listmaker is an upgraded ver- 
sion of Manhattan Software's popular 
16K tape program. It can store 500 
names or items plus five-digit codes in 
32K, or 1 ,000 names and codes in 48K. 

In addition to fast machine-lan- 
guage alphabetical sorting, the pro- 
gram features selection and display or 
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printout of names in any full code, or 
names in any group of codes. Any 
name or code may be edited, and any 
entry deleted. 

Reported uses of the original pro- 
gram have included school pupil track- 
ing, real-estate listing information, rec- 
ord and book cataloging, and many 
others. 

The Disk Listmaker is available for 
Models I and III for $20 from Manhat- 
tan Software, P.O. Box 1063, Wood- 
land Hills, CA 91365, (213) 704-8495. 

Reader Service *^588 

Consolidation System 
For VisiCalc Users 

VIZ.A.CON for the Models I and 
III adds a third dimension to VisiCalc. 
You can combine multiple pages of 
VisiCalc data from a model for hierar- 
chical consolidations (for example, de- 
partment, division, company, and so 
on) or for summations over periods of 
time (for example, month, quarter, or 
year-to-date). 

Typical uses are to combine weekly 
payroll data into monthly, quarterly, 
and yearly reports and to combine de- 
partment budget data into division, re- 
gion, and company-level reports. 

A special system layout form helps 
you organize your consolidation sys- 
tems. With the filled-in information, 
you can create a complete network 
during a question-and-answer session 
that allows you to define an unlimited 
number of interrelated consolidation 
processes. These definitions can then 
be stored for later use. 

VIZ.A.CON gives you the ability 
to set up special formulas (such as 
ratios or percentages) that can be re- 
calculated after a consolidation pro- 
cess. You can customize titles, row 
and column headings, footnotes, and 
so on for each report created. Reports 
can be automatically saved in stan- 
dard ASCII form that can be used 
with a word processor. 

Priced at $89.95, the program is 
available from Abacus Associates, 
Suite 240, 6565 W. Loop South, Bell- 
aire, TX 77401, (713) 666-8146. 

Reader Service «^564 

Advice For Small Businesses 

Understanding and Buying a Small 
Business Computer is a handbook of 
realistic, practical advice for small- 
business owners and managers inter- 



ested in possible computerization. 
Written by consultant Susan Blumen- 
thal, the $8.95 volume ranges from 
"Introducing an Average Computer" 
to determining whether your business 
needs a computer in the first place. 

In addition, the book provides gen- 
eral information on microcomputers, 
minicomputers, and their peripherals' 
performance, operating costs, and 
maintenance and repair requirements. 
Other chapters help you decipher com- 
puter sales pitches, avoid employee 
hostility, and evaluate computer con- 
sultants. 

It is available from Howard W. 
Sams & Co. Inc., 4300 W. 62nd St., 
P.O. Box 7092, Indianapolis, IN 
46206, (317)298-5400. 

Reader Service »^552 

Computer Care Kit 

The RSI Computer Care Kit con- 
tains three useful products for main- 
taining a word processor and comput- 
er. The kit includes one eight-ounce 
bottle each of anti-static spray; print- 
wheel cleaner for removing ink and 
carbon build-up on Wang, Diablo, and 
Qume print wheels; and one spray bot- 
tle of screen and terminal cleaner. Also 
supplied are five foam-covered clean- 
ing swabs, five lint-free cloths, and a 
print- wheel cleaning case. 

The kit is available for $9.95 from 
Repair Service Inc., 4738 N. Ardmore, 
Milwaukee, WI 5321 1 , (414) 963-0603. 

Reader Service »^573 

Name That Song 

Name That Song is a game in which 
the player must guess the first word of 
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the title of a well-known song. The 
player chooses a hard clue (fewer 
notes) or easy clue (more notes) for 
each song, and then hears the notes 
that allow him to identify it. The play- 
er must contend with a timer as well. 
Hard clues are worth 15 points and easy 
clues are worth 10 points, up or down. 
Two hundred points win the game amid 
great fanfare and dancing notes. 

The game comes on cassette in two 
versions: Name That Song 1 — Chil- 
dren's Songs, and Name That Song 
II — Popular Hits. Each contains 72 
familiar songs appropriate to the ver- 
sion. They are for a 16K Color Com- 
puter with Extended Color Basic and 
sell for $10 each. 

For more information, contact 
Computer Island, 227 Hampton 
Green, Staten Island, NY 10312. 

Reader Service *^568 

TRS-80 
Communications Program 

Term/Host is a self-contained com- 
munications program for cassette or 
disk-based Model I or III systems with 
48K of memory. The same version runs 
on all configurations. 

The program handles all types of 
files in binary or ASCII modes. It sup- 
ports complete remote operation of the 
user's system. As a host you may run 
machine-language or Basic programs, 
or up/download files from any remote 
terminal or system. 

This menu-driven program comes 
with a 27-page user's guide for $34.95. 
For more information contact Free- 
dom Financial Enterprises of Wash- 
ington Inc., 3601 Carriage Drive, Ra- 
leigh, NC 27612, (919) 787-8082. 

Reader Service »^567 

Block Graphic 
Character Generator 

MX-Graphic is a machine-language 
custom printer driver for the Models I 
and III with either an Epson MX-70 or 
MX-80 with Graftrax-Plus. 

MX-Graphic generates standard 
TRS-80 graphic characters using the 
printer's bit-image mode and prints 
them in printer power-up configura- 
tion at between 1 and 2 cps. Normal 
text printing is not affected and graph- 
ics and text can be mixed as desired. 

The block-character generator can 
be switched in and out by software to 
allow other printer configurations and 



use of the bit-image mode. NEWDOS- 
80 JKL and Model HI screen-dump 
functions are supported. 

The program is available for all stan- 
dard tape and disk configurations. In 
addition, versions are provided for 
Model Is with a Memory Sidecar man- 
ufactured by Displayed Video. Memo- 
ry overhead is less than 800 bytes and 
the program is self-protecting in Basic 
operation. 

With documentation included, MX- 
Graphic sells for $19.95 (U.S.) or 
$24.95 (Canadian) plus $2 postage and 
shipping. For more information, con- 
tact CMD Micro Computer Services 
Ltd., 10546-106 St., Edmonton, 
Alberta, Canada T5H 2X6, (403) 
423-3919. 

Reader Service »^ 570 

Computer Carnival 

Computer Carnival by Richard 
Ramella contains 60 Level II Basic pro- 
grams, written primarily for children 
but useful to beginners of all ages. It 
includes both games and educational 
programs, arranged in order of diffi- 
culty. Most of the programs are short, 
making them easy to enter. Some can 
be entered by an experienced key- 
boarder and then used by children too 
young to read. 

Each chapter has an illustration by 
the author, a short description of 
the program and how to use it, and a 



program listing. The games range from 
favorites like keno and bingo to orig- 
inal games and simulations, as well 
as graphic games. The educational 
games include math, letter guessing, 
and word games; a program teaching 
states and capitals; and even a Morse- 
code tutor. 

Computer Carnival costs $16.97 at 
computer stores or directly from the 
publisher, Wayne Green Books, Peter- 
borough, NH 03458. A package con- 
taining the book and the programs on 
cassette is available for $24.97 and the 
cassette alone for $9.97, although the 
book is required for documentation. 

Reader Service •'556 

Expanded Disk Storage 
For Models I and III 

A series of floppy-disk drives for 
both internal and external mounting, 
offering up to four megabytes of un- 
formatted storage for the Model III 
and two megabytes for the Model I, is 
now available from Interface Inc. 

For internal storage on the Model 
III, there are four drives available. 
These include a single-sided drive with 
40 tracks and 250K of unformatted 
storage for $215, a single -sided drive 
with 80 tracks and 500K for $335, a 
double-sided drive with 40 tracks and 
500K for $335, and a double-sided 
drive with 80 tracks and one megabyte 
of unformatted storage for $435. A 




Interface Disk Drives 
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maximum of two drives can be in- 
stalled internally. 

There are also four drive types 
available for external storage with the 
Models I and III, including color-co- 
ordinated cabinet, power supply, and 
cable. These drives are single sided 
with 40 tracks and 250K for $315, sin- 
gle sided with 80 tracks and 500K for 
$435, double sided with 40 tracks and 
500K for $435, and double sided with 
80 tracks and one megabyte of stor- 
age for $535. 

Cabinet colors include computer 
blue, standard off-white, lime green, 
dark green, bright orange, brilliant yel- 
low, black, or chrome. 

All drives are TRS-80 compatibility 
tested before shipment and have a 
90-day warranty. For more informa- 
tion, contact Interface Inc., 7630 Ala- 
bama Ave., Unit 3, Canoga Park, CA 
91304, (213)341-7914. 

Reader Service ^ 565 

Single-Entry Ledger System 

The Single-Entry Ledger System 
provides a menu-driven, easy-to-use 
general-ledger package for a cash-ba- 
sis accounting system. This product 
maintains its own data files and pro- 
vides a variety of reports. The pro- 
grams, written in Extended Basic, are 
available for the Model III and the 
Color Computer. 

The system's data files can contain 
any number of accounts and transac- 
tions, limited only by the size of the 
storage medium. Files may be added, 
deleted, or edited at any time. Reports 
include accounts in numerical order, 
comparison of year-to-date values with 
previous year, transactions by account 
number, and many more. 

Priced at $95, the Ledger System is 
available from Universal Data Re- 
search Inc., 2457 Wehrle Drive, Buffa- 
lo, NY 14221,(716)631-3011. 

Reader Service ^551 

Dual-Mode Joystick 

A new plug-in joystick for Color 
Computer games offers both tradition- 
al spring-center return and a faster, 
more versatile free-floating mode. 

A linear potentiometer translates the 
movement of the gimbal to electrical 
impulses, providing more accurate cur- 
sor control and faster motion. External 
switches allow players to shift back and 
forth between modes as often as they 
like, while cursor centering tabs on top 
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of the unit permit fine tuning for pre- 
cise response. 

The joystick is available for $64.95 
from Kraft Systems Co., 450 W. Cali- 
fornia Ave., Vista, CA 92083, (714) 
724-7146. 

Reader Service ** 586 

Faster Disk Thesaurus 

Refware Thesaurus 2.0 is a faster 
and expanded synonym-finder that re- 
places the first Refware Thesaurus 
published in 1981. 

Compared to the earlier program, 
Thesaurus 2.0's ZBasic 2.2 machine 
language and new index feature al- 
low it to respond more than 10 times 
faster — on the Model III, only seven 
seconds from the time a user asks 
about a given word until the program 
supplies a group of synonyms or 
related words. Vocabulary has been ex- 
panded to 24,800 entries, providing 
nouns, adjectives, verbs, and adverbs 
for all types of writing. 

Thesaurus 2.0 requires two disk 
drives and 48K of memory, and is 
available in three formats: a four-disk 
set for Model III, 40-track, double 
density; a five-disk set for Model I, 
35-track, double density; and a nine- 
disk set for Model I, 35-track, single 
density. The price of each is $89.95 
plus $3 for shipping. 

Through December 31, 1982, regis- 
tered purchasers of Thesaurus 1 .0 can 
exchange their disks for the new pro- 
gram for a $30 service fee and $3 ship- 
ping. For more information, contact 
Refware, David C. Whitney Associates 
Inc., P.O. Box 451, Chappaqua, NY 
10514, (914)238-8896. 

Reader Service ^ 579 

Camp Management System 

EZ-Camp is an integrated set of pro- 
grams designed exclusively for camp 
management. The system was devel- 
oped and field tested in conjunction 
with several camps using the Model II, 
and requires no programming knowl- 
edge or programmer support. 

Besides maintaining complete camp- 
er information, the system can produce 
mailing lists, medical records, birthday 
or bunk lists, and many other reports 
required in camp management. Users 
can select standard reports, create their 
own, or use the system's word proces- 
sor for personalized letters, application 
forms, newsletters, and the like. In ad- 
dition to standard financial applica- 




Computex Communications Board 

tions, EZ-Camp also has capabilities 
aimed specifically at camps — like can- 
teen supervision and cash advances 
for staff. 

A demonstration disk can be ob- 
tained for $50. For more information, 
contact EZR Micro Inc., 11 Conwell 
Drive, Maple Glen, PA 19002. 

Reader Service ^560 

Model III Internal 
Communications Board 

The M3CB1 communications board 
provides an RS-232C serial interface 
and a complete direct-connect modem 
all on one card slightly larger than the 
Radio Shack RS-232 interface. Totally 
software and hardware compatible 
with the Model III computer, the 
M3CB1 installs in less than 30 minutes 
in the same location as the Radio 
Shack RS-232 board. 

The RS-232 supports asynchronous 
serial transmissions and conforms to 
the industry-standard EIA RS-232C 
interface. Baud rates from 50 to 19,200 
baud are software selectable. 

The 300-baud, full-duplex, direct- 
connect modem uses FSK modulation 
techniques and supports both originate 
and answer modes of operation. 

The assembly and installation man- 
ual provides step-by-step assembly in- 
structions written for the first-time 



DOES STRING COMPRESSION HAVE YOU 
TIED UP IN KNOTS? 

LET TRASHMAN CLEAN UP THE MESS! 

TRASHMAN is a machine language utility for the TRS-80 Models I and III. It was written by Glenn 
Tesler, the author of FASTER, and can reduce BASIC'S string compression time by 95% (see table below) 

WHAT'S STRING COMPRESSION? 

When a BASIC program changes a string (words, names, 
descriptions), it moves it to a new place in memory, and leaves a hole in 
the old place. Eventually, all available memory gets used up and BASIC 
has to push the strings together to free up some space. This takes 
time. Lots of time. The computer stops running for seconds or minutes, 
and you may even think it's "crashed". The keyboard won't work, and 
until all the strings have been collected, you just have to sit and wait. 
Then things run for a while, until string compression is needed again. 
And again 

If you're using your computer for business, that wastes your money If 
you're using it personally, it wastes your time. 

WHAT'S THE SOLUTION? 

As soon as you start using TRASHMAN, those delays almost 
disappear It uses less than 600 bytes of memory, plus 2 bytes for each 
active string It works with other machine language programs and with all 
major operating systems. It's easy to use. comes with complete 
instructions, and can be copied to your own disks. 

WHAT'S THE CATCH? 

If a BASIC program uses only a few strings, very little time is wasted 
in string compression, and TRASHMAN won't be helpful But. if 
hundreds of strings, including large string arrays, are used. TRASHMAN 
is just what you need. 

Ask your software dealer for TRASHMAN. or order 
directly on our toll-free number. The price is just $39.95 
(plus sales tax in California). 

(All timings done on TRS-80 Model I. Model III 15% faster, but pet. improvements identical Listing of timing program available on request. 




# 


SECONDS DELAY 


PERCENT 


STRINGS 


NORMAL 


TRASHMAN 


IMPROVEMENT 


250 


11.8 


0.7 


94 


500 


45.8 


1.6 


96.5 


1000 


179.6 


3.5 


98 


2000 


713.2 


7.8 


98.9 



AMAZING PROGRAM SPEEDS UP BASIC ErR^HC ^tt* DRPv^S 




Your time is valuable, so why 
waste it on slow-running BASIC 
programs? PROSOFT's 

"FASTER" will analyze those 
programs while they run, then 
show you a simple change (usu- 
ally one new line) that can re- 
duce run-times by up to 50%. 

Accounting systems, financial models, engineering and scien- 
tific programs all run taster; so do games. Large, complex pro- 
grams improve the most, and "FASTER" is easy to use. 

THIS ISN'T A COMPILER! Your BASIC programs remain read- 
able and can be changed later on. While your programs run, 
"FASTER" counts how often each "variable" is used, then shows 
you the correct sequence for these variables. Afterwards, the 
computer finds them sooner, so your programs run faster. 

Does it really work? Yes! Personal Computing said so in their 
May, 1981 issue (p. 116); we've received many letters from cus- 
tomers who've gotten 20-50% improvements; and we will make 
you this offer: 

Order "FASTER" now. Try it on your bread-and-butter pro- 
grams. If you don't get an overall run-time reduction of at least 
20%, return it within 30 days for a prompt and cheerful refund. 
"FASTER runs on TRS-80 Models I and III, 16 48K, tape or disk 

•29.95 



RPM measures the rotational speed and 
variation of your disk drives, and reveals a 
common cause of unexplained errors. 
Simple one-key operation, runs under any 
DOS, interchangeable between Models I 
and III. Shows current and average 
speeds, plus fluctuation history. Recovers 
from severe errors. Documentation ex- 
plains how to adjust drives. Use RPM 
monthly for best results. 32-48K Model I or 




III disk 924.95 



TO ORDER. CALL NOW. TOLL FREE 

(800) 824-7888. Operator 422 

CALIF: (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213) 764-3131, or write to us. 



QUICK COMPRESS 



Small (276 bytes), fast (processes 800 
lines in under 3 seconds) utility removes blanks and remarks from 
your BASIC programs. Produces smaller, faster programs, and 
doesn't alter the original logic. 



PRom 



16-48K Model I or 111, tape or disk. 
SPECIAL FASTER ■+■ QUICK Compress; 



919.99 



Dept. G Box 560 "' 
$39.95 N or th Hollywood, CA 91603 



TERMS: We accept VISA. Mastercard, checks M-jney Orders COD and ever, cash We pay shipping via 

surface UPS inside U.S.A. Please add $3.00 tor Blue Label. 6% tax in California, and 1 5% outside North America iair shipment). 



NEW PRODUCTS 




Datasori 



kit builder and includes installation 
pictures for each major step, theory 
of design, user information, and 
much more. 

The M3CB1 is available as just the 
printed circuit board and manual (you 
supply components and assembly) for 
$34.95, or as the complete kit for 
$129.95. The RS-232 is also available 
assembled and tested for $69.95, while 
the complete RS-232 and direct-con- 
nect modem comes partially assembled 
(you must insert one IC into a socket) 
for $169.95. For more information, 
contact Computex, 17321 El Camino 
Real, Houston, TX 77058, (713) 
488-8022. 

Reader Service *^553 

Disk Menu and Directory 

Most disk directories show only the 
filespecs and some seldom-needed 
other information. The Disk Menu 
and Directory by International Com- 
puter Products displays detailed de- 
scriptions of each program on the disk, 
as well as filespecs, date of creation, 
and more useful data. 

The directory works without modifi- 
cation on Models I and III with 
TRSDOS, NEWDOS+, or other op- 
erating systems. Priced at $29.95 plus 
$1 .50 shipping and handling, it is avail- 
able from International Computer 
Products, 346 N. Western Ave., Los 
Angeles, CA 90004. 

Reader Service ^577 

Reading Skills Lab 

Reading Skills Lab is a new product 
for the Model III that offers a variety 
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of exercises for improving basic read- 
ing skills, as well as short stories for 
reading practice. The complete lab 
contains 63 programs on six disks and 
three teacher's manuals with complete 
documentation. 

The set was designed by a certified 
reading specialist, and the stories 
were written by professional chil- 
dren's authors. The core vocabulary 
lists for each grade level were taken 
from a list of words introduced in the 
most widely used basal reading series 
in schools today. 

Exercises include word recognition, 
sight vocabulary, definitions, vocabu- 
lary in context, recall of detail, infer- 
ence, main idea, sequence of events, 
and many other skills. Most programs 
include an optional printer module 
that allows preparation of worksheets 
for desk use. Each grade level also has 
at least one word game using the core 
vocabulary list to spark interest and re- 
inforce skills. 

The complete Reading Skills Lab, 
with exercises for students in grades 
1-9, sells for $1 ,000. The programs can 
also be ordered in smaller groupings: 
Lab A (grades 1-3), Lab B (grades 
4-6), and Lab C (grades 7-9), priced at 
$350 each. They can be ordered from 
NTS Software, 680 N. Arrowhead 
Ave., Rialto, CA 92376. 

Reader Service »^571 

"Cardboard Computer" 

Datasort, a "cardboard computer," 
allows you to store and retrieve infor- 
mation in any category combination 
you choose. 

The system consists of a hand 



punch, a small rod (like a knitting nee- 
dle), and file cards with numbered 
holes around all four edges. You 
develop your own category list in- 
dicating what you want the numbered 
holes to mean, then use your hand 
punch to clip away the tops of holes 
that apply to the information on each 
punchcard. To retrieve information, 
insert the rod at any category hole. 
When you lift the rod and shake the 
stack, cards notched for that category 
will fall off the rod. 

To cross reference, all you need do is 
take the cards just retrieved and poke 
the rod through a hole for any other 
category. 

The Datasort system is designed for 
medium-sized projects requiring up to 
5,000 cards. Its cross-referencing capa- 
bility can save up to 80 percent of the 
time usually spent duplicating and 
scanning, and 100 percent of the time 
spent refiling. 

The system weighs less than three 
pounds and is priced at under $30. For 
more information, write or call In- 
decks Inc., Dept. 523, Arlington, VT 
05250, (802) 362-3464. 

Reader Service i^589 

Loan Sales/Purchase 
Analysis Program 

A new program for analyzing the 
sale or purchase of a loan is available 
on disk for the Model I or III with 48K. 

The program will calculate either the 
return on investment or the value of 
loans of any amount, at any interest 
rate or due date. It allows both buyer 
and seller to make knowledgeable deci- 
sions when purchasing or liquidating 
loans. 

The printout shows the loan amount, 
original interest rate, the number of 
months until due, the yield to the buyer 
(return on investment), the discount in- 
terest rate, the discount amount, and 
the value of the loan (price paid to 
seller). Loans in foreign currencies as 
well as U.S. dollars can be analyzed. 

The program sells for $50 from 
Realty Software Co., 1 1 16 'E' 8th St., 
Manhattan Beach, CA 90266, (213) 
372-9419. 

Reader Service *^554 

Cables and Light Pen 

Five new cables for the Color Com- 
puter are available from Spectrum 
Projects. 





3 Easy Steps 
To Better Computing 



1. Find the LOAD 80 dealer nearest you. 

2. Visit his store. 

3. Buy LOAD 80. 



Once you discover how much time and money you can save using LOAD 80 — and just 
how easy it is to use — you may never want to keyboard another program as long as 
you live. 



• Leominster News 
eMmumAn 
Leominster. MA 01433 
6)7534-8237 



' N..th EaMrm lump I 
463MuudvSt 

Wjllhiim MAOIIW 
617899-3340 



Vineyard Electronic* 

>.lalr |<; 

Vineyard Haven. MA 02988 

0,7893-5600 



' Tufls Radio 
61 LuweARd 
Hudson. NH 03061 



Radio Shark 
148 Key Rd 
Keene. NH 09431 
603-3370100 



Comer Sew* 
Railroad Square 
Kerne. NH 03431 

603-357-4696 



• Win Hall Association 
31 RayncsAvc 
Portsmouth. NH 03601 
603-431 7438 



Computer ill imiw I 

1 1 Ponland Hill 
Georgetown CT 08829 

70*233-0643 



Alban. Inc. 

1 1 Ponland HIM 

Georgetown. CT 06829 

203-544-9236 



' Computer Servlce^DANH 



Software Han 
3S2 btoomftcld Ave 
Caldwell. NJ 07006 
201 228-4949 

The Computet Nook 
Pine Brook Pkua. Pit 46 
Pine Brook. NJ 07088 
201 575 1192 



C omputrr Dimrnsjons 

1 16 Elm St 
WetuVM VI 07090 
20 1 232-8300 



Computer Comer of \ J 
439 Route 23 
Pompton Plants VI 07444 
201 835-7060 



Computer Oearouni of A 
W nt MHford Mai) 
West kMlord. VI07480 
201 728-8080 



' Software CM> 
147 N Ki m rrkarnack Rd 
Hontvale VI 07645 
2oi :i9ij»3I 



' Software Citv 
161 Cedarland 
Teanerk. NJ 07866 
201892-8298 



Computer Madness 
Summcnon Shopping Cn 
EngHahtown. NJ 07726 

201 482 9696 



Mr. Rick Burden 
94 Princeton Ave 
IJnver.NJ 07801 



J * J Electronics R/S 
Rle 47. James Way SAT 
HatTtuMown VI 07840 
201 852-6976 



Paperback Boofc.^milh 
Rorkawav Town Souarr 
Morkawav VI 07886 
301 361-3400 



Hjppv Hnofcrr 
Mom» County Mall 
(raw Knolls VI 07927 
201 53*4241) 



Morns County Slaoone 
Chester Springs Shop. Ct 
Chraler. NJ 07930 
201 879-5776 



Computer Workshop 
laoOHaddenrieKIRd 
Cherry Hill. NJ 0BO02 

609-663-4404 



Radio Shack 
Cherry Hal Mall 
Cherry HM VI 08034 



Compuin Encounter 
Princeton N Shop Cat 
Princeton NJ 08540 
609-93467S7 



Baigain Brother* 

2 16 Srotrh Rd 

W Trenton NJ 08638 

609-883-2060 



Rl 23. Rd 3. 8n» 370 
Whllehouae Station. NJ 08889 
201 3342732 



LHglbvtc 

31 E 11a 

New York NT 10016 

212889-8130 



RD Internal tonal 
453 W 43rd St 
New York. NY It 
3I2 307O266 



Programs La*d White 

While Plains NY 10601 
9147619283 



Programs l;nhd ksr 
20A Jen. ho Tumpske 
Jenvh.. NY I 1753 

516-997 8668 



Thr Cijenputer Shoppr 
283 Medlord Ave Rle 
Pau-houur NY 11772 
SI&7SH6SS6 



Cumpulerland 
48-30 Main St. 
Maaaena. NY 13663 
313 769 9971 



Red Ten Radio Shark 
129 E 41hSI 
Walklns (Slen. NY 14891 
806,5332233 



Personal Sotlwsrr 
Rte 33 • Ste 345 
Errrrson. PA 19330 
213 386-9864 



Wills Computet Store 
44 10 Sump Rd 
Mariow Hgts Ml) 30U3I 
301 423-4523 



Penlagon Bonksiorr 
The Concourse 
Washmglon. DC 30301 

202 6950870 



3owes Books 
718 Great Mills Rd 

Lemnglon. Mil 2U633 
301-863-6300 



Taw Caaswi Center. J 
9634 Ft Meade Md 
Laurel. MO 308 10 
301 953 9353 



H Dallon Booksellers 
Rls 1-270* MDBS 
Frederick. MD 3 1 701 



Hancock TecMru. 
33 W Main St 
Hanrork. Ml) 217 
3Ol«78-6O0O 



Airadr Eire I ran*-* IN 
7026-28 Columbia Pskr 
Annandale VA 23003 



' Community Electronics 
358 Broadview Ave 
Warren lun. VA 33 186 
703-347 1339 



Mr. Robert G. Brooks 
9701 Meadow View Rd 
Richmond VA 33239 



KASNcwsund 
l349Corporala>n Pkwy 
Winston Salem. NC 3711)7 

919734 7537 



King Electronics 
Town A Count r\ Shop ' 
Aberdeen NC 36315 
919-944-2800 



Sound Mia 

Sasrum Shopping Cm 
Havrtock. NC 28333 
919447-5988 



Kayburn Micro Elt 
27 E Main SI 
Sy I va. NC 28T79 

70+ 586-8 133 



Megauon-Radio Shack I) 
Hem age Plata 
Hlllon Head Plaza SC 2UH3N 
803 785-9830 



' Altania Computer Man 
5091 BBukxdHwy 
Atlanta GA 30362 
404 4554)64 ' 



' Software To*»» 

H5I4 t indv Si. 
Savannah CA 31406 
912-927-2017 



Cape New. Co 
■OOCIeurlake Rd 
Curoa FL 32933 
813 870 1970 



J305 Ponce de Leon Blvd 
WS 864 2305 



II 8 H Hobby Saars 
4131 S Tamiami Tn 
SarasMa FL 33561 
« 13 922 77 1 1 



Paprtusrk Htsiksnuih 
M3tll S Tamtami Trail 
Sar.vs.it.. FL M 
Ml. 3. 923 -3369 



14932 N Florida Hw. 
Tampa. FL .13812 
Ml 3-981-5369 



' Madison lk»ks 
MOHB 5 Madison Pike 
Ma.lls.rn AL 35758 
205 772 9250 



lionprr Electmnlc Supp 
495 Riasmburg Ave 
H4k.». MS 39531 



Clliabelhlown Electron 
Ettjabrthtown Pbtra 
Eltiabethiown. KY 43701 
502 76S5070 



Jerry s Computers 
Euclid Arcade 
Cleveland. OH 441 15 

2165790648 



4930 Airway 
Dayton OH 43431 
513-353 1613 



♦ Suppliers of Load 80 Disks 



Pamper yourself. 

Pamper your computer. 

Use LOAD 80 cassettes and disks 



A subsidiary of Wayne Green I nc. 
Peterborough, N.H. 03458 USA 
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NEW PRODUCTS 



The Disk Interface/ROMpak Ex- 
tender ($29.95) is a 40-pin ribbon cable 
that plugs into the ROMpak port and 
terminates with a female connector for 
disk interfaces and ROMpaks. Con- 
nectors are gold plated to eliminate 
corrosion. This three-foot cable elimi- 
nates disk I/O errors and makes ar- 
ranging your components easier. 

Three 10- foot extension cables let 
you place your joysticks, printer/mo- 
dem, and tape recorder at convenient 
distances from the computer. They are 
$14.95 each. The last cable, a joystick 
Y adapter ($19.95), lets you hook in 
line a joystick and Spectrum's new 
low-cost light pen ($14.95). 

These products can be ordered from 
Spectrum Projects, 93-15 86th Drive, 
Woodhaven, NY 11421, (212)441-2807. 

Reader Service *^569 



Files and Labels 

Management System II, a filing pro- 
gram featuring machine-language 
"lightning sort" of any column, is now 
available for Model I or III tape-based 
systems. 

File presentation is a maximum of 
two horizontal lines (100-plus charac- 
ters) with one to nine vertical columns. 
Column titles are easily created, and 
files may be added, updated, listed, 
deleted, or saved to tape or printer. 

A labels command provides printer 
output of any or all columns for pro- 
duction of mailing labels, file labels, 
stock bin tags, or any similar home or 
office application. A merge feature 
consolidates files previously saved on 
tape, and a keyed selective-search 
function lists files based on the number 
of characters input. 

All commands are executed by sin- 
gle-letter entry for faster and easier op- 
eration. The program sells for $26.95 
from Micro-80 Inc., 2665 E. Busby 
Road, Oak Harbor, WA 98277. 

Reader Service »^583 



Animation Stand 
Move Calculator 

Animcalc is a program designed to 
enable the users of hand-cranked ani- 
mation stands to produce the same 
smooth, tapered moves generated on 
the new breed of computer-driven 
stands. Given the starting and ending 
482 • 80 Micro, December 1982 



settings of up to six different coordi- 
nates, and the frame number at the 
start and end of the move, Animcalc 
computes the coordinate settings for 
each frame within the move, including 
table rotation (clockwise or counter- 
clockwise). 

Each coordinate can be assigned its 
own taper style (no taper, taper start, 
taper end, or taper both ends), and dif- 
ferent lengths of taper can be assigned 
to each coordinate. The results can be 
output to a line printer or the video 
screen for copying to the animation 
frame chart. 

The program is available in CP/M 
or Basic for Models I and III. It is 
priced at $49.95 (disk or cassette). For 
more information, write Animcalc, 
895 NE 90th Ave., Portland, OR 
97220. 

Reader Service *^559 



First Down 

NFL Pro Football allows play be- 
tween any NFL teams in either manual 
or automatic mode. It uses actual NFL 
rosters and team statistics that may 
easily be updated as the season pro- 
gresses. A predict mode produces 
amazingly accurate forecasts. Fast ma- 
chine-code graphics add excitement to 
the game. 

This game runs on a 48K Model I or 
III. Priced at $34.95, it is available 
from M-P-Software, Route 2 Box 533, 
Cumming, GA 30130, (404) 887-6814. 

Reader Service *^575 



Bulletin Board 

SPS-BBS is a low-cost bulletin- 
board system for the Models I, II, and 
III. The system sells for $79.95 
($1 19.95 for the Model II) and includes 
a host utility, message system, packed 
disk files, six functions that can be de- 
fined by the system operator, chat 
mode, and many more. 

For more information contact Small 
People Software Corp., P.O. Box 732, 
College Park, MD 20740, (301) 
937-4339. 

Reader Service ^587 



library Management System 

The Library Support Option file- 
management system provides the 
capability to create and maintain 



libraries for logical organization of 
files and programs. 

The system is compatible with the 
DOS, user, and application programs. 
Regular DOS commands can be used 
to list, print, kill, copy, load, or save 
files directly to or from libraries. It 
supports regular as well as library files, 
and includes faster file handling, one 
sector minimum file size, and text com- 
pression. 

Priced at $79, the Library Support 
Option is available on disk for the 
Models I and III from XYZT Comput- 
er Dimensions Inc., 2 Penn Plaza, 
Suite 1500, New York, NY 10121, 
(212)244-3100. 

Reader Service v 563 

Koupon Keeper 

Koupon Keeper is a record-manage- 
ment system for the Models I and III 
that catalogs cash-off coupons in any 
order and displays them, at your re- 
quest, by brand name, product type, 
amount, or expiration date. This prod- 
uct helps you make better, more effec- 
tive use of store coupons than is 
possible using the traditional filing 
techniques. It also greatly reduces the 
amount of time necessary to maintain 
your coupon file. 

Priced at $9.75, it is available from 
Kensoft, 2102-50th St., Kenosha, WI 
53140,(414)654-2722. 

Reader Service »^558 

Graph Paper for 
Your Word Processor 

Word-Processor Graph Paper is a 
software product that produces screen 
formats of standard graph paper grids 
compatible with word processor stor- 
age formats. 

By selecting one of over 30 stored 
formats, the user need only enter data 
points and graph titles. The graph then 
becomes part of the text file and is edit- 
ed and printed as a normal page. 

For more information, send word- 
processor or computer type to ATC 
Software, RT 2 Box 448, Estill Springs, 
TN 37330. 

Reader Service ^591 



New Products listings are based on 
information supplied in manufactur- 
ers' press releases. 80 Micro Has not 
tested or reviewed these products and 
cannot guarantee any claims. 



HOW TO USE YOUR EPSON 

WITHOUT WASTING 

COMPUTER 











Your computer is capable of sending data 
at thousands of characters per second but 
the Epson can only print 80 characters per 
second. 

This means your computer is forced to 
wait for the printer to finish one line before it 
can send the next. A waste of valuable time. 

THE NEW MICROBUFFER 

ACCEPTS DATA AS FAST AS 

YOUR COMPUTER CAN SEND IT. 

Microbuffer stores the data in its own 
memory buffer and then takes control of 
the printer. This frees your computer for 
more productive functions. 

PARALLEL OR SERIAL. 

Microbuffer model MBP-16K is a 
Centronics-compatible parallel interface 
with 16,384 bytes of on-board RAM for 
data buffering. 

The MBS-8K is a full-featured RS-232C 
serial interface with both hardware and 
software (X-On/X-Off) handshaking, baud 
rates from 300 to 19.000 and an 8.192 byte 
RAM buffer. 

SIMPLY PLUG IT IN. 

Either model fits the existing auxiliary 
interface connector inside the Epson MX-80. 
MX-80 FIT or MX-100 without modification, 
and is compatible with standard Epson 
cables and printer control software, 
including GRAFTRAX-80. 

JUST $159.00* 

When you think how much time Microbuffer 
will save, can you afford not to have one? 
Call us for your nearest dealer. 




PRACTICAL PERIPHERALS, INC. 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CA 91362 • (213) 991-8200 




Nov. 20-D«c 2. 1982 



'Suggested retail price lor either model 



r*s5 
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A GALAXY of features /nakes the L 
remarkable, computer. As you explore the 
L LNW80, yxju will find the most complete, 
! powerful, readyto run, feature-packed per- 
^ sonal and businjsss computer ever made into 
£ one compact* solid unit. 




. 



UALITY CONSTRUCTION - Instrumenta- 
tion quality construction sets LNW80 com- 
puters apart fygm all the rest. Integrated into 
the sleek solicr s^feel case of the LNW80 is a 
"professional 74-key expanded keyboard that 
ncludes a twelve key gumeric keypad. 

IG^ RES9LUTION GRAPHICS & COLOR- 

The stunning 480 X 192 resolution gives you 

total display control - in color or black and 

white. The choice of display formats is yours; 

80, 64, 40 and 32 columns by 24 or 1 6 lines in - 

any combination of eight colors. 

... . 
IFORMANCE - Lift-off with. a 4MHz Z80A 

I for twice the performance. The LNW80 

erforms all computers in its class. 



MODEL I COMPATIBILITY - The LN 

fully hardware and software compatible v 
the Model I. Select from a universaof hardw 
accessories and software - from VisiCalc® t 
space games, your LNW80 will launch you 
vorld of computing. 

i 

FULLY LOADED - A full payload inclu 
on-board single and double density <_. 
controller for 5 Vtf'^nd 8" single or double 
sided disk drives. RS232C communications 
port, cassette and parallel printer interfaces 
are standard features and ready to go. All 
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search Corp. 



graphics RAM and 12K ROM complete with 
Microsoft BASIC. 



^f 4*841 4&6Q- 
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